更多"在n个运动员中选出任意r个人参加比赛,有很多种不同的选法,选法的个数可"的相关试题:
[填空题]在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 gong
______
For k=1 To n
T=t*k
Next k
Fun=t
Fnd Function
[单项选择]程序代码如下,当单击窗体上的Command1控件时,窗体上显示的结果是( )。
Private Sub Command1_Click( )
Dim i As Integer,k As Integer
Dim a(9) As Integer,p(2)As Integer
k=5
For i=0 To 9
a(i)=i
Next i
For i=0 To 2
p(i)=a(i*(i+1))
Next i
For i=0 To 2
k=k+p(i)*2
Next i
Print k
End Sub
A. 20
B. 21
C. 22
D. 23
[填空题]在一个窗体上有两个命令按钮,cmdMax 和 cmdMin。单击cmdMax时,窗体上显示“字体由小变大”,字号每次增加2;单击cmdMin时,窗体上显示“字体由大变小”,字号每次减小2。请填空。
Private Sub Form_Load( )
Forml.Caption =“字体变化示范”
cmdMax.Caption=“字体变大”
cmdMin.Caption=“字体变小”
End Sub
Private Sub cmdMax_Click( )
【 】
Forml.Print”字体由小变大”
End Sub
Private Sub cmdMin_Click( )
【 】
Forml.Print“字体由大变小”
End Sub
[填空题]程序是一个窗体双击事件代码,窗体的名称是Mywindow。窗体上有一个名为text1的文本框,用来显示文本。
程序段首先在文本框中显示“窗体能够触发双击事件”然后将该文本清除;重复上述过程5次。
Option Explicit
Private ______
Dim k As Integer
For k=1 To 100
If k Mod 20 Then
_______
Else
Text1.Text=" "
End If
Print“程序运行完毕,可再双击窗体”
End Sub
[填空题]程序是一个窗体双击事件代码,窗体的名称是Mywindow。窗体上有一个名为Text1的文本框,用来显示文本。
程序段首先在文本框中显示“窗体能够触发双击事件”然后将滚文本清除;重复上述过程5次。
Option Explicit
Private 【12】
Dim k As Integer
For k=1 to 100
If k Mod 20 Then
【13】
Else
Text1.Text=""
End lf
Print“程序运行完毕,可再双击窗体”
End Sub
[填空题]在一个窗体上有一个命令按钮CmdMax。单击CmdMax时,窗体上显示“字体由小变大”,字号每次增加2。请填空。
Private Sub Form_Load( )
Form1.Caption="字体变化示范"
CmdMax.Caption="字体变大"
End Sub
Private Sub CmdMax_Click( )
______
Form1.Print "字体由小变大"
End Sub
[填空题]控件是窗体上用于显示数据、 【13】 和装饰窗体的对象。
[填空题]在一个窗体上有一个命令按钮,CmdMax。单击CmdMax时,窗体上显示“字体由小变大”,字号每次增加2。请填空。
Private Sub Form_Load( )
Form1.Caption=“字体变化示范”
CmdMax.Caption=“字体变大”
End Sub
Private Sub CmdMax_Click( )
【8】
Form1.Print“字体由小变大”
End Sub
[填空题] 【11】 是窗体上用于显示数据、执行操作、装饰窗体的对象。
[填空题] 【10】 是窗体上用于显示数据、执行操作、装饰窗体的对象。
[单项选择]程序运行后,在窗体上单击鼠标,此时窗体不会接收到的事件是
A. MouseDown
B. MouseUp
C. Load
D. Click
[单项选择]窗体上有一个名称为Hscroll1的滚动条,程序运行后,当单击滚动条两端的箭头时,立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是( )
A. Private Sub Hscroll1_Change()
B. Private Sub Hsetroll1_Change()
C. Private Sub Hscroll1_Scroll()
D. Private Sub Hscroll1_Scroll()
[单项选择]窗体上有一个名称为HScroll1的滚动条,程序运行后,当单击滚动条两端的箭头时,立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是______。
A. Private Sub HScroll1_Scroll()
B. Private Sub HScroll1_Scroll()
C. Private Sub HScroll1_Change()
D. Private Sub HScroll1_Change()
[填空题]下列程序实现的功能是:在窗体上单击时,将在窗体上输出c:=a1.txt文件中的所有小写字母。
Private Sub Form Click( )
Dim Ch As String * 1
Open "c:/a1.txt" For Input As #10
Do While 【8】
Ch= Input(1, #10)
If 【9】 Then
Print Ch;
End If
Loop
【10】
End Sub
[填空题]下列程序实现的功能是:当在窗体上单击时,将在窗体上输出c:/a1.txt文件中的所有小写字母。
Private Sub Form_Click( )
Dim Ch As String*1
Open"c:/a1.txt"For Input As #10
Do While 【13】
Ch=Input(1,#10)
If 【14】 Then
Print Ch;
End If
Loop
【15】
End Sub
[填空题]______是窗体上用于显示数据、执行操作、装饰窗体的对象。
[单项选择]当程序运行时,在窗体上单击鼠标,以下那个事件是窗体不能响应的事件
A. MouseDown
B. MouseUP
C. Load
D. Click
[单项选择]下面程序运行时,单击窗体后,窗体上显示的结果是( )。
Private Sub Form_Click( )
Dim I As Integer
Dim sum As Long
sum=0
For I=10 To 16
If I Mod 3=0 OrI Mod 5=0 Then
sum=sum+I
End If
Next I
Print sum
End Sub
A. 10
B. 12
C. 37
D. 22
[单项选择]下面的程序运行时,单击窗体后,窗体上显示的结果是( )。
Private Sub Form_Click( )
Dim a(1 To 6)As Integer
Dim min1%,i%,j%,n%,t%,k%
a(1)=8:a(2)=6:a(3)=9:a(4)=3:a(5)=2:a(6)=7
n=6
For i=1 To n-1
min 1=i
For j=i+1 To n
If a(j)<a(min1)Then min1=j
Next j
t=a(i):a(i)=a(min1):a(min1)=t
Next i
For i=1 To n
Print a(i)
Next i
End Sub
A. 9 8 7 6 3 2
B. 2 3 6 7 8 9
C. 9 8 7 6 3
D. 2 3 6 7 8