1、国家二级 VB机试（常用标准控件）-试卷 2及答案解析(总分：52.00，做题时间：90 分钟)一、选择题(总题数：26，分数：52.00)1.为了使标签 Label1透明且不具有边框，以下正确的属性设置是（分数：2.00）A.Label1BackStyle=0 Lahel1BorderStyh=lB.Label1BackStyle=0 Label1BorderStyle=0C.Label1BackStyle=1 Label1BorderStyle=1D.Label1BackStyle=1 Label1BorderStyle=02.下列不包含滚动条的控件是（分数：2.00）A.列表框B.标签C
2、.组合框D.文本框3.窗体上有 2个名称分别为 Text1和 Text2的文本框。编写如下程序：Private Sub Form_Load()Text1Text=“Text2Text=“End SubPrivate Sub Command1_Click()Print Text1Text+Text2TextEnd Sub 程序运行后，在 Text1和 Text2中依次输入 100和 200，并单击命令按钮 Command1，则输出结果为（分数：2.00）A.100B.200C.300D.1002004.窗体上有个名称为 Command1的命令按钮，一个名称为 Text1的文本框，其 Text属性
3、值为“VB Programming”。运行程序后，选中其中的“VB”，并执行如下事件过程：Private Sub Command1_Click()Text1 SelTaxt=“C+“End hub则文本框中显示的内容为（分数：2.00）A.VBB.VB ProgrammingC.文本框被清空D.C+Programming5.为使文本框具有初始值“VB”，在设计阶段正确的操作是（分数：2.00）A.选中该文本框，在属性窗口中把 Text属性的值改为“VB”B.选中该文本框，在属性窗口中把 Caption属性的值改为“VB”C.双击该文本框，在弹出的窗口中输入“VB”D.单击该文本框，在该文本框中
4、直接输入“VB”6.在设计阶段，假定在图片框 Picture1中装入了一个图形，为了删除该图片框控件，应采用的正确操作是（分数：2.00）A.选择图片框，然后按 Del键B.执行语句 Picture1Picture=LoadPicture(“)C.执行语句 Picmre1Picture=“D.选择图片框，在属性窗口中选择 Picture属性，然后按回车键7.设窗体上有一个 Picture1图片框，要求在图片框中的指定位置(坐标为(500，300)输出“OK“，下面可以实现这一功能的事件过程是（分数：2.00）A.Private Sub Form_Click() Picture1CurrentX
5、=500 Picture1CurrentY=300 Picture1Pnnt“OK“ End SubB.Private Sub Form_Click() Picture1Left=500 Picture1Top=300 Picture1Print“OK“ End SubC.Private Sub Form_Click() Picture1CurrentX=500 Picture1CurrentY=300 Print“OK“ End SubD.Private Sub Form_Click() Pieture1kft=500 Picture1Top=300 Print“OK“ End Sub8.已
6、知图片框 Picturel中已装入一个图形，为了在不删除图片框的前提下，清除该图形，应采取的正确操作是（分数：2.00）A.在设计阶段选择图片框 Picture1，并按 Delete键B.在运行期间执行语句 Picture1Picture=LoadPicture(“)C.在运行期间执行语句 Picture1Picture=“D.在设计阶段先选中图片框 Picture1，再在属性窗口中选择 Picture属性，最后按 Enter键9.以下不能用形状控件画出的图形是（分数：2.00）A.矩形B.圆形C.椭圆D.扇形10.以下关于命令按钮的叙述中正确的是（分数：2.00）A.命令按钮上可以显示图片B
7、.命令按钮能够分别响应单击、双击事件C.程序运行时，不能改变命令按钮上的文字D.若命令按钮的 Cance1属性设为 True，焦点在其他控件上时，按下回车键与单击该按钮的效果相同11.命令按钮不支持的事件为（分数：2.00）A.ClickB.DblClickC.GotFocusD.MouseMove12.为了使一个复选框被禁用(灰色显示)，应把它的 Value属性设置为（分数：2.00）A.0B.1C.2D.False13.判断复选框是否被选中的属性为（分数：2.00）A.SelectedB.CheckedC.ValueD.Index14.如果在列表框 List1中没有选中项目，则 List1
8、ListIndex 的值为（分数：2.00）A.-1B.0C.1D.215.设窗体上有一个名称为 List1的列表框和一个名称为 Check1的复选框数组(下标从 0开始)。程序运行时，单击某个复选框，如果列表框中没有该复选框的标题，则把该复选框的标题添加到列表框中，否则从列表框中把该复选框标题删除。Private Sub Check1_Click(Index As Integer)For k=0 To List1ListCount-1If Check1(Index)Caption=List1List(k)ThenExit ForEnd IfNext kIf kList1ListCount T
9、henList1RemoveItem kElseList1AddItem_End IfEnd Sub 为使上面程序可以实现该功能，程序代码中横线上应该填入的代码是（分数：2.00）A.kB.Check1CaptionC.Check1(k)D.Check1(Index)Caption16.窗体上有 1个名称为 Label1的标签；1 个名称为 List1，且含有若干表项的列表框。为了使得单击List1中某个表项时，在 Label1中相应地显示该表项，应使用的程序代码为（分数：2.00）A.Private Sub List1_Click() Label1Caption=List1Index End
10、 SubB.Private Sub List1_Click() Label1Caption=List1ListCount End SubC.Private Sub List1_Click() Label1Caption=List1Text End SubD.Private Sub List1_Click() Label1Caption=List1Selected End Sub17.窗体上有一个名为 List1的列表框和一个名为 Command1的命令按钮，并有下面的事件过程：Private Sub Command1_Click()n=List1ListIndexIf n0 Thench$=L
11、ist1List(n)List1List(n)=List1List(n-1)List1List(n-1)=chEnd IfEnd Sub 程序运行时，选中 1个列表项，然后单击Command1按钮，则产生的结果是（分数：2.00）A.若选中的不是最前面的列表项，则选中的列表项与它前一个列表项互换位置B.选中的列表项与它前面的列表项互换位置C.若选中的不是最后面的列表项，则选中的列表项与它后一个列表项互换位置D.选中的列表项与它后面的列表项互换位置18.通过一个属性可以获得文件列表框中当前被选中文件的文件名，这个属性是（分数：2.00）A.DirB.PathC.DriveD.FileName19
12、.若要清除列表框控件中的所有列表项，应该使用的方法是（分数：2.00）A.BemovehemB.ClearC.DeleteD.Refresh20.窗体上有一个名称为 Combo1的组合框，为了引用 Combo1中最后一个列表项，应使用的表达式是（分数：2.00）A.Combo1List(ListCount)B.Combo1List(Combo1ListCount-1)C.Combo1List(ListCount-1)D.Combo1List(Combo1ListCount)21.下列关于水平滚动条的叙述中，错误的是（分数：2.00）A.Value属性值表示单击滚动条两端的箭头时，滚动框向左或向
13、右移动的增量B.Scroll事件在鼠标拖动滚动框时产生C.用鼠标拖动滚动框后，会触发 Change事件D.单击滚动条两端箭头时，会触发 Change事件22.在窗体上画一个水平滚动条，其属性值满足 MinMax。程序运行后，如果单击滚动条右端的箭头。则Value属性值（分数：2.00）A.增加一个 SmallChange量B.减少一个 SmallChange量C.增加一个 LargeChange量D.减少一个 LargeChange量23.窗体上有一个名称为 Shape1并显示为圆的形状控件(其 Width和 Hei出属性值相等)，一个名称为Timed的计时器，并有下面程序代码：Dim r A
14、s Single，flag As IntegerPrivate Sub Form_Load()r=Shape1WidthTimer1Enabled=TrueTimer1Interval=500End SubPrivate Sub Timer1_Timer()If flag=0 ThenShape1Width=Shape1Width-10If Shape1Width=100Thenflag=1End IfElseShape1Width=Shape1Width+10If Shape1Width=r Thenflag=0End IfEnd IfEnd Sub 运行程序后产生的结果是（分数：2.00）
15、A.圆逐渐缩小，再逐渐增大，然后再逐渐缩小，依此往复B.圆一直在缩小C.圆每隔 05 秒向右移动一次D.圆每隔 1秒向下移动一次24.下列不属于计时器控件属性的是（分数：2.00）A.EnabledB.IntervalC.IndexD.Visible25.以下可以作为“容器”的控件是（分数：2.00）A.框架B.图像框C.标签D.命令按钮26.以下关于控件的叙述中，正确的是（分数：2.00）A.标签控件能够获得焦点B.不能对列表框中的列表项进行多项选择C.命令按钮的外观可以被设置为图形D.设置形状控件的 Shape属性，可以使其呈现为直线国家二级 VB机试（常用标准控件）-试卷 2答案解析(总
16、分：52.00，做题时间：90 分钟)一、选择题(总题数：26，分数：52.00)1.为了使标签 Label1透明且不具有边框，以下正确的属性设置是（分数：2.00）A.Label1BackStyle=0 Lahel1BorderStyh=lB.Label1BackStyle=0 Label1BorderStyle=0 C.Label1BackStyle=1 Label1BorderStyle=1D.Label1BackStyle=1 Label1BorderStyle=0解析：解析：BackStyle 属性用于设置标签的背景样式，有两种值可选：0，表示透明；1，表示不透明。BorderSty
17、le属性用来设置标签的边框类型，有两种值可选：0，代表标签无边框；1，代表标签有边框。2.下列不包含滚动条的控件是（分数：2.00）A.列表框B.标签 C.组合框D.文本框解析：解析：标签控件不包含滚动条。3.窗体上有 2个名称分别为 Text1和 Text2的文本框。编写如下程序：Private Sub Form_Load()Text1Text=“Text2Text=“End SubPrivate Sub Command1_Click()Print Text1Text+Text2TextEnd Sub 程序运行后，在 Text1和 Text2中依次输入 100和 200，并单击命令按钮 Co
18、mmand1，则输出结果为（分数：2.00）A.100B.200C.300D.100200 解析：解析：单击命令按钮 Command1，触发 Command1_Click()事件，Print 语句连续输出文本框 Text1和 Text2的 text值。选 D。4.窗体上有个名称为 Command1的命令按钮，一个名称为 Text1的文本框，其 Text属性值为“VB Programming”。运行程序后，选中其中的“VB”，并执行如下事件过程：Private Sub Command1_Click()Text1 SelTaxt=“C+“End hub则文本框中显示的内容为（分数：2.00）A.V
19、BB.VB ProgrammingC.文本框被清空D.C+Programming 解析：解析：文本框 SelText属性返回或设置包含当前所选择文本的字符串；如果没有字符被选中，则为零长度字符串(“)。由题意知，选中“VB”，返回“C+”，所以结果为“C+Programming”。5.为使文本框具有初始值“VB”，在设计阶段正确的操作是（分数：2.00）A.选中该文本框，在属性窗口中把 Text属性的值改为“VB” B.选中该文本框，在属性窗口中把 Caption属性的值改为“VB”C.双击该文本框，在弹出的窗口中输入“VB”D.单击该文本框，在该文本框中直接输入“VB”解析：解析：根据题意，
20、选中该文本框，在属性窗口中把 Text属性的值改为“VB”。6.在设计阶段，假定在图片框 Picture1中装入了一个图形，为了删除该图片框控件，应采用的正确操作是（分数：2.00）A.选择图片框，然后按 Del键 B.执行语句 Picture1Picture=LoadPicture(“)C.执行语句 Picmre1Picture=“D.选择图片框，在属性窗口中选择 Picture属性，然后按回车键解析：解析：删除图片框控件，先选择图片框，然后按 Del键。7.设窗体上有一个 Picture1图片框，要求在图片框中的指定位置(坐标为(500，300)输出“OK“，下面可以实现这一功能的事件过程
21、是（分数：2.00）A.Private Sub Form_Click() Picture1CurrentX=500 Picture1CurrentY=300 Picture1Pnnt“OK“ End Sub B.Private Sub Form_Click() Picture1Left=500 Picture1Top=300 Picture1Print“OK“ End SubC.Private Sub Form_Click() Picture1CurrentX=500 Picture1CurrentY=300 Print“OK“ End SubD.Private Sub Form_Click(
22、) Pieture1kft=500 Picture1Top=300 Print“OK“ End Sub解析：解析：VB 中，窗体和图片框具有 CurrentX、CurrentY 属性，经常用这两个属性来设置当前绘图点。VB中在图片框特定位置显示文本： Picture1CurrentX=X 座标设置当前 X方向座标 Picture1CurrentY=Y 座标设置当前 Y方向座标 Picture1Print 文本内容“在当前位置输出文本。8.已知图片框 Picturel中已装入一个图形，为了在不删除图片框的前提下，清除该图形，应采取的正确操作是（分数：2.00）A.在设计阶段选择图片框 Pictu
23、re1，并按 Delete键B.在运行期间执行语句 Picture1Picture=LoadPicture(“) C.在运行期间执行语句 Picture1Picture=“D.在设计阶段先选中图片框 Picture1，再在属性窗口中选择 Picture属性，最后按 Enter键解析：解析：如果图片框已装入了一个图形，在不删除图片框的前提下要想清除该图形有两种方法。一是在设计阶段在图片框的属性窗口中删除图片框控件 Picture属性行后边的“(Bitmap)“，另一种方法是在程序运行阶段使用 LoadPicmre(“)装一个空文件，这样也能清除图形。9.以下不能用形状控件画出的图形是（分数：2.
24、00）A.矩形B.圆形C.椭圆D.扇形 解析：解析：形状控件(Shape)提供了显示一些规则图形的简易方法，通过设置形状控件 Shape属性值，可显示 6种图形：0-矩形、1-正方形、2-椭圆、3-圆、4-圆角矩形、5-圆角正方形。10.以下关于命令按钮的叙述中正确的是（分数：2.00）A.命令按钮上可以显示图片 B.命令按钮能够分别响应单击、双击事件C.程序运行时，不能改变命令按钮上的文字D.若命令按钮的 Cance1属性设为 True，焦点在其他控件上时，按下回车键与单击该按钮的效果相同解析：解析：按钮控件的 Picture属性可以给命令按钮指定一个图形。按钮的标题由属性 Caption设
25、置，可以在程序中动态指定。当一个命令按钮的 Cance1属性被设置为 True时，按 ESC键与单击该命令按钮的作用相同。命令按钮能够响应单击事件，但不能响应双击事件。11.命令按钮不支持的事件为（分数：2.00）A.ClickB.DblClick C.GotFocusD.MouseMove解析：解析：命令按钮支持的事件有 Click，GotFocus 和 MouseMove，不支持 DblClick事件，故选 B。12.为了使一个复选框被禁用(灰色显示)，应把它的 Value属性设置为（分数：2.00）A.0B.1C.2 D.False解析：解析：复选框的 Value属性可以设置为 0、1
26、或 2。0 表示没有选择该复选框，1 表示选中该复选框，2表示该复选框被禁用(灰色显示)。13.判断复选框是否被选中的属性为（分数：2.00）A.SelectedB.CheckedC.Value D.Index解析：解析：复选框组常用于提供多重选择，Value 属性值决定每个复选框的选中状态：0 为未选、1 为选中、2 为不可用(以灰色呈现)。选 C。14.如果在列表框 List1中没有选中项目，则 List1ListIndex 的值为（分数：2.00）A.-1 B.0C.1D.2解析：解析：列表框 List1中没有选中项目，则 List1Listlndex 的值为-1。15.设窗体上有一个名
27、称为 List1的列表框和一个名称为 Check1的复选框数组(下标从 0开始)。程序运行时，单击某个复选框，如果列表框中没有该复选框的标题，则把该复选框的标题添加到列表框中，否则从列表框中把该复选框标题删除。Private Sub Check1_Click(Index As Integer)For k=0 To List1ListCount-1If Check1(Index)Caption=List1List(k)ThenExit ForEnd IfNext kIf kList1ListCount ThenList1RemoveItem kElseList1AddItem_End IfEnd
28、 Sub 为使上面程序可以实现该功能，程序代码中横线上应该填入的代码是（分数：2.00）A.kB.Check1CaptionC.Check1(k)D.Check1(Index)Caption 解析：解析：题干给出的是没有该复选框的标题时，把该复选框的标题添加到列表框中。List1AddItem可以为列表框添加新项。需要添加的项要根据索引添加。选 D。16.窗体上有 1个名称为 Label1的标签；1 个名称为 List1，且含有若干表项的列表框。为了使得单击List1中某个表项时，在 Label1中相应地显示该表项，应使用的程序代码为（分数：2.00）A.Private Sub List1_C
29、lick() Label1Caption=List1Index End SubB.Private Sub List1_Click() Label1Caption=List1ListCount End SubC.Private Sub List1_Click() Label1Caption=List1Text End Sub D.Private Sub List1_Click() Label1Caption=List1Selected End Sub解析：解析：单击 List1中某个表项时触发 List1_Click()事件。标签的 Caption属性用于设置标签中所要显示的内容。列表框的 te
30、xt属性为 List1中表项的正文，通过这个属性可以得到被选中的项目。因此选 C。17.窗体上有一个名为 List1的列表框和一个名为 Command1的命令按钮，并有下面的事件过程：Private Sub Command1_Click()n=List1ListIndexIf n0 Thench$=List1List(n)List1List(n)=List1List(n-1)List1List(n-1)=chEnd IfEnd Sub 程序运行时，选中 1个列表项，然后单击Command1按钮，则产生的结果是（分数：2.00）A.若选中的不是最前面的列表项，则选中的列表项与它前一个列表项互换位
31、置 B.选中的列表项与它前面的列表项互换位置C.若选中的不是最后面的列表项，则选中的列表项与它后一个列表项互换位置D.选中的列表项与它后面的列表项互换位置解析：解析：当单击 Command1按钮后，List1 列表框中被选中项的索引值赋给变量 n，如果被选中项不是空也不是第 1项时，将选中项的项目文字赋值给变量 ch，用选中项的上面一项的文字替换选中项的文字，再把变量 ch中的文字替换选中项上面一项的文字，简单说就是选中项和它上面一项的文字交换。因此 A选项的说法正确。18.通过一个属性可以获得文件列表框中当前被选中文件的文件名，这个属性是（分数：2.00）A.DirB.PathC.Drive
32、D.FileName 解析：解析：FileName 属性用来设置或返回程序运行过程中当前选中的文件名称。 Path 属性用来设置或返回程序运行过程中当前选中的文件的路径。19.若要清除列表框控件中的所有列表项，应该使用的方法是（分数：2.00）A.BemovehemB.Clear C.DeleteD.Refresh解析：解析：Clear 方法用来清除列表框中的全部内容，格式为：列表框Clear。20.窗体上有一个名称为 Combo1的组合框，为了引用 Combo1中最后一个列表项，应使用的表达式是（分数：2.00）A.Combo1List(ListCount)B.Combo1List(Comb
33、o1ListCount-1) C.Combo1List(ListCount-1)D.Combo1List(Combo1ListCount)解析：解析：组合框中的 List属性用来列出表项的内容。该属性保存了列表框中所有数组的值，可以通过下标访问数组中的值(下标从 0开始)，其格式为：组合框List(下标)，特别注意的是“下标”相当于索引值，指示着表项中某一项表中内容的位置，第 1项的索引值为 0，第 2项为 1，依次类推，这个参数非常重要不可省略。组合框中列表项的排列是从 0开始，最后一项的索引值应为 ListCount-1。21.下列关于水平滚动条的叙述中，错误的是（分数：2.00）A.Va
34、lue属性值表示单击滚动条两端的箭头时，滚动框向左或向右移动的增量 B.Scroll事件在鼠标拖动滚动框时产生C.用鼠标拖动滚动框后，会触发 Change事件D.单击滚动条两端箭头时，会触发 Change事件解析：解析：当滚动框移动时，触发 Change事件。Value 属性是滚动条的当前位置值，其返回值始终介于 Max和 Min属性值之间，包括这两个值。选 A。22.在窗体上画一个水平滚动条，其属性值满足 MinMax。程序运行后，如果单击滚动条右端的箭头。则Value属性值（分数：2.00）A.增加一个 SmallChange量 B.减少一个 SmallChange量C.增加一个 Larg
35、eChange量D.减少一个 LargeChange量解析：解析：当水平滚动条的属性值 MinMax 时，如果单击滚动条右端或左端的箭头，Value 属性值会增加或减少 SmallChange量；如果单击滚动块和右端箭头之间空白的地方时，Value 属性值会增加LargeChange量，反之，减少 LargeChange量。本题单击的是滚动条右端的箭头，故 Vlaue属性值应该是增加一个 SmallChange量。故选 A。23.窗体上有一个名称为 Shape1并显示为圆的形状控件(其 Width和 Hei出属性值相等)，一个名称为Timed的计时器，并有下面程序代码：Dim r As Sin
36、gle，flag As IntegerPrivate Sub Form_Load()r=Shape1WidthTimer1Enabled=TrueTimer1Interval=500End SubPrivate Sub Timer1_Timer()If flag=0 ThenShape1Width=Shape1Width-10If Shape1Width=100Thenflag=1End IfElseShape1Width=Shape1Width+10If Shape1Width=r Thenflag=0End IfEnd IfEnd Sub 运行程序后产生的结果是（分数：2.00）A.圆逐渐
37、缩小，再逐渐增大，然后再逐渐缩小，依此往复 B.圆一直在缩小C.圆每隔 05 秒向右移动一次D.圆每隔 1秒向下移动一次解析：解析：Form_Load 过程中设定 timer事件定时触发；在 Timer1_Timer过程中，圆圈先变小后变大，然后退出。下一次 timer事件触发时继续这个过程。因此，选 A。24.下列不属于计时器控件属性的是（分数：2.00）A.EnabledB.IntervalC.IndexD.Visible 解析：解析：计时器控件属性包括 Enabled、Interval 和 Index等属性，不包括 Visible属性。选 D。25.以下可以作为“容器”的控件是（分数：2
38、.00）A.框架 B.图像框C.标签D.命令按钮解析：解析：窗体控件、框架控件和图片框控件可以作为其他控件的容器。选 A。26.以下关于控件的叙述中，正确的是（分数：2.00）A.标签控件能够获得焦点B.不能对列表框中的列表项进行多项选择C.命令按钮的外观可以被设置为图形 D.设置形状控件的 Shape属性，可以使其呈现为直线解析：解析：标签、框架、菜单、直线、形状、图像框、计时器都不能接收焦点，选项 A错误；列表框用于显示可供做单一或多个选择的列表项，选项 B错误；形状控件(Shape)提供了显示一些规则图形的简易方法，通过设置形状控件 Shape属性值，可显示 6种图形：0-矩形、1-正方形、2-椭圆、3-圆、4-圆角矩形、5-圆角正方形，选项 D错误。
