Можно ли объявить массив в цикле? - VB
Формулировка задачи:
Здраствуйте, извините, вы не подскажете, можно-ли объявить массив в цикле ????
Решение задачи: «Можно ли объявить массив в цикле?»
textual
Листинг программы
Option Explicit
Dim Col As New Collection, I As Integer
Private Sub Command1_Click()
Dim Tmp(10) As String
For I = 0 To UBound(Tmp)
Tmp(I) = Int(Rnd * 100)
Next I
Col.Add (Tmp)
MsgBox "Создан " & Col.Count & "-й массив", vbInformation
End Sub
Private Sub Command2_Click()
MsgBox Join(Col(Val(InputBox("Введите номер массива от 1 до " & Col.Count, "", 1))), vbNewLine), vbInformation
End Sub