VB编程实现计算 s=1+1/2! +1/3! +…+1/n!,直到1/n!小于0.00001为止

Question

如题所述

Answer 1

Private Sub Form_click() Dim s As Single, a As Single
Dim i As Integer
a = 1
s = 1
i = 1
While a >= 0.00001
i = i + 1
a = a * 1 / i
s = s + a
Wend
Print "s="; s - a
End Sub

Answer 2

s=0;v=1;
for n=1 to 100000 step 1
v=v*n
s=s+1/v
next n

Answer 3

j = 1
mul = 1
s1 = 1
do until
for i = 1 to j
mul = mul*i
next i
s1 = 1/mul
if s1<0.00001 then exit do
sum = sum + s1
j = j+1
loop