Question

СПАСИТЕ! НУЖНА ПОМОЩЬ С VBA! ДАЮ 35 БАЛЛОВ!!....................
Протестировать программу для вычисления у по формуле (Прикрепил ниже фото)
Измените программу так, чтобы добавился третий промежуток.
Программа что бы могли скопировать:

Sub Raz3 ()
Dim x, y As Double
x = Val (InputBox ("Введите x")) 'Ввод значения переменной X
If x > 0 Then y = Sin(x) Else y = 2 * x
MsgBox ("Значение y =" + Str (y#))
End Sub

Answer 1

Ответ:

Sub Raz3 ()

Dim x, y As Double

x = Val (InputBox ("Введите x")) 'Ввод значения переменной X

If x > 0 Then y = Sin(x)

  Else

      if х < -5 Then   y= x*x  Else  y = 2 * x

MsgBox ("Значение y =" + Str (y#))

End Sub

*******

     X >0,      Sin(x)

y = -5<X <0,  x*x

     X <-5,      2*x