2138成16进制

Private Sub Command1_Click()

Me.Font.Size = 50

Print shiliujinzhi(2138）

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 AsByte) 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