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

End Select

Инструкция выбора Select Case (выбрать в случае)

Еще одной инструкцией VB, предназначенной для программирования разветвлений, является Select Case (инструкция выбора), которая позволяет выполнить одну из нескольких групп операторов в зависимости от значения некоторого выражения.

Инструкция Select Case имеет следующий синтаксис:

Select Case Проверочное_выражение

[ Case Значение1

[Инструкции1]]

[ Case Значение2

[Инструкции2]]

[ Case Else

[ИнструкцииЗ]]

Пример 7

Select Case V

Case 1

Print "Равно 1"

Case 2, 3

Print "Равно 2 или 3"

Case 4 То 6

Print "Больше или равно 4 и меньше или равно 6"

Case Is >= 9

Print "Больше или равно 9"

Case Else

Print "Ни одно из предшествующих"

End Select

В качестве значения для блока Case можно указывать не только одно значение (1), но и несколько, разделенных запятой, (2, 3). Можно определять также области сравнения (4 То 6) или восполь­зоваться относительным сравнением (Is >= 9). Вместо непосредствен­ного значения проверочного выражения можно использовать ключевое слово Is.

Блок Case Else выполняется, если ни одно из предыдущих условий не является истинным.

Если условию Select Case соответствует несколько блоков Case, то выполняется первый из них.

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

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

Дата добавления: 2014-12-07