1、国家二级 VB机试（常用标准控件）模拟试卷 15及答案与解析 一、选择题 1 为了使文本框只具有垂直滚动条，应先把 MultiLine属性设置为 True，然后再把ScrollBars属性设置为 （ A） 0 （ B） 1 （ C） 2 （ D） 3 2 若要使文本框能够输入多行文本，应该设置的属性是 （ A） MultiLine （ B） WordWrap （ C） ScrollBars （ D） AutoSize 3 窗体上有一个名称为 Command1的命令按钮，一个名称为 Text1的文本框，其Text属性值为 “VB Programming”。运行程序后，选中其中的 “VB”，并执行
2、如下事件过程： Private Sub Command1_Click() Text1.SelText=“C+“ End Sub 则文本框中显示的内容为 （ A） VB （ B） VB Programming （ C）文本框被清空 （ D） C+Programming 4 决定标签内容显示位置的属性是 （ A） Text （ B） Name （ C） Alignment （ D） Caption 5 为使文本框具有初始值 “VB”，在设计阶段正 确的操作是 （ A）选中该文本框，在属性窗口中把 Text属性的值改为 “VB” （ B）选中该文本框，在属性窗口中把 Caption属性的值改为 “V
3、B” （ C）双击该文本框，在弹出的窗口中输入 “VB” （ D）单击该文本框，在该文本框中直接输入 “VB” 6 使用 Line控件在窗体上画一条从 (0， 0)到 (600， 700)的直线，则其相应属性的值应是 （ A） X1=0,X2=600,Y1=0,Y2=700 （ B） Y1=0,Y2=600,X1=0,X2=700 （ C） X1=0,X2=0,Y1=600,Y2=700 （ D） Y1=0,Y2=0,X1=600,X2=700, 7 已知图片框 Picture1中已装入一个图形，为了在不删除图片框的前提下，清除该图形，应采取的正确操作是 （ A）在设计阶段选择图片框 Pict
4、ure1，并按 Delete键 （ B）在运行期间执行语句 Picture1.Picture=LoadPicture(“) （ C）在运行期间执行语句 Picture1.Picture=“ （ D）在设计阶段先选中图片框 Picture1，再在属性窗口中选择 Picture属性，最后按 Enter键 8 设窗体上有 2个直线控件 Line1和 Line2，若使两条直线相连接，需满足的条件是 （ A） Line1.X1=Line2.X2且 Line1.Y1=Line2.Y2 （ B） Line1.X1=Line2.Y1且 Line1.Y1=Line2.X1 （ C） Line1.X2=Line2
5、.X1且 Line1.Y1=Line2.Y2 （ D） Line1.X2=Line2.X1且 Line1.Y2=Line2.Y2 9 设窗体上有一个 Picture1图片框，要求在图片框中的指定位置 (坐标为 (500， 300)输出 “OK”，下面可以实现这一功能的事件过程是 （ A） Private Sub Form_Click() Picture1.CurrentX=500 Picture1.CurrentY=300 Picture1.Print“OK“ End Sub （ B） Private Sub Form_Click() Picture1.Left=500 Picture1.To
6、p=300 Picture1.Print“OK“ End Sub （ C） Private Sub Form_Click() Picture1.CurrentX=500 Picture1.CurrentY=300 Print“OK“ End Sub （ D） Private Sub Form_Click() Picture1.Left=500 Picture1.Top=300 Print“OK“ End Sub 10 如果把命令按钮的 Cancel属性设置为 True，则程序运行后 （ A）按 Esc键与单击该命令按钮的作用相同 （ B）按回车键与单击该命令按钮的作用相同 （ C）按 Esc键
7、将停止程序的运行 （ D）按回车键将中断程序的运行 11 若已把一个命令 按钮的 Default属性设置为 True，则下面可导致按钮的 Click事件过程被调用的操作是 （ A）用鼠标右键单击此按钮 （ B）按键盘上的 Esc键 （ C）按键盘上的回车键 （ D）用鼠标右键双击此按钮 12 如果将命令按钮的访问键设置为 “D”，以下不会触发命令按钮 Click事件的操作是 （ A）在命令按钮上单击鼠标左键 （ B）在命令按钮上单击鼠标右键 （ C）将焦点移至命令按钮上，并按 Enter键 （ D）按组合键 “Alt+D” 13 对于列表框控件 List1，能够表示当前被选中列表项内容的是 （
8、 A） List1.Text （ B） List1.Index （ C） List1.ListIndex （ D） List1.List 14 为了清除列表框中指定的项目，应使用的方法是 （ A） Cls （ B） Clear （ C） Remove （ D） RemoveItem 15 窗体上有一个列表框控件 List1。以下叙述中错误的是 （ A） List1中有 ListCount-1个列表项 （ B）当 List1.Selected(i)=True，表明第 i项被选中 （ C）设置某些属性，可以使列表框显示多列数 据 （ D） List1.Text的值是最后一次被选中的列表项文本 16
9、 要想使列表框只允许单选列表项，应设置的属性为 （ A） Style （ B） Selected （ C） MultiSelect （ D） Enabled 17 窗体上有一个名称为 Text1的文本框，一个名称为 Combo1的组合框。将文本框中的内容添加到组合框中所使用的命令是 （ A） Text1.AddItem Combo1.Text （ B） Combo1.AddItem Text1.Text （ C） Combo1.Text=Text1.Text （ D） Text1.Text=Combo1.Text 18 如果在列表框 List1中没有选中项目，则 List1.ListIndex
10、的值为 （ A） -1 （ B） 0 （ C） 1 （ D） 2 19 以下不能设置 Picture属性的控件是 （ A）窗体 （ B）列表框 （ C）复选框 （ D）命令按钮 20 设窗体上有一个名称为 List1的列表框，并有若干列表项。下面语句中不能在所有列表项之后追加一个列表项的是 （ A） List1.List(List1.ListCount)=“VB程序 “ （ B） List1.List(List1.ListCount-1)=“VB程序 “ （ C） List1.AddItem“VB程序 “ （ D） List1.AddItem“VB程序 “,List1.ListCount 21
11、 以下关于控件的叙述中，正确的是 （ A）列表框包含了组合框的全部功能 （ B）列表框兼有组合框和文本框的功能 （ C）列表框和组合框具有完全不同的功能 （ D）组合框兼有列表框和文本框的功能 22 窗体上有一个名称为 Combo1的组合框，一个名称为 Command1的命令按钮。要求编写程序 ，在组合框中输入一个字符串，当单击命令按钮时，将该字符串逐项与组合框中原有列表项进行比较，若有相同列表项，则将其删除；若没有相同列表项，则将其添加到组合框中。现有人编写如下程序，以期实现上述功能： Private Sub Command1_Click() str1=Trim(Combo1.Text) f
12、lag=0 If str1 “Then For i=0 To Combo1.ListCount-1 If str1=Combo1.List(i)Then Combo1.RemoveItemi:Combo1.Text=“ flag=1 End If Next If flag=1Then Combo1.AddItem Combo1.Text End If End Sub 程序中存在问题，以下关于程序问题的叙述中，正确的是 （ A） For循环的循环初值 i应该从 1开始 （ B）语句 Combo1.RemoveItemi有错误 （ C）语句 Combo1.AddItemCombo1.Text有错，
13、 Combo1.Text的内容已存在于组合框中 （ D）应把程序倒数第 3行中的 If flag=1改为 If flag=0 23 关于水平滚动条，如下叙述中错误的是 （ A）当滚动框的位置改变时，触发 Change事件 （ B）当拖动滚动条中的滚动框时，触发 Scroll事件 （ C） LargeChange属性是滚动条的最大值 （ D） Value是滚动条中滚动框的当前值 24 窗体上有一个名称为 HScroll1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置 (即刻度值 )。下面能够实现上述操作的事件过程是 （ A） Private Sub HScroll1
14、_Change() Print HScroll1.Value End Sub （ B） Private Sub HScroll1_Change() Print HScroll1.SmallChange End Sub （ C） Private Sub HScroll1_Scroll() Print HScroll1.Value End Sub （ D） Private Sub HScroll1_Scroll() Print HScroll1.SmallChange End Sub 25 程序运行时，拖动滚动条上的滚动框，则所触发的事件是 （ A） Move （ B） Scroll （ C） D
15、rag （ D） DragDrop 26 下列关于滚动条的叙述中，错误的是 （ A）在滚动条内单击滚动框前面或后面的部位时，会触发 Scroll事件 （ B）在滚动条内拖动滚动框时，会触发 Scroll事件 （ C）在滚动条内拖动滚动框后，会触发 Change事件 （ D）单击滚动条两端的箭头时，会触发 Change事件 27 设窗体上有一个标签 Label1和一个计时器 Timer1， Timer1的 Interval属性被设置为 1000， Enabled属性被设置为 True。要求程序运行 时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是 （ A） Private S
16、ub Timer1_Timer() Label1.Caption=True End Sub （ B） Private Sub Timer1_Timer() Label1.Caption=Time$ End Sub （ C） Private Sub Timer1_Timer() Label1.Interval=1 End Sub （ D） Private Sub Timer1_Timer() For k=1ToTimer1.Interval Label1.Caption=Timer Next k End Sub 28 下列不属于计时器控件属性的是 （ A） Enabled （ B） Interv
17、al （ C） Index （ D） Visible 29 窗体上有一个名称为 Shape1并显示为圆的形状控件 (其 Width和 Height属性值相等 )，一个名称为 Timer1的计时器，并有下面程序代码： Dim r As Single,flag As Integer Private Sub Form_Load() r=Shape1.Width Timer1.Enabled=True Timer1.Interval=500 End Sub Private Sub Timer1_Timer() If flag=0Then Shape1.Width=Shape1.Width-10 If
18、Shape1.Width =100Then flag=1 End If Else Shape1.Width=Shape1.Width+10 If Shape1.Width =rThen flag=0 End If End If End Sub 运行程序 后产生的结果是 （ A）圆逐渐缩小，再逐渐增大，然后再逐渐缩小，依此往复 （ B）圆一直在缩小 （ C）圆每隔 0.5秒向右移动一次 （ D）圆每隔 1秒向下移动一次 30 如果在框架中画了 2个复选框，且框架的 Enabled属性被设置为 False， 2个复选框的 Enabled属性被设置为 True，则下面叙述中正确的是 （ A） 2个复
19、选框可用 （ B） 2个复选框不可用 （ C） 2个复选框不显示 （ D）上述都不对 31 窗体上有名称为 Command1的命令按钮和名称为 Text1的文本框 Private Sub Command1_Click() Text1.Text=“程序设计 “ Text1.SetFocus End Sub Private Sub Text1_GotFocus() Text1.Text=“等级考试 “ End Sub 运行以上程序，单击命令按钮后 （ A）文本框中显示的是 “程序设计 ”，且焦点在文本框中 （ B）文本框中显示的是 “等级考试 ”，且焦点在文本框中 （ C）文本框中显示的是 “程序
20、设计 ”，且焦点在命令按钮上 （ D）文本框中显示的是 “等级考试 ”，且焦点在命令按钮上 32 以下能接收焦点 的控件是 （ A）图像框 （ B）框架 （ C）命令按钮 （ D）标签 国家二级 VB机试（常用标准控件）模拟试卷 15答案与解析 一、选择题 1 【正确答案】 C 【试题解析】 本题考查的考点是有关文本框的滚动条的。 ScrollBars属性用于设置文本框是否有水平或垂直滚动条，可设置成 4种值： 0-表示没有滚动条 (默认值 )； 1-表示只有水平滚动条； 2-表示只有垂直滚动条； 3-表示有水平和垂直滚动条。设置 0以外的值时 MultiLine属性值必须为True。 【知识
21、模块】 常用标 准控件 2 【正确答案】 A 【试题解析】 文本框的 MultiLine属性用于设置文本框是否能以多行方式显示文本，值为 False(默认值 )时不可以显示，值为 True时可以显示。 【知识模块】 常用标准控件 3 【正确答案】 D 【试题解析】 文本框的 SelText属性用于返回含有当前选中的字符串，在代码中可以改变其值，在本题中相当于在代码中用 “C+”替换了 “VB”。 【知识模块】 常用标准控件 4 【正确答案】 C 【试题解析】 标签的 Alignment属性用来确 定标签中标题的放置方式，可设置为0(靠左，默认 )、 1(靠右 )或 2(居中 )。 【知识模块】
22、 常用标准控件 5 【正确答案】 A 【试题解析】 文本框的 Text属性用于返回或设置文本框中的内容，该属性可以在运行时设置，也可以在属性窗口设置。 【知识模块】 常用标准控件 6 【正确答案】 A 【试题解析】 Line控件有四个属性分别为 X1、 Y1， X2、 Y2，分别代表两个端点的横坐标和纵坐标。 【知识模块】 常用标准控件 7 【正确答案】 B 【试题解析】 图片框的 Picture属性用于在设计阶段设置窗体、图片框和图像框上显示的图片，可以通过属性窗口中的 Pictrue属性装入，也可以在运行期间通过LoadPicture函数装入图片，其语法格式为 对象 .Picture=Lo
23、adPicture(“文件名“)，若要清除图形则参数设置为空字符串。 【知识模块】 常用标准控件 8 【正确答案】 A 【试题解析】 Line控件有四个属性分别为 X1、 Y1， X2、 Y2，分别代表两个端点的横坐标和纵坐标。若使两条直线相连接，需要让两条直线的一个 X坐标和一个 Y坐标重合。 【知识模块】 常用标准控件 9 【正确答案】 A 【试题解析】 图片框的 CurrentX和 CurrentY属性会在程序运行时，返回或设置下一次打印或绘图位置的水平坐标和垂直坐标；如果不指定 Print方法的主体，将会默认在窗体上进行输出。 【知识模块】 常用标准控件 10 【正确答案】 A 【试题
24、解析】 命令按钮的 Cancel属性用来设置窗体的 “取消 ”按钮，程序运行时，按下 Esc键将执行该命令按钮的单击事件过程。 【知识模块】 常用标准控件 11 【正确答案】 C 【试题解析】 本题考查的考点是有关 Default属性的。当某控件 Default属性设置为 True时，运行状态下按下回车键等同于左键单击，即触发其 Click事件。 【知识模块】 常用标准控件 12 【正确答案】 B 【试题解析】 访问键就是按钮标题中加了下划线的字母，只要同时按下 Alt键和加了下划线的字母键，就可以触发按钮的单击事件。在命令按钮上单击鼠标左键和将焦点移至命令按钮上，并按 Enter键都可以触发
25、单击事件，在命令按钮上单击鼠标右键不能触发单击事件。 【知识模块】 常 用标准控件 13 【正确答案】 A 【试题解析】 列表框的 Text属性可返回列表框中所选项目的内容。除此之外，属性 ListIndex返回当前所选项目的索引号， List(Index)属性返回指定索引号的列表项内容，因此返回当前选定的列表项也可以使用 List1.List(List1.ListIndex)。 【知识模块】 常用标准控件 14 【正确答案】 D 【试题解析】 在程序运行时删除列表框中的项目可以使用 RemoveItem方法，其语法为：列表框 .RemoveItem索引号。 【知识模块】 常用标准控件 15
26、【正确答案】 A 【试题解析】 列表框的 ListCount属性返回列表框中当前列表项条数； Selected属性用于设置或返回指定索引号列表项的选中状态，值为 True表示被选中，值为False表示未被选中； Columns属性用于设置 ListBox控件以几列方式显示列表项，其值为 0n，值为 0时默认值，以单列方式显示； List1.Text的值是最后一次被选中的列表项文本。 【知识模块】 常用标准控件 16 【正确答案】 B 【试题解析】 列表框的 List属性是一个字符串数组，数组的一项就是一个列表项目，可以通过下标访问数组中的值。 ListCount属性是一个整型值，代表数组中的项
27、目个数。 Selected属性是一个数组，用于设置或返回指定索引号列表项的选中状态。值为 True表示被选中；值为 False表示未被选中。 ListIndex属性：可返回当前所选项目的索引号，其起始值为 0，最后一项的值为 ListCount-1。当ListIndex的值为 -1时，表示未选定项目。 MultiSelect属性用于表示是否能够在控件中进行复选以及如何进行复选。 MultiSelect属性可取 0、 1、 2这 3种值，默认时为 0，表示不允许复选。 【知识模块】 常用标准控件 17 【正确答案】 B 【试题解析】 组合框的 AddItem方法可以将指定的字符串加入到组合框的尾
28、部，本题要求加入的是文本框的值，即文本框的 Text属性值。 【知识模块】 常用标准控件 18 【正确答案】 A 【试题解析】 列表框的 ListIndex属性用于返回或设置控件中当前选择项目的索引 (下标 )，设计时不可用。当 ListIndex的值设置为 -1时，表示未选定项目，第一项的索引值为 0，最后一项的索引值为 ListCount-1。 【知识模块】 常用标准控件 19 【正确答案】 B 【试题解析】 窗体的 Picture属性用于设置窗体的背景图形；复选框的 Style属性为 1时将以图形方式显示，此时可以设置 Picture属性来设置显示的图形；命令按钮的 Picture可以设
29、置图形显示，列表框不具备 Picture属性。 【知识模块】 常用标准控件 20 【正确答案】 B 【试题解析】 列表框的 List属性是一个字符串数组，数组的一项就是一个列表项目，可以通过下标访问数 组中的值。 ListIndex属性可返回当前所选项目的索引号，其起始值为 0，最后一项的值为 ListCount-1。所以 A选项为List1.List(List1.ListCount)赋值，是在最后追加了一项； C选项使用 AddItem方法在最后追加一项； D选项是在 List1.ListCount的位置追加一项，其实也是在最后追加； B选项将会把现有列表的最后一项值改为 “VB程序 “。
30、【知识模块】 常用标准控件 21 【正确答案】 D 【试题解析】 组合框 (ComboBox)将文本框与列表框的特性组合在 一起，既可在组合框的文本框部分输入信息，也可在列表框部分选择项目。 【知识模块】 常用标准控件 22 【正确答案】 D 【试题解析】 本题中首先用一个循环遍历组合框的所有列表项，依次取出每一个列表项与 str1进行比较，若相同则删除该项，将 flag置为 1，否则 flag为 0；循环结束后如果 flag的值为 0则说明没有任何一个现有的列表项与 str1相同，需要将str1添加到组合框中，否则不需添加。 【知识模块】 常用标准控件 23 【正确答案】 C 【试题解析】
31、滚动条通常用来帮助观 察数据或确定位置，也可用来作为数据输入的工具。 Value是滚动条中滚动框的当前值，当滚动条的 Value属性值改变时会触发 Change事件。当拖动滚动条中的滚动框时，触发 Scroll事件。 LargeChange属性用于设置或返回单击滚动条中滚动框前面或后面的部位时， Value属性增加或减小的增量值； Max属性是滚动条的最大值。 【知识模块】 常用标准控件 24 【正确答案】 A 【试题解析】 本题考查的考点是有关滚动条的属性和事件的。单击滚动条的箭头时将触发 Change事件，而滚动块的位置由 Value属性返回。 【知识模块】 常用标准控件 25 【正确答案
32、】 B 【试题解析】 当滚动条的 Value属性值改变时会触发 Change事件。当拖动滚动条中的滚动框时，触发 Scroll事件。 【知识模块】 常用标准控件 26 【正确答案】 A 【试题解析】 滚动条通常用来帮助观察数据或确定位置，也可用来作为数据输入的工具。 Value是滚动条中滚动框的当前值，当滚动条的 Value属性值改变时会触发 Change事件。当拖动滚动条中的滚动框时，触发 Scroll事件。 【知识模 块】 常用标准控件 27 【正确答案】 B 【试题解析】 本题考查的考点是有关计时器的。计时器的 Interval属性决定了每隔多长时间触发一次 Timer事件。本题中 In
33、terval设置为 1000，即每 1秒触发一次 Timer事件。在事件中把标签的 Caption属性设置成为当前时间，用 Time函数可以得到当前时间。 【知识模块】 常用标准控件 28 【正确答案】 D 【试题解析】 计时器具有 Name和 Enabled两个标准属性。另外一个重要属性，Interval属性用于设置触发计时器事 件之间的间隔，以毫秒为单位，取值范围为064767，当值为 0或为负值时计时器不启用。计时器本身是不能显示出来的，故此没有 Visible属性。 【知识模块】 常用标准控件 29 【正确答案】 A 【试题解析】 本题在计时器的 Timer事件中，如果 flag为 0
34、，让圆的宽度逐渐减小，一直到 100以下，将 flag置为 1；如果 flag为 1，让圆的宽度逐渐增大，一直到大于原来的宽度 r则将 flag置为 0；则圆逐渐缩小，再逐渐增大，然后再逐渐缩小，依此往复。 【知识模块】 常用标准控件 30 【 正确答案】 B 【试题解析】 框架是一个容器控件，若其 Enabled属性被设置为 False，则无论其内部的控件的 Enabled属性被设置为何值，控件都不可用。 【知识模块】 常用标准控件 31 【正确答案】 B 【试题解析】 SetFocus方法用于将焦点移到指定的对象上，而当一个对象获得焦点时将触发其 GotFocus事件过程。 【知识模块】 常用标准控件 32 【正确答案】 C 【试题解析】 只有能输入的输入型控件才能够接收焦点，本题四个选项中只有命令按钮是输入型控件 ，可以接收焦点。 【知识模块】 常用标准控件
