十六进制

Private Sub Command2_Click(）

Me.Font.Size = 50

Dim a As Integer

a = 1230

Dim b As Integer

b = 16

Dim s As String

Dim yushu As Byte

While a <> 0

yushu = a Mod b

If yushu < 10 Then

s = yushu & s

Else

s = Chr(yushu + 55) & s

End If

a = a \ b

Wend

Print s

End Sub

1230的十六进制，上次做不来，特别伤心,。

虽然上次做的是230的十六进制，但是做出来的是14 6，而不是e6，所以不对。

但是经过上次的操作和老师这节课的讲解，我懂得了怎样操作。