16进制

Private Sub Command1_Click()

Print erjinzhi(230)

End Sub

Private Function erjinzhi(m As Byte) AsString

Dim n As Byte

n = m

Const er As Byte = 16

Dim shang As Byte

Dim yushu(1 To 2) As Byte

Dim i As Byte

i = 2

shang = n \ er

yushu(i) = n Mod er

While shang <> 0

i = i - 1

n = shang

shang = n \ er

yushu(i) = n Mod er

Wend

Print yushu(1); yushu(2);

End Function