VB6实现高位和低位互换，高低位

最新推荐文章于 2025-08-23 16:03:12 发布

原创最新推荐文章于 2025-08-23 16:03:12 发布 · 997 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

VB6.0程序制作专栏收录该内容

67 篇文章

订阅专栏

本文介绍了一个用于将整数转换为十六进制字符串并进行高低位互换的VBScript函数。该函数首先将整数转换为十六进制形式，然后通过特定算法实现高低位的反转。

Function Int2Hex(Value As Long, n As Long) As String '高地位互换
Dim tmp1 As String, tmp2 As String, i As Long
tmp1 = Right("0000000" + Hex(Value), n)
For i = 0 To Len(tmp1) / 2 - 1
tmp2 = tmp2 + Mid(tmp1, Len(tmp1) - 1 - 2 * i, 2)
Next i
Int2Hex = tmp2
End Function