Если некоторые действия в программе, например вычисления по формулам, должны происходить только при выполнении какого-либо условия, то такая программа называется разветвляющейся, а разветвление вычислений обеспечивается условным оператором.
Для записи проверяемого условия используются операции сравнения: > (больше), >= (больше либо равно), < (меньше), <= (меньше либо равно), = (равно), < > (не равно).
Каждое условие всегда имеет два значения: либо оно верно (True – правда), либо неверно (False – ложь). Проверяемое условие может быть и сложным, состоящим из нескольких простых условий. Для записи сложного условия используются логические операции объединения: And – сложное условие верно, когда оба простых условия верны, иначе сложное условие будет ложным; Or – сложное условие верно, когда хотя бы одно из простых условий верно, и будет ложным только, когда все простые условия будут ложными.
Например, сложное условие x > y And a >= 5 будет верно только тогда, когда верны одновременно оба условия x > y и a >= 5. Сложное условие x > y Or x = a будет верно тогда, когда выполняются либо условие x > y, либо a >= 5,либо оба этих условия одновременно.
Объединяя условия логическими операциями And и Or, можно составить и более сложное условие, например:
x >= 1 And x =< 10 Or x = 15
Это условие будет верно, если х находится внутри интервала [1:10] либо если х = 15.
Условный оператор If
Условный строчный оператор имеет общий вид If…Then…Else… (если…тогда…иначе…) и представляет в общем случае конструкцию:
If < условие > Then < оператор1 > Else < оператор2 >
которая имеет следующий логический смысл: если условие выполняется, то нужно выполнить оператор1, иначе – следует выполнить оператор2.
В операторе может отсутствовать Else.
Если при проверке условия должны выполняться несколько операторов, то условный оператор записывается в блочной форме и заканчивается строкой с ключевыми словами End If:
If < условие > Then
<оператор1а>
<оператор1б>
Else
<оператор2а>
<оператор2б>
End If
Когда необходимо проверить более одного условия, можно использовать вложение операторов If друг в друга.
Пример 6.1. Программа вычислений значений w с использованием строчного условного оператора If:
; 
; 
Исходные данные: x = 0.5(0.5)4, n = 7. Текст программы:
Sub CommandButton1_Click()
Dim x As Single, y As Single, w As Single, n As Single
n = Val(InputBox("Введите n"))
For x = 0.5 To 4 Step 0.5
y = Exp(-2 * x) + 1
z = Log(x) / (x + 1)
If x < z ^ 2 Then w = Sqr(x * y) Else w = n * x + 2
Msgbox (“w=” & w)
Next
End Sub
Пример 6.2. Вычислить значение y для вводимых с клавиатуры некоторых значений n и x:
Программа:
