十进制转化为十六进制

Private Sub Command1_Click()

   Dim a As Integer

   Dim b As Integer

   Dim yushu As Byte

   Dim s As String

   a = 1230

   b = 16

   While a <> 0

   a = a \ b

   yushu = a Mod b

   s = f(yushu) & s

   Wend

   Print s

End Sub

Private Function f(yushu As Byte) As String

If yushu <= 9 Then

f = yushu

Else

Select Case yushu

Case 10, 11, 12, 13, 14, 15

f = Chr(yushu + 55)

End Select

End If

End Function