End Select. Select Case выражение

Case Else

Case значение

Case значение

Select Case выражение

Пример 2.

Пусть необходимо вычислить значение функции Y

Входные данные: x - вещественного типа

Выходные данные: Y - вещественного типа

Схема алгоритма:

10.2.5. Оператор Select Case …. End Select

Использование оператора If становится неудобным, когда вложенность структуры Развилка превышает три. В таких случаях целесообразно применять оператор Select Case …. End Select, который позволяет сделать выбор из произвольного числа вариантов. Синтаксис этого оператора следующий:

< операторы>

< операторы> ]

<операторы > ]

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

В этом операторе вместо вычисления логического условия выполняется сравнение значения <выражение> с каждой из величин, заданных параметром <значение>. Для блока Case можно указывать не только одно значение, но и несколько, разделенных запятой (например: 2, 3, 4). Можно определять также области сравнения (например: 4 To 6) или воспользоваться относительным сравнением (например: Is > = 9, где Is – ключевое слово). Очередной блок Case выполняется, если ни одно из предыдущих условий не является истинным. В операторе может быть произвольное число блоков Case. Если ни одно из условий не является истинным, то выполняются инструкции Case Else.

Например, оператор Select Case может использоваться для проверки принадлежности значения случайной величины некоторым заданным значениям. Используем функцию Rnd для получения случайного числа в диапазоне [0;10].

Randomize

Ns =Int(Rnd*10)+1

Select Case Ns

Case 1

Print "Равно 1"

Case 2,3

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

Case 4 to 6

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

Case Is >=9

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

Case Else

Print "Ни одно из предыдущих"

End Select

Следует обратить внимание, что выражение Is >= 9 определяет все значения переменной Ns, которые больше или равны 9. Если совпадения значений не обнаружится, то управление передается команде, которая следует за оператором End Select.

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