[填空題] 在n個(gè)運(yùn)動(dòng)員中選出任意r個(gè)人參加比賽，有很多種不同的選法，選法的個(gè)數(shù)可以用公式計(jì)算。窗體中3個(gè)文本框的名稱依次是Text1、Text2、Text3。
2021-07-20
[填空題] 在n個(gè)運(yùn)動(dòng)員中選出任意r個(gè)人參加比賽，有很多種不同的選法，選法的個(gè)數(shù)可以用公式計(jì)算。窗體中3個(gè)文本框的名稱依次是Text1、Text2、Text3。程序運(yùn)行時(shí)在Text1、Text2中分別輸入n和r的值，單擊Command1按鈕即可求出選法的個(gè)數(shù)，并顯示在Text3文本框中。請?zhí)羁铡?/p>
Private Sub Command1_Click()
Dim r As Integer,n As Integer
n=Text1
r=Text2
Text3:fun(n)/funf (9) )/funfr)
End Sub
Function fun(n As Integer)As long
Dim t As Long
(10)
For k=1 To n
t=t*k
Next
fun=t
End Function
正確答案：[9]n-r[10]t=1
參考解析：fun函數(shù)顯然為階乘。根據(jù)題設(shè)此處應(yīng)為(n-r)的階乘。遞歸函數(shù)方式計(jì)算階乘，t=1時(shí)直接復(fù)制，不然依次遞歸。
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。