Условные операторы

Условные операторы

В VBScript поддерживается условный оператор If…Then…Else. Общий вид этого оператора:

If условие_1 Then

 выражение_1

[ElseIf условие_2 Then

 выражение_2]

…

[Else

 выражение_3]

End If

При выполнении оператора If…Then…Else оценивается логическое условие (условие_1), стоящее после ключевого слова If. Если в результате оценки условия получилось значение true, то выполняется выражение_1 и происходит выход из оператора. В противном случае начинают по очереди проверяться условия, стоящие после ключевых слов ElseIf; если одно из этих условий истинно, то выполняется соответствующее выражение, после чего управление передается следующему после End If оператору. Если ни одно из проверяемых условий не является истинным, выполняется выражение, стоящее после ключевого слова Else. Пример:

If (theCount > 1) Then

 theMoments = "До взрыва осталось " & theCount & " сек!"

Else

 theMoments = "Осталась секунда!"

End If

Другим оператором, позволяющим производить выбор из нескольких вариантов, является Select Case. Синтаксис этого оператора:

Select Case выражение

Case значение_1

 выражение

[Case значение_2

 выражение_2]

…

[Case Else

 выражение_3]

End Select

Здесь сначала вычисляется значение выражения, которое затем по очереди сравнивается со значениями, стоящими после ключевых слов Case. В случае совпадения выполняются операторы в соответствующем блоке Case. Если же ни одно из имеющихся значений не совпадает со значением выражения, то выполняются операторы, стоящие после слова Case Else. Пример использования оператора Select Case:

Select Case MyVar

Case vbRed

 Color = "Красный"

Case vbGreen

 Color = "Зеленый"

Case vbBlue

 Color = "Синий"

Case Else

 Color = "Цвет непонятен"

End Select