не будет понятен дальнейший материал.
Создайте проект с 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, а затем, «недополучив» результат, удивляются, почему. И здесь
