第九章控件综合试题
一、填空题
1．在图片框上放置的控件称为图片框的(子)对象，而窗体是图片框的(父)对象。2．窗体的“名称”(Name)属性只能在(属性窗口中)设置。
3．在程序中设置窗体Form1的Caption属性为"主窗体"，使用的赋值语句是(Form1.Caption="主窗体")。
4．当窗体的Enabled属性为(True)时，指定窗体响应事件。
5．窗体的Unload事件是在QueryUnload事件发生之(后)发生。
6．程序中，把当前窗体移动到屏幕左上角使用的方法为(Move0,0)。
7．在窗体Form1中坐标为(1600,800)的位置上输出字符串“Visual Basic 6.0”使用的语句为(Form1.Currentx=1600)、(Form1.Currenty=800)、和(Form1.Print "VisualBasic6.0")。
8．若使文本框有边框，需设置BorderStyle属性的值为(1)。
9．在程序运行期间，用户可以用文本框显示信息。文本框接收输入的内容的属性是 (Text)。
10．若使文本框内能够接受多行文本，则要设置Multiline属性的值为(True)。11．要把图形文件“C:\sample\diannt.jpg”装载到图片框Picture1上，使用的语句为(Picturel.Picture=LoadPicture("C:\sample\diannt.jpg"))。 12．若使图片框自动调整大小以适应装入的图形，则要设置Autosize属性的值为(True)。
13．除了在程序使用LoadPicture函数装载图形外，还可以在设计阶段通过修改(Picture)属性装载图形。
14．若程序中要把一些文本内容输出到图片框PictureBox，应使用(Print)方法。 15．当单选按钮OpdonButton的Value属性为(False)时，表示该单选按钮处于未选中状态。
16．若使命令按钮Command1重新生效，则使用的赋值语句为(Command1.Enabled=True)。
17．若使命令按钮不能接收和响应任何事件，可以设置Visible属性的值为(False)。
18．只有控件对象的Enabled和Visible属性值都为(True)时，该控件对象才能接受焦点。
19．Tab顺序是由建立控件时的(先后顺序)确定的。
20．设置框架Frame上的文本内容需要使用(Caption)属性。
21．在框架上可以设置一组相关控件，这些控件作为框架的(子)控件，它们具有总体的激活/屏蔽特性。
22．若屏蔽框架上的控件对象，则需设置(Enabled)属性的值为False。
23．列表框ListBox中项目的序号从(0)开始，到(Listcount-1)结束。
24．要显示列表框List1中序号为3项目内容，语句为(PrintList1.List(3))。25．向组合框Combo2添加序号为5，内容为“计算机学院”的项目，使用的语句为(Combo2.Addltem"计算机学院"，5)。
26．要删除组合框Combo1序号为3的项目，使用的语句为(Combo1.ReMoveltem 3)。
27．使用滚动条ScrollBar时，若要设置当用鼠标单击两个滚动箭头之间区域的滚动幅度，需要使用(LargeChange)属性。
28．若要设置水平或垂直滚动条的最小值，需要使用(Min)属性。
29．计时器Timer每经过一个由InterVal属性指定的时间间隔就会触发一次(Timer)事件。
30．若要使计时器每0.5钞钟触发一次Timer，事件，则要把InterVal属性值设置为(500)。
二、选择题
1．窗体标题栏的显示内容由窗体的(b)属性决定。
a)Name b)Caption C)BackColor d)Enabled
2．当窗体被装入内存时，系统将自动执行(a,b)事件过程。
a)Load b)Activate C)Unload d)QueryUnload
3．在标签框上显示的内容由(b)属性来实现。
a)Name b)Caption C)Text d)ForeColor
4．要使标题在标签框内居中显示，Alignment属性的取值应为(c)。
a)0 b)1 c)2 d)3
5．若使标签框根据所显示内容自动调整其大小，则可以通过设置( a)属性值为
True来实现。
a)AutoSize b)Alignment c)Enabled d)Visible
6．文本框没有(d)属性。
a)BackColor b)Enabled c)Visible d)CaptiOn
7．如果设置文本框最多可以接收的字符数，则可以使用(d)属性。
a)Length b)Multiline C)Max d)MaxLength
8．在文本框中设置垂直滚动条，要使ScrollBars的值为(c)。
a)0 b)1 c)2 d)3
9．在运行程序时，要使文本框获得焦点，则需使用(b)方法。
a)Change b)SetFocus C)GotFocus d)Move
10．下列控件中，没有AutoSize属性的是(b,d)。
a)标签 b)文本框 c)图片框 d)图像框
11．若把图片框Picture1中的图形清除，可以使用的语句是(b,c,d)。
a) Picture1.Del b) Picture1.Picture=LoadPicture("")
C) Picture1.Picture=LoadPicture() d) Picture1.Picture=Nothing 12．命令按钮上的文本内容由(b)属性来设置。
a)Text b)Caption c)Name d)Show
13．若将命令按钮设置为默认选择命令按钮，可以通过(c)属性来实现
a)Value b)Cancel C)Default d)Enabled
14．要使命令按钮失效，则可以设置(b)属性的值为False来实现。
a)Value b)Enabled c)Visible d)Cancel
15．若使命令按钮在屏幕不可见，则可以通过修改(c)属性实现。
a)Value b)Enabled c)Visible d)Cancel
16．当复选框Value属性值为(b)表示该复选框被选中。
a)0 b)1 c)2 d)3
17．改变控件的Tab顺序可以修改(d)属性值。
a)Visible b)Enabled c)TabStop d)Tablndex
18．下列控件中(d)不能接收GotFocus和LostFocus事件。
a)命令按钮 b)组合框 c)复选按钮 d)计时器
19．要使列表框中的项目垂直滚动，应设置Columns属性值为(a)。
a)0 b)1 c)2 d)3
20．若要得到列表框中项目的数目，可以访问(c)属性。
a)List b)Listlndex C)ListCount d)Text
21．设置列表框的选择方式，应使用(b)属性。
a)Columns b)MultiSelect C)Style d)List
22．若要清除列表框的所有项目内容，可以使用(c)方法。
a)Addltem b)ReMove C)Clear d)Print
23．删除列表框中的某一个项目，需要使用(d)方法。
a)Clear b)ReMove c)Move d)ReMoveltem
24．在组合框中选择某一项目内容，可以通过(d)属性获得。
a)List b)Listlndex C)ListCount d)Text
25．若要获得滚动条的当前位置，可以通过访问(a)属性实现。
a)Value b)Max C)Min d)LargeChange
26．当用鼠标拖动滚动块时触发(b,c)事件。
a)Move b)Change C)Scroll d)GotFocus
27．设置计时器的时间间隔可以通过(d)属性来实现。
a)Value b)Text C)Max d)InterVal
28．暂时关闭计时器，需设置(b)属性。
a)Visible b)Enabled c)Lock d)Cancel
29．下列控件中没有Caption属性的是 _B_______。
A）框架 B）列表框 C）复选框 D）单选按钮
30．复选框的Value 属性为 1 时，表示 ___B_____。
A）复选框未被选中 B）复选框被选中 C）复选框内有灰色的勾 D）复选框操作有误
31．用来设置斜体字的属性是 ___A_____。
A）FontItalic B）FontBold C）FontName D）FontSize 32．将数据项“China”添加到列表框List1中成为第二项应使用 __A______语句。
A）List1.AddItem “China”,1 B）List1.AddItem “ China ”, 2 C）List1.AddItem 1,“China” D）List1.AddItem 2,“ China ”
33．引用列表框List1最后一个数据项，应使用 _C_______语句。
A）List1.List(List1.ListCount） B）List1.List(ListCount)
C）List1.List(List1.ListCount-1） D）List1.List(ListCount-1) 34．假如列表框List1有四个数据项，那么把数据项“China”添加到列表框的最后，应使用 _____D___语句。
A）List1.AddItem 3,“ China ” B）List1.AddItem “ China ”, List1.ListCount-1
C）List1.AddItem “China ”, 3 D）List1.AddItem “China”，List1.ListCount
35．执行了下面的程序后，列表框中的数据项有______D__。
Private Sub Form_Click()
For i = 1 to 6
List1.AddItem i
Next i
For i = 1 to 3
List1.RemoveItem i
Next i
End Sub
A）1，5，6 B）2，4， 6 C ）4，5，6 D）1，3，5
36．如果列表框List1中没有选定的项目，则执行
List1.RemoveItem List1.ListIndex 语句的结果是__D_____。
A）移去第一项 B移去最后一项 C移去最后加入列表中的一项 D以上都不对 (出错)
37．如果列表框List1中只有一个项目被用户选定，则执行（书上无此属性）Debug.Print List1.Selected(List1.ListIndex）语句的结果是_____B___。A）在Debug窗口输出被选定的项目的索引值 B）在Debug窗口输出True C）在窗体上输出被选定的项目的索引值 D）在窗体上输出True
38．在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干城市的名称。但单击列表框中的某个城市名时，该城市名从列表框中消失，并在标签中显示出来。下列能正确实现上述操作的程序是_C_____。
A）Private Sub List1_Click()
Label1.Caption=List1.ListIndex
List1.RemoveItem List1.Text
End Sub
B）Private Sub List1_Click()
https://www.doczj.com/doc/8d1619898.html,=List1.ListIndex
List1.RemoveItem List1.Text
End Sub
C）Private Sub List1_Click()
Label1.Caption=List1.Text
List1.RemoveItem List1.ListIndex
End Sub
D）Private Sub List1_Click()
https://www.doczj.com/doc/8d1619898.html,=List1.Text
List1.RemoveItem List1.ListIndex
End Sub
39．下列说法中正确的是 ___D_____。
A）通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上
B）在列表框中不能进行多项选择
C）在列表框中能够将项目按字母从大到小排序 D）框架也有Click和DblClick 事件
40．为了防止用户随意将光标置于控件之上，应将进行___D_____设置。
A）将控件的TabIndex属性设置为0 B）将控件的TabStop属性设置为True C）将控件的TabStop属性设置为False D）将控件的Enabled属性设置为False 41．滚动条产生Change事件是因为 ___B_____值改变了。
A）SmallChange B）Value C）Max D）LargeChange
42．如果要每隔15s产生一个Timer事件，则Interval属性应设置为__C______。A）15 B） 900 C ）15000 D）150
43．列表框的 ___C_____属性是数组。
A）List 和 ListIndex B）List 和 ListCount C）List 和 Selected D）List 和 Sorted
44．用户在使用ActiveX控件之前，需要将他们加载到工具箱中，下面____A____操作可进行ActiveX控件的加载。
A）工程-部件… B）视图-工具箱 C）工具-选项… D）工程-引用45．在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程： Private Sub Form_Load ()
List1.AddItem"357"
List1.AddItem"246"
List1.AddItem"123"
List1.AddItem"456"
Text1.Text=""
End Sub
Private Sub List1_ DblClick ( )
a =List1.Text
Print a+Text1.Text
End Sub
程序运行后，在文本框中输入"789"，然后双击列表框中的"456"，则输出结果为____B____。
A）1245 B） 456789 C ）789456 D）0
46．在窗体上画一个列表框，然后编写如下两个事件过程：
Private Sub Form_Click()
List1.RemoveItem 1
List1.RemoveItem 3
List1.RemoveItem 2
End Sub
Private Sub Form_Load()
List1.AddItem "ItemA"
List1.AddItem "ItemB"
List1.AddItem "ltemC"
List1.AddItem "ItemD"
List1.AddItem "ItemE"
End Sub
运行上面的程序，然后单击窗体，列表框中所显示的项目为___D_____。
A）ItemA与ItemB B）ItemB与ItemD C）ItemD与ItemE D）ItemA 与ItemC
47. 在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100，程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值。以下能实现上述操作的程序段是 A A） Private Sub HScroll1_Change()
Text1.Text = HScroll1.Value
End Sub
B） Private Sub HScroll1_Click()
Text1.Text = HScroll1.Value
End Sub
C） Private Sub HScroll1_Change()
Text1.Text = HScroll1.Caption
End Sub
D） Private Sub HScroll1_ Dblclick ()
Text1.Text = HScroll1.Value
End Sub
48.如果只允许在列表框中每次只能选择一个列表项时,则应将其Multiselect 属性设置为：____A_。
A）0 B）1 C）2 D）3 49.要将一个组合框设置为简单组合框(Simple Combo),则应该将其Style属性设置为B___。
A）0 B）1 C）2 D）3 50．设Text1为某一文本框名，下列程序段的输出结果是什么?结果是：defgh。
Text1.Text="abcdefghijk"
Text1.selstart=3
Text1.sellength=5
PrintText1.SelText
填空：下列程序段是允许用户按Enter键将一个组合框(CboComputer)中没有的项目添加到组合框中。
Sub CboComputer_Keypress(KeyAscii As Integer)
Dim flag As Boolean
If KeyAscii = 13 Then
flag = False
For i = 0 To CboComputer.ListCount – 1
If 【1】 Then
flag = True
Exit for
End If
Next i
If 【2】 Then
【3】
Else
MsgBox(“组合框中已有该项目！”)
End If
End If
End Sub
【1】CboComputer.Text = CboComputer.List(i) 【2】Not flag 或
flag=false
【3】CboComputer.AddItem CboComputer.Text