Пример использования условного оператора

В приведённом ниже примере показан фрагмент кода, в котором вычисляются корни квадратного уравнения :

If a = 0 Then

'решение линейного уравнения

If b <> 0 Then

X1 = – с / b

ElseIf c = 0 Then

lblMassage = "любое значение"

Else

lblMassage = "Нет решений"

End If

Else

'решение квадратного уравнения

D = b * b - 4 * a * c

If D < 0 Then

lblMassage = "Нет решений"

Else

X1 = (– b + Sqr(D)) / (2 * a)

X2 = (– b – Sqr(D)) / (2 * a)

End If

End If