编程实现计算s=1+1/2!+1/3!+......+1/n!直到1/n!小于0.00001为止
Private Sub form_click()
    Dim a As Integer, n As Integer
    Dim s As Double, b As Double, c As Double
    s = 0
    b = 1
    For a = 1 To n
        b = b * a
        c = 1 / b
        s = s + c
        If c < 0.00001 Then
            Print s
            Exit For
        End If
    Next a
    
End Sub
哪里出错了？

- -!算到一半昏迷了

...我也是。

n一直未赋值

...

那要怎么解决？

n=a 最后加上

。。。还是不懂。。。

把exit for提到b循环下试试

a不要1 to n了，循环条件给个真，直接循环一直跑，只利用里面的判断条件跳出循环，每跑一次循环a++