填空题：在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式计算。下图窗体中3个文本框的名称依次是Te

  • 题目分类：VB
  • 题目类型：填空题
  • 查看权限：VIP
题目内容：
在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式计算。下图窗体中3个文本框的名称依次是Textl、Text2、Text3。程序运行时在Textl、Text2中分(n—r)r别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中(见下图)。请填空。
Private Sub Command1_Click()
Dim r As Integer，n As Integer
n=Textl
r=-Text2
Text3=fun(n)/fun(【l】)/fun(r)
End Sub
Function fun(n As Integer)as long
DimtAsLong
【2】
For k=l To n
t=t*k
Next
fun=t
End Function
参考答案：
答案解析：

设有如下通用过程：Public Function Fun(xStr As String)As StringDim tSt

设有如下通用过程：Public Function Fun(xStr As String)As StringDim tStr As String，strL As

分类：VB  题型：填空题
查看答案

已知有下面过程Private Sub Procl(a As Integer,b As String，Optional X

已知有下面过程Private Sub Procl(a As Integer,b As String，Optional X As Boolean)……End Su

分类：VB  题型：填空题
查看答案

有如下函数：Function fun(a As Integer，nAs Integer)As IntegerDim mA

有如下函数：Function fun(a As Integer，nAs Integer)As IntegerDim mAs IntegerWhile a>=na

分类：VB  题型：填空题
查看答案

假定有以下函数过程：Function Fun(S As String)As StringDim sl As String

假定有以下函数过程：Function Fun(S As String)As StringDim sl As StringFor i=l To Len(S)S 1

分类：VB  题型：填空题
查看答案

以下有关数组定义的语句序列中，错误的是（　　）

以下有关数组定义的语句序列中，错误的是（　　）A．Static arrl(3)arrl(1)=100arrl(2)=“Hello”arrl(3)=123.45

分类：VB  题型：填空题
查看答案