请教各位大哥大姐这小段代码

fangyangde1981

新手上路

Rank: 1

帖子：3
精华：0
积分：130
在线：0 小时
注册：2008-7-22

1^# 大中小发表于 2008-7-22 21:35 只看该作者

请教各位大哥大姐这小段代码

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
这个函数的算法具体是怎样的啊,我不大明白.

搜索更多相关主题的帖子: 大姐 field 代码 Sub Len

TOP

multiple1902

版主

Rank: 12

帖子：4113
精华：2
积分：41967
威望：28
在线：312 小时
注册：2007-2-9

2^# 大中小发表于 2008-7-23 08:21 只看该作者

代码错误。

个人Blog http://www.multiple1902.cn
个人网站 http://www.tcdongli.com
天才动力程序设计视频 http://www.tcdonglirecords.cn [under construction]

TOP

fangyangde1981

新手上路

Rank: 1

帖子：3
精华：0
积分：130
在线：0 小时
注册：2008-7-22

3^# 大中小发表于 2008-7-23 08:29 只看该作者

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

TOP

meihonganddulon

新手上路

Rank: 1

帖子：9
精华：0
积分：224
在线：17 小时
注册：2008-7-18

4^# 大中小发表于 2008-7-23 08:40 只看该作者

回复 1# fangyangde1981 的帖子

求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

TOP

multiple1902

版主

Rank: 12

帖子：4113
精华：2
积分：41967
威望：28
在线：312 小时
注册：2007-2-9