vb中多维数组赋值问题

Question

Private Sub Form_Load()
Dim aaa As Variant
aaa = Array(Array(1, 2, 3), Array(4, 5, 6))
Print aaa(0, 0)
End Sub
提示下标越界，怎么回事？？？

Answer 1

因为你的初始化让数组的每一个元素又是一个数组
也就是你初始化结束后你的aaa
aaa(0)(0)=1
...
aaa(0)(2)=3
aaa(1)(0)=4
...
aaa(1)(2)=6

Answer 2

这不是多维数组,是一维嵌套数组,只能用一维数组来引用
aaa(0)=Array(1, 2, 3)
aaa(0)(0)=1
aaa(0)(1)=2
aaa(0)(2)=3
aaa(1)=Array(4, 5, 6)
aaa(1)(0)=4
aaa(1)(1)=5
aaa(1)(2)=6