|
Dim a(10), I As Byte
|
‘описать переменные, как байтовые’
|
|
Private Sub Form_Load()
|
‘начать процедуру при загрузке формы’
|
|
Randomize
|
‘задает начальное значение генератора случайных чисел’
|
|
End Sub
|
‘конец процедуры’
|
|
Private Sub Command1_Click()
|
‘начать процедуру кликом по командной кнопке 1’
|
|
For I = 0 to 9
|
‘начало цикла ’
|
|
a(I) = Int (Rnd * 100)
|
‘генератор случайных чисел ’
|
|
Text1(I).Text = Str(a(I))
|
‘вывод значений аргумента a(i) в текстовые окна’
|
|
Next I
|
‘конец цикла’
|
|
End Sub
|
‘конец процедуры’
|
