校验问题

Question

我想问下VB里边不带进位加的语法是怎么写啊？下边是我的数据，我需要校验我检测的结果是否正常需要这样判断。校验和判断时将从帧头到校验和字节在内的所有字节不带进位相加（即取最低字节） 判断结果是否为零，为零则数据传输正确，非零则异常舍弃本次所接数据继续接收。
ldi temp , $A5 ;帧头 
ldi temp , $09 ;09年日 
ldi temp , $03 ;03月。。 
ldi temp , $06 ;06日  。。期 
ldi temp , $11 ;11时时 
ldi temp , $20 ;20分 
ldi temp , $35 ;35秒间 
ldi temp , $12 ;1234号。。主机好 
ldi temp , $34 
ldi temp , $EE ;预留 
ldi temp , $EE ;预留 
ldi temp , $05 ;502KPa。。500风压值 
ldi temp , $02 
ldi temp , $06 ;603KPa。。600风压值 
ldi temp , $03 
ldi temp , $07 ;秒    。。上网时间 
ldi temp , $01 ;TCU状态。。TCU状态 
ldi temp , $01 ;工作电流。。工作电流 
ldi temp , $50 
ldi temp , $01 ;排风电流。。排风电流 
ldi temp , $25 
ldi temp , $01 ;排风时间。。排风时间 
ldi temp , $82 
ldi temp , $EE ;预留 
ldi temp , $EE ;预留 
ldi temp , $EE ;预留 
ldi temp , $EE ;预留 
ldi temp , $04 ;500KPa2。。500风压值 
ldi temp , $98 
ldi temp , $05 ;600KPa2。。600分压值 
ldi temp , $92 
ldi temp , $00 ;检测结果高 
ldi temp , $00 ;检测结果低 
;校验和 

Answer 1

function CRC(a() as byte) as byte
    dim i as long, l as long
    for i=lbound(a) to ubound(a)
        l = (l + a(i)) and &HFF&
    next
    CRC = (((not l) and &HFF&)+1) and &HFF&
end function

Answer 2

这个CRC是不就是校验的结果阿？因为我要判断校验的结果是否为0，如果不是我需要重新接收。是不判断这个CRC是否为0就可以阿？