十六进制

Private Sub Command1_Click()
Me.Font.Size = 20
Dim i As Integer
Dim b As Integer
Const a As Integer = 16
Dim shang As Integer
Dim yushu(1 To 2) As Integer
b = 251
i = 1
shang = b \ a
yushu(i) = b Mod a
While shang <> 0
i = i + 1
b = shang
yushu(i) = b Mod a
shang = b \ a
Wend
For i = UBound(yushu) To 1 Step -1
Print yushu(i);
Next



End Sub