新手有问题，如何在VB中实现对数据的异或校验？？

Question

比如有下例一串数据：
00　00　01　3D　00　00　12　00　01　24　00　00　12　00
它的异或校验是19小弟是VB的新手，不知如何做。请问各位大哥大姐这段程序怎么写？
谢谢！!

Answer 1

Private Sub Command1_Click()
    Dim Lnga As Long
    Dim Stra  As String
    Dim Strtemp As String
    
    Stra = "0000013D00001200012400001200"
    Dim i As Integer
    Dim j As Integer
    j = Len(Stra)
    For i = 1 To j Step 2
        Strtemp = Mid(Stra, i, 2)
        Lnga = Lnga Xor Val("&H " & Strtemp & "")
    Next
    
    MsgBox Hex(Lnga)
    End Sub