17
Октябрь
2008
Автоматическое заполнение массива
Как автоматически заполнить массив?
Option Explicit Dim bytA(1 To 5) As Byte Dim I As Byte Private Sub Command1_Click() Label1.Caption = "" For I = 1 To 5 bytA(I) = Int(Rnd * 5) 'Массив выводим в метку для наглядности примера Label1.Caption = Label1.Caption & vbCrLf & bytA(I) Next I End Sub Private Sub Form_Load() Label1.Caption = "" End Sub