(11) 以下能够触发文本框Change事件的操作是
A) 文本框失去焦点 B) 文本框获得焦点
C) 设置文本框的焦点 D) 改变文本框的内容
(12) 在窗体上有一个文本框控件，名称为TxtTime：一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一次当前的时间。程序为：
Private Sub Timer1_ ()
TxtTime.text=Time
End Sub
在下划线上应填入的内容是
A) Enabled B) Visible C) Interval D) Timer
(13) 在窗体上画两个单选按钮，名称分别为Option1、Option2，标题分别为“宋体”和“黑体”；一个复选框，名称为Check1,标题为“粗体”；一个文本框，名称为Text1，Text属性为“改变文字字体”。要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中(窗体外观如下图) ，则能够实现上述要求的语句序列是
A) Option1.value=True B) Option1.Value=True
Check1.Value=False Check1.Value=True
C) Option2.Value=False D) Option1.Value=True
Check1.Value=True Check1.Value=1
(14) 为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为True，这个属性是
A) Value B) Default C) Cancel D) Enabled
(15) 在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：
Private Sub Command1_Click()
For I=1 To 4
For J=0 To 1
Print Chr$(65+I);
Next J
Print
Next I
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A) BB B) A C) B D) AA
CC BB CC BBB
DDDD CCC DDD CCCC
EEEEE DDDD EEEE DDDDD
(16) 图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是
A) Autosize B) Stretch
C) AutoRedraw D) Appearance
(17) 在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim x As Integer,n As Integer
x=1
n=0
Do While x<20
x=x*3
n=n+1
Loop
Text1.Text=Str(x)
Text2.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别是
A) 15和1 B) 27和3 C) 195和3 D) 600和4
(18) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim i As Integer,n As Integer
For I=0 To 50
i=i+3
n=n+1
If i>10 Then xit for
Next
Text1.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是
A) 2 B) 3 D) 4 D) 5
(19) 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim array1(10,10) As Integer
Dim i,j As Integer
For i=1 To 3
For j=2 To 4
array1(i,j)=i+j
Next j
Next I
Text1.Text=array1(2,3)+array1(3,4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是
A) 12 B) 13 C) 14 D) 15
(20) 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click()
Dim i As Integer,j As Integer
Dim a(10,10)As Integer
For i=1 To 3
For j=1 To 3
a(i,j)=(i-1)*3+j
Print a(i,j);
Next j
Print
Next j
End Sub
程序运行后，单击命令按钮，窗体上显示的是
A) 123 B) 234 C) 147 D) 123
246 345 258 456
369 456 369 789
责任编辑：cyth
