十六进制表示

最新推荐文章于 2022-10-25 20:43:30 发布

abin1996718

最新推荐文章于 2022-10-25 20:43:30 发布

阅读量664

点赞数

本文链接：https://blog.csdn.net/abin1996718/article/details/51276393

版权

本文提供了一个使用Visual Basic Scripting (VBScript)编写的示例程序，该程序可以将十进制数转换为十六进制表示形式。通过定义函数`shiliujinzhi`来实现这一转换，并且在`Command1_Click`事件中调用此函数来展示如何使用。

摘要由CSDN通过智能技术生成

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 shiliu As Byte = 16
Dim returnS As String
Dim shang As Byte
Dim yushu(1 To 9) As Byte
Dim i As Byte

i = UBound(yushu)
shang = n \ shiliu
yushu(i) = n Mod shiliu
returnS = 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

Print Hex(230)

End Function