在Visual FoxPro （VFP） 中，你可以使用多种方法来计算阶乘。下面我将介绍两种常见的方法：使用递归函数和使用循环。
方法一：使用递归函数
递归是一种在函数内部调用自身的技术。对于阶乘，我们可以定义一个名为 `Factorial` 的函数，当传入参数 `n` 为 0 时，函数返回 1；否则，函数返回 `n` 乘以 `Factorial（n-1）` 的结果。
下面是一个使用递归计算阶乘的 VFP 函数示例：
```foxpro
FUNCTION Factorial(n)
IF n = 0
RETURN 1
ELSE
RETURN n * Factorial(n - 1)
ENDIF
ENDFUNC
```
使用这个函数，你可以通过调用 `Factorial（n）` 来计算任意正整数 `n` 的阶乘。
方法二：使用循环
另一种计算阶乘的方法是使用循环。你可以初始化一个变量（如 `nProduct`）为 1，然后遍历从 1 到 `n` 的所有整数，将每个整数乘以 `nProduct`。最后返回 `nProduct` 作为阶乘的结果。
下面是一个使用循环计算阶乘的 VFP 函数示例：
```foxpro
FUNCTION Factorial(n)
LOCAL i, nProduct
nProduct = 1
FOR i = 1 TO n
nProduct = nProduct * i
ENDFOR
RETURN nProduct
ENDFUNC
```
这个函数与递归方法类似，但使用循环结构来实现。
计算排列数
阶乘通常用于计算排列数，排列数的计算公式是 `P（n, m） = n! / （n - m）!`。你可以使用阶乘函数来计算排列数，如下所示：
```foxpro
FUNCTION Permutation(n, m)
RETURN Factorial(n) / Factorial(n - m)
ENDFUNC
```
这个函数调用了 `Factorial` 函数来计算 `n!` 和 `（n - m）!`，然后返回它们的商作为排列数。
示例
假设你想计算 5 的阶乘，你可以这样调用 `Factorial` 函数：
```foxpro
CLEAR
? m_Factorial(5)
```
这将输出 `120`，因为 `5! = 5 * 4 * 3 * 2 * 1 = 120`。
如果你想计算从 5 个元素中取出 2 个元素的排列数，你可以这样调用 `Permutation` 函数：
```foxpro
CLEAR
? m_Permutation(5, 2)
```
这将输出 `60`，因为 `P（5, 2） = 5! / （5 - 2）! = 120 / 3! = 120 / 6 = 20`。
通过这些方法，你可以在 VFP 中轻松地计算阶乘和排列数。