В VISAUL BASIC существуют три оператора цикла:
1) For … Next
2) While … Wend
3) Do … Loop
Оператор цикла For … Next
Оператор цикла For…Next имеет формат:
For счетчик = начало To конец [Step приращение]
операторы
Next [счетчик]
Рассмотрим пример решения задачи 6 (стр. 118), использующей цикл с параметром. Требуется найти сумму 7 чисел.
Private Sub Command1_Click()
Dim a(7) As Integer, s As Integer
s = 0
For i = 1 To 7
a(i) = Val(InputBox("Введите число"))
s = s + a(i)
Next
Print s
End Sub
Оператор цикла WHILE…WEND
Используется для организации циклов с предусловием и имеет следующий формат:
While условие продолжения цикла
операторы тела цикла
Wend
Рассмотрим пример решения задачи 4 - вывести в форму все значения, большие 1, причем каждое последующее значение получается путем деления предыдущего пополам. Блок-схема решения этой задачи приведена на рис. 6.7.
Private Sub Command1_Click()
Dim x As Single
x = InputBox("Введите число")
While x > 1
Print x
x = x / 2
Wend
End Sub
Оператор цикла DO…LOOP
Используется для организации циклов с неопределенным числом повторений (с предусловием и с постусловием).
Этот оператор для организации цикла с предусловием может использоваться в двух модификациях:
а) Do While условие продолжения цикла
операторы тела цикла