请问有这种数组赋值的方法吗？

chenlifeng123

1. Sub 赋值()
   
2.     Dim A1(0 To 2), A2(0 To 2), B1(), B2()
   
3.         B1 = Array(1, 2, 3): B2 = Array("a", "b", "c")
   
4.     Dim C(), D(), I%, J%
   
5.         C = Array(A1, A2): D = Array(B1, B2)
   
6.         
   
7.     For I = 0 To 1
   
8.         For J = 0 To 2
   
9.             C(I)(J) = D(I)(J)
   
10.         Next
    
11.     Next
    
12. End Sub

复制代码

请教老师，上面的代码，目的是想:       把 数字1，2，3 赋值给数组变量        A1(0),  A1(1),  A1(2);
      把字母"a"，"b"，"c" 赋值给数组变量 A2(0),  A2(1),  A2(2);
     现在疑问是：执行程序后，为什么 A1(0),  A1(1),  A1(2)， 及A2(0),  A2(1),  A2(2) 还是为空呢？怎么样正确达成要求？
（上面的只是举例，实际数值会多而大）

qingc0221

从头到尾只看到你定义了A1和A2两个数组,并没有看到给他们赋值

chenlifeng123

qingc0221 发表于 2017-6-25 18:59
从头到尾只看到你定义了A1和A2两个数组,并没有看到给他们赋值

是的，我是没有直接给A1,A2赋值，而是想通过间接赋值。
估计没有这种方法了。
感谢您的关注。

ftgli

数组套数组？没有这种操作吧

chenlifeng123

ftgli 发表于 2017-6-25 19:08
数组套数组？没有这种操作吧

嗯，说得太对了，我发现无法赋值，如果是读取数据倒没问题。

maditate

ftgli 发表于 2017-6-25 19:08
数组套数组？没有这种操作吧

举个例子，不一定恰当。
有一幢教学楼，三层，每层十个教室。此教学楼相当于一个二维数组arr（1 to 3，1 to 10）。在这个数组中，各个教室有的可以什么也不放，空教室，有的放一张课桌，有的可以放好多课桌。这好多课桌也可以看成一个数组。就是把课桌这个数组存进了教学楼这个大数组中。这就是数组套数组。不过数组套数组要读取里面小数组的内容就比较麻烦。

chenlifeng123

maditate 发表于 2017-6-25 20:57
举个例子，不一定恰当。
有一幢教学楼，三层，每层十个教室。此教学楼相当于一个二维数组arr（1 to 3，1 ...

感谢老师讲解举例。对数组嵌套我明白了，只是对嵌套中的数组进行赋值，的确不方便。

qingc0221

即使可以嵌套,你这段代码也只是把A1和A2的值赋给了数组C,并没有给A1和A2的各个元素赋值

山菊花

1、
请问有这种数组赋值的方法吗？
回答：没有。

1. C = Array(A1, A2)

复制代码

上面的一行代码，是用A1、A2数组创建一个数组C，是用数组A1、A2的元素（分别是三个空值）创建一个数组C，创建完毕后，数组C与数组A1、A2是相互独立的，没有连接关系，在后面的代码中，不是C带着A1、A2参加活动，不会因为C吃东西饱了A1和A2，C就是C，如果要给A1、A2赋值，必须在过程中直接使用A1、A2：

1.     For I = 0 To 2
   
2.         A1(I) = B1(I)
   
3.         A2(I) = B2(I)
   
4.     Next

复制代码

2、
学会调试代码。
在代码窗口中，按F8可以逐语句运行程序，打开“视图—本地窗口”，可以观察变量的变化，从中可以观察程序运行是否符合自己的设计意图。

chenlifeng123

山菊花 发表于 2017-6-26 08:36
1、
请问有这种数组赋值的方法吗？
回答：没有。

感谢总版主如此耐心的讲解与提醒，受益了！！！