在n个运动员中选出任意r个人参加比赛,有很多种不同的选法,选法的个数可以用公式:计算。在窗体上设计3个文本框,名称依次是Text1、Text2和Text3,请填空。 Private Sub Command1 Click() Dim r As

admin2013-01-07  39

问题 在n个运动员中选出任意r个人参加比赛,有很多种不同的选法,选法的个数可以用公式:计算。在窗体上设计3个文本框,名称依次是Text1、Text2和Text3,请填空。
    Private Sub Command1 Click()
    Dim r As Integer,n As Integer
    n=Text1
    r=Text2
Text3=fun(n)/(    )/fun(r)
    End Sub
    Function fun(n As Integer)As long
    Dim t As Long
    For k=1 To n
    T=t*k
    Next k
    Fun=t
    End Function

选项

答案fun(n)-fun(r) t=1

解析 从函数定义的内部和函数调用的方式上可以看出,函数fun求的是阶乘。所以存放变量乘积的变量t要赋初值为1,再按公式调用就可以了。
转载请注明原文地址:https://kaotiyun.com/show/r3up777K
0

最新回复(0)