 |
Замечание: Цикл, поведение которого определяется логическим выражением, проверяемым перед входом в цикл, называется циклом с предусловием.
|
|
|
|
Замечание: Цикл, поведение которого определяется логическим выражением, проверяемым перед входом в цикл, называется циклом с предусловием.
Do While… Loop
Этот тип цикла служит для того, чтобы пока выполняется условие повторять тело цикла (проверка условия в начале цикла).
Общий вид данной конструкции выглядит следующим образом:
Do While < логическое выражение> заголовок цикла
< оператор>
... тело цикла
[< оператор> ]
Loop
< логическое выражение> - это простое или сложное условие, или логическая константа (true или false).
Пока < логическое выражение> возвращает true, тело цикла выполняется, а как только < логическое выражение> возвратит false, то работа продолжится со следующего оператора за служебным словом Loop.
Пример использования цикла Do While…Loop:
Задача: Пользователь вводит число, если оно меньше 20 выводить его квадрат, если больше или равно то закончить выполнение сценария.
Текст программы:
option explicit
Dim Number 'вводимое число
Number=CInt(InputBox(" Введите число", " Диалоговое окно" ))
Do While Number< 20 'условие
MsgBox " Квадрат число: " & Number & " равен " & (Number*Number)
Number=CInt(InputBox(" Введите число", " Диалоговое окно" ))
Loop
Как видно из описания цикла, он полностью идентичен циклу While Wend
Do... Loop While
Этот тип цикла служит для того, чтобы повторять тело цикла пока выполняется условие (проверка условия в конце цикла).
Общий вид данной конструкции выглядит следующим образом:
Do
< оператор>
... тело цикла
[< оператор> ]
|
|
|
Loop While < логическое выражение>
< логическое выражение> - это простое или сложное условие, или логическая константа (true или false).
Вначале выполняется тело цикла, расположенное после ключевого слова Do, а затем проверяется < логическое выражение> . Пока < логическое выражение> возвращает true, тело цикла выполняется, а как только < логическое выражение> возвратит false, то работа продолжится со следующего оператора после Loop While < логическое выражение>.
Пример использования цикла Do … Loop While:
Задача: Пользователь вводит число, если оно меньше 20 выводить его квадрат, если больше или равно то закончить выполнение сценария.
Текст программы:
option explicit
Dim Number 'вводимое число
Number=CInt(InputBox(" Введите число", " Диалоговое окно" ))
Do
MsgBox " Квадрат число: " & Number & " равен " & (Number*Number)
Number=CInt(InputBox(" Введите число", " Диалоговое окно" ))
Loop While Number< 20 'условие
Замечание: Цикл, поведение которого определяется логическим выражением, проверяемым после выполнения тела цикла, называется циклом с постусловием.
Do Until... Loop
Этот тип цикла служит для того, чтобы пока условие не выполняется повторять тело цикла (проверка условия содержится в начале цикла).
Общий вид данной конструкции выглядит следующим образом:
Do Until < логическое выражение> заголовок цикла
< оператор>
... тело цикла
[< оператор> ]
Loop
< логическое выражение> - это простое или сложное условие, или логическая константа (true или false).
Пока < логическое выражение> возвращает false, тело цикла выполняется, а как только < логическое выражение> возвратит true, то работа продолжится со следующего оператора за служебным словом Loop.
Пример использования цикла Do Until…Loop:
Задача: Пользователь вводит число, если оно меньше 20 выводить его квадрат, если больше или равно то закончить выполнение сценария.
|
|
|
Текст программы:
option explicit
Dim Number 'вводимое число
Number=CInt(InputBox(" Введите число", " Диалоговое окно" ))
Do Until Number> =20 'условие
MsgBox " Квадрат число: " & Number & " равен " & (Number*Number)
Number=CInt(InputBox(" Введите число", " Диалоговое окно" ))
Loop
|
|
|
