VB Modbus RTU CRC 校验

 Public Function Chr_crc(data() As Byte) As String    '*RTU方式的CRC校验计算

      Dim CrcJ As Long
      Dim i As Integer
      Dim j As Integer
             
      CrcJ = 65535                                       '*CRCj赋值65535
      
      For i = 0 To UBound(data) '- 2                      '*循环参加校验的字节个数

          CrcJ = CrcJ Xor data(i)                        '*每个字节与CRCj的当前值异或
          For j = 0 To 7                                 '*循环八次
              If CrcJ Mod 2 = 1 Then                     '*如果CRCj当前值除2的余数等于1  判断最低位是否为1
                 CrcJ = CrcJ  2                         '*则CRCj当前值除2  右移
                 CrcJ = CrcJ Xor 40961                   '*CRCj当前值与40961异或
              Else
                 CrcJ = CrcJ  2                         '*如果CRCj当前值最低位不等于1 则只右移
              End If
         Next j
      Next i
      Chr_crc = Right("0000" + Hex(CrcJ), 4)             '*计算的CRCj当前值转换为十六进制
      Chr_crc = Right(Chr_crc, 2) + Left(Chr_crc, 2)     '*低字节放在前面，高字节放在后面
End Function