好吧问答库 > VB.NET2010 给定求组合数公式为Cmn=m!⼀n!(m-n)!，编一程序，输入m和n的值，求Cmn的值。要用Sub过程

VB.NET2010 给定求组合数公式为Cmn=m!⼀n!(m-n)!，编一程序，输入m和n的值，求Cmn的值。要用Sub过程

2024年11月20日 22:30

有1个网友回答

网友（1）：

Module Module1
Private Sub fac(ByVal x As ULong, ByRef y As ULong)
Dim i&, a&
a = 1
For i = 1 To x
a = a * i
Next i
y = a
End Sub
Sub Main()
Dim m&, n&, Cmn&, c1&, c2&, c3&
Console.WriteLine("m=")
m = Val(Console.ReadLine())
Console.WriteLine("n=")
n = Val(Console.ReadLine())
Call fac(m, c1) : Call fac(n, c2) : Call fac(m - n, c3)
Cmn = c1 / (c2 * c3)
Console.Write("Cmn={0}", Cmn)
End Sub
End Module