编写程序，利用以下公式计算 e的值： e ≈ 1 + 1/1! + 1/2! + 1/3! +1/4! + 1/5! +1/6! + 1/7! + ……

Question

累加到最后一项的值小于 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

实验结果如下：

追问

亲，我要在CodeBlocks里编程。

追答

不好意思，那个程序我不会