Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
блок операторов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
Дата публикования: 2014-11-18; Прочитано: 272 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!