十进制数转换成十六进制数

上图

程序为

Private Sub Command1_Click()

Me.Font.Size = 60

Print shiliujinzhi(230)

End Sub

Private Function shiliujinzhi(m As Integer)As String

Dim n As Byte

n = m

Const shiliu As Byte = 16

Dim returns As String

Dim shang As Byte

Dim yushu(1 To 8) As Byte

Dim i As Byte

i = UBound(yushu)

shang = n \ shiliu

yushu(i) = n Mod shiliu

returns = yushu(i)

While shang <> 0

  i =i - 1

  n =shang

 shang = n \ shiliu

 yushu(i) = n Mod shiliu

 returns = yushu(i) & returns

Wend

 

shiliujinzhi = returns

 

End Function

哈哈

神奇