Инструкция Select Case

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

Формат оператора:

Select Case <проверяемое выражение>

[Case <список-сравнение-1>

[<операторы-1>]]

…

[Case Else

[<иначе операторы>]]

End Select

Оператор Select Case выбирает и исполняет одну из последовательностей операторов Сase.

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

Параметр список сравнение-1 также должен присутствовать в строке Case. Список сравнений, компоненты которого перечисляются через запятую, может иметь одну из трех форм:

· «выражение» - задает отдельное значение

· «выражение» ТО выражение»

· «IS <оператор-сравнение>выражение», где оператор-сравнение – это {=|>|<|<=|>=}

Если «проверяемое выражение» совпадает с одним из выражений параметра «список-сравнение», то выполняется «оператор1»; если «проверяемое выражение» удовлетворяет несколько предложений Case, выполняются операторы только первого Case; если «проверяемое выражение» не находит своего значения в предложении Case, выполняются <Иначе операторы>, расположенные после предложения Case Else.

54 Инструкция If…Then…Else

If…Then…Else – оператор условного перехода, который передает управление ходом выполнения программы в зависимости от истинности некоторого условия. Формат оператора:

If условие Then

[операторы]

[ElseIf условие-n Then

[операторы-n]…

[Else

[иначе операторы]]

End If

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

Операторы – один или несколько разделенных двоеточием операторов.

Если условие истинно, выполняются операторы за ключевым словом Then; если нет, то отыскивается первое истинное условие-n и выполняются операторы-n; в противном случае (все условия ложны) выполняются ИначеОператоры. После выполнения одной последовательности операторы управления передается на оператор, записанный за End If.

Пример:

If number>4

Then number=number+1

Else number=0

End If