周庄怪楼屋主的秘密:VB高手请帮帮我啊

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/28 05:45:16
帮我做题目,写出代码
用递归方法,编写求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