|
Dim a(3), I, sym As Byte
|
‘описать переменные, как байтовые’
|
|
Private Sub Form_Load()
|
‘начать процедуру при загрузке формы’
|
|
Randomize
|
‘задает начальное значение генератора случайных чисел’
|
|
End Sub
|
‘конец процедуры’
|
|
Private Sub Command1_Click()
|
‘начать процедуру кликом по командной кнопке 1’
|
|
sym = 0
|
‘первым значением переменной для суммы должен быть ноль’
|
|
For I = 0 to 2
|
‘начало цикла ’
|
|
a(I) = Int (Rnd * 8)
|
‘генератор случайных чисел ’
|
|
Text1(I).Text = Str(a(I))
|
‘вывод значений аргумента a(i) в текстовые окна’
|
|
sym = sym + a(I)
|
'сумма элементов массива находится путем прибавления элемента массива к прежнему значению переменной'
|
|
Next I
|
‘конец цикла’
|
|
If sym = 21 Then
|
‘оператор If, проверяет условие’
|
|
Text2.Text = "Ура"
|
‘если сумма этих чисел равна 21, то "Ура!"’
|
|
Else
|
‘иначе’
|
|
Text2.Text = "Вы проиграли!"
|
‘иначе - "Вы проиграли!"’
|
|
End if
|
‘конец оператора If’
|
|
End Sub
|
‘конец процедуры’
|
