VB 2005 向串口发送数据问题

Question

单步调试 这里If (datatype(i + 6) <> CByte((CInt(datatype(i)) + CInt(datatype(i + 1)) + CInt(datatype(i + 2)) _
                       + CInt(datatype(i + 3)) + CInt(datatype(i + 4)) + CInt(datatype(i + 5))) Mod 256)) 遇到问题，报错：
Index was outside the bounds of the arraydatatype是字节数组，取自rs232串口输入buffer里的数据

Answer 1

datatype是字节数组，怎么定义的？好像已经超限了

Answer 2

Dim datatype() As Byte
datatype这样来 rs232.Read(datatype, 0, rs232.BytesToRead)

Answer 3

应该用ReDim 语句为动态数组变量重新分配存储空间。

Answer 4

用datatype.length察看字节数据返回个数，以确定使用的下标是否越界。