怎样对二维数组进行初始化？

Question

 Dim a As Variant
    a = Array(12, 25, 56, 14, 1, 5, 8, 9, 18, 21, 7, 11, 5, 7, 14, 9)
以上是一维的初始化，二维我想当然就这样了：
 Dim a(4, 4) As Variant
    a = Array(12, 25, 56, 14, 1, 5, 8, 9, 18, 21, 7, 11, 5, 7, 14, 9)结果编译有错，请问怎样对二维数组初始化呀？请尽可能回答详细，我是初学，谢谢了~！~

Answer 1

vb好像没有这样的用法Dim a
a = Array(Array(1, 2, 3, 4), Array(5, 6, 7, 8), Array(9, 10, 11, 12), Array(13, 14, 15, 16))
Debug.Print a(3)(4) '注意这里使用数组的方式不同(应该算是数组的数组 而不是多维数组)

Answer 2

Option Explicit
Option Base 0Private Sub Form_Load()
        Dim YourARR(1) As Variant
        Dim i As Integer, j As Integer
        YourARR(0) = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
        YourARR(1) = Array(11, 12, 13, 14, 15, 16, 17, 18, 19, 20)
        For i = 0 To 1
            For j = 0 To 9
                Debug.Print YourARR(i)(j);
            Next j
            Debug.Print
        Next i
End Sub

Answer 3

Dim a(4, 4) As Variant
    a = Array((12, 25), (56, 14), (1, 5), (8, 9), (18, 21), (7, 11), (5, 7), (14, 9))