作业帮 > 综合 > 作业

vb编写一个计算表达式m!/n!(m-n)!值的程序(m>=n>=0),要求:

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/16 15:56:28
vb编写一个计算表达式m!/n!(m-n)!值的程序(m>=n>=0),要求:
用输入对话框输入m和n的值,用编写函数Function fact(x as integer)求x!的值.
Function fact(x As Integer)
s = 1
For i = 1 To x
s = s * i
Next
fact = s
End Function
Private Sub Command1_Click()
Me.AutoRedraw = True
Me.Cls
Dim m As Integer
Dim n As Integer
m = -1
n = -1
Do While m < 0
m = Val(InputBox("请输入m的值","输入"))
Loop
Do While n < 0 Or n > m
n = Val(InputBox("请输入n的值","输入"))
Loop
Print m
Print n
Print fact(m) / (fact(n) * fact(m - n))
End Su