输入n,求s=1!+2!+...+n!的前n项和.是VFP程序

input "输入N值：" to n
s=1
FOR i=1 TO n
a=1
\x05FOR j=1 TO i
\x05 a=a*j
\x05ENDFOR
\x05s=s+a
ENDFOR
"1!+2!+3!+...+n!="+ALLTRIM(STR(s))