Sub kniga() Dim x As Single, y As Single x = 3 If - вопрос №1345211930 от ely4 06.02.2021 08:54

Question

Информатика: Sub kniga() Dim x As Single, y As Single x = 3 If x 0 And x 2 Then y = Sqr(x * x - 1) - x Else: If x 5 Then y = 2 * x If x 5 And x 2 Then y = ошибка End If End Sub Пишет else without if если что это vba

ely4 · Answer

Однострочная конструкция:If условие Then Делаем чего-нибудь Многострочная конструкция:If условие Then   Делаем чего-нибудь одно   Делаем чего-нибудь другое Else   Делаем чего-нибудь иное одно   Делаем чего-нибудь иное другое End if...

Sub kniga() Dim x As Single, y As Single x = 3 If x <> 0 And x < 2 Then y = Sqr(x * x - 1) - x Else: If x > 5 Then y = 2 * x If x < 5 And x > 2 Then y = ошибка End If End Sub Пишет else without if если что это vba

Sub kniga()
Dim x As Single, y As Single
x = 3
If x <> 0 And x < 2 Then y = Sqr(x * x - 1) - x

Else: If x > 5 Then y = 2 * x

If x < 5 And x > 2 Then y = ошибка
End If
End Sub
Пишет else without if если что это vba