Нужно очень срочно решить задание по информатике, программирование в VBA(visual basic)

Question

Нужно очень срочно решить задание по информатике, программирование в VBA(visual basic)

---

Comments

Вы действительно считаете что VBA - это же самое, что Visual Basic? Или вам ответ можно дать или в VBA, или в Visual Basic?

Answer 1

Sub ex7()
    m = CInt(InputBox("m="))
    n = CInt(InputBox("n="))
    y = 0#
    For k = 1 To 25
        y = y + k ^ 2 / m + k ^ 3 / 2
    Next k
    z = y * (y - 4) + 0.02 * n
    MsgBox "z=" + CStr(z)
End Sub

Comments

Sub Zadanie()
m = CInt(InputBox("m="))
n = CInt(InputBox("n="))
y = 0.0

For k = 1 To 25
y = y + k ^ 2 + m * k ^ 3 / 2
Next

z = y * (y - 4) + 0.02 * n
MsgBox "z=" & z
End Sub

---

интересно. срок вопроса еще не закончился, но второй ответ добавить нельзя. почему?

---

Да, когда списывал, упустил m перед суммой

---

Потому что время вышло на ответ. Есть таймаут максимальный между ответами. Иначе, если второй не дадут, не получится лучший отмечать

---

ну когда отметили лучший тогда бы и закрывали, а заранее то зачем?

---

Нужно вставить y:-m*y перед вычислением z

---

Нельзя ответить лучший, пока нет второго

---

Либо, пока не однозначно установлено, что второго не будет.

---

а че бы не закрывать возможность добавления когда лучший отмечен. Только просто не сразу давать возможность отмечать лучший. А пока не выбран лучший и ответ еще активен, то можно отвечать.

---

вообщем на этом проекте как всегда логика хромает