Modbus RTU协议CRC16编解码用VB6写起来比较啰嗦，需要做一些简单处理。下面就查表法，贴上源代码，并做一些简要说明。  源程序，对照上面的图看更方便。 Private Sub Command2_Click()Dim I As Integer, J As IntegerDim CRCHi As Integer, CRCLo As IntegerDim CRCindex As