Создайте проект с 4 кнопками и выполните в пошаговом режиме все 4 варианта (не обращая пока внимания на непонятные слова в заголовках таблиц, эти слова понадобятся чуть позже):

Вот в каком порядке выполняются операторы программы первого варианта:

Debug.Print "Начало счета" f=3 Debug.Print f {печатается 3}

f=f+2 {f становится равным 5} If f<=9 Then GoTo m Debug.Print f

{печ. 5} f=f+2 {f = 7} If f<=9 Then GoTo m Debug.Print f

{печ. 7} f=f+2 {f = 9} If f<=9 Then GoTo m Debug.Print f

{печ. 9} f=f+2 {f = 11} If f<=9 Then GoTo m

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

Здесь оператор GoTo m выполняется три раза. На четвертый раз условие f<=9 оказывается ложным и поэтому выполняется не GoTo m, а следующий за If оператор Debug.Print "Конец счета", то есть программа выходит из цикла и завершает свою работу.

Задача: Напечатать пары чисел — 1 1001 2 1002 3 1003… 100 1100.

Программа:

Private Sub Command1_Click()

f = 1

m: s = f + 1000

Debug.Print f; s

f = f + 1

If f <= 100 Then GoTo m

End Sub

Задания 37–41:

A. Напечатать 1 2 3 4… 99 100

Б. Напечатать 100 99… 3 2 1.

B. Напечатать 1 2 3 4… 99 100 99 … 3 2 1.

"Таблицы Брадиса" или "Таблицы логарифмов" (в те времена, когда не было калькуляторов, были такие напечатанные в виде брошюрок таблицы для школьников и студентов, по которым они могли быстро посмотреть численные значения квадратов, логарифмов и других математических функций). Вычислить и напечатать с 6 десятичными знаками квадраты чисел 0.000 0.001 0.002 0.003… 0.999 1.000.

Для х=2700, 900, 300, 100. и т. д. вычислять и печатать у=х/4+20 и z=2y+0.23 до тех пор, пока yz не станет меньше 1/х.

Пусть движущееся изображение через некоторое время остановится.

Изображение, пройдя немного слева направо, поворачивает вниз и, пройдя немного, через некоторое время останавливается

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

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

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

Оператор Do… Loop

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

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 вариантом программы решения этой задачи из того же параграфа. Объяснением любого оператора в правом столбце является оператор, стоящий в той же строчке в левом столбце.

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

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

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

тех пор, пока не выполнится условие f > 9".

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

Do

операторы

операторы

…………..

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

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

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

операторы вплоть до Loop".

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

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

операторы

операторы

…………..

Loop

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

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

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

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

операторы

операторы

…………..

Loop

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