一串16进制数双位取反并+小数点,高手来帮忙啊!

Question

现在我想将一串16进制数双位取反,并加小数点 :比如:00200200   双位取反后:000220.00谢谢!

Answer 1

Option Explicit
    Dim sj As String
    Dim i As Integer
    
Private Sub Command1_Click()
    For i = 1 To Len(sj) Step 2 '每2字节取
        Text2 = Text2 & StrReverse(Mid(sj, i, 2)) 'StrReverse倒序
    Next
    Text2 = Left(Text2, 6) & "." & Right(Text2, 2)
End SubPrivate Sub Form_Load()
    sj = "00200200"
    Text1 = sj
    Text2 = ""
End Sub

Answer 2

right()函数可不可以这样：
                        dim aaa as string,bbb as string
                        aaa="abcdefg"
                        bbb=right(aaa,2,3)  返回“def”

Answer 3

不能如此用，用MID函数
Private Sub Form_Load()
    Dim aaa As String, bbb As String
    aaa = "abcdefg"
    bbb = Mid(aaa, 4, 3) ' 返回“def”
    Debug.Print bbb
End Sub

Answer 4

学习了，居然有StrReverse这个函数，以前颠倒字符串一直用for循环