If Условие Then

Блок операторов 1

Else

Блок операторов 2

End If

Ветвь Else в условном операторе является необязательной. Такая форма условного оператора называется неполной и выглядит следующим образом:

If Условие Then Оператор

или:

If Условие Then

Блок операторов

End If

Условный оператор может содержать в себе еще несколько условных операторов. В этом случае условный оператор имеет вид

If Условие1 Then

Блок операторов 1

ElseIf Условие2 Then

Блок операторов 2

ElseIf Условие3 Then

………..

Else

Блок операторов

End If

В условном операторе после слова Then можно разместить несколько операторов в одну строку. В этом случае они должны быть разделены двоеточием.

Пример

If A > 10 Then A = A + 1: B = B + A: C = C + B

Пример 1

Задано целое число x. Вычислить значение функции

Программный код

Sub PR3()

Dim x As Integer

Dim y As Double

x = Val(InputBox(" Введите x"))

If x > 0 Then y = Sqr(x)

If x < 0 Then y = x ^ 2

If x = 0 Then y = 5

MsgBox (" y=" & y)

End Sub

Пример 2

Задано действительное число x. Вычислить значение функции

Программный код

Sub PR4()

Dim x As Double

Dim y As Double

x = Val(InputBox(" Введите x"))

If x > 0 Then

y = 1 / Sqr(x)

MsgBox (" y=" & y)

Else

MsgBox (" Решения нет")

End If

End Sub

Пример 3

Задано три действительных числа x, y, z. Вычислить самое большое из них.

Программный код

Sub PR5()

Dim x As Double, y As Double, z As Double, max As Double

x = Val(InputBox(" Введите x"))

y = Val(InputBox(" Введите y"))

z = Val(InputBox(" Введите z"))

If (x > y) And (x > z) Then max = x

If (y > x) And (y > z) Then max = y

If (z > x) And (z > y) Then max = z

MsgBox (" Максимум=" & max)

End Sub

Оператор выбора Select Case

Оператор выбора Select Case удобно использовать, когда в зависимости от значения некоторого выражения, имеющего конечное множество допустимых значений, необходимо выполнить разные действия.

Select Case Тестируемое выражение

Case Условие выбора 1

Блок операторов 1

……………

Case Условие выбора n

Блок операторов n