关于十进制转化为十六进制

这个我也不会，问的其他同学，也只是记住了程序内容

Private Sub Command1_Click()

Me.Font.Size = 30

Print shiliujinzhi(230)

End Sub

Private Function shiliujinzhi(m As Byte) As String

Dim n As Byte

n = m

Const er As Byte = 16

Dim returnS As String

Dim shang As Byte

Dim yushu() As Byte

Dim i As Byte

i = UBound(yushu)

shang = n \ er

yushu(i) =

returnS = returnS & yushu(i)

While shang <> 0

i = i - 1

n = shang

shang = n \ er

yushu(i) = n Mod er

returnS = yushu(i) & returnS

Wend

shiliujinzhi = returnS

End Function