数组赋值下标越界问题

xzh_yzcn

老师：请教給二维数组（7列m行）赋值下标越界问题。我的代码如下：


ReDim Preserve arr2(1 To 7, 1 To m)
arr2(1, m) = arr1(n3, 1): arr2(2, m) = arr1(n3, 3): arr2(3, m) = arr1(n3, 4): arr2(4, m) = arr1(n3, 5): arr2(5, m) = arr1(n3, lc11): arr2(6, m) = arr1(n3, lc21): arr2(7, m) = "设备"
但执行时，arr2(1, m)~arr2(4, m)没有下标越界问题，arr5(1, m)~arr7(4, m)显示有下标越界问题

请老师指点，谢谢老师

xzh_yzcn

ReDim Preserve arr2(1 To 7, 1 To m)
arr2(1, m) = arr1(n3, 1): arr2(2, m) = arr1(n3, 3): arr2(3, m) = arr1(n3, 4): arr2(4, m) = arr1(n3, 5): arr2(5, m) = arr1(n3, lc11): arr2(6, m) = arr1(n3, lc21): arr2(7, m) = "设备"

但执行时，arr2(1, m)~arr2(4, m)没有下标越界问题，arr2(5, m)~arr2(5, m)显示有下标越界问题

xzh_yzcn

但执行时，arr2(1, m)~arr2(4, m)没有下标越界问题，arr2(5, m)~arr2(7, m)显示有下标越界问题

朝露孤烟

猜测一下，LC11，LC21的范围超过了数组ARR1列的范围，尝试把值改小，直到正常运行，再查原因。

quqiyuan

没有附件也没办法测试哦