阶乘程序如何编写vfp

VFP 阶乘自定义函数参考：

调用例子：

求 100！

CLEAR

? m_Factorial(100)

****************************************

&&阶乘函数 m_Factorial()

&&参数:

&&nFactor 数值型 阶乘因子

&&返回:

&&数值型 阶乘的值

****************************************

PROCEDURE m_Factorial(nFactor)

LOCAL i, nProduct

nProduct = 1

FOR i = 1 TO nFactor

nProduct = nProduct * i

ENDFOR

RETURN nProduct

ENDPROC

我这给你提拱的是求1——10之间的阶乘，你可以参照、如下

clear

s=0

for I=1 TO 10

S=S+JC(I)

ENDFOR

?S

FUNCTION JC

PARA K

R=1

FOR J=1 TO K

R=R*J

ENDFOR

RETURN R

?"1!+2!+3!+...10!="+ALLTRIM(STR(S))

运行结果为：4037913

你新建一个表单，在上面添加一个标签、一个文本框和一个命令按钮，标签的caption属性设置为：请输入一个自然数，命令按钮的caption属性设置为：求阶乘。

然后双击命令按钮，在其click 代码程序中输入

n=val(allt(thisform.text1.value))

t=1

for i=1 to n

t=t*i

endfor

messagebox("阶乘为"+str(t))

然后运行保存就可以了

---