1、国家二级 VB 机试（常用标准控件）模拟试卷 28 及答案解析(总分：66.00，做题时间：90 分钟)一、选择题(总题数：33，分数：66.00)1.能够存放组合框的所有项目内容的属性是（分数：2.00）A.CaptionB.TextC.ListD.Selected2.要想使列表框只允许单选列表项，应设置的属性为（分数：2.00）A.StyleB.SelectedC.MultiSelectD.Enabled3.下面列表框属性中，是数组的是（分数：2.00）A.ListCountB.SelectedC.ListlndexD.MultiSelect4.窗体上有一个名称为 Comb01 的组合框，
2、要求在其编辑区输入文本并按回车键后，编辑区中的文本被添加到列表中。下面能实现这一功能的是（分数：2.00）A.Private Sub Combol_keyDown(KeyCode_ As Integer，Shift As Integer) IfKeyCode=13 Then Combo1Addltem Combo1Text End If End SubB.Private Sub Combo1_KeyDown(KeyCode_ As Integer，Shift As Integer) IfKeyCode=13 Then Combo1AddAItem Text1Text End If End Su
3、bC.Private Sub Combo1_Click() Combo1Addltem Combo1Text End SubD.Private Sub Combol_Click() Combo1Addltem Text1Text End Sub5.要将单选按钮 Opt1 设为被选中，应设置的属性是（分数：2.00）A.ValueB.SelectedC.EnabledD.SetFocus6.窗体上有一个名称为 Combol 的组合框，为了引用 Combol 中最后一个列表项，应使用的表达式是（分数：2.00）A.Combo1List(ListCount)B.Combo1List(Combo1Li
4、stCount 一 1)C.Combo1List(ListCount1)D.Combo1List(Combo1ListCount)7.窗体上有一个名称为 Text1 的文本框，一个名称为 Combol 的组合框。将文本框中的内容添加到组合框中所使用的命令是（分数：2.00）A.Text1Addltem Combo1TextB.Combo1Addltem Text1TextC.CombolText=Text1TextD.Text1Text=CombolText8.若要清除列表框控件中的所有列表项，应该使用的方法是（分数：2.00）A.RemoveltemB.ClearC.DeleteD.Refr
5、esh9.窗体上有名称为 List1 的列表框。以下能够将列表框当前选定的列表项替换为字符串“Basic”的语句是（分数：2.00）A.List1Addltem”Basic”B.List1List(List1Listlndex)=”Basic”C.List1Text=”Basic”D.以上都可以10.要想不使用 Shift 或 Ctrl 键就能在列表框中同时选择多个项目，则应把该列表框的 MultiSelect 属性设置为（分数：2.00）A.0-NoneB.1SimpleC.2 一 ExtendedD.311.如果在列表框 List1 中没有选中项目，则 List1Listlndex 的值为
6、（分数：2.00）A.一 1B.0C.1D.212.设 Label1、Command1、Text1、Check1 分别为标签、命令按钮、文本框、复选框的名称，则以下属性设置语句中，运行时不会出错的是（分数：2.00）A.Label1BackStyle=2B.Command1Style=1C.Text1ScrollBars=4D.Check1Value=213.下列不包含滚动条的控件是（分数：2.00）A.列表框B.标签C.组合框D.文本框14.为了删除列表框中的一个列表项，应使用的列表框方法是（分数：2.00）A.MoveB.RemoveC.ClearD.Removeltem15.以下不能设置
7、 Picture 属性的控件是（分数：2.00）A.窗体B.列表框C.复选框D.命令按钮16.设窗体上有 1 个名称为 List1 的列表框，程序运行时，如果选中了第 3 个列表项(最上面的列表项为第0 个列表项)，则下面不成立的是（分数：2.00）A.List1Selected(List1Listlndex)的值为 TrueB.List1Selected(3)的值为 TrueC.List1List(3)的值为 TrueD.List1Listlndex 的值为 317.下列控件中，不响应 Click 事件的是（分数：2.00）A.框架B.标签C.图像框D.形状18.设窗体上有一个名称为 Che
8、ck1 的复选框，并有下面程序代码： Private Sub Check1 MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) Check1Value=1 End Sub 根据上面的事件过程，可以得出结论（分数：2.00）A.鼠标单击该复选框，复选框的标题被改为“1”B.鼠标右键单击该复选框，可以选中该复选框C.鼠标左键单击该复选框，它被选中，右键单击它，取消选中D.鼠标右键单击该复选框，它被选中，左键单击它，取消选中19.设窗体上有一个名称为 List1 的列表框，并有若干列表项。下面语句中不能在所有列表
9、项之后追加一个列表项的是（分数：2.00）A.List1List(List1ListCount)=”VB 程序”B.List1List(List1ListCount 一 1)=”VB 程序”C.List1Addltem”VB 程序”D.List1Addltem”VB 程序”，List1ListCount20.已知列表框控件 List1 中已放入若干表项，下列关于 List1 的叙述中错误的是（分数：2.00）A.第一个表项的序号为 0B.没有选中任何一个表项时，Listlndex 属性的值为一 1C.最后一个表项的序号为 ListCountD.可用 MultiSelect 属性设置是否可多选2
10、1.判断复选框是否被选中的属性为（分数：2.00）A.SelectedB.CheckedC.ValueD.Index22.窗体上有 1 个名称为 Label1 的标签；1 个名称为 List1，且含有若干表项的列表框。为了使得单击List1 中某个表项时，在 Label1 中相应地显示该表项，应使用的程序代码为（分数：2.00）A.Private Sub Listl_Click()Label1Caption=List1Index End SubB.Private Sub Listl_Click()Label1Caption=List1ListCount End SubC.Private Sub
11、 Listl_Click()Label1Caption=List1Text End SubD.Private Sub Listl_Click()Label1Caption=List1Selected End Sub23.以下关于控件的叙述中，正确的是（分数：2.00）A.列表框包含了组合框的全部功能B.列表框兼有组合框和文本框的功能C.列表框和组合框具有完全不同的功能D.组合框兼有列表框和文本框的功能24.判断单选按钮是否被选中的属性为（分数：2.00）A.SelectedB.CheckedC.ValueD.Index25.窗体上有名称为 Commandl 的命令按钮，名称分别为 List1、
12、List2 的列表框，其中 List1 的MultiSelect 属性设置为 1(Simple)，并有如下事件过程： Private Sub Commandl_Click() For i=0 To List1ListCount-1 If List1Selected(i)=True Then List2Addltem Text End If Next End Sub 上述事件过程的功能是将 List1 中被选中的列表项添加到 List2 中。运行程序时，发现不能达到预期目的，应做修改，下列修改中正确的是（分数：2.00）A.将 For 循环的终值改为 List1ListCountB.将 List
13、1Selected(i)=True 改为 List1List(i)Selected=TrueC.将 List2Addltem Text 改为 List2Addltem List1List(i)D.将 List2Addltem Text 改为 List2Addltem List1Listlndex26.窗体上有一个名为 List1 的列表框和一个名为 Command1 的命令按钮，并有下面的事件过程： Private Sub Command1_Click() n=List1Listlndex If n0 Then ch$=List1List(n) List1List(n)=List1List(n
14、1)：List1List(n-1)=ch End If End Sub 程序运行时，选中 1 个列表项，然后单击Command1 按钮，则产生的结果是（分数：2.00）A.若选中的不是最前面的列表项，则选中的列表项与它前一个列表项互换位置B.选中的列表项与它前面的列表项互换位置C.若选中的不是最后面的列表项，则选中的列表项与它后一个列表项互换位置D.选中的列表项与它后面的列表项互换位置27.窗体上有一个名称为 Combo1 的组合框，一个名称为 Command1 的命令按钮。要求编写程序，在组合框中输入一个字符串，当单击命令按钮时，将该字符串逐项与组合框中原有列表项进行比较，若有相同列表项，则
15、将其删除；若没有相同列表项，则将其添加到组合框中。现有人编写如下程序，以期实现上述功能：Private Sub Command1_Click() str1=Trim(Combo1Text)：flag=0 If str10 Then ch$=List1List(n) List1List(n)=List1List(n1)：List1List(n-1)=ch End If End Sub 程序运行时，选中 1 个列表项，然后单击Command1 按钮，则产生的结果是（分数：2.00）A.若选中的不是最前面的列表项，则选中的列表项与它前一个列表项互换位置 B.选中的列表项与它前面的列表项互换位置C.若
16、选中的不是最后面的列表项，则选中的列表项与它后一个列表项互换位置D.选中的列表项与它后面的列表项互换位置解析：解析：List 属性是一个数组，存放列表框中所有项目的内容；ListIndex 属性可返回当前所选项目的索引号，第一个项目的索引号为 0。List1List(n-1)指的是当前选中列表项的前一个列表项。27.窗体上有一个名称为 Combo1 的组合框，一个名称为 Command1 的命令按钮。要求编写程序，在组合框中输入一个字符串，当单击命令按钮时，将该字符串逐项与组合框中原有列表项进行比较，若有相同列表项，则将其删除；若没有相同列表项，则将其添加到组合框中。现有人编写如下程序，以期实
17、现上述功能：Private Sub Command1_Click() str1=Trim(Combo1Text)：flag=0 If str1”Then For i=0 To CombolListCount1 If str1=Combo1List(i)Then CombolRemoveltem i：CombolTeXt=”：flag=1 End If Next Ifflag=1 Then CombolAddltem CombolText End If End Sub 程序中存在问题，以下关于程序问题的叙述中，正确的是（分数：2.00）A.For 循环的循环初值 i 应该从 1 开始B.语句 C
18、ombolRemoveItem i 有错误C.语句 CombolAddItem CombolText 有错，CombolText 的内容已存在于组合框中D.应把程序倒数第 3 行中的 Ifflag=1 改为 Ifflag=0 解析：解析：本题中首先用一个循环遍历组合框的所有列表项，依次取出每一个列表项与 str1 进行比较，若相同则删除该项，将 flag 置为 1，否则。flag 为 1；循环结束后如果 flag 的值为 0 则说明没有任何一个现有的列表项与 str1 相同，需要将 str1 添加到组合框中，否则不需添加。28.在窗体上画一个名称为 List1 的列表框，然后编写如下程序： P
19、rivate Sub Form_Click() For i=1 To 10 Item=”Item”&i：List1Addltem Item Next i End Sub 程序运行时，单击窗体，所完成的功能是（分数：2.00）A.向列表框中添加 10 个项目 B.向列表框中添加 11 个项目C.向列表框中添加 10 个数字D.向列表框中添加 110 的和解析：解析：本题中 For 循环执行了 10 次，调用了 10 次 AddItem 方法，向列表框中添加了 10 个项目。29.设窗体上有一个名称为 List1 的列表框和一个名称为 Check1 的复选框数组(下标从 0 开始)。程序运行时，单
20、击某个复选框，如果列表框中没有该复选框的标题，则把该复选框的标题添加到列表框中，否则从列表框中把该复选框标题删除。 Private Sub Check1_Click(Index As Integer) For k=0 To ListlListCount-1 If Checkl(Index)Caption=List1List(k)Then Exit For Next k If kA.kB.Check1CaptionC.Checkl(k)D.Checkl(Index)Caption 解析：解析：横线处应该填写要添加进列表框的项目内容，本题要求添加复选框的标题，由于复选框是一个控件数组，要想确定某一
21、个具体的复选框需要使用控件数组的下标来访问到控件，然后取出标题属性添加进列表框中。30.设窗体上有 1 个滚动条要求单击滚动条右端的篓按钮一次，滚动块移动一定的刻度值，决定此刻度值的属性是（分数：2.00）A.MaxB.MinC.SmallChange D.LargeChange解析：解析：本题考查滚动条属性设置。滚动条的 Max 属性设置最大值，Min 属性设置最小值，SmallChange 决定在滚动条两端的箭头钮上单击时改变的值，LargeChange 决定在滑块上方或下方区域单击时改变的值。31.窗体上有两个水平滚动条 HV、HT，还有一个文本框 Text1 和一个标题为“计算”的命令
22、按钮Command1，并编写了以下下程序： Private Sub Command1_Click() End Sub Pablic Sub calc(x As Integer ，y As Integer) Text1Text=x*y End Sub 运行程序，单击“计算”按钮，可根据速度与时间计算出距离，并显示计算结果。对以上程序，下列叙述中正确的是（分数：2.00）A.过程调用语句不对，应为 calc(HV，HT)B.过程定义语句的形式参数不对，应为 Subcalc(x As Control，y As Control)C.计算结果在文本框中显示出来 D.程序不能正确运行解析：解析：本题考查控
23、件属性和过程调用。在 Commandl 的 Click 事件过程中，调用 calc 过程，传入的参数是两个滚动条的 value 值。在 calc 过程中，把 x 和 y 的乘积(距离)显示在文本框当中。32.滚动条可以响应的事件是（分数：2.00）A.LoadB.Scroll C.ClickD.MouseDown解析：解析：本题考查滚动条事件过程，滚动条可以响应 Scroll 事件。33.设窗体上有一个名称为 HSl 的水平滚动条，如果执行了语句：HS1Value=(HS 1MaxHS1Min)2+HS1Min 则：（分数：2.00）A.滚动块处于最左端B.滚动快处于最右端C.滚动块处于中间位置 D.滚动块可能处于任何位置，具体位置取决于 Max、Min 属性的值解析：解析：本题考查滚动条的使用。根据 HSlValue=(HSlMax-HS1Min)2+HS1Min 可知，HS1Value 是在最小值的基础上加上滚动条长度的一半，因此滚动条的滚动块位于中间位置。
