|
Dim a(10), I, max As Byte
|
‘описать переменные, как байтовые’
|
|
Private Sub Command3_Click()
|
‘начать процедуру кликом по командной кнопке 3’
|
|
max = a(0)
|
‘первым значением переменной max является первый элемент массива a(0)’
|
|
For I = 1 to 9
|
‘начало цикла ’
|
|
If a(I)> max Then
|
‘оператор If, проверяет условие - если элемент массива больше max, тогда’
|
|
max = a(I)
|
‘изменено значение переменной max’
|
|
Else
|
‘иначе’
|
|
End if
|
‘конец оператора If’
|
|
Next I
|
‘конец цикла’
|
|
Text3.Text = Str(max)
|
‘вывод значения переменной max в текстовое окно 3’
|
|
End Sub
|
‘конец процедуры’
|
