VB中计算e的值 e=1+1/1!+1/2!+......+1/n!,精确到第六位，
答案:1 悬赏:20 手机版
解决时间 2021-04-26 15:08
- 提问者网友：沦陷
- 2021-04-26 06:26
VB中计算e的值 e=1+1/1!+1/2!+......+1/n!,精确到第六位，
最佳答案
- 五星知识达人网友：佘樂
- 2021-04-26 06:37
Private Sub Command1_Click()
Dim e As Single, t As Single, n As Integer---------定义三个变量
e = 1: n = 0: t = 1---------------------------------对三个变量进行初始化
Do-------------------------------------------------循环
n = n + 1-------------------------------------n为循环条件,从1,2,3...................
t = t / n---------------------------------------计算1/1, 1/1*2 即1/n!的计算.
e = e + t-------------------------------------得出结果 e=1+1/1!+1/2!+......+1/n!
Loop While t > 0.0000001--------------------循环结束条件,精确到第六位
Print e, n -------------------------------打印 e和n
End Sub
Dim e As Single, t As Single, n As Integer---------定义三个变量
e = 1: n = 0: t = 1---------------------------------对三个变量进行初始化
Do-------------------------------------------------循环
n = n + 1-------------------------------------n为循环条件,从1,2,3...................
t = t / n---------------------------------------计算1/1, 1/1*2 即1/n!的计算.
e = e + t-------------------------------------得出结果 e=1+1/1!+1/2!+......+1/n!
Loop While t > 0.0000001--------------------循环结束条件,精确到第六位
Print e, n -------------------------------打印 e和n
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯