Массив в массиве и обращение к каждому элементу. - VB

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

Есть, например, такой код:
Private Type a
    b As Integer
    c As Integer
End Type
 
Dim arrTree() As Variant
Dim arr1() As a
 
Private Sub Command1_Click()
    ReDim arr1(1)
    ReDim arr(1)
    arr1(1).b = 1
    arr1(1).c = 'odin'
    arr(1) = arr1
    MsgBox arrTree(1)(1).b
End Sub
На последней строке VB6 выдаёт ошибку. Что можно сделать???


textual

Код к задаче: «Массив в массиве и обращение к каждому элементу. - VB»

Private Type a
b As Integer
c As Integer
End Type
 
Dim arr() As Variant
Dim arr1() As a
 
Private Sub Command1_Click()
ReDim arr1(1)
ReDim arr(1)
arr1(1).b = 1
arr1(1).c = 'odin'
arr(1) = arr1
MsgBox arr(1)(1).b
End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 4.133 из 5

Источник
Похожие ответы