2.3.Операторы цикла Do

Циклы настолько широко применяются в программах, что у программистов давным-давно появилась потребность написать специальный оператор цикла, не использующий оператор GoTo. Последний неудобен хотя бы тем, что у программистов, пишущих большие программы, много времени и внимания уходит на поиск взглядом меток в тексте программы. К тому же GoTo нарушает стройную идеологию так называемого "структурного программирования", когда порядок действий задается не скачками из одной части программы в другую, а цепочкой вложенных друг в друга операторов. В общем, нынче широко использовать GoTo так же неприлично, как не объявлять переменные.

Операторы цикла в Visual Basic делятся на 2 вида: Do и For. Операторы вида Do встречаются в 5 вариантах:

0 ВАРИАНТ	1 ВАРИАНТ	2 ВАРИАНТ	3 ВАРИАНТ	4 ВАРИАНТ
Do …. Loop	Do …. Loop While	Do …. Loop Until	Do While …. Loop	Do Until …. Loop

Операторы вида For встречаются в 2 вариантах. О них - в следующем разделе.

Оператор Do …. Loop

Попытаемся составить с использованием 0 варианта оператора Do программу решения задачи о печати чисел 3 5 7 9 из предыдущего параграфа. Для того, чтобы точно определить работу этого варианта оператора Do, приведем ее параллельно с измененным 1 вариантом программы решения этой задачи из того же параграфа. Объяснением любого оператора в правом столбце является оператор, стоящий в той же строчке в левом столбце.

ИЗМЕНЕННЫЙ 1 ВАРИАНТ	0 ВАРИАНТ ОПЕРАТОРА Do
Private Sub Command1_Click()	Private Sub Command0_Click()
Debug.Print "Начало счета";	Debug.Print "Начало счета";
f = 3	f = 3
m:	Do
Debug.Print f;	Debug.Print f;
f = f + 2	f = f + 2
GoTo m	Loop
End Sub	End Sub

Do можно перевести, как "Делай", а понимать следует просто как метку.

Loop можно перевести, как "Петля" или "Возврат назад", а понимать следует так: "Возвращайся к метке Do ".

Порядок работы обеих программ совершенно одинаков, так что можно считать слово Do заменой метки m, а слово Loop считать заменой оператора GoTo m. Обе программы бесконечно печатают 3 5 7 9 11 ….. Прерывается цикл только с клавиатуры. Толку в 0 варианте оператора Do мы видим мало (пока).

Синтаксис оператора Do …. Loop:

Do

операторы

операторы

…………….

Loop

Строки операторов между Do и Loop называются телом цикла.

Оператор Do …. Loop While

Добавьте в ваш проект еще 4 кнопки и выполните в пошаговом режиме программы с вариантами оператора Do 1 - 4, которые я привел ниже. Вы увидите, что все 4 варианта делают одно и то же и они очень похожи. Вопрос о том, зачем нужно целых 4 похожих варианта, рассмотрим чуть позже. Уверяю, они все нужны.

Составим с использованием 1 варианта оператора Do программу решения задачи о печати чисел 3 5 7 9 из предыдущего параграфа. Для того, чтобы точно определить работу этого варианта оператора Do, приведем ее параллельно с 1 вариантом программы решения этой задачи из того же параграфа. Объяснением любого оператора в правом столбце является оператор, стоящий в той же строчке в левом столбце.

1 ВАРИАНТ	1 ВАРИАНТ ОПЕРАТОРА Do
Private Sub Command1_Click()	Private Sub Command5_Click()
Debug.Print "Начало счета";	Debug.Print "Начало счета";
f = 3	f = 3
m:	Do
Debug.Print f;	Debug.Print f;
f = f + 2	f = f + 2
If f <= 9 Then GoTo m	Loop While f <= 9
Debug.Print "Конец счета"	Debug.Print "Конец счета"
End Sub	End Sub

While переводится "Пока".

Значит, Loop While f <= 9 понимать следует так: "Возвращайся к метке Do, пока f <= 9".

Порядок работы обеих программ совершенно одинаков, так что можно считать слово Do заменой метки m, а конструкцию Loop While f <= 9 считать заменой оператора If f <= 9 Then GoTo m.

Синтаксис оператора Do …. Loop While:

Do

операторы

операторы

…………….

Loop While условие продолжения работы цикла

Оператор Do …. Loop Until

2 ВАРИАНТ	2 ВАРИАНТ ОПЕРАТОРА Do
Private Sub Command2_Click()	Private Sub Command6_Click()
Debug.Print "Начало счета";	Debug.Print "Начало счета";
f = 3	f = 3
m1:	Do
Debug.Print f;	Debug.Print f;
f = f + 2	f = f + 2
If f > 9 Then GoTo m2 Else GoTo m1	Loop Until f > 9
m2: Debug.Print "Конец счета"	Debug.Print "Конец счета"
End Sub	End Sub

Until переводится "До тех пор, пока".

Значит, Loop Until f > 9 понимать следует так: "Возвращайся к метке Do до тех пор, пока не выполнится условие f > 9".

Синтаксис оператора Do …. Loop Until:

Do

операторы

операторы

…………….

Loop Until условие завершения работы цикла

Оператор Do While …. Loop

3 ВАРИАНТ	3 ВАРИАНТ ОПЕРАТОРА Do
Private Sub Command3_Click()	Private Sub Command7_Click()
Debug.Print "Начало счета";	Debug.Print "Начало счета";
f = 3	f = 3
m1: If f <= 9 Then GoTo m3 Else GoTo m2	Do While f <= 9
m3: Debug.Print f;	Debug.Print f;
f = f + 2	f = f + 2
GoTo m1	Loop
m2: Debug.Print "Конец счета"	Debug.Print "Конец счета"
End Sub	End Sub

Do While f <= 9 понимать следует так: "Пока f <= 9 выполняй нижестоящие операторы вплоть до Loop".

Синтаксис оператора Do While …. Loop:

Do While условие продолжения работы цикла

операторы

операторы

…………….

Loop

Оператор Do Until …. Loop

4 ВАРИАНТ	4 ВАРИАНТ ОПЕРАТОРА Do
Private Sub Command4_Click()	Private Sub Command8_Click()
Debug.Print "Начало счета";	Debug.Print "Начало счета";
f = 3	f = 3
m1: If f > 9 Then GoTo m2 Else GoTo m3	Do Until f > 9
m3: Debug.Print f;	Debug.Print f;
f = f + 2	f = f + 2
GoTo m1	Loop
m2: Debug.Print "Конец счета"	Debug.Print "Конец счета"
End Sub	End Sub

Do Until f > 9 понимать следует так: "Выполняй нижестоящие операторы вплоть до Loop, до тех пор, пока не выполнится условие f > 9".

Синтаксис оператора Do Until …. Loop:

Do Until условие завершения работы цикла

операторы

операторы

…………….

Loop

Типичная ошибка начинающих – небрежное обращение со знаками сравнения. Многие не видят большой разницы в том, как записать – While f<=9 или While f<9 , а затем, «недополучив» результат, удивляются, почему. И здесь лучшим средством для понимания является отладочный режим. Попробуйте ошибочный вариант программы с While f<9 выполнить в пошаговом режиме.

Задача: Компьютер предлагает человеку ввести слово, после чего распечатывает это слово, снабдив его восклицательным знаком. Затем снова предлагает ввести слово и так до тех пор, пока человек не введет слово "Хватит". Распечатав его с восклицательным знаком, компьютер отвечает "Хватит так хватит" и заканчивает работу.

Придумаем строковую переменную, в которую человек будет с клавиатуры вводить слово. Назовем ее Slovo. Выберем подходящий вариант оператора Do, это будет 2-й, и пишем программу:

Dim Slovo As String

Private Sub Command1_Click()

Do

Slovo = InputBox("Введите слово")

Debug.Print Slovo; "!"

Loop Until Slovo = "Хватит"

Debug.Print "Хватит так хватит"

End Sub

Задание 42: Усложним эту задачу. Пусть компьютер перед распечаткой каждого слова ставит его порядковый номер.

Задание 43-44: Выполнить с применением оператора Do задания 38 и 41 из предыдущего раздела.

Задание 45: Если камень бросить горизонтально со 100-метровой башни со скоростью v=20м/с, то его расстояние от башни по горизонтали s будет выражаться формулой s=vt, где t – время полета камня в секундах. Высота над землей h будет выражаться формулой h=100 – 9.81t²/2. Вычислять и печатать t, s и h для t = 0, 0.2, 0.4, 0.6 и так далее до тех пор, пока камень не упадет на землю.

Разница между вариантами операторов Do

Разницы две:

• Между While и Until. Здесь соображения удобства. Что вам удобнее, указывать компьютеру, когда цикл нужно продолжать (f <= 9) или когда его нужно заканчивать (f > 9)?

• В том, куда поставить условие - после Do или после Loop. В первом случае можно придумать такое условие, когда тело цикла не выполнится ни разу. Например,

f = 3

Do Until f > 0

Debug.Print f;

f = f + 2

Loop

Во втором случае, каково бы ни было условие, тело цикла хотя бы раз, да выполнится.

Часто эти отличия для начинающих малосущественны, поэтому пока выбирайте оператор по вкусу.

Оператор Exit Do

Оператор Exit Do нужен для того, чтобы выходить из цикла не в начале тела цикла, не в конце, а в середине. Добавим его в тело цикла одного из вариантов программы:

Private Sub Command2_Click()

Debug.Print "Начало счета";

f = 3

Do

Debug.Print f;

Exit Do

f = f + 2

Loop While f <= 9

Debug.Print "Конец счета"

End Sub

Вот результат работы этой программы:

Начало счета 3 Конец счета

Толк от Exit Do будет тогда, когда его поместят внутрь оператора ветвления:

Private Sub Command1_Click()

Debug.Print "Начало счета";

f = 3

Do

Debug.Print f;

If f >= 9 Then Exit Do

f = f + 2

Loop

Debug.Print "Конец счета"

End Sub

Вот результат работы этой программы:

Начало счета 3 5 7 9 Конец счета

Устаревший оператор цикла

Имеется оператор цикла While …… Wend, доставшийся от старых версий Бэйсика. На тот случай, если вам придется запускать чьи-то старые программы, вот вам его синтаксис:

While условие продолжения работы цикла

операторы

операторы

…………….

Wend

А смысл - тот же, что и у Do While …. Loop