vb编程"编写一个求n!的阶乘函数F(n),利用该函数计算二项式系数Cmn=m!/(n!*(m-n)! 编写一个求n!的阶乘函数F(n),利用该函数计算二项式系数Cmn=m!/(n!*(m-n)!);其中m>=n;m和n从键盘输入.要VB编程
来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/22 09:10:11
vb编程"编写一个求n!的阶乘函数F(n),利用该函数计算二项式系数Cmn=m!/(n!*(m-n)! 编写一个求n!的阶乘函数F(n),利用该函数计算二项式系数Cmn=m!/(n!*(m-n)!);其中m>=n;m和n从键盘输入.要VB编程
vb编程"编写一个求n!的阶乘函数F(n),利用该函数计算二项式系数Cmn=m!/(n!*(m-n)!
编写一个求n!的阶乘函数F(n),利用该函数计算二项式系数Cmn=m!/(n!*(m-n)!);其中m>=n;m和n从键盘输入.
要VB编程
vb编程"编写一个求n!的阶乘函数F(n),利用该函数计算二项式系数Cmn=m!/(n!*(m-n)! 编写一个求n!的阶乘函数F(n),利用该函数计算二项式系数Cmn=m!/(n!*(m-n)!);其中m>=n;m和n从键盘输入.要VB编程
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