VFP6.0程序

Question

set talk off
clea
sum=0
for i=1 to 4
s=0
do f with s,i
sum=sum+s
next i
?"sum=",sum
set talk on
retu
proc F
para s,n
fact=1
for j=1 to n
fact=fact*j
next j
s=fact
retu
谁能把这个程序的每个步骤的作用说一下

Answer 1

set talk off &&禁止屏幕显示命令结果
clea &&清屏
sum=0 &&声明变量‘sum’并赋值为0
for i=1 to 4 &&开始一个循环，从1到4，并赋值给变量i
s=0 &&给变量s赋值0
do f with s,i &&执行子程序F,参数为s和i
sum=sum+s &&累加s结果到sum
next i &&循环尾，当i小于等于4时跳回到前面for语句继续执行，大于4跳到下一句
?"sum=",sum &&屏幕输出结果“sum=”是直接原样输出字符，逗号后面是将sum的值输出
set talk on &&显示命令结果
retu &&主程序结束
proc F &&建立一个子程序F，前面调用的就是这
para s,n &&接收调用时传递来的参数，就是s和i
fact=1 &&声明并赋值变量fact
for j=1 to n &&建立循环1到n（n的大小就是主程序的i的大小）
fact=fact*j &&将小于等于n的每个数相乘
next j &&循环尾
s=fact &&将fact的值赋值给s，以便主程序使用
retu &&子程序结束
子程序的作用是根据参数给定的i的值计算i的阶乘
程序总的功能是计算1到4的阶乘的和。

Answer 2

一步一步太麻烦了,结果是1!+2!+3!+4!之和,用了一个小过程调用,很简单