If Not условие Then оператор;

Блочный

If Not условие Then

оператор 1

оператор 2

End If

При невыполнении логического условия управление передается следующей строке программы, а при выполнении условия – оператору, следующему за End If.

Пример:

If Not ABC = CEF Then ABC/10.5

З. Используются оба результата проверки логического условия:

"истинно" и "ложно"

Синтаксис оператора:

If условие Then

операторы 1

Else

операторы 2

End If,

где If, Then, Else и End If - ключевые слова условного оператора;

операторы - группа операторов.

При выполнении логического условия программа выполняет операторы 1, затем пропускает все операторы 2 и начинает выполнение первого оператора после End If.

При невыполнении логического условия программа пропустит все операторы 1 до слова Else и выполнит все операторы 2.

Примеры:

1)

If Abs  50 Then

y = A*0.125E-5

Else

y = A/0.125E5

End If.

2)

If Sqr > 10 Then

Sum=5

Else

Sum=15

End If.

Кроме оператора If, Then, Else для присвоения значений переменной можно воспользоваться однострочным оператором IIF

результат = IIF (условие, результат переменной при выполнении

условия, результат переменной при невыполнении условия),

Тогда предыдущий пример 2) запишется в виде:

Sum = IIF (Sqr > 10, 5, 15).

Условные операторы позволяют реализовать переключающую структуру алгоритма. Для проверки нескольких логических условий при значении первого условия "ложно" в условном операторе используется слово Else If, которое позволяет задать дополнительные логические условия. Синтаксис оператора:

If условие 1 Then

операторы 1

ElseIf condition2 Then

операторы 2

ElseIf condition3 Then

операторы 3

Else

операторы 4

End If,

где If, ElseIf, Else и End If - ключевые слова условного оператора.

В качестве условий могут использоваться операции сравнения. Такая конструкция позволяет включить все операторы при выполнении всех логических условий. Если результатом проверки всех логических условий будет значение "ложно", то программа выполнит только операторы, находящиеся между словами Else и End If.

Пример:

If Number >= 100 Then

Number = Number1

ElseIf Number >= 80 Then

Number = Number2

ElseIf Number >= 60 Then

Number = Number3

Else

Number = NumberEnd

End If.

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

Синтаксис оператора:

Select Case тест

Case значение 1

операторы 1

Case значение 2

операторы 2

[Case Else

операторы 3]

End Select,

где Select Case, Case, Case Else и End Select – ключевые слова оператора;

тест – проверочное значение переменной для сравнения с другими значениями;

значение – значение переменной, сравниваемое с тестом.

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

Пример:

Select Case Number OR

Case 10

Number*10

Case 100

Number*100

Case Else

Number + Number OR

End Select.

Слово Case может содержать не только отдельное значение, но и интер­валы значений, например:

Case 5, 10 То 20, Is >= 50,

где 5 - отдельное значение;

10 То 20 - интервал значений от 10 до 20;

Is >= 50 - значения равные или большие 50.

Выбор операторов If или Select Case определяется тем, какой оператор в конкретной программе проще и нагляднее.