VB编程中下标越界

Question

我的代码是这样子的：
Dim ab(9) As Byte
Dim av As VariantPrivate Sub MSComm1_OnComm()
  With MSComm1
    Select Case .CommEvent
      Case comEvReceive
         av = .Input
         ab(0) = av(0)
         If ab(0) = &H2 Then
            .RThreshold = 0
            
            av = .Input
            ab(1) = av(0)
            av = .Input
            ab(2) = av(0)
            av = .Input
            ab(3) = av(0)
            av = .Input
            ab(4) = av(0)
            av = .Input
            ab(5) = av(0)
            av = .Input
            ab(6) = av(0)
            av = .Input
            ab(7) = av(0)
            av = .Input
            ab(8) = av(0)   //到这里就出现av（0）下标越界的问题。   我逐步调试的时候不会出现这个问题，我运行的时候就出现这个问题了。请各位高手指教。我的代码是这样子的：
Dim ab(9) As Byte
Dim av As VariantPrivate Sub MSComm1_OnComm()
  With MSComm1
    Select Case .CommEvent
      Case comEvReceive
         av = .Input
         ab(0) = av(0)
         If ab(0) = &H2 Then
            .RThreshold = 0
            
            av = .Input
            ab(1) = av(0)
            av = .Input
            ab(2) = av(0)
            av = .Input
            ab(3) = av(0)
            av = .Input
            ab(4) = av(0)
            av = .Input
            ab(5) = av(0)
            av = .Input
            ab(6) = av(0)
            av = .Input
            ab(7) = av(0)
            av = .Input
            ab(8) = av(0)   //到这里就出现av（0）下标越界的问题。   我逐步调试的时候不会出现这个问题，我运行的时候就出现这个问题了。请各位高手指教。
我发送的数据是用串口调试助手按十六进制发送的，内容是：02 51 2C 30 30 31 2E 32 2C 30 30 39 2E 36 32 32 2C 2B 30 30 30 2E 32 38 38 2C 4D 2C 30 30 2C 03 31 37 0D 0A

Answer 1

不知道LZ初始RThreshold 为多少?

Answer 2

初始为1,一般主板的RS232硬件在一次OnComm事件中能收到8字节的数据,而LZ
Dim ab(9) As Byte
是定义了10个的字节数组,所以在
ab(8) = av(0) 时出现av（0）下标越界的问题。

Answer 3

可以接受超过8个字节的数据，问题我已经解决了。还是要谢谢你，有机会交个朋友。向你学习VB编程。我的QQ是415104047。

Answer 4

http://download.csdn.net/source/1262066