Эксель цикл

[Jon1kus]

Дано целое число N (>0), используя цикл For, наити сумму 1+1/(1!)+1/(2!)...1/(N!), (N!) - факториал произведение всех чисел от 1 до N, !!!Полученное число являеться приблеженному значению константы e=exp(1)

Private Sub CommandButton1_Click()
Const s As Double = 3.1415
f = 1
s = 1
For i = 1 To n
Range("A" & i).Value = i
Range("B" & i).Value = f
Range("C" & i).Value = s * 1 / f

Next i
End Sub

Я так оформил в экселе , но похоже тут ошибка так как значение он мне не выдает=( Думаю для спецов дело 5 секунд

[doober]

Private Sub CommandButton1_Click()
Dim F As Double
 N = 20
 s = 1
For I = 1 To N
F = Factorial(I)
Range("A" & I).Value = I
Range("B" & I).Value = F
s = s + 1 / F
Range("C" & I).Value = s
Next I
End Sub

Функцию Factorial напишите сами

Надо и самому что то сделать в задании.а не писать билиберду.

[Jon1kus]

Спасибо конечно, но я делал по образцу, и не особо разбираюсь в этом деле, так что так строго не стоит, ага