2015-08-12
454
Для проверки одного условия и выполнения оператора или блока операторов используется оператор IF…THEN. Этот оператор можно использовать с разным синтаксисом: однострочным (линейным) и многострочным (блочным).
а) Однострочный:
If условие Then операторы1 [ Else операторы2]
б) Блочный:
If условие Then
блок операторов1
[ Else
блок операторов2]
End If
Рис. 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
