填空题
在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(T......
(↓↓↓ 点击下方‘点击查看答案’看完整答案、解析 ↓↓↓)
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
填空题
以下程序的功能是:把当前目录下的顺序文件smtext1.txt的内容读入内存,并在文本框 Text1中显示出来。请填空。 Private Sub Command1_Click() Dim inData As String Textl.Text= Open . smtext1.______ As #1 Do While ______ Input #1,inData Text1.Text=Text1.Text&inData Loop Close #1 End Sub
点击查看答案&解析
填空题
以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组,然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数,单击“计算得分”命令按钮,则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后的平均分即为最后得分),如图所示。请填空。 Private Sub Commandl_Click() Dim k As Integer Dim sum As Single, max; As Single, min As Single sum=Text1(0) max=Text1(0) min= _____ For k= ______ To 6 If max<Text1(k) Then max = Text1(k) End If If min>Texl(k) Then min = Text1(k) End If sum=sum+Text1(k) Next k Text2= (______) 5 End Sub
点击查看答案&解析
相关试题
在窗体上画一个名称为Commandl的命令按钮,...
以下关于图片框控件的说法中,错误的是
设一个工程由两个窗体组成,其名称分别为Fo...
以下能够正确计算n!的程序是
以下叙述中错误的是