Задание 36: Заставьте изображение двигаться налево, вниз, вверх.
Пока мы никак не можем влиять на полученное движение. Только можем останавливать компьютер с клавиатуры. Как с помощью мышки или клавиатуры влиять на движение во время движения? Как хотя бы запрограммировать остановку в нужном месте?
Выход из цикла с помощью If
Итак, как нам запрограммировать завершение работы цикла? Для этого нужно
применить оператор GoTo внутри оператора If.
Задача: При помощи цикла напечатать:
Начало счета 3 5 7 9 11 13 15 329 331 333 Конец счета
Для удобства отладки изменим условие задачи — напечатать:
Начало счета 3 5 7 9 Конец счета
Вы уже достаточно опытны в программировании, чтобы догадаться, что программа для измененного условия будет копией программы для исходного, за исключением одного числа.
Вот 4 варианта программы. Первый — самый простой, а остальные нам понадобятся в дальнейшем. Все 4 варианта делают одно и то же, они очень похожи, но чем-то и отличаются. Вот в этом отличии вам и надо разобраться, иначе не будет понятен дальнейший материал.
Создайте проект с 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 мы видим мало (пока).