VB 如果将一串16进制双位取反

来源：百度知道 编辑：UC知道 时间：2024/06/11 10:42:31
刚刚学习VB,求助大家啦
现在我想将一串16进制双位取反,如
文件控件1 文本控件2
45F0EA31 双位取反后: 31EAF045

该怎么写法呢

很容易呀.帮你写个函数吧..

Function Stxt$(Oldtxt$)
Dim i%, j%
j = Len(Oldtxt)
If j = 0 Then Exit Function
Oldtxt = IIf(j Mod 2 = 0, Oldtxt, Left(Oldtxt, j - 1) & "0" & Right(Oldtxt, 1))
For i = 1 To j Step 2
Stxt = Mid(Oldtxt, i, 2) & Stxt
Next
End Function

Private Sub Text1_Change()
Text2 = Stxt(Text1)
End Sub

Basic能位运算吗？
貌似不能