十进制变十六进制

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