Question

VB中数组接受串口数据提示下标越界

诚请各位高手解答！
谢谢！！

……

Select Case MSComm1.CommEvent
Case comEvReceive
Dim data(7) As Byte
'Dim ss() As Byte
Dim ss As Variant
Dim i%
For i = 0 To 7
ss = MSComm1.Input
'On Error Resume Next
data(i) = Val(CInt(ss(0)))
Text1.Text = Text1.Text & Val(data(i)) & " "
Next
End Select
End Sub

……
这是我上位机读取下位机发送的数据的程序，可是接受一段时间后，提示ss变量下标越界！

Answer 1

程序没毛病
建议检查一下通信线路是否有干扰，造成数据传输过程中断等现象。

Answer 2

请参阅:http://www.vbgood.com/viewthread.php?tid=83694&page=1#pid441972
的代码