Пример 2

Пример 1

ДЕМОНСТРАЦИОННЫЕ ПРИМЕРЫ

Select Case

Для проверки переменной на соответствие нескольким условиям служит оператор 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

'Имя файла: If_Then.vbs

'программа, которая при x>0 вычисляет значение натурального логарифма 'Log(x), а в противном случае ничего не делает

x=CInt(inputbox("Введите параметр",_

"вычисление натурального логарифма","1"))

If x>0 Then

Msgbox "Ответ: "&(log(x)),vbSystemModal,"Результат"

End If

'Имя файла: If_Then_Else.vbs

'программа, которая при x>0 вычисляет значение натурального логарифма 'Log(x), а в противном случае выдаёт сообщение об ошибке, в которой 'говорится, что вычислить логарифм невозможно, так как введённое 'значение x не входит в область определения данного логарифма.

x=CInt(inputbox("Введите параметр",_

"вычисление натурального логарифма","1"))

If x>0 Then

Msgbox "Ответ: "&(log(x)),vbSystemModal,"Результат"

Else

Msgbox "x не входит в область определения данного логарифма",_

vbSystemModal+vbCritical,"ошибка ввода"

End If

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