vb常用控件__练习题(含答案)

1．下列控件中没有Caption属性的是________。A）框架B）列表框C）复选框D）单选按钮2．复选框的Value属性为1时，表示________。A）复选框未被选中B）复选框被选中C）复选框内有灰色的勾D）复选框操作有误3．用来设置斜体字的属性是________。A）FontItalicB）FontBoldC）FontNameD）FontSize4．将数据项“China”添加到列表框List1中成为第二项应使用________语句。A）List1.AddItem“China”,1B）List1.AddItem“China”,2C）List1.AddItem1,“China”D）List1.AddItem2,“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.AddItem3,“China”B）List1.AddItem“China”,List1.ListCount-1C）List1.AddItem“China”,3D）List1.AddItem“China”，List1.ListCount7．执行了下面的程序后，列表框中的数据项有________。PrivateSubForm_Click()Fori=1to6List1.AddItemiNextiFori=1to3List1.RemoveItemiNextiEndSubA）1，5，6B）2，4，6C）4，5，6D）1，3，58．如果列表框List1中没有选定的项目，则执行List1.RemoveItemList1.ListIndex语句的结果是________。A）移去第一项B）移去最后一项C）移去最后加入列表中的一项D）以上都不对9．如果列表框List1中只有一个项目被用户选定，则执行Debug.PrintList1.Selected(List1.ListIndex）语句的结果是________。A）在Debug窗口输出被选定的项目的索引值B）在Debug窗口输出TrueC）在窗体上输出被选定的项目的索引值D）在窗体上输出True10．在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干城市的名称。但单击列表框中的某个城市名时，该城市名从列表框中消失，并在标签中显示出来。下列能正确实现上述操作的程序是______。A）PrivateSubList1_Click()Label1.Caption=List1.ListIndexList1.RemoveItemList1.TextEndSubB）PrivateSubList1_Click()Label1.Name=List1.ListIndexList1.RemoveItemList1.TextEndSubC）PrivateSubList1_Click()Label1.Caption=List1.TextList1.RemoveItemList1.ListIndexEndSubD）PrivateSubList1_Click()Label1.Name=List1.TextList1.RemoveItemList1.ListIndexEndSub11．下列说法中正确的是________。A）通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上B）在列表框中不能进行多项选择C）在列表框中能够将项目按字母从大到小排序D）框架也有Click和DblClick事件12．为了防止用户随意将光标置于控件之上，应将进行________设置。A）将控件的TabIndex属性设置为0B）将控件的TabStop属性设置为TrueC）将控件的TabStop属性设置为FalseD）将控件的Enabled属性设置为False13．滚动条产生Change事件是因为________值改变了。A）SmallChangeB）ValueC）MaxD）LargeChange14．如果要每隔15s产生一个Timer事件，则Interval属性应设置为________。A）15B）900C）15000D）15015．列表框的________属性是数组。A）List和ListIndexB）List和ListCountC）List和SelectedD）List和Sorted16．用户在使用ActiveX控件之前，需要将他们加载到工具箱中，下面________操作可进行ActiveX控件的加载。A）工程-部件…B）视图-工具箱C）工具-选项…D）工程-引用17．在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：PrivateSubForm_Load()List1.AddItem357List1.AddItem246List1.AddItem123List1.AddItem456Text1.Text=EndSubPrivateSubList1_DblClick()a=List1.TextPrinta+Text1.TextEndSub程序运行后，在文本框中输入789，然后双击列表框中的456，则输出结果为________。A）1245B）456789C）789456D）018．在窗体上画一个列表框，然后编写如下两个事件过程：PrivateSubForm_Click()List1.RemoveItem1List1.RemoveItem3List1.RemoveItem2EndSubPrivateSubForm_Load()List1.AddItemItemAList1.AddItemItemBList1.AddItemltemCList1.AddItemItemDList1.AddItemItemEEndSub运行上面的程序，然后单击窗体，列表框中所显示的项目为________。A）ItemA与ItemBB）ItemB与ItemDC）ItemD与ItemED）ItemA与ItemC19.假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是____。：A）选择图片框，然后按Del键B）执行语句Picture1.Picture=LoadPicture(“”)C）执行语句Picture1.Picture=””D）选择图片框，在属性窗口中选择Picture属性，然后按回车键20.在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100，程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值。以下能实现上述操作的程序段是A）PrivateSubHScroll1_Change()Text1.Text=HScroll1.ValueEndSubB）PrivateSubHScroll1_Click()Text1.Text=HScroll1.ValueEndSubC）PrivateSubHScroll1_Change()Text1.Text=HScroll1.CaptionEndSubD）PrivateSubHScroll1_Dblclick()Text1.Text=HScroll1.ValueEndSub21.如果只允许在列表框中每次只能选择一个列表项时,则应将其Multiselect属性设置为：_____。A）0B）1C）2D）322.要将一个组合框设置为简单组合框(SimpleCombo),则应该将其Style属性设置为______。A）0B）1C）2D）3答案：12345678910BBAACDDDBC11121314151617181920DDBCCABDBA2122AB填空：下列程序段是允许用户按Enter键将一个组合框(CboComputer)中没有的项目添加到组合框中。SubCboComputer_Keypress(KeyAsciiAsInteger)DimflagAsBooleanIfKeyAscii=13Thenflag=FalseFori=0ToCboComputer.ListCount–1If【1】Thenflag=TrueExitforEndIfNextiIf【2】Then【3】ElseMsgBox(“组合框中已有该项目！”)EndIfEndIfEndSub【1】CboComputer.Text=CboComputer.List(i)【2】Notflag或flag=false【3】CboComputer.AddItemCboComputer.Text