Question

vb编程"编写一个求n!的阶乘函数F(n),利用该函数计算二项式系数Cmn=m!/(n!*(m-n)!

题目1. 编写一个求n!的阶乘函数F(n)，利用该函数计算二项式系数Cmn=m!/(n!*(m-n)!)；其中m>=n；m和n从键盘输入。
要VB编程

Answer 1

列如：
Dim a, b As Integer
Dim s As Long
b = Val(Text1)
s = 1
For a = 1 To n
s = s * n
Label1.Caption = "你输出的" + Str(n) + "的结果为" + Str(s)
这只是一个列子，你可以开动脑筋

Answer 2

Private Sub Command1_Click()
Dim m As Integer, n As Integer
m = Int(InputBox("输入第一个整数"))
n = Int(InputBox("输入第一个整数"))
If m >= n Then
cmn = jiecheng(m) / (jiecheng(n) * jiecheng(m - n))
Print cmn
Else: MsgBox "输入数据有错"
End If
End Sub
Private Function jiecheng(x As Integer) As Double
jiecheng = 1
For i = 1 To x
jiecheng = jiecheng * i
Next
End Function