十进制换成十六进制

最新推荐文章于 2020-02-06 09:40:05 发布

原创最新推荐文章于 2020-02-06 09:40:05 发布 · 509 阅读

0 ·

CC 4.0 BY-SA版权

一共循环九次，一次一次输不适用于所有的数，用一个while循环，s是一个数组，它能倒着连接起来每一个余数。最后为什么余数大于9要加55.。。。。。

Private Sub Command1_Click()

Me.Font.Size = 50
Dim a As Integer
Dim b As Integer
Dim s As String
Dim yushu As Byte
a = 1230: b = 16
While a <> 0
yushu = a Mod b
s = f(yushu) & s
a = a \ b
Wend
Print s

End Sub

Private Function f(yushu As Byte) As String
If yushu <= 9 Then
f = yushu
Else
f = Chr(yushu + 55)

End If

End Function