Что такое многомерный, динамический массив

Option Explicit: Option Base 1
 
Dim MultiArray() As Variant
 
Private Sub Form_Activate()
    Const m = 10
    MultiArray = Array(1, 2, 3)
    MultiArray(1) = "Пример"
    MultiArray(2) = Array("Спартак", "Зенит", "Локомотив")
    Randomize Timer  'Установка генерации Rnd
    MultiArray(3) = Array(Fix(Rnd * m) & "-" & Fix(Rnd * m), Fix(Rnd * m) & "-" & Fix(Rnd * m), Fix(Rnd * m) & "-" & Fix(Rnd * m))
    cls
    Print "--------------Вывод всех элементов этого массива"
    GetArr MultiArray
End Sub
 
Sub GetArr(Arr)
    'Рекурсивный доступ ко всем элементам этого массива
    Dim Var
    Print 'Пустая строка для наглядности, ее можно не ставить
    For Each Var In Arr
        If IsArray(Var) Then GetArr Var Else Print Var
    Next
End Sub

Option Explicit: Option Base 1
Private Declare Function GetMem4 Lib "msvbvm60" (src As Any, dst As Any) As Long
Dim MultiArray() As Variant
 
Private Sub Form_Activate()
    Dim Test As TestUDT
    Const m = 10
    MultiArray = Array(1, 2, 3, Screen.ActiveForm)
    MultiArray(1) = "Пример"
    MultiArray(2) = Array("Спартак", "Зенит", "Локомотив")
    Randomize Timer
    MultiArray(3) = Test
    Cls
    Print "--------------Вывод всех элементов этого массива"
    GetArr MultiArray
End Sub
 
Sub GetArr(Arr)
    'Доступ ко всем элементам массива
    Dim Var, pvRecord As Long, f&
    Print 'Пустая строка для наглядности, ее можно не ставить
    On Error Resume Next
    For Each Var In Arr
        If IsArray(Var) Then
            GetArr Var
        ElseIf IsObject(Var) Then
            Print "Object As "; TypeName(Var)
        ElseIf VarType(Var) And vbUserDefinedType Then
            GetMem4 ByVal VarPtr(Var) + 8, pvRecord
            ReDim Fields(0 To 2) As Long
            Print TypeName(Var)
            For f = 0 To UBound(Fields)
                GetMem4 ByVal pvRecord + f * 4, Fields(f)
                Print vbTab & "Field" & f & " = " & Fields(f)
            Next
        Else: Print Var
        End If
    Next
End Sub

Option Explicit: Option Base 1
Dim MultiArray() As Variant
 
Private Sub Form_Activate()
    Dim t1 As TestUDT
    Const m = 10
    MultiArray = Array(1, 2, 3, Screen.ActiveForm)
    MultiArray(1) = "Пример"
    MultiArray(2) = Array("Спартак", "Зенит", "Локомотив", t1)
    Randomize Timer
    MultiArray(3) = Array(Fix(Rnd * m) & "-" & Fix(Rnd * m), Fix(Rnd * m) & "-" & Fix(Rnd * m), Fix(Rnd * m) & "-" & Fix(Rnd * m))
    Cls
    Print "--------------Вывод всех элементов этого массива"
    GetArr MultiArray
End Sub
 
Function GetArr(Arr, Optional rec As Long)
    'Доступ ко всем элементам массива
    Dim Var
    On Error Resume Next
    GetArr = Arr: If Err.Number = 450 Then Set GetArr = Arr
    For Each Var In Arr
        If IsArray(Var) Then
            Print TypeName(Var)
            Call GetArr(Var, rec + 1)
        ElseIf IsObject(Var) Then
            Print String(rec, vbTab) & "Object" & vbTab & " As " & TypeName(Var)
            Call GetArr(Var, rec + 1)
        ElseIf VarType(Var) And vbUserDefinedType Then
            Print String(rec, vbTab) & "UserDefinedType" & vbTab & " As " & TypeName(Var)
        Else: Print String(rec, vbTab) & Var & vbTab & " As " & TypeName(Var)
        End If
    Next
End Function