Что такое многомерный, динамический массив - 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