Операторы управления

Оператор выбора Select Case

При необходимости анализировать большое количество условий в качестве альтернативы условному оператору If используется оператор Select Case, который создает более читабельную программу. Оператор Select Case - это оператор выбора ветви в зависимости от значения тестируемого выражения.

Синтаксис оператора

Select Case testexpression
[Case expressionlist-n
[statements-n]] ...
[Case Else
[elsestatements]]
End Select

• testexpression - тестируемое выражение. Обязательный элемент;
• строки Case задают возможные значения тестируемого выражения;
• expressionlist - список значений тестируемого выражения, который определяет выполняемую последовательность операторов: если значение тестируемого выражения найдено в списке expressionlist-1, то выполняются операторы statements-1 и т.д.;
• строка Case Else определяет операторы, которые выполняются, если значение не найдено ни в одном списке;
• statements-n, elsestatements последовательности операторов.

Значения списка могут быть представлены константами или выражениями, имеющими числовые или символьные значения. Элементы списка перечисляются через запятую или могут иметь одну из двух форм:

• expression (нижняя граница) To expression (верхняя граница) - задает диапазон значений списка: "от" и "до";
• Is comparisonoperator (оператор сравнения) - задает условие на значение тестируемого выражения, при справедливости которого выполняются последующие операторы.

Примеры

1. Пусть необходимо вычислить значения переменной в зависимости от значений переменной по формуле:
   
   Пусть переменная изменяется от -5 до 15 с шагом 1. В операторе выбора ( рис. 6.3) используются два списка значений: в первом списке значения перечисляются через запятую; во втором списке после ключевого слова Is задается условие на значение. Для расчета при всех остальных значениях используется ключевое слово Case Else.
   

   
   Рис. 6.3. Пример применения оператора Select Case
2. Процедура меняет цвет заливки первых двадцати ячеек столбца A ( рис. 6.4).

   По сравнению с процедурой color_cells_if, записанной при помощи оператора If, новая процедура выглядит более лаконичной и прозрачной.

   

   
   Рис. 6.4. Пример применения оператора Select Case