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