我需要一个 2列 3行的二维阵列存放资料，并且要设定初始值如下：
Sub Cala()
Dim MyArray()
ReDim MyArray(2, 3)
MyArray = Array(Array("Mary", "Mat", 108), _
Array("John", "Sci", 131))
MsgBox UBound(MyArray, 1)
MsgBox UBound(MyArray, 2)
End Sub
在MsgBox UBound(MyArray, 2) 会出现阵列索引超出范围的错误，
请问2维阵列初始值设定的程式码，是哪边有问题呢？
谢谢~

Array()函数传回来的是一维阵列

Array()建出来的阵列是zero base的 dim也变成多余了