1、国家二级 VB机试（常用标准控件）-试卷 7及答案解析(总分：64.00，做题时间：90 分钟)一、选择题(总题数：32，分数：64.00)1.为了使文本框只具有垂直滚动条，应先把 MultiLine属性设置为 True，然后再把 ScrollBars 属性设置为（分数：2.00）A.0B.1C.2D.32.若要使文本框能够输入多行文本，应该设置的属性是（分数：2.00）A.MultiLineB.WordWrapC.ScrollBarsD.AutoSize3.窗体上有一个名称为 Command 1的命令按钮，一个名称为 Text1的文本框，其 Text属性值为“VB Programming”。
2、运行程序后，选中其中的“VB”，并执行如下事件过程： Private Sub Command 1_Click() Text1Sel Text=“C+“ End Sub 则文本框中显示的内容为（分数：2.00）A.VBB.VB ProgrammingC.文本框被清空D.C+Programming4.决定标签内容显示位置的属性是（分数：2.00）A.TextB.NameC.AlignmentD.Caption5.)为使文本框具有初始值“VB”，在设计阶段正确的操作是（分数：2.00）A.选中该文本框，在属性窗口中把 Text属性的值改为“VB“B.选中该文本框，在属性窗口中把 Caption属性的
3、值改为“VB”C.双击该文本框，在弹出的窗口中输入“VB”D.单击该文本框，在该文本框中直接输入“VB”6.使用 Line控件在窗体上画一条从(0，0)到(600，700)的直线，则其相应属性的值应是（分数：2.00）A.X1=0，X2=600，Y1=0，Y2=700B.Y1=0，Y2=600，X1=0，X2=700C.X1=0，X2=0，Y1=600，Y2=700D.Y1=0，Y2=0，X1=600，X2=7007.已知图片框 Picturel中已装入一个图形，为了在不删除图片框的前提下，清除该图形，应采取的正确操作是（分数：2.00）A.在设计阶段选择图片框 Picturel，并按 Del
4、ete键B.在运行期问执行语句 Picture 1Picture=LoadPicture(“)C.在运行期间执行语句 PicturelPicture=“D.在设计阶段先选中图片框 Picturel，再在属性窗口中选择 Picture属性，最后按 Enter键8.设窗体上有 2个直线控件 Line1和 Line2，若使两条直线相连接，需满足的条件是（分数：2.00）A.Line1X1=Line2X2 且 Line1Y1=Line2Y2B.Line1X1=Line2Y1 且 Line1Y1=Line2X1C.Line1X2=Line2X1 且 Line1Y1=Line2Y2D.Line1X2=Li
5、ne2X1 且 Line1Y2=Line2Y29.设窗体上有一个 Picturel图片框，要求在图片框中的指定位置(坐标为(500，300)输出“OK”，下面可以实现这一功能的事件过程是（分数：2.00）A.Private Sub Form_Click() Picture 1CurrentX=500 Picture 1CurrentY=300 Picture 1Print“OK“ End SubB.Private Sub Form_Click() PicturelLeft=500 PicturelTop=300 Picture 1Print“OK“ End SubC.Private Sub F
6、orm_Click() Picture 1CurrentX=500 Picture 1CurrentY=300 Print“OK“ End SubD.Private Sub Form_Click() PicturelLeft=500 PicturelTop=300 Print“OK“ End Sub10.如果把命令按钮的 Cancel属性设置为 True，则程序运行后（分数：2.00）A.按 Esc键与单击该命令按钮的作用相同B.按回车键与单击该命令按钮的作用相同C.按 Esc键将停止程序的运行D.按回车键将中断程序的运行11.若已把一个命令按钮的 Default属性设置为 True，则下面可
7、导致按钮的 Click事件过程被调用的操作是（分数：2.00）A.用鼠标右键单击此按钮B.按键盘上的 Esc键C.按键盘上的回车键D.用鼠标右键双击此按钮12.如果将命令按钮的访问键设置为“D”，以下不会触发命令按钮 Click事件的操作是（分数：2.00）A.在命令按钮上单击鼠标左键B.在命令按钮上单击鼠标右键C.将焦点移至命令按钮上，并按 Enter键D.按组合键“Alt+D”13.对于列表框控件 List 1，能够表示当前被选中列表项内容的是（分数：2.00）A.List 1TextB.List 1IndexC.List 1ListIndexD.List 1List14.为了清除列表框中
8、指定的项目，应使用的方法是（分数：2.00）A.ClsB.ClearC.RemoveD.RemoveItem15.窗体上有一个列表框控件 List 1。以下叙述中错误的是（分数：2.00）A.List 1中有 ListCount-1个列表项B.当 List 1Selected(i)=True，表明第 i项被选中C.设置某些属性，可以使列表框显示多列数据D.List 1Text 的值是最后一次被选中的列表项文本16.下面列表框属性中，是数组的是（分数：2.00）A.ListCountB.SelectedC.List 1ndexD.MultiSelect17.窗体上有一个名称为 Text1的文本框
9、，一个名称为 Combol的组合框。将文本框中的内容添加到组合框所使用的命令是（分数：2.00）A.Text1AddItem CombolTextB.CombolAddltem Text1TextC.CombolText=Text1TextD.Text1Text=CombolText18.如果在列表框 List 1 中没有选中项目，则 List 1ListIndex 的值为（分数：2.00）A.-1B.0C.1D.219.以下不能设置 Picture属性的控件是（分数：2.00）A.窗体B.列表框C.复选框D.命令按钮20.设窗体上有一个名称为 List 1的列表框，并有若干列表项。下面语句中
10、不能在所有列表项之后追加一个列表项的是（分数：2.00）A.List 1List(List 1ListCount)=“VB 程序“B.List 1List(List 1ListCount1)=“VB 程序“C.List 1AddItem“VB 程序“D.List 1Addltem“VB 程序“，List 1ListCount21.以下关于控件的叙述中，正确的是（分数：2.00）A.列表框包含了组合框的全部功能B.列表框兼有组合框和文本框的功能C.列表框和组合框具有完全不同的功能D.组合框兼有列表框和文本框的功能22.窗体上有一个名称为 Combol的组合框，一个名称为 Command 1的命令
11、按钮。要求编写程序，在组合框中输入一个字符串，当单击命令按钮时，将该字符串逐项与组合框中原有列表项进行比较，若有相同列表项，则将其删除；若没有相同列表项，则将其添加到组合框中。现有人编写如下程序，以期实现上述功能：Private Sub Command 1_Click() strl=Trim(CombolText) flag=0 If strl“Then For i=0 To CombolListCount-1 If strl =CombolList(i)Then CombolRemoveItem i：CombolText=“ flag=1 End If Next Ifflag=1 Then
12、CombolAddItem CombolText End If End Sub 程序中存在问题，以下关于程序问题的叙述中，正确的是（分数：2.00）A.For循环的循环初值 i应该从 1开始B.语句 CombolRemoveItem i 有错误C.语句 CombolAddItem CombolText 有错，CombolText 的内容已存在于组合框中D.应把程序倒数第 3行中的 Ifflag=l改为 Ifflag=0 解析：解析：本题中首先用一个循环遍历组合框的所有列表项，依次取出每一个列表项与 strl进行比较，若相同则删除该项，将 flag置为 1，否则 flag为 0；循环结束后如果
13、flag的值为 0则说明没有任何一个现有的列表项与 str1相同，需要将 str1添加到组合框中，否则不需添加。23.关于水平滚动条，如下叙述中错误的是（分数：2.00）A.当滚动框的位置改变时，触发 Change事件B.当拖动滚动条中的滚动框时，触发 Scroll事件C.LargeChange属性是滚动条的最大值 D.Value是滚动条中滚动框的当前值解析：解析：滚动条通常用来帮助观察数据或确定位置，也可用来作为数据输入的工具。Value 是滚动条中滚动框的当前值，当滚动条的 Value属性值改变时会触发 Change事件。当拖动滚动条中的滚动框时，触发 Scroll事件。LargeChan
14、ge 属性用于设置或返回单击滚动条中滚动框前面或后面的部位时，Value 属性增加或减小的增量值：Max 属性是滚动条的最大值。24.窗体上有一个名称为 HScrol11的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是（分数：2.00）A.Private Sub HScrol11_Change() Print HScroll 1Value End Sub B.Private Sub HScrol11_Change() Print HScroll 1SmallChange End SubC.Private Sub HScr
15、ol11_Scroll() Print HScroll 1Value End SubD.Private Sub HScrol11_Scroll() Print HScroll 1SmallChange End Sub解析：解析：本题考查的考点是有关滚动条的属性和事件的。单击滚动条的箭头时将触发 Change事件，而滚动块的位置由 Value属性返回。25.程序运行时，拖动滚动条上的滚动框，则所触发的事件是（分数：2.00）A.MoveB.Scroll C.DragD.DragDrop解析：解析：当滚动条的 Value属性值改变时会触发 Change事件。当拖动滚动条中的滚动框时，触发Scrol
16、l事件。26.)下列关于滚动条的叙述中，错误的是（分数：2.00）A.在滚动条内单击滚动框前面或后面的部位时，会触发 Scroll事件 B.在滚动条内拖动滚动框时，会触发 Scroll事件C.在滚动条内拖动滚动框后，会触发 Change事件D.单击滚动条两端的箭头时，会触发 Change事件解析：解析：滚动条通常用来帮助观察数据或确定位置，也可用来作为数据输入的工具。Value 是滚动条中滚动框的当前值，当滚动条的 Value属性值改变时会触发 Change事件。当拖动滚动条中的滚动框时，触发 Scroll事件。27.设窗体上有一个标签 Labell和一个计时器 Timerl，Timerl 的
17、 Interval属性被设置为 1000， Enabled属性被设置为 True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是（分数：2.00）A.Private Sub Timer 1_Timer() Label 1Caption=True End SubB.Private Sub Timer 1_Timer() Label 1Caption=TimeS End Sub C.Private Sub Timer 1_Timer() LabellInterval=1 End SubD.Private Sub Timer 1_Timer() For k=1 TO
18、 Timer1Interval Label 1Caption=Timer Next k End Sub解析：解析：本题考查的考点是有关计时器的。计时器的 Interval属性决定了每隔多长时间触发一次Timer事件。本题中 Interval设置为 1000，即每 1秒触发一次 Timer事件。在事件中把标签的 Caption属性设置成为当前时间，用 Time函数可以得到当前时间。28.下列不属于计时器控件属性的是（分数：2.00）A.EnabledB.IntervalC.IndexD.Visible 解析：解析：计时器具有 Name和 Enabled两个标准属性。另外一个重要属性，Interv
19、al 属性用于设置触发计时器事件之间的间隔，以毫秒为单位，取值范围为 064767，当值为 0或为负值时计时器不启用。计时器本身是不能显示出来的，故此没有 Visible属性。29.窗体上有一个名称为 Shapel并显示为圆的形状控件(其 Width和 Height属性值相等)，一个名称为Timerl的计时器，并有下面程序代码： Dim r As Singleflag As Integer Private Sub Timerl_Timer() Private Sub Form_Load() Ifflag=0 Then r=ShapelWidth ShapelWidth=ShapelWidth-
20、10 TimerlEnabled=True If Shape 1Width=r Then flag=0 End If End If End Sub 运行程序后产生的结果是（分数：2.00）A.圆逐渐缩小，再逐渐增大，然后再逐渐缩小，依此往复 B.圆一直在缩小C.圆每隔 05 秒向右移动一次D.圆每隔 1秒向下移动一次解析：解析：本题在计时器的 Timer事件中，如果 flag为 0，让圆的宽度逐渐减小，一直到 100以下，将 flag置为 1；如果 flag为 1，让圆的宽度逐渐增大，一直到大于原来的宽度 r则将 flag置为 0；则圆逐渐缩小，再逐渐增大，然后再逐渐缩小，依此往复。30.如果
21、在框架中画了 2个复选框：且框架的 Enabled属性被设置为 False，2 个复选框的 Enabled 属性被设置为 True，则下面叙述中正确的是（分数：2.00）A.2个复选框可用B.2个复选框不可用 C.2个复选框不显示D.上述都不对解析：解析：框架是一个容器控件，若其 Enabled属性被设置为 False，则无论其内部的控件的 Enabled属性被设置为何值，控件都不可用。31.窗体上有名称为 Command 1的命令按钮和名称为 Text1的文本框 Private Sub Command 1_Click() Private Sub Text 1_GotFocus() Text1
22、Text=“程序设计“ Text1Text=“等级考试“ Text1SetFocus End Sub End Sub 运行以上程序，单击命令按钮后（分数：2.00）A.文本框中显示的是“程序设计”，且焦点在文本框中B.文本框中显示的是“等级考试”，且焦点在文本框中 C.文本框中显示的是“程序设计”，且焦点在命令按钮上D.文本框中显示的是“等级考试”，且焦点在命令按钮上解析：解析：SetFocus 方法用于将焦点移到指定的对象上，而当一个对象获得焦点时将触发其 GotFocus事件过程。32.以下能接收焦点的控件是（分数：2.00）A.图像框B.框架C.命令按钮 D.标签解析：解析：只有能输入的输入型控件才能够接收焦点，本题四个选项中只有命令按钮是输入型控件，可以接收焦点
