modibus脚本 'crc16校验代码 Public Function CRC16(ByVal SendStr As String) As String Dim CRC16Lo As Byte, CRC16Hi As Byte 'CRC寄存器 Dim CL As Byte, CH As Byte '多项式码&HA001 Dim SaveHi As Byte, SaveLo As Byte Dim i As Integer, j As Integer Dim Flag As Intege