求VF中程序题“M!/(N!*(M-N)!)”的程序的详细解答过程！谢谢谢谢！！！

Question

要用有关子程序的调用知识，也就是要用DO。可以不？

Answer 1

CLEAR
LOCAL M, N
M = 6
N = 4
&& M!/(N!*(M-N)!)
? m_Factorial(M)/(m_Factorial(N) * m_Factorial(M-N))

****************************************
&& 阶乘函数 m_Factorial()
&& 参数:
&& nFactor 数值型 阶乘因子
&& 返回:
&& 数值型 阶乘的值
****************************************
PROCEDURE m_Factorial(nFactor)
LOCAL i, nProduct
nProduct = 1
FOR i = 1 TO nFactor
nProduct = nProduct * i
ENDFOR
RETURN nProduct
ENDPROC

追问

要用有关子程序的调用知识，也就是要用DO。可以不？

追答

不要太死板
1.上例里，m_Factorial() 就定义了一个子程序，该程序接收一个参数 nFactor 并返回计算结果 nProduct
2.根据题意求 M!/(N!*(M-N)!) 显示计算结果
m_Factorial(M)/(m_Factorial(N) * m_Factorial(M-N)) 相当于：
子程序(M)/(子程序(N) * 子程序(M-N))

用 DO 的话要增加中间变量的数量，无聊地使程序复杂化...