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

Запись опубликована on 17.10.2008 at 10:03 и размещена в рубрике: Массив. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



Оставить комментарий

Я не робот.