Question

Программирование в VBA. Помогите, что тут не верно? (исправить) как надо записать эту задачку!?
Sub z4_1()

Dim x As Single
Dim y As Single
x = InputBox("vvedi x")
y = 0
If x < 0 Then
y = 1 - (x)
End If

End Sub

Answer 1

Sub z4_1()
     Dim x As Single
      Dim y As Single
      x = InputBox("vvedi x")
      If x < -1 Then
             y=0
      Else
             y = 1 - Abs(x)
      End If
      MsgBox y
End Sub