[填空題] 在n個運(yùn)動員中選出任意r個人參加比賽，有很多種不同的選法，選法的個數(shù)可以用公式計算。下圖窗體中3個文本框的名稱依次是Text1、Text2、Text3。程序運(yùn)行時在Text1、Text2中分別輸入n和r的值，單擊Command1按鈕即可求出選法的個數(shù)，并顯示在Text3文本框中(見下圖)。請?zhí)羁铡? Private Sub Commandl_Click() Dim r As Integer， n As Integer n=Text1 r=Text2 Text3=fun(n) /fun(______) /fun(r) End Sub Function fun(n As Integer) as long Dim t As Long ______ For k=1 To n t = t * k Next fun = t End Function

n-r或Val(Text1)-Val(Text2)或 Text1-Text2或Val(Text1.Text)-Val(Text2.Text)或 Textl.Text-Text2.Text

t=1 本題考查利用函數(shù)過程來解決數(shù)學(xué)問題的能力。函數(shù)過程fun的功能是計算階乘并返回結(jié)果，需要注意，因為要利用變量t來計算階乘，所以必須給t賦初值，一般做乘法時，初值賦為1，加法賦為0。掌握了這個，利用題目所給公式可直接填寫正確答案。題目看起來非常復(fù)雜，其實難度不大。