1．以下选项中，不是 VB 6．0控件的是＿D 。 A）单选按钮 B）命令按钮 C）滚动条 D）窗体
2．以下 VB 6．0控件中，有 Caption属性的是＿D 。 A）组合框 B）列表框 C）计时器 D）单选按钮 3不能作为容器使用的对象是＿C 。 A）Picture B）Form C）Image D） Frame 4能作为容器使用的对象是＿A 。 A）图片框 B）图像框 C）标签框 D）文本框
5．在程序运行中，要想使可操作的按钮变成看得见但不可操作，则应设置为False的属性是＿B 。
A）Visable B） Enabled C） Default D）Cancled
6．在程序运行中，要想使可操作的按钮变成看不见，则应设置为False的属性是＿A 。
A） Visable B） Enabled C）Default D）Cancled
7．若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是＿C 。 A）Enabled B）Cancel C）Defaul D）Value
8能触发滚动条Scroll事件的操作是 A 。 A）拖动滚动条中滑块 B）单击滚动条中滑块
C）单击滚动条两端箭头 D）单击箭头与滑块之间的滚动条 9．命令按钮不能响应的事件是 A 。 A）DblClick B）Click C）MouseDown D）Mouseup
10．若要设置标签框的背景颜色，使用的属性是 B 。 A） ForeColor B） BackColor
C） FontBold D） Color 11．使控件能自动按图形大小而改变的控件是 a 。 A）图像框 B）图片框 C）文本框 D）框架
12．下面选项中，不能将图像装入图片框和图像框的方法是 A 。
11
A）在界面设计时，手工在图片框和图像框中绘制图形 B）在界面设计时，通过Picture属性装入 C）在界面设计时，利用剪贴板把图像粘贴上
D）在程序运行期间，用LoadPicture函数把图形文件装入 13．下面选项中，不能用于列表框控件的方法是 D 。 A） AddItem B） RemoveItem C）Clear D）Cls
14．下面选项中，不能使控件得到焦点的操作是 D 。 A）在程序运行期间，用鼠标单击对象
B）在程序运行期间，用快捷键选择对象 C）在程序运行期间，按Tab键
D）在程序运行期间，按回车键
15．计时器控件，如果希望每秒产生10个事件，则要将Interval属性的值设置为 A 。 A） 100 B） 200 C）300 D）400 二、填空题
1．列表框的FOntBold属性的类型是 逻辑类型或布尔类型 。 2．图像框控件使用系统资源比图片框 少 。
3．删除列表框中的所有项目使用的方法是＿Clear方法 。 4．从列表框中删除项目使用的方法是 RrmovItem方法 。 5．向列表框添加项目使用的方法是 AddItem方法 。
6．在命令按钮释放鼠标按钮时，所触发的事件称为 MouseUp事件 。 7．工具箱中的图标是——控件。
8文本框能返回按键的ASCII码值的事件是 KeyPress事件 。
第六章练习题
一、选择题 1．下列程序
Private Sub Form_Click（） For i＝ 1 To 3
For j＝ 5 To 1 Step －l Print i*j Next j Next i End Sub
运行时，执行 Print i*j的次数是＿C 。
A） 13 B） 14
12
C） 15 D） 16 2下面程序运行的输出结果是 D 。 Private Sub Form_Click（） X＝ 3： y＝ 0： Z＝ 0 If X＝y＋Z Then Print ”＊＊＊＊” Else
Print ” ＃＃＃＃” End If End Sub
A）有语法错误，若设置了编辑时自动检查语法，编辑时表现出错误 B）输出＊＊＊＊
C）编辑时语法检查查不出错误，但不能运行 D）输出＃＃＃＃
3下面的程序运行时，若从键盘输入3和4, 则输出为＿B 。 Private Sub Form_Click（）
a=Val（InputBoX（”请输入a”）） b=Val（InputBoX（”请输入b”）） c＝a
If b＞c Then c=b c＝c＊c Print c End Sub
A）14 B） 16 C）18 D）20
4下面的程序执行时，若从键盘输入5，则输出为＿A 。 Private Sub Form_Click（）
X=Val（InputBoX（”请输入X”）） For i=1 To 20 Step 2 X＝X＋i＼5 Next i Print X End Sub
A）21 B）22 C）23 D）24 5．下列程序
13
Private Sub Form_Click（） For i=1 To 10 Step 2 For j=1 TO 5 Prrnt i*j； Next j Prrnt Next i End Sub
该程序运行时输出的行数是＿A 。 A）5 B）25 C）30 D）50 6下面程序运行的输出结果是、 A 。 Private Sub Form_Click（）
X=100： a＝10： b＝20： ok1=True： ok2=False If a＜b Then If b＜＞15Then If Not ok1 Then x＝1 Else
If ok2 Then x=10 x＝-1 End If End If End If Print x End Sub
A）－1 B） 0
C） 1 D）不确定的值
7．下面程序执行时，输入4和2, 输出是___C _。 Option Explicit
Private Sub Command1_Click（）
Dim m As Integer， n As Integer Dim a， b， r
m＝InputBox（”请输入第一个正整数：”） n＝InputBox（”请输入第二个正整数：”） a = m: b = n: r = a Mod b
14
Do While r＜＞ 0 a＝b b＝r r＝ a Mod b Loop Print b End Sub
A） 0 B） l C） 2 D） 3 8．下列程序
Private Sub Fom_Click（） b =1 a =1
DO While b<100 a=2*a
If a＞ 6 Then Exit Do b＝a^2＋b^2 Loop Print b End Sub
运行后输出的结果是 D 。 A） 5 B） 17 C）21 D）41 9．下列程序
Private sub form_ick（） S= 0 N=5 For i=1 to n s＝s＋i Next i Print s End Sub
运行后输出的结果是 A 。
A）15 B）17 C） 19 D）21 10．有如下程序
15