Public Function CalCRC16Fast(data() As Byte, no As Integer, btLoCRC As Byte, btHiCR

C As Byte) As String 

      Dim CL As Byte, CH As Byte                '

多项式码

&HA001 

      Dim SaveHi As Byte, SaveLo As Byte 

      Dim i As Integer 

      Dim Flag As Integer 

      btHiCRC = &HFF 

      btLoCRC = &HFF 

      CL = &H1 

      CH = &HA0 

      For i = 0 To (no - 1) 

        btHiCRC = btHiCRC Xor data(i) '

每一个数据与

CRC

寄存器进行异或