十进制转十六进制

Private Sub Command1_Click()

Me.Font.Size = 30

Dim a As Integer

Dim b As Integer

Dim s As String

Dim yushu As Byte

a = 1230: b = 16

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