在窗体上放置一命令按钮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

怎么把crc的结果在文本框text3中输出阿
我要用，但我不会，哪位指点一下阿！谢谢！

text3.text =  cstr(crc)

CRC是一个数组
Dim i As Integer
for i=0 to 1
text3=text3+cstr(crc(i))
next i

如果要分两行显示的话，就换成这text3=text3+cstr(crc(i))+VBCRLF 同时，TEXT控件的MultiLine属性要设置为TRUE

[此贴子已经被作者于2007-1-24 15:52:22编辑过]

楼上正解!
要注意到是数组!