Составить программу расчета значения функции согласно предложенному варианту. Задание. Программу расчета значения функции.

Sub s()

y = CDbl(InputBox("y="))

If y 0 Then

f = y ^ 3 - 0.3

ElseIf y 1 Then

f = y ^ 3 + 1

Else

f = 0

End If

MsgBox f

End Sub