![[填空题] 在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式 n!计算。下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在 (n-r)!r!,第1张](/aiimages/%5B%E5%A1%AB%E7%A9%BA%E9%A2%98%5D+%E5%9C%A8n%E4%B8%AA%E8%BF%90%E5%8A%A8%E5%91%98%E4%B8%AD%E9%80%89%E5%87%BA%E4%BB%BB%E6%84%8Fr%E4%B8%AA%E4%BA%BA%E5%8F%82%E5%8A%A0%E6%AF%94%E8%B5%9B%EF%BC%8C%E6%9C%89%E5%BE%88%E5%A4%9A%E7%A7%8D%E4%B8%8D%E5%90%8C%E7%9A%84%E9%80%89%E6%B3%95%EF%BC%8C%E9%80%89%E6%B3%95%E7%9A%84%E4%B8%AA%E6%95%B0%E5%8F%AF%E4%BB%A5%E7%94%A8%E5%85%AC%E5%BC%8F+n%21%E8%AE%A1%E7%AE%97%E3%80%82%E4%B8%8B%E5%9B%BE%E7%AA%97%E4%BD%93%E4%B8%AD3%E4%B8%AA%E6%96%87%E6%9C%AC%E6%A1%86%E7%9A%84%E5%90%8D%E7%A7%B0%E4%BE%9D%E6%AC%A1%E6%98%AFText1%E3%80%81Text2%E3%80%81Text3%E3%80%82%E7%A8%8B%E5%BA%8F%E8%BF%90%E8%A1%8C%E6%97%B6%E5%9C%A8+%28n-r%29%21r%21.png "[填空题] 在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式 n!计算。下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在 (n-r)!r!,第1张")
[填空题] 在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
正确答案：t=1
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）