Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Программирование в 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

Ответ оставил Гость

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