如何实现数组之间赋值的问题？菜的不能再菜了，
Dim buf_redata() As Byte
Dim j%
Dim inbyte() As Byte
.
.
.
j=20
.
.
.
Select Case MSComm1.CommEvent
Case comEvReceive ' 收到 RThreshold # of Data
inbyte = MSComm1.Input
For i = LBound(inbyte) To UBound(inbyte)
buf_redata(j) = inbyte(i) ，赋值
j = j + 1
Text_re.Text = Text_re.Text + Hex(inbyte(i)) + Chr(32) '显示
Next i
.
.
.
End Select
利用串口接收数据，当有数据进入时
错误：
实时错误‘9’
下标越界
buf_redata(j) = inbyte(i) 有问题吗？
怎么解决？
谢谢各位大侠！！！
问题点数：100、回复次数：5Top
1 楼viena（维也纳N02）回复于 2005-03-04 12:15:59 得分 14
buf_redata没有初始化吧？Top
2 楼zyg0（影子(被评为本年度最可爱流氓）回复于 2005-03-04 12:20:30 得分 40
Select Case MSComm1.CommEvent
Case comEvReceive ' 收到 RThreshold # of Data
inbyte = MSComm1.Input
,初始化
ReDim Preserve redata(UBound(inbyte))
For i = LBound(inbyte) To UBound(inbyte)
buf_redata(j) = inbyte(i) ，赋值
j = j + 1
Text_re.Text = Text_re.Text + Hex(inbyte(i)) + Chr(32) '显示
Next i
.
.
.
End SelectTop
3 楼myhgyp（也许是这样的，信不信由你）回复于 2005-03-04 12:34:37 得分 40
buf_redata没有初始化：
在inbyte = MSComm1.Input后增加：
ReDim Preserve buf_redata(UBound(inbyte))Top
4 楼w3k（网络3K）回复于 2005-03-04 13:38:23 得分 1
顶Top
5 楼XunBaian（蓝水晶）回复于 2005-03-04 16:02:59 得分 5
不需要初始化，只需如下即可赋值：
buf_redata = inbyteTop
