Логические выражения и вычисление их значений

Логические выражения называют условиями. Условие, если оно выполняется, имеет значение True, если не выполняется, - False. Эти логические значения являются результатами вычисления логических выражений.

Условия различают простые и сложные.

Для построения простых условий используются операции сравнения: >, <, =, >=,<=, <>.

Для построения сложных условий используются логические операции Not, And, Or.

Результаты выполнения логических операций для логических выражений A и B приведены в таблице 2.3:

Таблица 2.3

A	B	Not A	A And B	A Or B
True	True	False	True	True
False	True	True	False	True
True	False	False	False	True
False	False	True	False	False

Программирование ветвлений

Ветвление в VISAUL BASIC организуется с использованием:

1) условного оператора IF

2) встроенной функции IIF

3) оператора выбора CASE

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

Для проверки одного условия и выполнения оператора или блока операторов используется оператор IF…THEN. Этот оператор можно использовать с разным синтаксисом: однострочным (линейным) и многострочным (блочным).

а) Однострочный:

If условие Then операторы1 [ Else операторы2]

б) Блочный:

If условие Then

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

[ Else

блок операторов2]

End If

Рис. 2.15. Пример решения задачи с использованием блочного оператора IF:

в) Для проверки более одного условия и выполнения одного из нескольких блоков операторов используется оператор вида:

If условие 1 Then

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

ElseIf условие 2 Then

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

…………….

ElseIf условие n Then

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

[Else

блок операторов Else]

End If

Пример:

Public Function Obr_Err (Err_Num As Integer) _

As Integer

Dim Txt As String

If Err_Num=6 Then

Txt=”переполнение”: Obr_Err=2

ElseIf Err_Num=11 Then

Txt=”деление на нуль”: Obr_Err=2

Else

Txt=”нераспознанная ошибка”&Err_Num: Obr_Err=3

EndIf

Err.Clear

MsgBox Txt, VbOkOnly, “Ошибки выполнения”

End Function