vb下标越界问题

显示全部楼层 · 2008-11-24 21:21:16

Dim ab(4) As Byte
'字节数据类型数组，用来存贮接收到的一组字节数据

Dim av As Variant
'用来从接收缓冲区读取数据
.......
Private Sub MSComm1_OnComm()
With MSComm1
Select Case .CommEvent '判断MSComm1通讯事件
Case comEvReceive'收到Rthreshold个字节产生的接收事件

av = .Input
'读取一个接收字节

ab(1) = av(0)
'转换保存到字节数据类型数组

If ab(1) = 73 Then '判断是否为数据开始标志，I=73

.RThreshold = 0 '关闭OnComm事件接收

w = w + 1
'计数器加1

av = .Input'读取通道状态字节

ab(0) = av(0) '转换保存到字节数据类型数（执行到这里下标越界）
....

千问 · 2008-11-24 21:21:16

av不是一个数组,它就没有下标,所以不能用av(0)你试试直接用av如果非要用数组类型,可以在用之前,redim av(i),其中i是数组的长度....