vb常用控件 练习题(含答案)
1．下列控件中没有Caption属性的是________。
A）框架B）列表框C）复选框D）单选按钮
2．复选框的Value 属性为1 时，表示________。
A）复选框未被选中B）复选框被选中
C）复选框内有灰色的勾D）复选框操作有误
3．用来设置斜体字的属性是________。
A）FontItalic B）FontBold C）FontName D）FontSize
4．将数据项“China”添加到列表框List1中成为第二项应使用________语句。
A）List1.AddItem “China”,1 B）List1.AddItem “China ”, 2
C）List1.AddItem 1,“China”D）List1.AddItem 2,“China ”
5．引用列表框List1最后一个数据项，应使用________语句。
A）List1.List(List1.ListCount）B）List1.List(ListCount)
C）List1.List(List1.ListCount-1）D）List1.List(ListCount-1)
6．假如列表框List1有四个数据项，那么把数据项“China”添加到列表框的最后，应使用________语句。
A）List1.AddItem 3,“China ”
B）List1.AddItem “China ”, List1.ListCount-1
C）List1.AddItem “China ”, 3
D）List1.AddItem “China”，List1.ListCount
7．执行了下面的程序后，列表框中的数据项有________。
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
8．如果列表框List1中没有选定的项目，则执行
List1.RemoveItem List1.ListIndex 语句的结果是________。
A）移去第一项B）移去最后一项
C）移去最后加入列表中的一项D）以上都不对
9．如果列表框List1中只有一个项目被用户选定，则执行
Debug.Print List1.Selected(List1.ListIndex）语句的结果是________。
A）在Debug窗口输出被选定的项目的索引值
B）在Debug窗口输出True
C）在窗体上输出被选定的项目的索引值
D）在窗体上输出True
10．在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干城市的名称。但单击列表框中的某个城市名时，该城市名从列表框中消失，并在标签中显示出来。下列能正确实现上述操作的程序是______。
A）Private Sub List1_Click()
Label1.Caption=List1.ListIndex
List1.RemoveItem List1.Text
End Sub
B）Private Sub List1_Click()
https://www.wendangku.net/doc/c78804365.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.wendangku.net/doc/c78804365.html,=List1.Text
List1.RemoveItem List1.ListIndex
End Sub
11．下列说法中正确的是________。
A）通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上
B）在列表框中不能进行多项选择
C）在列表框中能够将项目按字母从大到小排序
D）框架也有Click和DblClick事件
12．为了防止用户随意将光标置于控件之上，应将进行________设置。
A）将控件的TabIndex属性设置为0
B）将控件的TabStop属性设置为True
C）将控件的TabStop属性设置为False
D）将控件的Enabled属性设置为False
13．滚动条产生Change事件是因为________值改变了。
A）SmallChange B）V alue
C）Max D）LargeChange
14．如果要每隔15s产生一个Timer事件，则Interval属性应设置为________。
A）15 B）900 C ）15000 D）150
15．列表框的________属性是数组。
A）List 和ListIndex B）List 和ListCount
C）List 和Selected D）List 和Sorted
16．用户在使用ActiveX控件之前，需要将他们加载到工具箱中，下面________操作可进行ActiveX控件的加载。
A）工程-部件…B）视图-工具箱
C）工具-选项…D）工程-引用
17．在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：
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"，则输出结果为________。A）1245 B）456789 C ）789456 D）0
18．在窗体上画一个列表框，然后编写如下两个事件过程：
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
运行上面的程序，然后单击窗体，列表框中所显示的项目为________。
A）ItemA与ItemB B）ItemB与ItemD
C）ItemD与ItemE D）ItemA与ItemC
19.假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是____。：
A）选择图片框，然后按Del键
B）执行语句Picture1.Picture=LoadPicture(“”)
C）执行语句Picture1.Picture=””
D）选择图片框，在属性窗口中选择Picture属性，然后按回车键
20.在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min 和Max属性分别为0和100，程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值。以下能实现上述操作的程序段是
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
21.如果只允许在列表框中每次只能选择一个列表项时,则应将其Multiselect属性设置为：_____。
A）0 B）1 C）2 D）3
22.要将一个组合框设置为简单组合框(Simple Combo),则应该将其Style属性设置为______。
A）0 B）1 C）2 D）3
答案：
填空：下列程序段是允许用户按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