Public Sub checksum(field As String)
   If field = "21" Then
      CS = "*"
        CS = 0
        For i = 1 To Len(field)
           CS = CS Xor Asc(Mid$(field, i, 1))
           Next
           CS = Hex(CS)
           If Len(CS) = 1 Then
           CS = "0" & CS
           CS = "*" & CS
End Sub
这个函数的算法具体是怎样的啊,我不大明白.

代码错误。

假如不考虑代码的错误,大哥能否告诉我这段代码的具体实现的算法功能?

求16进制异或值的
Public Sub checksum(field As String)
dim cs
   cs=0
   If field = "21" Then
        For i = 1 To Len(field)
           CS = CS Xor Asc(Mid(field, i, 1))
           Next
           CS = Hex(CS)
           If Len(CS) = 1 Then
           CS = "0" & CS
           else
           CS = "*" & CS
           end if
End Sub

你这句话真吓人……

是将字符串参数转成ASCII再异或嘛?和谁异或?