[填空题] 在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式 n!计算。下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在 (n-r)!r!

[填空题] 在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式 n!计算。下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在 (n-r)!r!

Text1、Text2中分别输入n和r的值，单击Commandl按钮即可求出选法的个数，并显示在Text3文本框中。请填空。

Private Sub Commandl_Click()

Dim r As Integer，n As hteger

n=Text1

r=Text2

Text3=fun(n)/fun( [14] )/fun(r)

End Sub

Funcion fun (n As Integer)as long

Dim t As Long

[15]

Fork=1 To n

t=t*k

Next

fun=t

End Function

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