Составить программу VBA для Excel для вычисления

Листинг: программы

Sub vv()

t = Val(InputBox("t="))

x = Val(InputBox("x="))

y = Val(InputBox("y="))

If y 0 And y 0 Then

f = x ^ 2

ElseIf y 0 And t 0 Then

f = x ^ 3

Else

f = 0

End If

MsgBox "f=" f

End Sub

Запись алгоритма в виде блок-схемы: