Оператор выбора (переключатель)

 

С помощью оператора выбора VBA можно выбрать вариант из любого количества вариантов. Параметром, по которому осуществляется выбор, служит ключ выбора.

Структура оператора выбора:

Select Case <ключ_выбора>

Case Значение_1

<Оператор1>

список выбора

Case Значение_2

<Оператор2>

.…………………

Case Значение_n (константа)

<Оператор n>

End Select

где

Select, Case, End - зарезервированные слова VBA (выбирать, случай,

конец);

<ключ_выбора> - переключатель варианта (некоторое выражение);

<список_выбора> - одна или более конструкций вида: <константа_выбора>

<оператор>;

Значение_n - <константа_выбора>того же типа,

что и выражение <ключ_выбора>;

<операторы> - произвольные операторы VBA, выполняемые

при совпадении Значения_n и значения

ключа_выбора.

Работа оператора выбора.

Вначале вычисляется значение выражения < ключ_выбора >, а затем в последовательности операторов < список_выбора > отыскивается такой, которому предшествует константа, равная вычисленному значению. Найденный оператор выполняется, после чего оператор выбора завершает свою работу. Если в списке выбора не будет найдена константа, соответствующая вычисленному значению ключа выбора, управление передается операторам, стоящим за End Select.

В операторе Select Case можно использовать операции отношения. Для этого надо включить в выражение ключевое слово Is или ключевое слово To.

Ключевое слово Is дает указание компилятору сравнить значение проверяемой переменной со значением выражения, следующего за ключевым словом Is.

Ключевое слово To задает диапазон значений.

Пример 1.

Постановка задачи. Составить пользовательскую подпрограмму процедуру, расшифровывающую количество баллов за полученный ответ по введенному числу с клавиатуры.

Технология выполнения задания:

1 Исходные данные:

х ÎZ.

2 Набрать в стандартном модуле проекта следующую пользовательскую процедуру:

Sub DemoSelect ()

Dim x As Integer

x = InputBox ("введите целое число")

Select Case x

Case 8 To 10

MsgBox ("Отлично")

Case 6 To 7

MsgBox ("Хорошо")

Case 4 To 5

MsgBox ("Удовлетворительно")

Case Is < 4

MsgBox ("Неудовлетворительно")

End Select

End Sub

3 Запустить подпрограмму-процедуру.

Примечание. Процедура MsgBox выводит на экран диалоговое окно, содержащее сообщение для пользователя.

 

29. Операторы в VBA. Операторы цикла: циклы с параметром, циклы с условием (итерационные). Структура, работа, сравнительный анализ всех операторов цикла. Примеры.

 

Операторы цикла

 

В VBA существуют два основных типа циклов – циклы со счетчиком (параметрические) и циклы с условием (итерационные).

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

Циклы с условием применяются тогда, когда некоторые действия в программе должны повторяться до тех пор, пока выполняется определенное условие.

2.10.1 Циклы с параметром For … Next

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

For Параметр_Цикла = Начальное_Значение To Конечное_Значение

[Step Шаг]

Операторы

[Exit For]

Next [Параметр_Цикла]

где For – ключевое слово VBA (от), обозначающее начало цикла;

Параметр_цикла – переменная, определенная в качестве счетчика цикла;

Начальное_Значение – число, задающее начальное значение параметра цикла;

To – ключевое слово VBA (до), разделяющее

Начальное_значение и Конечное_Знаение;

Конечное_Значение – число, задающее значение параметра цикла,

при котором цикл завершается;

Step – ключевое слово VBA (шаг), используемое для

задания шага цикла, необязательный аргумент;

Шаг – число, задающее шаг цикла, т.е. значение, на которое

увеличивается (или уменьшается) значение параметра

цикла на каждом шаге. Это число может быть

отрицательным;

Exit For – оператор досрочного выхода из цикла (необязательный);

Next – ключевое слово VBA (следующий), обозначающее

конец цикла.

Работа цикла:

Шаг 1 Сначала определяется параметр цикла, а также вычисляются и запоминаются начальное и конечное значения этой переменной.

Шаг 2 Параметру цикла присваивается начальное значение.

Шаг 3 Начальное значение параметра цикла сравнивается с конечным значением.

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

Шаг 4 Выполняется тело цикла.

Шаг 5 После выполнения тела цикла происходит присваивание параметру цикла следующего значения. Переход к шагу 3.

Примечание.

1 Если используется ключевое слово Step, то параметр цикла изменяется в соответствии с числом, указанным после этого слова. Если слово Step отсутствует, то значение шага равно единице.

Пример 1.

For I = 0 To 10 Step 2 (Значение I будет увеличиваться на 2)

2 Цикл For … Next может быть прерван досрочно при достижении какого либо условия. Для этого в нужном месте цикла нужно поместить оператор Exit For.

Пример 2.

Dim S As Integer

Dim j As Integer

S = 2

For j = 1 To 10

S = S + j

If S > 6 Then

Exit For (Выход из цикла, если значение S > 6)

End If

Next j

MsgBox (S)