Массив в массиве и обращение к каждому элементу. - 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