用VB.NET编写一个程序 ：编一求阶乘的函数f(n),主调程序求组合数的程序，分别调用f(n),用来计算组合数的值

用VB.NET编写一个程序 ：编一求阶乘的函数f(n),主调程序求组合数的程序，分别调用f(n),用来计算组合数的值~

建议在取得a、b后，进行数值的合法性检验。显然必须满足：a、b都是
自然数
，ab>0，a>b。如果a、b的值不合适，中止程序或要求重填TextBox。

Private Sub Command1_Click()
Dim A, B, C
A = 10
B = 3
C = f(A) / (f(B) * f(A - B))
Print C
End Sub
Private Function f(n)
Dim I As Integer
f = 1
For I = 1 To n
f = f * I
Next I
End Function

Private Sub Command1_Click()
Dim A, B, C
A = 10
B = 3
C = f(A) / (f(B) * f(A - B))
Print C
End Sub
Private Function f(n)
Dim I As Integer
f = 1
For I = 1 To n
f = f * I
Next I
End Function

建议在取得a、b后，进行数值的合法性检验。显然必须满足：a、b都是自然数，ab>0，a>b。如果a、b的值不合适，中止程序或要求重填TextBox。

...
dim x1,x2,x3 as integer
x1 = c(a)
x2 = c(b)
x3 = c(t)
r = x1 / (x2 * x3 == 0 ? 1 : x2 * x3)
...
Function c(ByVal m As Long) As Integer
if m == 0 return 1
else return m*c(m-1)
End Function

---

用VB.NET编写一个程序 ：编一求阶乘的函数f(n),主调程序求组合数的程序，分别调用f(n),用来计算组合数的值视频