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

Узнай цену своей работы

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

Есть, например, такой код:
На последней строке VB6 выдаёт ошибку. Что можно сделать???

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

textual
Листинг программы
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

Оцени полезность:

15   голосов , оценка 4.133 из 5
Похожие ответы