用两种不同的方法求1+1/1！+1/2！+1/3！+…+1/n! （1）直到第50项（用For…N
答案:1 悬赏:0 手机版
解决时间 2021-11-08 21:57
- 提问者网友：沉默菋噵
- 2021-11-08 02:36
用两种不同的方法求1+1/1！+1/2！+1/3！+…+1/n! （1）直到第50项（用For…N
最佳答案
- 五星知识达人网友：雪起风沙痕
- 2021-11-08 03:32
Private Sub Command1_Click()
Dim i, t, s
s = 1
For i = 1 To 50
s = s + 1 / fc(i)
Next
Print s, i
End Sub
Private Sub Command2_Click()
Dim s, i, k
s = 1
Do
i = i + 1
k = 1 / fc(i)
If k < 10 ^ (-6) Then Exit Do
s = s + k
Loop
Print s, i - 1
End Sub
Function fc(n)
Dim i
fc = 1
For i = 1 To n
fc = fc * i
Next
End Function
Dim i, t, s
s = 1
For i = 1 To 50
s = s + 1 / fc(i)
Next
Print s, i
End Sub
Private Sub Command2_Click()
Dim s, i, k
s = 1
Do
i = i + 1
k = 1 / fc(i)
If k < 10 ^ (-6) Then Exit Do
s = s + k
Loop
Print s, i - 1
End Sub
Function fc(n)
Dim i
fc = 1
For i = 1 To n
fc = fc * i
Next
End Function
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯