-
Вложенные операторы if
Однострочный и блочный синтаксис оператора IF могут комбинироваться.
Снтаксис:
If условие1 Then
If условие2 Then [операторы2] ‘выполняются при истинности условия1 и условия2 Else [else_ операторы]] ‘выполняются при истинности условия1 и ложности условия2 End If
[Else [else_ операторы]] ‘выполняются при ложности условия1. Условие2 не проверяется совсем
End If
Например, необходимо вычислить значение выражения Y=sin(X)/X. В этой задаче сделаем проверку, является ли Х числом и не равно ли Х нулю.
Блок-схема для решения данной задачи:
Р
еализация
на VBА:
Sub
Вычислить_Y()
Dim
X As
Variant, Y As
Double
X = InputBox("Введите
Х")
'
Проверяем, является ли Х числом
If
IsNumeric(X) Then
'Проверяем
равен ли Х нулю
If
X <> 0 Then
Y = Sin(X) / X
MsgBox "Y= " &
Y
Else
MsgBox "Х не
должен равняться 0 !"
End
If
Else
MsgBox "Вы ввели
не число"
End
If