主题：问一下 多维数组怎么弄！！

 请直接说意图。

 比如定义三维数组

Dim a3(2, 3, 4) As String

msgbox(a3(2, 3, 4))

 多维数组，可以直接用集合来代替。

简单一点，可以这样写

Dim a(2) As object
Dim b(1) As object
a(1) = b

msgbox(a(1)(0))
msgbox(a(1)(1))

Dim a(2) As object
Dim b() As String = {"1", "2"}
a(1) = b

msgbox(a(1)(0))
msgbox(a(1)(1))