Программа для вычисления суммы факториалов - VB
Формулировка задачи:
здравствуйте кто знает как сделать такое задание : Составить программу вычисления суммы:
2! + 4! + … + n! (n <= 20, n - четное). с использованием процедур
Примечание: Тип результата значения функции — LongInt.
....я заю только как написать код для нахождения факториала
....
Решение задачи: «Программа для вычисления суммы факториалов»
textual
Листинг программы
Option Explicit
Private Sub Command1_Click()
Dim f as long, s as long, m As Integer, i As Integer
f = 1
m = InputBox(" факториал числа")
For i = 1 To m
f = f * i
if i mod 2=0 then s=s+f
Next i
Print s
End Sub