用VB做16位CRC校验 应该如何做

Question

刚才在网上查了一下   发现写的都不是很清楚只有来这里求助各位学长我现在有两个文本框   Text1   和Text2   一个按钮Command1我在第一个文本矿中输入一段01数字   然后点击Command1后   在Text2中显示出这段数字的CRC应该如何实现呢？   求教！！

Answer 1

在我的BLOG上有我写的c和VB的CRC校验数据生成！

Answer 2

http://blog.csdn.net/ZOU_SEAFARER/archive/2007/11/20/1895018.aspx

Answer 3

我在你的这段代码上 加了一个控件Command1用于显示代码为 Private Sub Command1_Click()
    Dim CRC() As Byte
      Dim d() As Byte '待传输数据
      ReDim d(2) As Byte
      d(0) = 123
      d(1) = 112
      d(2) = 135 
      CRC = CRC16(d) '调用CRC16计算函数
      'CRC(0)为高位
      'CRC(1)为低位
End Sub
可是编译的时候出现问题 您能帮我看一下吗 ？