Лекция: If условие Then

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

[Else

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

EndIf

Рис. 58. Пример решения задачи с использованием блочного оператора 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