一道關(guān)于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 幾 差別有點大啊