十进制向十六进制转化.

Private Sub Command1_Click()
Dim yushu As Byte
Dim a As Integer
Dim b As Integer
a = 1230: b = 16
While a <> 0
yushu = a Mod b
s = f(yushu) & s
a = a \ b
Wend
Print s

End Sub


Private Function f(yushu As Byte) As String
If yushu <= 9 Then
f = yushu
Else
Select Case yushu >= 10
Case yushu = 10
f = "A"
Case yushu = 11
f = "B"
Case yushu = 12
f = "C"
Case yushu = 13
f = "D"
Case yushu = 14
f = "E"
Case yushu = 15
f = "F"
End Select
End If
End Function