:составить программу vba (в exel) для вычисления значений функции z=x+y x=фигурн скобка (3t^2, t> 0) (4, t=o) (24-t, t< 0) y=фигурн скобка (0, t-s> x) (241, t-s< =x) t=24,683 s=-15000

Sub aaa()
    Const t = 24.683, s = -15000
    Dim x As Double, y As Double, z As Double
    Select Case t
    Case Is > 0
        x = 3 * t ^ 2
    Case 0
        x = 4
    Case Else
        x = 24 * t
    End Select
    If t - s > x Then
        y = 0
    Else
        y = 241
    End If
    z = x + y
    MsgBox z
End Sub

Результат - во вложении.