Private Sub Кнопка0_Click()

Dim x As Single, y As Single, s As String

x = InputBox("x=", "ВВод х",. 5, 5)

If x < 0 Then

y = 1 + x

s = "x=" & Str(x) & "y=" & Str(y)

MsgBox s

Else

If x <= 5 Then

If x <> 0 Then

y = 1 / x

s = "x=" & Str(x) & "y=" & Str(y)

MsgBox s

Else

MsgBox "На 0 делить нельзя"

End If

Else

If x <= 7 Then

MsgBox "Функция не определена"

Else

y = 5

MsgBox Str(y)

End If

End If

End If

End Sub

Результат работы:

 

при х=-3

 

 

 

при х=0