Инструкции цикла

Инструкция цикла представляет собой указание, из которого ясно, какой набор инструкций (этот набор инструкций называется телом цикла) нужно выполнять многократно и каково правило окончания выполнения цикла.

1. Параметрический цикл For… Next

Этот цикл управляется параметром, который при повторении выполнения тела цикла изменяет с заданным шагом свое значение от заданного начального значения до заданного конечного значения. Такой цикл используют в случае, когда заранее известно, сколько необходимо совершить повторений выполнения тела.

Синтаксис инструкции цикла:

ForИПЦ=НЗПЦToКЗПЦ[StepШИПЦ]
Тело цикла (одна или несколько инструкций)
Next [ИПЦ]

Слова For (для), To (до), Step (шаг), Next (затем) являются зарезервированными.

Применены обозначения:

ИПЦ – имя параметра цикла (переменная любого числового типа);

НЗПЦ – начальное значение параметра цикла (выражение любого числового типа), которое параметр цикла будет иметь при первом выполнении тела цикла;

КЗПЦ – конечное значение параметра цикла (выражение любого числового типа);

ШИПЦ – шаг изменения параметра цикла (выражение любого числового типа) – необязательная часть инструкции цикла.

Числовые значения НЗПЦ и КЗПЦ задают интервал, в котором будет изменяться параметр цикла. Необязательный параметр ШИПЦ задает шаг изменения параметра цикла на каждом проходе. По умолчанию, если он отсутствует, то принимается равным 1. Наконец, после инструкций, составляющих тело цикла, следует команда Next, обозначающая границу действия цикла. В случае вложенных циклов (в тело цикла входит инструкция цикла) можно указывать, к какому из них относится команда Next. Это достигается добавлением после слова Next имени параметра цикла.

Процесс выполнения инструкции For… Next для положительного шага иллюстрирует рисунок 6.3. Рассмотрим примеры.

Пример 8

Сумма=0

For i = 1 To 100 Step 2

Сумма = Сумма +i

Next

В этом примере вычисляется сумма всех целых нечетных чисел от 1 до 100.

Пример 9

For n = 100 To 60 Step –10

Print n

Next n

В примере 9 продемонстрированы две возможности: явно заданный шаг цикла и отсчет в обратном направлении. Последнее достигается заданием отрицательного шага и тем, что начальное значение параметра цикла больше, чем конечное.

Этот код выведет на текущей форме:

Пример 10

Dim x As Integer

For x = 1 To 50

Beep

Next

Эта программа заставляет компьютер подавать звуковой сигнал 50 раз.

Инструкцию For...Next можно завершить досрочно с помощью инструкции Exit For. Выполнение этой инструкции приводит к досрочному завершению выполнения инструкций тела цикла и выходу из цикла.

For …

.

.

.

Exit For