十六进制

Private Sub Command1_Click()

Me.Font.Size = 50

Print shiliujinzhi(4545)

End Sub

Private Function shiliujinzhi(m As Integer) As String

Dim n As Integer

n = m

Const shiliu As Byte = 16

Dim returns As String

Dim shang As Integer

Dim yushu(1 To 32) As Byte

Dim i As Integer

i = UBound(yushu)

shang = n \ shiliu

yushu(i) = n Mod shiliu

returns = shiliujinzhifuhao(yushu(i))

While shang <> 0

i = i - 1

n = shang

shang = n \ shiliu

yushu(i) = n Mod shiliu

returns = shiliujinzhifuhao(yushu(i)) & returns

Wend

shiliujinzhi = returns

End Function

Private Function shiliujinzhifuhao(n As Byte) As String

Dim s As String

Select Case n

Case Is <= 9

s = n

Case Is >= 10

s = Chr(55 + n)

End Select

shiliujinzhifuhao = s

End Function