作业帮 > 数学 > 作业

一道关于VB的题!计算1的阶乘分之一 加 2的阶乘分之一 加 3的阶乘分之一 加 4的阶乘分之一

来源:学生作业帮 编辑:百度作业网作业帮 分类:数学作业 时间:2024/08/15 13:13:57
一道关于VB的题!计算1的阶乘分之一 加 2的阶乘分之一 加 3的阶乘分之一 加 4的阶乘分之一
下面是我自己编的代码
Private Sub Command1_Click()
n = 1
s = 1
Do While n < 5
For i = 1 To n
s = s * i
Next i
m = m + 1 / s
n = n + 1
Loop
Print m
End Sub
但是算出来的答案和 计算机算出来的不一样啊,这个算出来是1.5868·····
计算机算出来是1.7 几 差别有点大啊
一道关于VB的题!计算1的阶乘分之一 加 2的阶乘分之一 加 3的阶乘分之一 加 4的阶乘分之一
把s=1放到Do While n
再问: 我试了下,正解! 但是请问这是为什么啊?
再答: 因为每次做Do循环时,前一次的S没有还原,继承了上一次的值 也就是第一次循环S=1 第二次循环S=1*1*2 第三次循环S=1*1*2*1*2*3 第四次循环S=1*1*2*1*2*3*1*2*3*4 所以答案不对