十六进制的编程

学到现在了，还是懵懵的，该努力了

Private Sub Command1_Click()

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