UC知道vb考试 编程题
来源：百度知道 编辑：UC知道 时间：2024/06/17 20:16:03
求公式：e=1/1!+1/2!+1/3!+...+1/n!直到最后一项小于10^(-6)时的e值。
（保留小数点后9位）
谢谢了，急用~
（保留小数点后9位）
谢谢了，急用~
Private Sub Form_Click()
Dim e As Double, i As Integer
i = 0
Do
i = i + 1
e = e + 1 / jc(i)
Loop Until 1 / jc(i) < 10 ^ (-6)
Print Format(e, "#.#########")
End Sub
Private Function jc(n As Integer) As Double
Dim t As Double
t = 1
For i = 1 To n
t = t * i
Next
jc = t
End Function
你是郑大的吗?都考完了