Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Оператор 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, и номера этого числа в последовательности. Количество чисел последовательности и сами числа задаются пользователем после запуска программы. Предусмотреть контроль значений, вводимых пользователем.







Дата добавления: 2015-10-15; просмотров: 190. Нарушение авторских прав


Рекомендуемые страницы:


Studopedia.info - Студопедия - 2014-2020 год . (0.002 сек.) русская версия | украинская версия