国家二级VB机试(常用标准控件)模拟试卷7(题后含答案及解析)

国家二级VB机试（常用标准控件）模拟试卷7(题后含答案及解析)题型有：1.选择题选择题1．为了使标签Label1透明且不具有边框，以下正确的属性设置是A．Label1．BackStyle=0Lahel1．BorderStyh=lB．Label1．BackStyle=0Label1．BorderStyle=0C．Label1．BackStyle=1Label1．BorderStyle=1D．Label1．BackStyle=1Label1．BorderStyle=0正确答案：B解析：BackStyle属性用于设置标签的背景样式，有两种值可选：1，表示不透明。BorderStyle属性用来设置标签的边框类型，有两种值可选：0，代表标签无边框；1，代表标签有边框。知识模块：常用标准控件0，表示透明；2．下列不包含滚动条的控件是A．列表框B．标签C．组合框D．文本框正确答案：B解析：标签控件不包含滚动条。知识模块：常用标准控件3．窗体上有SubForm_Load()Text1．Text=““Text2．Text=““EndSubPrivateSubCommand1_Click()PrintText1．Text+Text2．TextEndSub程序运行后，在Text1和Text2中依次输入100和200，并单击命令按钮Command1，则输出结果为2个名称分别为Text1和Text2的文本框。编写如下程序：PrivateA．100B．200C．300D．100200正确答案：D解析：单击命令按钮Command1，触发)事件，Print语Command1_Click(句连续输出文本框Text1和Text2的text值。选D。知识模块：常用标准控件4．窗体上有其Text属性值为“VBProgramming”。运行程序后，选中过程：PrivateSubCommand1_Click()Text1SelTaxt=“C++”Endhub则文本框中显示的内容为—个名称为Command1的命令按钮，一个名称为Text1的文本框，其中的“VB”，并执行如下事件

A．VBB．VBProgrammingC．文本框被清空D．C++Programming正确答案：D解析：文本框SelText属性返回或设置包含当前所选择文本的字符串；如果(““)。由题意知，选中“VB”，返回“C++”，“C++Programming”。知没有字符被选中，则为零长度字符串所以结果为识模块：常用标准控件5．为A．选中B．选中C．双击该文本框，D．单击该文本框，使文本框具有初始值“VB”，在设把Text属性的值改为把Caption属性的窗口中输入“VB”直接输入“VB”计阶段正确的操作是“VB”“VB”该文本框，在属性窗口中该文本框，在属性窗口中值改为在弹出的在该文本框中正确答案：A解析：根据题意，选中该文本框，在属性窗口中把Text属性的值改为“VB”。知识模块：常用标准控件6．在设计阶段，假定在图片框Picture1中装入了一个图形，为了删除该图应采用的正确操作是A．选择图片框，然后按Del键片框控件，B．执行语句Picture1．Picture=LoadPicture(““)C．执行语句Picmre1．Picture=““D．选择图片框，在属性窗口中选择Picture属性，然后按回车键正确答案：A解析：删除图片框控件，先选择图片框，然后按Del键。知识模块：常用标准控件7．设窗体上有一个Picture1图片框，要求在图片框中的指定位置(坐标为(500，300))输出”OK”，下面可以实现这一功能的件事过程是A．PrivateSubForm_Click(OK”EndSubB)Picture1．CurrentX=500Picture1．CurrentY=300Picture1．Pnnt”．PrivateSubForm_Click()Picture1．Left=500Picture1．Top=300Picture1．Print”OK”EndSubC．PrivateSubForm_Click()Picture1．CurrentX=500Picture1．CurrentY=300Print”OK”EndSubD．PrivateSubForm_Click()Pieture1．kft=500Picture1．Top=300Print”OK”EndSub正确答案：A

解析：VB中，窗体和图片框具有CurrentX、CurrentY属性，属性来设置当前绘图点。VB中在图片框特定位置显示文本：Picture1．CurrentX=X座标设置当前X方向座标Picture1．CurrentY=Y座标设置当前Y方向座标Picture1．Print文本内容”在当前位置输出文本。知识模块：经常用这两个常用标准控件8．已知图片框Picturel中已装入一个图形，为了在不删除图片框的前提下，清除该图形，应采取的正确操作是A．在设计阶段选择图片框Picture1，并按Delete键B．在运行期间执行语句Picture1．Picture=LoadPicture(““)C．在运行期间执行语句Picture1．Picture=““D．在设计阶段先选中图片框Picture1，再在属性窗口中选择Picture属性，最后按Enter键正确答案：B解析：如果图片框已装入了一个图形，在不删除图片框的前提下要想清除该图形有两种方法。一是在设计阶段在图片框的属性窗口中删除图片框控件Picture属性行后边的”(Bitmap)”，另一种方法是在程序运行阶段使用LoadPicmre(““)装这样也能清除图形。知识模块：一个空文件，常用标准控件9．以下不能用形状控件画出的图形是A．矩形B．圆形C．椭圆D．扇形正确答案：D解析：形状控件(Shape)提供了显示一些规则图状控件Shape属性值，可显示6种图0-矩形、1-正方形、2-椭圆、3-圆、4-圆角矩形、5-圆角正方形。知识模块：形的简易方法，通过设置形形：常用标准控件10．以下关于命令按钮的叙述中正确的是A．命令按钮上可以显示图片B．命令按钮能够分别响应单击、双击事件C．程序运行时，不能改变命令按钮上的文字D．若命令按钮的Cance1属性设为True，焦点在其他控件上时，按下回车键与单击该按钮的效果相同正确答案：A解析：按钮控件的Picture属性可以给命令按钮指定一个图形。按钮的标题由属性Caption设置，可以在程序中动态指定。当一个命令按钮的Cance1属性被设置为True时，按ESC键与单击该命令按钮的作用相同。命令按钮能够响应单击事件，但不能响应双击事件。知识模块：常用标准控件11．命令按钮不支持的事件为

A．ClickB．DblClickC．GotFocusD．MouseMove正确答案：B解析：命令按钮支持的事件有Click，GotFocus和MouseMove，不支持DblClick事件，故选B。知识模块：常用标准控件12．为了使一个复选框被禁用(灰色显示)，应把它的Value属性设置为A．0B．1C．2D．False正确答案：C解析：复选框的Value属性可以设置为0、1或2。0表示没有选择该复选框，1表示选2表示(灰色显示)。知识模块：常用标准中该复选框，该复选框被禁用控件13．判断复选框是否被选中的属性为A．SelectedB．CheckedC．ValueD．Index正确答案：C解析：复选框组常用于提供多重选择，Value属性值决定每个复选框的选中状态：0为未选、1为选中、2为不可用(以灰色呈现)。选C。知识模块：常用标准控件14．如果在列表框List1中没有选中项目，则List1．ListIndex的值为A．-1B．0C．1D．2正确答案：A解析：列表框List1中没有选中项目，则List1．Listlndex的值为-1。知识模块：常用标准控件15．设窗体上有一个名称为List1的列表框和一个名称为Check1的复选框数组(下标从0开始)。程序运行时，单击某个复选框，如果列表框中没有该复选框的标题，则把该复选框的标题添加到列表框中，否则从列表框中把该复选框标

题删除。PrivateSubCheck1_Click(IndexAsInteger)Fork=0ToList1．ListCount-1IfCheck1(Index)．Caption=List1．List(k)ThenExitForEndIfNextkIfk＜List1．ListCountThenList1．RemoveItemkElseList1．AddItem______________EndIfEndSub为使上面程序可以实现该功能，程序代码中横线上应该填入的代码是A．kB．Check1．CaptionC．Check1(k)D．Check1(Index)．Caption正确答案：D解析：题干给出的是没有该复选框的标题时，把该复选框的标题添加到列表框中。List1．AddItem可以为列表框添加新项。需要添加的项要根据索引添加。选D。知识模块：常用标准控件16．窗体上有1个名称为Label1的标签；1个名称为List1，且含有若干表项的列表框。为了使得单击List1中某个表项时，在Label1中相应地显示该表项，应使用的程序代码为A．PrivateSubList1_Click()Label1．Caption=List1．IndexEndSubB．PrivateSubList1_Click()Label1．Caption=List1．ListCountEndSubC．PrivateSubList1_Click()Label1．Caption=List1．TextEndSubD．PrivateSubList1_Click()Label1．Caption=List1．SelectedEndSub正确答案：C解析：单击List1中某个表项时触发List1_Click()事件。标签的Caption属性用于设置标签中所要显示的内容。列表框的text属性为List1中表项的正文，通过这个属性可以得到被选中的项目。因此选C。知识模块：常用标准控件17．窗体上有一个名为List1的列表框和一个名为Command1的命令按钮，并有下面的事件过程：PrivateSubCommand1_Click()n％=List1．ListIndexIfn＞0Thench$=List1．List(n)List1．List(n)=List1．List(n-1)List1．List(n-1)=chEndIfEndSub程序运行时，选中1个列表项，然后单击Command1按钮，则产生的A．若选中的是不最前面的列表项，则选中的列表项与它前一个列表项互换位置B．选中的列表项与它前面的列表项互换位置C．若选中的是不最后面的列表项，则选中的列表项与它后一个列表项互换位置D．选中的列表项与它后面的列表项互换位置正确答案：A解析：当单击Command1按钮后，List1列表框中被选中项的索引值赋给变量n，如果被选中项是不空也不是第1项时，将选中项的项目文字赋值给变量ch，用选中项的上面一项的文字替换选中项的文字，再把变量ch中的文字替换选中项上面一项的文字，简单说就是选中项和它上面一项的文字交换。因此A选项

的说法正确。知识模块：常用标准控件18．通过一个属性可以获得文件列表框中当前被选中文件的文件名，这个属性是A．DirB．PathC．DriveD．FileName正确答案：D解析：FileName属性用来设置或返回程序运行过程中当前选中的文件名称。Path属性用来设置或返回程序运行过程中当前选中的文件的路径。知识模块：常用标准控件19．若要清除列表框控件中的所有列表项，应该使用的方法是A．BemovehemB．ClearC．DeleteD．Refresh正确答案：B解析：Clear方法用来清除列表框中的全部内容，格式为：列表框．Clear。知识模块：常用标准控件20．窗体上有一个名称为Combo1的组合框，为了引用Combo1中最后一个列表项，应使用的表达式是A．Combo1．List(ListCount)B．Combo1．List(Combo1．ListCount-1)C．Combo1．List(ListCount-1)D．Combo1．List(Combo1．ListCount)正确答案：B解析：组合框中的List属性用来列出表项的内容。该属性保存了列表框中所有数组的值，可以通过下标访问数组中的值(下标从0开始)，其格式为：[组合框．]List(下标)，特别注意的是“下标”相当于索引值，指示着表项中某一项表第1项的0，第2项为0开始，最后一项的ListCount-1。知识模块：常用标准控件中内容的位置，索引值为1，依次类推，这个参数非常重要不可省略。组合框中列表项的排列是从索引值应为21．下列关于水平滚动条的叙述中，错误的是示单击滚动条两端的箭头时，滚动框向左或向右移动的A．Value属性值表增量B．Scroll事件在鼠标拖动滚动框时产生C．用鼠标拖动滚动框后，会触发Change事件

D．单击滚动条两端箭头时，会触发Change事件正确答案：A解析：当滚动框移动时，触发Change事件。Value属性是滚动条的当前位置值，其返回值始终介于Max和Min属性值之间，包括这两个值。选A。知识模块：常用标准控件22．在窗体上画一个水平滚动条，其属性值满足Min＜Max。程序运行后，如果单击滚动条右端的箭头。则Value属性值A．增加一个SmallChange量B．减少一个SmallChange量C．增加一个LargeChange量D．减少一个LargeChange量正确答案：A解析：当水平滚动条的属性值Min＜Max时，如果单击滚动条右端或左端的箭头，Value属性值会增加或减少SmallChange量；如果单击滚动之间空白的地方时，Value属性值会增加LargeChange量，反之，减少LargeChange量。本题单击的是滚动条右端的箭头，故Vlaue属性值应该是增加一个SmallChange量。故选A。知识模块：块和右端箭头常用标准控件23．窗体上有一个名称为Shape1并显示为圆的形状控件出属性值相等)，一个名称为Timed的计时并有下面程序代码：DimrAs，flagIntegerPrivateSub(其Width和Hei器，SingleAsForm_Load()r=Shape1．WidthTimer1．Enabled=TrueTimer1．Interval=500EndSubPrivateSubTimer1_Timer()Ifflag=0ThenShape1．Width=Shape1．Width-10IfShape1．Width＜=100Thenflag=1EndIfElseShape1．Widt