问题
填空题
在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式
计算。下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中(见下图)。请填空。
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
解析： 本题考查利用函数过程来解决数学问题的能力。函数过程fun的功能是计算阶乘并返回结果，需要注意，因为要利用变量t来计算阶乘，所以必须给t赋初值，一般做乘法时，初值赋为1，加法赋为0。掌握了这个，利用题目所给公式可直接填写正确答案。题目看起来非常复杂，其实难度不大。