Задание:составить программу VBA (в exel) для вычисления значений функции z=x+y x=фигурн...

Question

Задание:составить программу VBA (в exel) для вычисления значений функции z=x+y

x=фигурн скобка (3t^2, t>0) (4, t=o) (24-t, t<0)<br>

y=фигурн скобка (0, t-s>x) (241, t-s<=x)<br>
t=24,683
s=-15000

Answer 1

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

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

---

Comments

Пожалуйста

---

Если Вам в ячейки листа надо - замените на Cells()

---

Спасибо тут обычно синей кнопочкой выражают, чтобы комментарии не писать