vb常用控件--练习题(含答案).doc

《vb常用控件--练习题(含答案).doc》由会员分享，可在线阅读，更多相关《vb常用控件--练习题(含答案).doc（22页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、Four short words sum up what has lifted most successful individuals above the crowd: a little bit more.-author-datevb常用控件-练习题(含答案)11下列控件中没有Caption属性的是 _。 A）框架 B）列表框 C）复选框 D）单选按钮 2复选框的Value 属性为 1 时，表示 _。 A）复选框未被选中 B）复选框被选中 C）复选框内有灰色的勾 D）复选框操作有误 3用来设置斜体字的属性是 _。 A）FontItalic B）FontBold C）FontName D）Fon

2、tSize 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假如列表框L

3、ist1有四个数据项，那么把数据项“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.RemoveI

4、tem 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）在窗体上输出被选定的项目的索引值

5、 D）在窗体上输出True 10在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干城市的名称。但单击列表框中的某个城市名时，该城市名从列表框中消失，并在标签中显示出来。下列能正确实现上述操作的程序是_。A）Private Sub List1_Click() Label1.Caption=List1.ListIndex List1.RemoveItem List1.Text End SubB）Private Sub List1_Click() Label1.Name=List1.ListIndex List1.RemoveItem List1.Text End

6、 SubC）Private Sub List1_Click() Label1.Caption=List1.Text List1.RemoveItem List1.ListIndex End SubD）Private Sub List1_Click() Label1.Name=List1.Text List1.RemoveItem List1.ListIndex End Sub11下列说法中正确的是 _。 A）通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上 B）在列表框中不能进行多项选择 C）在列表框中能够将项目按字母从大到小排序 D）框架也有Click和DblClick事件 12为

7、了防止用户随意将光标置于控件之上，应将进行_设置。 A）将控件的TabIndex属性设置为0 B）将控件的TabStop属性设置为True C）将控件的TabStop属性设置为False D）将控件的Enabled属性设置为False 13滚动条产生Change事件是因为 _值改变了。 A）SmallChange B）Value C）Max D）LargeChange 14如果要每隔15s产生一个Timer事件，则Interval属性应设置为_。 A）15 B） 900 C ）15000 D）150 15列表框的 _属性是数组。 A）List 和 ListIndex B）List 和 List

8、Count C）List 和 Selected D）List 和 Sorted 16用户在使用ActiveX控件之前，需要将他们加载到工具箱中，下面_操作可进行ActiveX控件的加载。 A）工程-部件 B）视图-工具箱 C）工具-选项 D）工程-引用 17在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程： Private Sub Form_Load () List1.AddItem357 List1.AddItem246 List1.AddItem123 List1.AddItem456 Text1.Text= End SubPrivate Sub List1_ DblClick

9、( ) a =List1.Text Print a+Text1.TextEnd Sub程序运行后，在文本框中输入789，然后双击列表框中的456，则输出结果为_。A）1245 B） 456789 C ）789456 D）018在窗体上画一个列表框，然后编写如下两个事件过程：Private Sub Form_Click()List1.RemoveItem 1List1.RemoveItem 3List1.RemoveItem 2End SubPrivate Sub Form_Load()List1.AddItem ItemAList1.AddItem ItemBList1.AddItem lte

10、mCList1.AddItem ItemDList1.AddItem ItemEEnd Sub运行上面的程序，然后单击窗体，列表框中所显示的项目为_。A）ItemA与ItemB B）ItemB与ItemD C）ItemD与ItemE D）ItemA与ItemC19. 假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是_。：A）选择图片框，然后按Del键B）执行语句Picture1.Picture=LoadPicture(“ ”)C）执行语句Picture1.Picture=”D）选择图片框，在属性窗口中选择Picture属性，然后按回车键20. 在

11、窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100，程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值。以下能实现上述操作的程序段是A） Private Sub HScroll1_Change() Text1.Text = HScroll1.Value End SubB） Private Sub HScroll1_Click() Text1.Text = HScroll1.Value End SubC） Private Sub HScroll1_Change() Text1.Text = HScroll1.Caption

12、 End SubD） Private Sub HScroll1_ Dblclick () Text1.Text = HScroll1.Value End Sub21.如果只允许在列表框中每次只能选择一个列表项时,则应将其Multiselect属性设置为：_。A）0 B）1 C）2 D）322.要将一个组合框设置为简单组合框(Simple Combo),则应该将其Style属性设置为_。A）0 B）1 C）2 D）3答案：12345678910BBAACDDDBC11121314151617181920DDBCCABDBA2122AB填空：下列程序段是允许用户按Enter键将一个组合框(CboC

13、omputer)中没有的项目添加到组合框中。 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-