十进制改为十六进制

Private Sub Command1_Click()

Me.Font.Size = 50

Dim n As Byte

n = 118

Dim shang As Byte

Dim yushu(1 To 2) As Byte

Const shiliu As Byte = 16

Dim i As Byte

i = 2

shang = n \ shiliu

yushu(i) = n Mod shiliu

While shang <> 0

  i = i - 1

  n = shang

  shang = n \ shiliu

  yushu(i) = n Mod shiliu

 Wend

Print yushu(1); yushu(2)

End Sub