vfp中读程序题
S=0
FOR N=1 TO 6
S=S+JC(N)
ENDFOR
***函数过程***
FUNCTION JC
PARAMETER X
P=1
FOR M=1 TO X
P=P*M
ENDFOR
RETURN P
ENDFUN