Для проверки переменной на соответствие нескольким условиям служит оператор Select Case. При этом в зависимости от значения переменной можно исполнить один из блоков кода. Общий вид данной конструкции выглядит следующим образом:
Select Case variant
Case varValue1
<список операторов 1>
Case varValue2
<список операторов 2>
...
Case varValueN
<список операторов N>
Case Else
<список операторов N+1>
End Select
Алгоритм выполнения данной конструкции:
1. значение переменной variant сравнивается со значением varValue1, если они равны, то выполняется список операторов 1;
2. в противном случае – значение переменной variant сравнивается со значением varValue2, если они равны, то выполняется список операторов 2;
...
n в противном случае – значение переменной variant сравнивается со значением varValueN, если они равны, то выполняется список операторов N;
n+1 в противном случае выполняется список операторов N+1
Пример использования:
Select Case x
Case 1
y=x+1
Case 2
y=x+2
Case 3
y=x+3
Case Else
y=0
End Select
В качестве параметра variant может использоваться переменная любого из подтипов типа Variant, например String, что делает этот оператор очень «удобным» в ситуациях выбора в зависимости от значения переменной с вариантами более двух!!!
Пример:
a=inputbox("Input")
Select Case a
Case "s1" msgbox("s1")
Case "s2" msgbox("s2")
Case "s3" msgbox("s3")
Case "s4" msgbox("s4")
Case Else msgbox("нет такого варианта")
End Select
ДЕМОНСТРАЦИОННЫЕ ПРИМЕРЫ
Пример 1
'Имя файла: If_Then.vbs
'программа, которая при x>0 вычисляет значение натурального логарифма 'Log(x), а в противном случае ничего не делает
'программа, которая при x>0 вычисляет значение натурального логарифма 'Log(x), а в противном случае выдаёт сообщение об ошибке, в которой 'говорится, что вычислить логарифм невозможно, так как введённое 'значение x не входит в область определения данного логарифма.
