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

Формулировка задачи:

я это понимаю так:

создание такого массива
доступ к элементам этого массива

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

Если у кого есть желание, можете дополнить эту тему вот чем

как в таком массиве реализовать сортировку элементов, и суб-элементов
как в таком массиве реализовать поиск минимального числового значения
---///---... максимального числового значения

null

Решение задачи: «Что такое многомерный, динамический массив»

textual
                            Листинг программы 
                        

                            Option Explicit: Option Base 1
 
Dim MultiArray() As Variant
 
Private Sub Form_Activate()
    Const m = 10
    MultiArray = Array(1, 2, 3, Screen.ActiveForm)
    MultiArray(1) = "Пример"
    MultiArray(2) = Array("Спартак", "Зенит", "Локомотив")
    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
 
Sub GetArr(Arr)
    'Доступ ко всем элементам массива
    Dim Var, i&
    Print 'Пустая строка для наглядности, ее можно не ставить
    For i = LBound(Arr) To UBound(Arr)
        If IsObject(Arr(i)) Then Set Var = Arr(i) Else Var = Arr(i)
        
        If IsArray(Var) Then
            GetArr Var
        ElseIf IsObject(Var) Then
            Print "Object As "; TypeName(Var)
        Else
            Print Var
        End If
    Next
End Sub
                        