Составить в VBA, используя подпрограмму: Составить программу вычисления суммы: 1! + 2!+3!...

Question

Составить в VBA, используя подпрограмму:
Составить программу вычисления суммы: 1! + 2!+3! + ... +n!

Comments

Странно, в профиле язык русский, 18 лет, а выражаетесь не по-русски... Как можно что-то "составить через"?

---

"Через" можно перешагнуть, через можно что-то пропустить (например, через фильтр).

---

Извиняюсь, заработался

---

Милое дело! Сейчас напишу)

---

Огромное вам спасибо)

---

пожалуйста)

Answer 1

Function fact(n As Integer) As Long
    Dim i As Integer, p As Long
    p = 1
    For i = 2 To n
        p = p * i
    Next i
    fact = p
End Function

Sub Test()
    Dim n As Integer, s As Long, i As Integer
    s = 0
    n = CInt(InputBox("Введите число n"))
    For i = 1 To n
        s = s + fact(i)
    Next i
    MsgBox s
End Sub

Comments

я думаю вы поторопились с ответом) там у вас считает просто факториал, а нужно суммировать факториалы

---

Да....точно, сейчас сделаем!