Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 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: Iff < = 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.81t2/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;
|
|