求助：用VF编写：s=1!+2!+3!+....+n! 当 s 大于 61000时结束累加,求 n 。万分感谢!!

local s1,n1,t1
s1=0
t1=1
n1=0
do while s1<61000
   n1=n1+1
   t1=t1*n1
   s1=s1+t1
?n1,s1
enddo

Clear
s=0
I=1
DO while .t.
    jc=1
    FOR j=1 to I
        jc=jc*j
    ENDFOR
    s=s+jc
    IF s>=61000
        EXIT
    ELSE
        I=I+1
    ENDIF
ENDDO
?I

谢谢!!

谢谢!!

没事，客气了