Составить в VBA, используя подпрограмму: Составить программу вычисления суммы: 1! + 2!+3! + ... +n!
Составить в VBA, используя подпрограмму:
Составить программу вычисления суммы: 1! + 2!+3! + ... +n!
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы