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