用VB.NET编写一个程序 ：编一求阶乘的函数f(n),主调程序求组合数的程序，分别调用f(n),用来计算组合数的值
发布网友
发布时间：2022-04-23 14:51
共3个回答
热心网友
时间：2023-10-25 02:09
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
热心网友
时间：2023-10-25 02:09
热心网友
时间：2023-10-25 02:10
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
