一道关于VB的题!计算1的阶乘分之一 加 2的阶乘分之一 加 3的阶乘分之一 加 4的阶乘分之一下面是我自己编的代码 Private Sub Command1_Click()n = 1s = 1Do While n For i = 1 To ns = s * iNext im = m + 1 / sn = n + 1LoopPrint mEnd Sub但是算出来的答案和 计算机算出来的不一样啊,这个算出来是1.5868·····计算机算出来是1.7 几 差别有点大啊

问题描述:

一道关于VB的题!计算1的阶乘分之一 加 2的阶乘分之一 加 3的阶乘分之一 加 4的阶乘分之一
下面是我自己编的代码
Private Sub Command1_Click()
n = 1
s = 1
Do While n 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 几 差别有点大啊