编写程序,利用以下公式计算e的值：e≈1+1/1!+1/2!+1/3!+1/4!+1/5!+1/6!+1/7!+……累加到最后一项的值小于10-6时为止（在输出近似值的同时,输出一共累加了多少项）.累加到最后一项的值小于1

Question

编写程序,利用以下公式计算 e的值：e ≈ 1 + 1/1!+ 1/2!+ 1/3!+1/4!+ 1/5!+1/6!+ 1/7!+ ……
累加到最后一项的值小于 10-6时为止（在输出近似值的同时,输出一共累加了多少项）.
累加到最后一项的值小于10的负6次为止。（在输出近似值的同时，输出一共累加了多少项）。

Answer 1

在Excel里面用VB编个小小的程序就可实现

程序代码如下：

Sub valueE()

e = 1

Do

n = n + 1

k = 1

For i = 1 To n

m = k * i

k = m

Next

e = e + 1 / m

Loop Until 1 / m < 10 ^ (-6)

Cells(1, 1) = "n"

Cells(1, 2) = "valueE"

Cells(2, 1) = n + 1

Cells(2, 2) = e

End Sub

实验结果如下：