计算机vfp,使用子程序编程，计算1！+2！+……+10！

计算机vfp,使用子程序编程，计算1！+2！+……+10！

主程序:Xa.prg
Xa=0
FOR j=1 to 10
Xa=Xa+Xi(j)
ENDFOR
? Xa

子程序:Xi.prg
PARAMETERS N
X=1
FOR i=1 to N
X=X*i
ENDFOR
RETURN X

命令窗口输入 do Xa
计算1！+2！+……+10！的值为 4037913

Clear &&清屏
T=0 &&给t赋初值
s=1 &&赋初值给s
n=10 &&自定义值
For i=1 To n &&循环
s=s*i &&s=i！
T=s+T &&t为1到i的阶乘和
Endfor &&循环终点
?"T=1!+2!+3!+…+10!=",T &&输出结果
Return追问这不是使用子程序啊？您用的是循环吧？能告诉我用子程序的方法吗？追答&&不好意思 没仔细看题
Clear &&清屏
?"T=1!+2!+3!+…+10!=",求阶乘(10) &&输出结果
PROCEDURE 求阶乘 &&这个是子程序
PARAMETERS n
T=0 &&给t赋初值
s=1 &&赋初值给s
For i=1 To n &&循环
s=s*i &&s=i！
T=s+T &&t为1到i的阶乘和
Endfor &&循环终点
RETURN t &&输出结果
ENDPROC

input "输入一个 自然数，计算此数内各自然数的阶乘和:" to gy
jch=0
jcs=0
FOR l=1 TO gy
 DO jc WITH l,jcs  &&调用子程序，并通过传递参数实现计算阶乘
 jch=jch+jcs
?l,"的阶乘为：",jcs,l,"以内各自然数的阶乘和为：",jch
ENDFOR


**以下为子程序
PROCEDURE jc
PARAMETERS n,jcs      &&接收主程序传递来的参数
jcs=1
FOR m=1 TO n
 jcs=jcs*m
ENDFOR 
RETURN jcs
 
**以上全部代码可以保存在一个程序内。如果将子程序单独保存，可以将“PROCPROCEDURE jc" 删除，并将子程序保存为jc.prg。