Оператор Do...Loop

Управляющий оператор Do...Loop используется для организации циклов с заранее неизвестным числом повторений. Цикл Do...Loop повторяется до тех пор, пока не вы­полнится какое-то произвольно заданное условие. Причем в цикле Do...Loop проверка условия для выхо­да из цикла, может выполняться как перед началом цикла, так и после выполнения цикла.

Do [{While | Until} <условие>]

[<операторы>]

[Exit Do]

[<операторы>]

Loop

или

Do

[<операторы>]

[Exit Do]

[<операторы>]

Loop [{While | Until} <условие>]

Ключевое слово While указывает на выполнение операторов в цикле, пока <условие> истинно (True), а Until – на выполнение цикла, пока <условие> ложно (False). Оператор Exit Do прекращает выполнение цикла по какому-либо внутреннему условию.

Пример использования оператора Do…Loop: возведение в квадрат введенного пользователем числа.

Алгоритм (блок-схема):

 

Программа:

Sub primer()

Dim v As Variant ' Объявление переменной для любых значений

Do

v = InputBox("Введите число")

' Отображение окна для ввода значения переменной v

Loop While IsNumeric(v) = False

' Инструкция, проверяющая отсутствие числа в переменной v

' и возвращающая (в этом случае) пользователя к строке Do…,

' т.е. повторному вводу переменой v

MsgBox v^2

' Отображение квадрата значения переменной v

' после того, как в нее все-таки было введено число

End Sub

Результат:

Пример

Дана произвольной длины последовательность целых чисел. Составить алгоритм и написать программу для нахождения наименьшего из чисел последовательности, делящихся нацело на 3 или на 7, и номера этого числа в последовательности. Количество чисел последовательности и сами числа задаются пользователем после запуска программы. Предусмотреть контроль значений, вводимых пользователем.