Nested VBA, knowledge arrays, arrays and arrays, not nested three-dimensional array of two-dimensional arrays

 

• A nested array of one-dimensional 2-dimensional array is not
• Nesting is not a three-dimensional array of two-dimensional arrays

Sub test1001()


Debug.Print "测试一维数组和其嵌套"
'一维数组
arr1 = Array(1, 3, 5, 7, 9)
arr2 = Array(2, 4, 6, 8, 10)


'一维数组的嵌套
arr3 = Array(arr1, arr2)
'Debug.Print arr3(1, 1)    '证明了一维数组的嵌套，只是嵌套类型，不是2维数组
Debug.Print arr3(1)(1)

Debug.Print


Debug.Print "测试二维数组和其嵌套"

Dim arr51()
ReDim arr51(3, 3)
'2维数组
For I = 1 To 3
   For J = 1 To 3
      arr51(I, J) = 2 * I * J
      Debug.Print arr51(I, J);
   Next
   Debug.Print
Next
Debug.Print


Debug.Print arr51(1, 1)
Debug.Print


Dim arr52()
ReDim arr52(4, 4)
'2维数组
For I = 1 To 4
   For J = 1 To 4
      arr52(I, J) = 3 * I * J
      Debug.Print arr52(I, J);
   Next
   Debug.Print
Next
Debug.Print


Debug.Print arr52(1, 1)
Debug.Print

'2维数组的嵌套
arr53 = Array(arr51, arr52)
Debug.Print arr53(1)(1, 1)       '二维数组的嵌套，也不需要2个数组行列相同
Debug.Print



Debug.Print "测试二维数组和其嵌套,第2种办法"
'2维数组
arr11 = [{1,3,5};{5,7,9}]
arr12 = [{2,4,6};{6,8,10}]
'Debug.Print arr11(0, 0)
'Debug.Print arr11(0)(0)



'2维数组的嵌套
arr21 = Array(arr11, arr12)
'Debug.Print arr21(1)(1, 1)




End Sub