赵薇穿日本军旗装道歉:VB高手请帮帮我啊

来源:百度文库 编辑:高考问答 时间:2024/04/29 20:14:23
帮我做题目,写出代码
用递归方法,编写求m!/n!(m-n)!的函数。

Sub qiuzhi(m As Integer, n As Integer)
MsgBox sum(m) / (sum(n) * sum(m - n))
End Sub
Function sum(m As Integer)
If m <> 1 Then
sum = sum(m - 1) * m
Else
sum = 1
End If
End Function

调用:
Private Sub Command1_Click()
qiuzhi 5, 3
End Sub
答案:10

function sum(byval n as long)
if *** then
...
else
...
end if
end function