End Select

Date: 2015-10-07; view: 430.

Case значение

Select Case выражение

<операторы>

[ Case значение

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

[Case Else

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

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

В этом операторе вместо вычисления логического условия выполняется сравнение значения <выражение> с каждой из величин, заданных параметром <значение>. Для блока 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.