|
Dim a(10), I, J, min, Imin As Byte
|
‘описать переменные, как байтовые’
|
|
Private Sub Command5_Click()
|
‘начать процедуру кликом по командной кнопке 5’
|
|
For J = 0 to 8
|
‘начало цикла ’
|
|
min = a(J)
|
‘первым значением переменной min является первый элемент массива a(J)’
|
|
Imin = J
|
‘сохранено значение позиции, содержащей минимальный элемент’
|
|
For I = J+1 to 9
|
‘начало цикла ’
|
|
If a(I)< min Then
|
‘оператор If, проверяет условие - если элемент массива меньше min, тогда’
|
|
min = a(I)
|
‘изменено значение переменной min’
|
|
Imin = I
|
‘сохранено значение позиции (переменной I), содержащей минимальный элемент’
|
|
Else
|
‘иначе’
|
|
End if
|
‘конец оператора If’
|
|
Next I
|
‘конец цикла’
|
|
a(Imin) = a(J)
|
‘в позицию с минимальным элементом массива переставить элемент из J-ой позиции ’
|
|
a(J) = min
|
‘в J-ю позицию записать минимум ’
|
|
Next J
|
‘конец цикла’
|
|
For I = 0 to 9
|
‘начало цикла ’
|
|
Text5(I).Text = Str(a(i))
|
‘вывод значений массива в текстовые окна 5’
|
|
Next I
|
‘конец цикла’
|
|
End Sub
|
‘конец процедуры’
|
