更多"窗体上有一个名称为Option1的单选按钮数组，程序运行时，当单击某个"的相关试题:
[单项选择]窗体上有一个名称为Option1的单选按钮控件。当程序运行，并单击某个单选按钮时，会调用下面的事件过程：
Private Sub Option1_Click(Index As Integer)
…
End Sub
下面关于此过程的参数Index的叙述中正确的是( )
A. Index为1表示单选按钮被选中，为0表示未选中
B. Index的值可正可负
C. Index的值用来区分哪个单选按钮被选中
D. Index表示数组中单选按钮的数量
[填空题]在窗体上有一个文本框控件，名称为Text1。同时，窗体加载时设置其计时器间隔为1秒、计时器触发事件过程则实现在Text1文本框中动态显示当前日期和时间。请补充完整。
Private Sub Form_Load（ ）
Me.TimerInterval=1000
End Sub
Private Sub [12]
Me!text1=Now（ ）
End Sub
[单项选择]窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮。要求程序运行时，单击命令按钮，就可以把文本框中的内容写到文件out.txt中，每次写入的内容附加到文件原有内容之后。下面能够实现上述功能的程序是
A. Private Sub Command1_Click()
B. Private Sub Command1_Click()
C. Private Sub Command1_Click()
D. Private Sub Command1_Click()
[单项选择]窗体上有一个名称为VScroll1的垂直滚动条，要求程序运行时，滚动块的初始位置在最下端，应该使VScroll1. Value的值等于( )。
A. VScroll1. LargeChange
B. VSeroll1. SmallChange
C. VScroll1. Max
D. VScroll1. Min
[填空题]设窗体上有一个名称为Lable1的标签。程序运行时，单击鼠标左键，再移动鼠标，鼠标的位置坐标会实时地显示在Lable1标签中：单击鼠标右键则停止实时显示，并将标签中内容清除。下面的程序可实现这一功能，请填空。
Dim Down As Boolean
Private Sub Form _MouseDown(Button As Integer，Shift As Integer，x As Single，Y As Single)
Select Case （ 8 ）
Case 1
Down=True
Case 2
Down=False
End Select
End Sub
Private Sub Form _MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single)
If （ 9 ）
（ 10 ） =”X=”& X &” Y=”& Y
Else
Label1.Caption=””
End if
Sub
[单项选择]
窗体上有一名称为Command1的命令按钮，其事件过程如下：
Private Sub Command1_Click( )
Dim i As Integer,j As Integer , k As Integer
Dim s As Double
s=0 ; i=1 ; j=0 ; k=-1
Do While i<6
s=s+k*（j/i）
i=i+1
j=j+1
k=-k
Loop
Print s
End Sub
以上程序所计算的表达式是（）。
A. 1/2-2/3+3/4-4/5
B. -1/2+2/3-3/4+4/5
C. 1-1/2+2/3-3/4+4/5
D. -1+1/2-2/3+3/4-4/5
[单项选择]下面程序运行时，单击窗体后，窗体上显示的结果是( )。
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
[填空题]窗体上有List1、List2两个列表框，程序运行时，在两个列表框中分别选中1个项目，如图a所示，单击名称为Command1的“交换”按钮，则把选中的项目互换，互换后的位置不限，如图b所示。下面的程序可实现这一功能，请填空。
Private Sub Command1_Click（ ）
If List1.Text=”” or List2.Text=”” Then
MsgBox”请选择交换的物品！”
Else
List1.AddItem List2.Text
List2.RemoveItem （ 11 ）
（ 12 ）
List1.RemoveItem List1.ListIndex
End If
End Sub
[单项选择]当程序运行时，在窗体上单击鼠标，以下那个事件是窗体不能响应的事件
A. MouseDown
B. MouseUP
C. Load
D. Click
[单项选择]以下程序运行时，单击窗体后，在窗体上输出的结果是 ______。
Private SubForm_Click（ ）
Dim a As Integer，b As Integer
a=10 ：b=20
Call ff(a，B)
Print a，b
End Sub
Private Sub ff(x As Integer，y As Integer)
x=x+y
y=x+y
End Sub
A. 30 50
B. 30 30
C. 20 20
D. 10 20
[单项选择]当程序运行时，在窗体上单击鼠标，在以下事件中，窗体不能响应的是( )。
A. MouseDOWP
B. MouseUP
C. Load
D. Click
[填空题]在一个窗体上有两个命令按钮，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
