VBA. По заданным значениям a, x и n найти сумму ряда.

Question

VBA. По заданным значениям a, x и n найти сумму ряда.

---

Answer 1

Sub aaa()
    n = CInt(InputBox("Введите n"))
    Dim s As Double
    s = 0
    For i = 1 To n
        s = s + Cos(i + 1) / (2 * i - 1)
    Next i
    MsgBox s
End Sub