CASE список 1

блок 1

………

CASE ELSE

блок n

ЕND SELECT

Где выражение для проверки – любое числовое или символьное выражение, в зависимости от значения которого производится выполнение одного из блоков операторов: блок 1, блок 2 ,... ,блок n;

блок 1, блок 2 ... – любое количество операторов;

список 1, список 2 ... – списки выражений, записанных в следующих формах:

– перечень значений, например, CASE 1,3,5;

– выражение TO выражение, например, CASE 5 TO 13– отрезок [5;13];

– IS операция отношения, например, CASE IS < 20 это все числа до 20.

Работа оператора: Если выражение выбора отвечает условиям списка выражений данного блока CASE, то выполняются операторы из этого блока. Если значение выражения не совпадает ни с одним из списка, то выполняется блок операторов, которые написаны после CASE ELSE. После этого управление передается оператору, следующему за END SELECT.

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

Dim strZ As String, X As Single

X = Val (InputBox(“Введите значение X”) )

StrZ=”Значение Х-“

SELECT CASE X

CASE 1, 3, 5, 7, 9

MsgBox " - целое нечетное ", , StrZ

CASE 2, 4, 6, 8

MsgBox " - целое четное "", , StrZ

CASE ELSE

MsgBox " не в промежутке", , StrZ

END SELECT

В этом примере введенное значение Х сравнивается со списками значений, перечисленных после CASE. Если значения совпадают, то выполняется соответствующий оператор MsgBox. Если значение Х не совпадает ни с одним, то выполняется оператор, написанный после CASE ELSE.