[计算机类试卷]国家二级（VB）机试模拟试卷83及答案与解析.doc

1、国家二级（ VB）机试模拟试卷 83及答案与解析 一、选择题 1 下列叙述中正确的是 ( )。 （ A）程序执行的效率与数据的存储结构密切相关 （ B）程序执行的效率只取决于程序的控制结构 （ C）程序执行的效率只取决于所处理的数据量 （ D）以上说法均错误 2 下列与队列结构有关联的是 ( )。 （ A）函数的递归调用 （ B）数组元素的引用 （ C）多重循环的执行 （ D）先到先服务的作业调度 3 对下列二叉树 进行前序遍历的结果为 ( )。 （ A） DYBEAFCZX （ B） YDEBFZXCA （ C） ABDYECFXZ （ D） ABCDEFXYZ 4 个栈的初始状态为空。现将

2、元素 1， 2， 3， A， B， C依次入栈，然后再依次出栈，则元素出栈的顺序是 ( )。 （ A） 1， 2， 3， A， B， C （ B） C， B， A， 1， 2， 3 （ C） C， B， A， 3， 2， 1 （ D） 1， 2， 3， C， B， A 5 下面属于白盒测试方法的是 ( )。 （ A）等价类射分法 （ B）逻辑覆盖 （ C）边界值分析法 （ D）错误推测法 6 下面对对象概念描述正确的是 ( )。 （ A）对象间的通信靠 消息传递 （ B）对象是名字和方法的封装体 （ C）任何对象必须有继承性 （ D）对象的多态性是指一个对象有多个操作 7 软件设计中模块划分应

3、遵循的准则是 ( )。 （ A）低内聚低耦合 （ B）高耦合高内聚 （ C）高内聚低耦合 （ D）以上说法均错误 8 下面描述中不属于数据库系统特点的是 ( )。 （ A）数据共享 （ B）数据完整性 （ C）数据冗余度高 （ D）数据独立性高 9 数据库设计过程不包括 ( )。 （ A）概念设计 （ B）逻辑设计 （ C）物理设计 （ D）算 法设计 10 有三个关系 R、 S和 T如下： 则由关系 R和 S得到关系 T的操作是 ( )。 （ A）皂签连接 （ B）交 （ C）投影 （ D）并 11 下面操作中，不能正确保存正在编辑的工程的是 ( )。 （ A）鼠标右键单击 “工程资源管理器

4、窗口 ”中该工程的图标，在弹出的菜单中选“保存工程 ” （ B）单击 “文件 ”菜单，在下拉菜单中选 “保存工程 ” （ C）单击 “工程 ”菜单，在下拉菜单中选 “保存工程 ” （ D）直接单击工具栏上的 安钮 12 下面为单精度实型 (即单精度浮点型 )变量的是 ( )。 （ A） x$ （ B） x& （ C） x! （ D） x# 13 语句： Print Int(Rnd*5+20)的输出不可能是 ( )。 （ A） 20 （ B） 22 （ C） 24 （ D） 25 14 设变量 x的值是 845，则下面语句的输出是 ( )。 Print x 100+(x Mod 100) 10+

5、x Mod 10 （ A） 17 （ B） 548 （ C） 845 （ D） 485 15 有下面的程序段： x=InputBox(”字符串 ”， ”输入 ”， ”请输入 ”) Print x 如果执行上面程序段时没有从键盘输入任何内容就直接按了回车键，则输出内容是( )。 （ A）字符串 （ B）输入 （ C）请输入 （ D）空白 (即未输出任何内容 ) 16 在下面语句或函数中，不能描述选择结构的是 ( )。 （ A） If语句 （ B） IIf函数 （ C） Select Case语句 （ D） While语句 17 如果要在语句： a=Array(1， 2， 3， 4， 5)的前面声

6、明变量 a，则正确的声明是( )。 （ A） Dim a(4) As Integer （ B） Dim a(5)As Variant （ C） Dim a(1 To 5) As Integer （ D） Dim a As Variant 18 在 VB中，函数过程与子程序过程的区别之一是 ( )。 （ A）函数过程必须有参数，而子程序过程可以没有 （ B）函数过程的参数传递只采用值传递，而子程序过程只采用地址传递 （ C）在程序中，子程序过程调用的代码可以写在表达式中，而函数过程不能 （ D）函数过程有返回值，而子程序过程没有 19 设有以下定义语句： Private Type point x

7、 As Integer y As Integer End Type Dim a As point 下面语句中正确的是 ( )。 （ A） a=12 （ B） a x=12 （ C） point=12 （ D） point x=12 20 下面关于 VB数据文件的叙述中错误的是 ( )。 （ A） VB数据文件不包括 VB的窗体文件 （ B） VB应用程序可以用随机方式读写数据文件 （ C） VB应用程序在读写数据文件之前，必须用 Open语句打开该文件 （ D） VB应用程序不能把一个二维表格中的数据存入文件 21 为使文本框具有初始值 “VB”，在设计阶段正确的操作是 ( )。 （ A）选中

8、该文本框，在属性窗口中把 Text属性的值改为 “VB” （ B）选中该文本框，在属性窗口中把 Caption属性的值改为 “VB” （ C）双击该文本框，在弹出的窗口中输入 “VB” （ D）单击该文本框，在该文本框中直接输入 “VB” 22 下列控件中，不响应 Click事件的是 ( )。 （ A）框架 （ B）标签 （ C）图像框 （ D）形状 23 下 面关于命令按钮的叙述中错误的是 ( )。 （ A）命令按钮上可以显示图片 （ B）命令按钮上的文字就是其 Caption属性的值 （ C）在程序运行过程中，不能改变命令按钮的标题 （ D）运行程序时，当命令按钮获得焦点后，按下 Ente

9、r键也能激活它的 Click事件 24 设窗体上有一个名称为 Check1的复选框，并有下面程序代码： Private Sub Checki_MouseDown(Button As Integer， X As Single， Y As Single) Check1 Value=1 End Sub 根据上面的事件过程，可以得出结论 ( )。 （ A）鼠标单击该复选框，复选框的标题被改为 “1” （ B）鼠标右键单击该复选框，可以选中该复选框 （ C）鼠标左键单击该复选框，它被选中，右键单击它，取消选中 （ D）鼠标右键单击该复选框，它被选中，左键单击它，取消选中 25 设窗体上有 1个名称为 H

10、Scroll1的水平滚动条，其 Max、 Min属性分别设置为100、 1；有 2个名称分别为 Optionl、 Option2的单选按钮，其标题分别为 “30”、 “50”；还有下面程序代码： Private Sub Option1_Click() HScroll1=Val(Option1 Caption) End Sub Private Sub Option2_Click() HScroll1=Val(Option2 Caption) End Sub 程序运行时，单击 Option2单选按钮，则滚动条上滚动框的位置是 ( )。 （ A）在最左边 （ B）在最右边 （ C）在中间 （ D）在

11、中间偏左的位置 26 设窗体上有一个名称为 List1的列表框，并有若干列表项。下面语句中不能在所有列表项之后追加一个列表项的是 ( )。 （ A） List1 List(List1 ListCount)=“VB程序 “ （ B） List1 List(List1 ListCount-1)=“VB程序 “ （ C） List1 AddItem“VB程序 “ （ D） List1 Addhem“VB程序 “， Listl ListCount 27 设窗体上有一个名称为 Timer1的计时器控件，其 Interval属性被设置为 500，Enabled属性被设置为 True；还有一个名称为 Tex

12、t1的文本框和下面的事件过程： Private Sub Timer1_Timer() Static x As Long x=x+1 Text1=x End Sub 程序运行一段时间后，文本框中显示的是 100，则表示 ( )。 （ A）程序已经运行了 100秒 （ B）程序已经运行了 100毫秒 （ C）程序已经运行了 50秒 （ D）文本框到窗体左边框的距离是 100 28 有下面事件过程： Private Sub Form_MouseMove(Button As Integer， Shift As Integer， X As Single，Y As Single) If Button=2

13、Then Form1 PSet(X， Y) PSet方法可以在 X， Y处画一个点 End If End Sub 程序运行后，产生的效果是 ( )。 （ A）在窗体上每单击鼠标左键一次，就在鼠标位置处画一个点 （ B）按着鼠标左键，移动鼠标，可在窗体上画出鼠标的运动轨迹 （ C）按着鼠标右键，移动鼠标，可在窗体上画出鼠标的运动轨迹 （ D）不按任何鼠标键，移动鼠标，可在窗体上画出鼠标的运动轨迹 29 下面关于控件数组的叙述中正确的是 ( )。 （ A）控件数组中所有控件的名称相同，但其 Index属性值各不相同 （ B）控件数组中所有控件的名称相同，但其 Value属性值各不相同 （ C）控件

14、数组中每个元素都是独立的控件，因此都有各自的事件过程 （ D）上述都是错误的 30 下面关于菜单的叙述中正确的是 ( )。 （ A）为了使得选中一个菜单项就可以执行某种操作，要为它的 Click事件过程编写执行该操作的代码 （ B）同一级菜单中的菜单项不能同名，但不同级菜单中的菜单项可以同名 （ C）只能使用鼠标右键把弹出式菜单弹出来 （ D）弹出式菜单中的菜单项不能再有自己的子菜单 31 有下面程序代码： Private Sub Command1_Click() For k=5 To 1 Step-1 x=k+x*10 Next k Print x End Sub 程序运行后，单击命令按钮

15、Commandl，输出结果是 ( )。 （ A） 12345 （ B） 54321 （ C） 15 （ D） 150 32 有下面程序代码： Private Sub Command1_Click() a=3 s=0 For k=1 To 5 s=s+a Mod k a=a+k Next k Print s End Sub 程序运行后，单击命令按钮 Command1，输出结果是 ( )。 （ A） 15 （ B） 13 （ C） 4 （ D） 1 33 有下面程序代码： Private Sub Command1_Click() Dim sign As Integer sign=1 a=1 b=2

16、 For k=1 To 5 c=a+sign*b a=b b=c Print C； sign=-sign Next k End Sub 程序运行后，单击命令按钮 Command1，输出结果是 ( )。 （ A） 3 -1 2 -3 -1 （ B） 3 5 8 13 21 （ C） -1 1 -2 -1 -1 （ D） 3 4 5 6 7 34 有下面程序代码： Private Sub Command1_Click() Dim a As String a=“COMPUTER“ n=search(a， “T“) Print IIf(n=0， “未找到 “， n) End SUd Private F

17、unction search(str As String， ch As String)As Integer For k=1 To Len(str) c=Mid(str， k， 1) If c=ch Then search=k Exit Function End If Next k search=0 End Funcfion 程序运行后，单击命令按钮 Command1，输出结果是 ( )。 （ A） 0 （ B） 8 （ C） 6 （ D）未找到 35 有下面程序代码： Private Sub Command1_Click() a=Array(1， 2， 3， 4， 5， 6， 7， 8， 9，

18、 10) n=UBound(a) For k=0 To UBound(a) 2 Print a(k)*a(n)； n=n-1 Next k End Sub 程序运行后，单击命令按钮 Commandl，输出结果是 ( )。 （ A） 2 6 12 20 30 （ B） 2 12 20 56 90 （ C） 30 28 24 18 10 （ D） 10 18 24 28 30 36 有下面程序代码 ： Private Sub Command1_Click() Dim x As Integer， s As Integer x=1 For k=1 To 3 x=x+1 proc x s=s+x Nex

19、t k Print s End Sub Private Sub proc(ByVal a As Integer) Static x As Integer x=x+1 a=a+x End Sub 程序运行后，单击命令按钮 Command1，输出结果是 ( )。 （ A） 6 （ B） 9 （ C） 15 （ D） 19 37 窗体上有 1个 Timerl计时器， 1个 Shape1形状控件，还有下面程序代码： Dim flag As Boolean Private Sub Form_Load() flag=True Timer1 Enabled=True Timer1 Interval=1000

20、 End Sub Private Sub Timer1_Timer() If flag Then Shape1 Height=Shape1 Height*2 Shape1 Width=Shape1 Width*2 Else Shape1 Height=Shape1 Height*0 5 Shape1 Width=Shape1 Width*0 5 End If flag=Not flag End Sub 执行程序所产生的效果是 ( )。 （ A） Shape1形状的尺寸在缩小到原来一半和恢复原状这 2种状态间切换，每秒切换一次 （ B） Shape1形状的尺寸在扩大到原来 2倍和恢复原状这 2种

21、状态间切换，每秒切换一次 （ C） Shape1形状的尺寸在缩小到原来一半和扩大到原来 2倍这 2种状态间切换，每秒切换一次 （ D） Shape1形状的尺寸会不断扩大 38 有下面程序代 码： Option Base 1 Private Sub Command1_Click() Dim a(10)As Integer， x， b x=InputBox(“请输入一个多位整数 “) For k=1 To Len(x) b=Mid(x， k， 1) a(Val(b)+1)=a(val(b)+1)+1 Next k For k=1 To 10 Print a(k)； Next k End Sub 程

22、序运行时，单击命令按钮 Command1，输入 2355270224，则输出是 ( )。 （ A） 1.04112e+009 （ B） 4.11201e+008 （ C） 2.35527e+009 （ D） 4.22073e+009 39 设窗体上有 Text1、 Text2两个文本框，并编写了下面的程序代码： Private Sub Text1_KeyPress(KeyAscii As Integer) If “A“ =Chr(KeyAscii)A nd Chr(KeyAscii) =“Z“Then KeyAscii=KeyAscii+(Asc(“a“)-Asc(“A“) End If n=

23、0 If KeyAscii=13 Then For k=1 To Len(Text1) ch =Mid(Textl， k， 1) If“a“ =ch And ch =“z“ Then n=n+1 Next k Text2=n End If End Sub 程序运行时，在 Text1文本框中输入 “Visual Basic 6 0”后按回车键，则在 Text2文本框显示的是 ( )。 （ A） 11 （ B） 16 （ C） Visual Basic 6 0 （ D） visual basic 6 0 40 工程中有 Form1、 Form2两个窗体 (Forml中有文本框 Text1， For

24、m2中有 Text1文本框和 command1命令按钮 )。 Form1是启动窗体。在这些模块中编写下面的程序代码： Form1中的代码如下： Private Sub Text1_DblClick() Text1=“VisualBasic“ Form2 Show End Sub Form2中的代码如下： Private Sub Conmmnd1_Click() Text1=Form1 Text1 Form1 Show End Sub 下面关于程序的叙述中错误的是 ( )。 （ A）双击 Form1的 Text1后， Text1中显示 “VisualBasic”，弹出 Form2 （ B）双击

25、Rorm1的 Text1后， Form2成为当前窗体 （ C）单击 Form2的命令按钮， Form1成为当前窗体 （ D） Form2的 Text1=Form1 Text1语句不能正确执行 二、基本操作 题 41 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1、标题为 “控件数组 ”的窗体上，添加 1个名称为 Cmd1的控件数组，该控件数组由三个命令按钮组成，其标题分别是 “插入 ”、 “删除 ”和 “更新 ”，索引号分别为 0、 1、 2。程序运行后的窗体如图所示。 *注意：存盘时必须存放在考生文件夹下，工程文件名保存为 S

26、jt1 vbp，窗体文件名保存为 sjt1 frm。(2)在名称为 Forml的窗体上添加 1个名称为 Text1、内容为“计算机 ”的文本框，且文本内容显示 为小四号字；再添加 3个命令按钮，名称分别为 “Command1”、 “Command2”和 “Command3”，标题分别是 “居左 ”、 “居中 ”、 “居右 ”，如图所示。 要求：编写 3个命令按钮的 Click事件过程，使得单击 “居右 ”按钮时，文本框的内容靠右对齐；单击 “居中 ”按钮时，文本框的内容居中对齐；单击 “居左 ”按钮时，文本框的内容将靠左对齐。程序中不得使用变量，每个事件过程中只能写一条语句。 *注意：存盘时必

27、须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为 sjt2 frm。 三、简单应用 题 42 考生文件夹下的工程文件 sjt3 vbp中有 2个初始标题分别为 “移动 ”和 “退出 ”的命令按钮； 1个初始状态为不可用的时钟 Timer1。请添加 1个标签 Label1，其标题为 “计算机考试 ”，字体为黑体小四号字，左边界为 500，且能根据显示的内容自动调整大小，如图所示。 程序功能如下： 单击标题为 “移动 ”的按钮时，该按钮标题自动变换为 “暂停 ”，且标签在窗体中开始向右移动。当标签右侧到达窗体右边界时，标签移动的方向改变为从右向左移动；当标签左侧触及窗体左

28、边界时，标签移动的方向改变为从左向右移动，如此反复 。 单击标题为 “暂停 ”的按钮时，该按钮的标题自动变换为 “移动 ”，并暂停标签内容的移动。 单击 “退出 ”按钮，则结束程序的运行。命令按钮的 Click事件过程已经给出，但事件过程不完整，请将其中注释符去掉，把 “？ ”改为正确的内容，以实现上述程序的功能。 注意：不得修改窗体文件中已经存在的控件和程序，最后将修改后的文件按原文件名进行存盘。 43 考生文件夹下的工程文件 sit4 vbp中有 1个标题为 “编号 ”的标签 Label1， 1个用于接收选手编号的初始文本为空的文本框 Text1； 1个含有 10个元素的文本框控件数组 T

29、ext2用于接收 10个评委对某选手的打分；另有 1个含有 10个元素的标签控件数组 Label2用于显示评委名称： “评委 1”、 “评委 2” ，还有 1个标题为 “统计得分 ”的命令按钮。请再添加 1个图片框 Pieture1， 2个根据显示的内容自动调整大小、标题分别为 “选手编号 ”和 “得分 ”的标签 LabeB和 Label4，如图所示。程序功能如下： 在 Text1文本框中输入选手编号，并在 Text2文本框控件数组中输入 10个评委对该选手的打分情况后，单击 “统计得分 ”按钮，则对 10个评委的打分去掉一个最高分和一个最低分之后求平均分，该平均分即为选手的最后得分。最后将选

30、手编号和得分显示在图片框Picture1中，并将 Text1、 Text2的内容置为空。 命令按钮的 Click事件过程已经给出，但是事件过程并不完整，请将其中的注释符去掉，把 “?”改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名进行存盘。 四、综合应用题 44 在考生文件夹下有一个工程文件 sjt5 vbp，其窗体上有两个标题分别为 “读数据 ”和 “统计 ”的命令按钮。请添加两个标签，其名称分别是 Label11和 Labe12，标题分别为 “单词的平均长度为 ”和 “最长单词的长度为 ”；再添加两个名称分别为Text1和 Tex

31、t2，。 Text属性为空的文本框，如图所示。程序功能如下： 如果单击 “读数据 ”命令按钮，则将考生文件夹下 in5 dat文件的内容读到变量 s中 (此过程已给出 )； 如果单击 “统计 ”按钮，则自动统计变量 s(s中仅含有字母和空格，而空格是用 来分隔不同单词的 )中每个单词的长度，并将所有单词的平均长度 (四舍五入取整 )在 Text1文本框内显示，将最长单词的长度在 Text2文本框内显示。 “读数据 ”命令按钮的 Click事件过程已经给出，请为 “统计 ”命令按钮编写适当的事件过程，实现上述功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序之前，必须进行统计，

32、且必须通过单击窗体右上角的 “关闭 ”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 国家二级（ VB）机试模拟试卷 83答案与解析 一、选择题 1 【正确答案】 A 【 试题解析】 程序执行的效率与数据的存储结构、数据的逻辑结构、程序的控制结构和所处理的数据量等有关。 2 【正确答案】 D 【试题解析】 队列的修改是依 “先进先出 ”的原则进行的， D正确。 3 【正确答案】 C 【试题解析】 前序遍历是指在访问根节点、遍历左子树与遍历右子树这 j者中，首先访问根节点，然后遍历左子树，最后遍历右子树；并且，在遍历左右子树时，仍然先访问根节点，然后遍历左子树，最后遍历右子树。前序遍历描述

33、为：若二叉树为空，则执行空操作。否则 访问根节点； 前序遍历左子树； 前序遍历 右子树。 C正确。 4 【正确答案】 C 【试题解析】 栈的修改是按 “后进先出 ”的原则进行的，所以顺序应与入栈顺序相反，故选 C。 5 【正确答案】 B 【试题解析】 白盒测试法主要有逻辑覆盖、基本路径测试等。逻辑覆盖测试包括语句覆盖、路径覆盖、判定覆盖、条件覆盖、判断一条件覆盖，选择 B。其余为黑盒测试法。 6 【正确答案】 A 【试题解析】 对象之问进行通信的构造叫做消息， A正确。多态性是指同一个操作可以是不同对象的行为， D错误。对象不一定必须有继承性， C错误。封装性是指从外面看 只能看到对象的外部特

34、征，而不知道也无须知道数据的具体结构以及实现操作， B错误。 7 【正确答案】 C 【试题解析】 根据软件设计原理提出如下优化准则： 划分模块时，尽量做到高内聚、低耦合，保持模块相对独立性，并以此原则优化初始的软件结构。 一个模块的作用范围应在其控制范围之内，且判定所在的模块应与受其影响的模块在层次上尽量靠近。 软件结构的深度、宽度、扇入、扇出应适当。 模块的划、要适中。 C正确。 8 【正确答案】 C 【试题解析】 数据库系统的特点为高共享、低冗余、独立性高、具 有完整性等，C错误。 9 【正确答案】 D 【试题解析】 数据库设计过程主要包括需求分析、概念结构设计、逻辑结构分析、数据库物理设

35、计、数据库实施、数据库运行和维护阶段。答案为 D选项。 10 【正确答案】 A 【试题解析】 关系 R和关系 s有公共域，关系 T是通过公共域的等值进行连接的结果，符合自然连接，选 A。 11 【正确答案】 C 【试题解析】 “工程 ”的下拉菜单中没有 “保存工程 ”。 12 【正确答案】 C 【试题解析】 $：字符串型， &：长整型， !：单精度实型， #：双 精度实型。 13 【正确答案】 D 【试题解析】 本题考查 Rnd随机函数和 Int取整函数，首先 Rnd随机函数的范围为 0， 1)， Int函数的作用是返回不大于自变量的最大整数，所以当 Rnd * 5后变为 0， 5)，再加上

36、20变为 20， 25)，经取整后变为 20， 24，所以本题的正确答案是选项 D。 14 【正确答案】 A 【试题解析】 整除运算 ( )的结果是商的整数部分。例如， 7、 2表示整除，商为4 5，结果取整数部分 3，不进行四舍五入。如果参加整除的操作数是浮点数，则先按四舍五入的原则 将它们变成整数，然后再执行整除运算。例如，对于 8 52，先将 8 5变成 9再进行整除，商为 4 5，结果为 4。 取余运算 (Mod)是求两个整数相除后的余数。如果参加取余运算的操作数是浮点数，则先按四舍五入的原则将它们变成整数，然后再执行取余运算。例如，对于8 5、 2 1，先将 8 5变成 9， 2 1

37、变成 2，然后 9除以 2与 1，因此取余结果为1。 算术运算符的优先级：先乘除，后加减；乘方优先于乘除；函数优先于乘方；Mod次于乘除而优先于加减；括号最优先。 本题中， x 100结果为 8， (x Mod 100) 10结果为 4， xMod 10结果为 5，所以输出为 17，选项 A正确。 15 【正确答案】 C 【试题解析】 在题目已给语句中，： InputBox函数使用了 3个参数：第一个参数 “字符串 ”用于显示信息；第二个参数 “输入 ”用来显示对话框的标题；第三个参数 “请输入 ”是默认输入值，在输入区显示出来。选项 c正确。 16 【正确答案】 D 【试题解析】 While

38、语句不能描述选择结构。 17 【正确答案】 D 【试题解析】 Array函数只能初始化变体类型变量数组，所以选项 D正 确。 18 【正确答案】 D 【试题解析】 在 Visual Basic中有两类过程：一类是系统提供的内部函数和事件过程；另一类是用户根据自己的需要定义的，供事件过程的多次调用。在第二类过程中，涉及最多的是子过程。它们的共同点是完成某种特定功能的一组程序代码；不同的是函数是可以直接返回值的特殊过程，所以函数过程定义时有返回值的类型说明。两者最大的区别就是 Sub过程不能直接返回值，而 Function过程能直接返回值。 19 【正确答案】 B 【试题解析】 用户可以利用 Ty

39、pe语句定义自己的数 据类型，其格式如下： Type自定义类型名 元素名 (下标 )As类型名 元素名 (下标 )As类型名 End Type 要表示某个自定义数据类型的变量中某个元素时，形式如下：变量名，元素名。所以选项 B是正确的。 20 【正确答案】 D 【试题解析】 Visual Basic应用程序可以把一个二维表格中的数据存入文件。 21 【正确答案】 A 【试题解析】 根据题意，执行选中文本框操作，在属性窗口中把 Text属性的值改为 “VB”。 22 【正确答案】 D 【试题解析】 形状控件不响应 Click事件。 23 【正确答案】 C 【试题解析】 在程序运行过程中，可以改变

40、命令按钮的标题。 24 【正确答案】 B 【试题解析】 在鼠标单击事件过程中， Button属性值为 1时代表按下鼠标左键，值为 2时代表按下鼠标右键，单击鼠标左键或者右键都能触发 MouseDown事件。Vague属性值决定每个复选框的选中状态： 0为未选、 1为选中、 2为不可用 (以灰色呈现 )。选 B。 25 【正确答案】 C 【试题解析】 滚动条的 Value属性用于设置滚动条所处的位置。 Max和 Min属性分别设置滚动条的最大值和最小值，水平滚动条的最左端为 Min，最右端为Max， Max的值减去 Min的值得到当前滚动条的刻度个数。单击 Option2单选按钮，滚动条的位置设

41、置为 50，正好在整个滚动条的中间。因此，答案为 C。 26 【正确答案】 B 【试题解析】 List控件的 ListCount属性返回列表部分项目的个数。List1 ListCount-1是倒数第二个。故答案选 B。 27 【正确答案】 C 【试题解析】 过程 Timer1-Timer()按计时器的 Interval属性值定时运行。该属性用来设置计时器事件之间的间隔，以毫秒为单位，取值范围为 0 65535，因此其最大时间间隔不能超过 65秒。文本框中显示值是 100时，表示 Timer1_Timer()运行了 100次，则运行时间是 100*500毫秒 =50秒。所以本题答案为 C。 28

42、 【正确答案】 C 【试题解析】 MouseMove中 Button是一个整数，它对应鼠标各个按钮的状态，如果某个按钮按下，其中就有一个二进制位被设置。 Button参数是具有相应于左按钮 (位 0)，右按钮 (位 1)，以及中间按钮 (位 2)的一个位字段。这些位的值分别等于 l， 2，和 4。它指示这些鼠标按钮的整体状态；三个二进制位中的一些、全部、或一个也没有被设置，指示这些按钮中的一些、全部、或一个也没有被按下。程序中 Button=2表示鼠标右键被按下。故答案选 C。 29 【正确答案】 A 【试题解析】 控件数组的 Index属性，标识数组中的每个控件，使之与其他控件能够区分开来，

43、索引在内部必须是唯一的，不能与其他相同。表示在一个集合中，其他集合的索引与这个集合的索引无关。故答案选 A。 30 【正确答案】 A 【试题解析】 Click事件在鼠标单击时触发，要选中菜单项就执行某种操作，可以在 Click事件过程中编写需要执行的操作代码。 A正确。 Visual Basic中的菜单项不管是同级还是不同级都不允许同名， B错误。一般情况下，不显示弹出式菜单。需要时用 PopupMenu方法显示弹出式菜单。 C错误。 Visual Basic中允许有多级弹出式菜单， D错误。 31 【正确答案】 B 【试题解析】 For循环用来对 x赋值。步长为 -1，一共执行 5次，第一次

44、执行完后 x=5，第二次执行完后 x=54，以此类推 ，选 B。 32 【正确答案】 C 【试题解析】 Mod为求余函数。 For循环执行 5次。第一次执行时 a Mod k的值为 0，则 8=0， 8=4；循环继续直到 k=5退出。分步计算可得最后 s=4，选 C。 33 【正确答案】 A 【试题解析】 For循环执行 5次，运行程序，按公式计算，可依次得出答案，结果选 A。 34 【正确答案】 C 【试题解析】 Mid函数从字符串中获取指定位置的字符值。 search函数中找到相同的字符时退出循环，并返回该字符在字符串中的位置。 Command1_Click事件中打印查找的结果。选 C。

45、35 【正确答案】 D 【试题解析】 UBound获取数组 a的上标值， n=9。 For循环边界为 0至 4。每次执行 For的循环体时均会进行打印。选 D。 36 【正确答案】 B 【试题解析】 ByVal表示参数传递时是值传递。不改变实参的值。Command1_Click事件中 proc x语句不改变 x的值。因此可直接按照 For循环的规律计算 s的值。选 B。 37 【正确答案】 B 【试题解析】 Form_Load过程中设定 Timer事件定时触发，定时时间 为 1秒；在 Timer1_Timer过程中， Shape1形状的尺寸在扩大到原来 2倍和恢复原状，然后退出。下一次 Tim

46、er事件触发时继续这个过程。因此，选 B。 38 【正确答案】 A 【试题解析】 Len函数获取整数的位数并作为 For循环的边界。 Mid函数从循环变量指定的地方获取字符并赋值给 b。 Val函数取 b的数值。 For循环完成对数组a的元素赋值。第二个 For循环进行打印。选 A。 39 【正确答案】 A 【试题解析】 Text1_KeyPress过程中，先把输入的字符串字母变成小写的。当按 下 Enter键后，执行 For循环统计小写字母的个数。退出循环后把 n值赋给。Text2。选 A。 40 【正确答案】 D 【试题解析】 本题考查窗体切换的知识。双击 Forml的 Text1时触发T

47、ext1_DblClick事件， Text1中显示 “VisualBasic”，弹出 Form2，此时， Form2成为当前窗体；单击 Form2的命令按钮时触发 Command1_Click事件， Forml成为当前窗体。选 D。 二、基本操作题 41 【正确答案】 (1)【操作步骤】 步骤 1：建立界面，并设置控件的属性 。程序中涉及控件及属性见表 1。 步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：建立界面，并设置控件的属性。程序中涉及的控件及属性见表 2和表 3。步骤 2：编写程序代码。参考答案Private Sub Command1_Click(

48、) Text1 Alignment=0 End Sub Private Sub Command2_Click() Text1 Alignment=2 End Sub Private Sub Command3_Click() Text1 Alignment=1 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 文本框的 Alignment属性用于设置文本框中文本的对齐方式， 0为左对齐， 1为右对齐， 2为居中。 FontSize属性则用于设置文本框中文本字体的大小。按照题目要求，通过命令按钮数组的 Name、 Caption、 Index属性和窗体的Capti

49、on属性设置相应属性。 三、简单应用题 42 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件，并设置控件的属性。程序中涉及的控件及属性见表 1。 步骤 2：分析并编 写程序代码。 程序提供代码如下： Dim nag As Integer Private Sub Form_Load() flag=0 End Sub Private Sub Command1_Click() If Command1 Caption=“移动 “Then Timer1 Enabled=? Command1 Caption=“暂停 “ Else Timer1 Enabled=False Command1 Caption=“移动 “ End If End Sub Private Sub Command2_Click() End End Sub Private Sub Timer1_Timet() Select Case flag Case Is=0 Label1 Left=Label1 Left?100 If