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
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024