1、国家二级（ VB）机试模拟试卷 7及答案与解析 一、选择题 1 下列数据结构中，能用二分法进行查找的是 ( )。 （ A）无序线性表 （ B）线性链表 （ C）二叉链表 （ D）顺序存储的有序表 2 下列叙述中，不属于设计准则的是 ( )。 （ A）提高模块独立性 （ B）使模块的作用域在该模块的控制域中 （ C）设计成多入口、多出口模块 （ D）设计功能可预测的模块 3 下列队列的描述中，正确的是 ( )。 （ A）队列属于非线性表 （ B）队列在队尾删除数据 （ C）队列按 “先进后出 ”进行数据操作 （ D）队列按 “先进先出 ”进行数据操作 4 对下列二叉树进行前序遍历的结果为 ( )
2、。 （ A） ABCDEFGH （ B） ABDGEHCF （ C） GDBEHACF （ D） GDHEBFCA 5 对于长度为 n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是 ( )。 （ A）冒泡排序为 n(n-1) 2 （ B）简单插入排序为 n （ C）希尔排序为 n （ D）快速排序为 n 2 6 为了使模块尽可能独立，要求 ( )。 （ A）内聚程度要尽量高，耦合程度要尽量强 （ B）内聚程度要尽量高，耦合程度要尽量弱 （ C）内聚程度要尽量低，耦合程度要尽量弱 （ D）内聚程度要尽量低，耦合程度要尽量强 7 下列选项中不属于软件生命周期开发阶段任务的是 ( )
3、。 （ A）软件测试 （ B）概要设计 （ C）软件维护 （ D）详细设计 8 数据独立性是数据库技术的重要特点之一。所谓数据独立性是指 ( )。 （ A）数据与程序独立存放 （ B）不同的数据被存放 在不同的文件中 （ C）不同的数据只能被对应的应用程序所使用 （ D）以上三种说法都不对 9 在学校中， “班级 ”与 “学生 ”两个实体集之间的联系属于 ( )关系。 （ A）一对一 （ B）一对多 （ C）多对一 （ D）多对多 10 软件调试的目的是 ( )。 （ A）发现错误 （ B）改善软件的性能 （ C）改正错误 （ D）验证软件的正确性 11 下列不能打开菜单编辑器的操作是 ( )
4、。 （ A）按 Ctrl+E键 （ B）单击工具栏中的 “菜 单编辑器 ”按钮 （ C）执行 “工具 ”菜单中的 “菜单编辑器 ”命令 （ D）按 Shift+Alt+M键 12 以下 ( )对象不能作为容器。 （ A） Frame （ B） From （ C） PictureBox （ D） Image 13 关于自定义数据类型，下面叙述中不正确的是 ( )。 （ A）自定义数据类型必须在窗体模块或标准模块的通用声明段进行声明 （ B）在窗体模块中定义自定义数据类型时必须使用 Private关键字 （ C）自定义数据类型只能在窗体模块的通用声明段进 行声明 （ D）自定义数据类型中的元素的数
5、据类型可以是系统提供的基本数据类型或已声明的自定 义数据类型 14 8 6787E+8写成普通的十进制数是 ( )。 （ A） 86 787 000 （ B） 867 870 000 （ C） 8 678 700 （ D） 8 678 700 000 15 设 x=4， y=8， z=7，则以下表达式的运算结果是 ( )。 x yAnd(Not y z)Or zx （ A） 1 （ B） -1 （ C） True （ D） False 16 将文本框的 ( )属性设置为 True时，文本框可以输入或显示多行文本，且会自动换行。 （ A） Text （ B） ScrollBars （ C） Mu
6、ltiLine （ D） Enabled 17 在窗体 Forml上放一个名为 Textl的文本框和一个名为 Commandl的命令按钮，然后编写 一个事件过程。要求程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设 置为 “VB等级考试二级 ”。以下能正确实现上述操作的事件过程是 ( )。 （ A） Private Sub Text l_Change() Commandl Caption=”VB等级考试二级 ” End Sub （ B） Private Sub Command l_Click() Caption=”VB等级考试二级 ” End Sub （ C） Private Su
7、b Forml_Click() Textl Caption=”VB等级考试二级 ” End Sub （ D） Private Sub Command l_Click() Textl Text=”VB等级考试二级 ” End Sub 18 设 a是整型变量，与函数 IIf(a 0， -a， a)有相同结果的代数式是 ( )。 （ A） |a| （ B） -|a| （ C） a （ D） -a 19 在窗体上画一个名称为 Textl的文本框，然后画一个名称为 Hscrolll的滚动条，其 Min和 Max属性分别为 0和 1 000。程序运行后，如果移动滑块，则在文本框中显示滚动条的当前 值。以下
8、能实现上述操作的程序是 ( )。 （ A） Private Sub Hscroll l_Change() Text 1 Text=HScroll 1 Value End Sub （ B） Private Sub Hscroll 1_Click() Text 1 Text=HScroll 1 Value End Sub （ C） Private Sub Hscroll 1_Change() Textl Text=Hscrolll Caption End Sub （ D） Private Sub Hscroll l_Click() Textl Text=Hscrolll Caption End S
9、ub 20 下列可以打开立即窗口的操作是 ( )。 （ A） Ctrl+D （ B） Ctrl+E （ C） Ctrl+F （ D） Ctrl+G 21 下列程序段的执行结果为 ( )。 x=Int(Rnd+3) Select Case x Case 5 Print”A Row” Case 4 Print”B Row” Case 3 Print”C Row” Case Else Print”D Row” End Select （ A） A Row （ B） B Row （ C） C Row （ D） D Row 22 以下能够正确退出循环的是 ( )。 （ A） i=10 Do i=i+1 L
10、oop Until i 10 （ B） i=1 Do i=i+1 Loop Until i=10 （ C） i=10 Do i=i+1 Loop Until i 0 （ D） i=1 Do i=i-3 Loop Untili=0 23 下列程序执行后，其输出结果为 ( )。 Dim a(5) For i=0 To 4 a(i)=i+1： m=i+1 If m=3 Then a(m-1)=a(i-2)Else a(m)=a(i) If i=2 Then a(i-1)=a(m-3) a(4)=i Print a(i)； Next i （ A） 1 1 1 4 4 （ B） 1 2 3 4 1 （
11、C） 1 2 1 4 4 （ D） 1 1 1 4 1 24 编写如下事件过程： Private Sub Form_Activate() Dim score(1 To 3)As Integer Dim i AS Integer t As Variant For i=3 To 1 Step-1 score(i)=2*i Next i For Each t In score Print t； Next End Sub 程序运行后窗体上显示 ( )。 （ A） 6 4 2 （ B） 2 4 6 （ C） 2 （ D） 6 25 设有如下程序： Option Base 0 Private Sub Fo
12、rm_Click() Dim a Dim i As Integer a=Array(1， 2， 3， 4， 5， 6， 7， 8， 9) For i=0 To 3 Print a(5-i)； Next End Sub 程序运行后，单击窗体，则在窗体上显示的是 ( )。 （ A） 4 3 2 1 （ B） 5 4 3 2 （ C） 6 5 4 3 （ D） 7 6 5 4 26 表达式 4+5 6*7 8 Mod 9的值是 ( )。 （ A） 4 （ B） 5 （ C） 6 （ D） 7 27 在窗体上有一个名为 Textl的文本框和一个名为 Commandl的命令按钮，并编写有如下事 件过程：
13、 Private Sub Command l_Click() Dim i As Integer,nAs Integer For i=0 To 50 i=i+3 n=n+1 If i 10 Then Exit For Next Textl Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的是 ( )。 （ A） 2 （ B） 3 （ C） 4 （ D） 5 28 在窗体上画一个名称为 Textl的文本框，然后画 3个单选按钮，并用这 3个单选按钮建立一 个名为 Optionl的控件数组，程 序运行后，如果单击某个单选按钮，则文本框中的字体根据 所选择的单选按钮切换
14、，如图 1所示。请选择适合空白处的语句 ( )。 Private Sub Optionl_Click(Index As Integer) Select Case _ Case 0： a=”宋体 ” Case 1： a=”黑体 ” Case 2： a=”楷体GB23_12” End Select Textl _ =aEnd Sub （ A） Option Text （ B） Index Text （ C） Index Font （ D） Option Font 29 设有如下通用过程： Public Sub Fun(a() As Integer,x As Integer) For i=1 To
15、4 x=x*a(i) Next End Sub 在窗体上画一个名称为 Textl的文本框和一个名称为 Commandl的命令按钮，然后编写如 下事件过程： Private Sub Commandl_Click() Dim arr(5)As Integer,n As Integer n=1 For i=1 To 4 arr(i)=i+i Next Fun arr,n Textl Text=Str(n) End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是 ( )。 （ A） 30 （ B） 25 （ C） 20 （ D） 1 5 30 在窗体上画一个文本框，然后编写如下事件过程：
16、Private Sub Textl_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(UCase(char) Textl Text=String(6， KeyAscii) End Sub 程序运行后 ，如果在键盘上输入字母 “a”，则文本框中显示的内容为 ( )。 （ A） a （ B） A （ C） aaaaaa （ D） AAAAAA 31 以下对文件分类的划分不正确的是 ( )。 （ A）文件分为程序文件和数据文件 （ B）文件分为有结构文件和无结构文件 （ C）文件分为 AS
17、C 文件和二进制文件 （ D）文件分为顺序文件和随机文件 32 在窗体上有一个名称为 Commandl的命令按钮，并编写有如下事件过程： Private Sub Command l_Click() Dim rec As animal Open”c： vbTest dat”For Random As#l Len=Len(reC rec animalName=”cat” rec aColor=”White” Put#1， rec Close#1 End Sub 记录类型定义如下： Private Type animal animalName As String*20 aColor As Strin
18、g*1 0 End Type 下列叙述中正确的是 ( )。 （ A）记录类型 animal不能在 Forml中定义，必须在标准模块中定义 （ B）如果文件 c： vbTest dat不存在，则 Open命令执行失败 （ C）由于 Put命令中没有指明记录号，因此每次都把记录写到文件的末尾 （ D）语句 “Put#1， rec”将 animal类型的两个数据元素写到文件中 33 文本框接受的最长字符数由文 本框的 ( )属性确定。 （ A） MaxLength （ B） MultiLine （ C） Width （ D） Text 34 以下事件过程的功能是：从已存在于磁盘上的顺序文件 Numl
19、 txt中读取数据，计算读出数 据的平方值，将该数据及其平方值存入新的顺序文件 Num2 txt中。则在以下横线处合适的 语句是 ( )。 Private Sub Form Click() Dim x As Single， y As Single Open”Numl txt”For Input As#1 Open”Num2 txt”For Output As#2 Do While Not EOF(1) Print y Loop Close#1 #2 End Sub （ A） Input#1， y Print#2， x， y （ B） Input#2， x Print#1， x， y （ C）
20、Print#1， x Input#2， x， y （ D） Input#1， x Print#2， x， y 35 下列程序的执行结果为 ( )。 n=0 j=1 Do Until n 2 n=n+1： j=j+n*(n+1) Loop Print n； i （ A） 0 1 （ B） 3 7 （ C） 3 21 （ D） 3 13 36 下列程序在运行时输出的结果是 ( )。 Option Base 1 Private Sub Form_Click() Dim x(10) For i=1 To 10 x(i)=10-i+1 Next i For i=10 To1 Step-2 Print x
21、(i) Next i End Sub （ A） 1 3 5 7 9 （ B） 9 7 5 3 1 （ C） 1 2 3 4 5 6 7 8 9 10 （ D） 10 9 8 7 6 5 4 3 2 1 37 运行下列程序时，输出的结果是 ( )。 Private Sub Form_Click() Dim x x=Array(”Software”， ”and”， ”Hardware”， ”System”) For i=LBound(x， 1)To UBound(x， 1) If Left(x(i)， 1)=”S”Then Print x(i)； Next i End Sub （ A） Softw
22、are （ B） SoftwareSystem （ C）出错信息 （ D） SoftwareandHardwareSystem 38 窗体上命令按钮 Commandl的事件过程如下： Option Base 1 Private Sub Command l_Click() Dim a(4， 4)As Variant For i=1 To 4 For j=1 To 4 a(i， j)=(i-1)*3+j Next j Next i For i=3 To 4 For i=3 To 4 Print a(i， j) Next j Next i End Sub 该程序执行后，输出结果是 ( )。 39 用
23、 Line Input语句从顺序文件读出数据时，每次读出一行数据。所谓一行是指遇到 ( ) 分隔符，即认为一行的结束。 （ A）文件结束符 （ B）回车符 （ C）空格 （ D） Tab字符 40 有以下程序段，当在消息框中输入 8后， y的值为 ( )。 x=InputBox(”Enter an Integer“) x=CInt(x) Select Case x Case ls =0 y=0 Case ls =1 0 y=5+2*x Case ls =1 5 y=x-5 Case ls 1 5 y=0 End Select （ A） 1 8 （ B） 1 9 （ C） 20 （ D） 21
24、二、基本操作题 41 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称为 Labell、标题为 “列表框的使用 ”的标签。再画一个名称为 Listl的 列表框，列表中含有 5个表项，表项内容分别为 “北京 ”、 “山西 ”、 “辽宁 ”、 “浙江 ”和 “广东 ”，并且可以在列表中同时选择多个表项。运行后的窗体如图 4所示。 要求：存盘时必须存放在考生文件夹下，工程文件名为sjtl vbp，窗体文件名为 sjtl frm。 (2)在名称为 Forml的窗体上画一个名称为 Imagel的图像框，其高、宽分别为 20
25、00、 3000，且不随图片大小而变化：再画两个命令按钮，标题分别是 “显示图片 ”和 “隐藏图片 ”，名称分别为Cmdl、 Cmd2，如图 5所示。需编写两个命令按钮的 Click事件过程 ，使得当单出“显示图片 ”按钮时，将当前文件夹下的图片文件 “图片 jpg”显示在图像框中；而如果单击 “隐藏图片 “按钮，则清除图像卡匡中的图片。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 42 (1)在考生文件夹下有一个工程文件 sjt3 vbp，其功能是： 单击 “读数据 ”按钮，则把考生文
26、件夹下 in3 dat文件中的 100个正整数读入数组 a中； 单击“统计 ”按钮，则找出这 100个正整数中的所有完全 平方数 (一个整数若是另外一个整数的平方，那么它就是完全平方数。例如， 36=62，所以 36就是一个完全平方数 )，并将这些完全平方数的最大值与个数分别显示在文本框 Text1、 Text2中。 在给出的窗体文件中有了全部控件 (如图 6所示 )，但程序不完整，请将程序中的注释符去掉，把 ?号改为正确的内容，实现上述功能。注意：考生不得修改窗体文件已存在的控件和程序，最后将程序原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，其窗体上有两个标题分别为
27、“添加 ”和 “退出 “的命令按钮，一个内容为空的列表框 Listl。请画一个标签，其名称为 Labell，标题为 “请输入编号 ”；再画一个名称为 Textl，初始值为空的文本框，如图 7所示。程序功能如下： 系统启动时，自动向列表框添加一个编号信息 “a0001”。 系统运行时，在文本框 Textl中输入一个编号，并单击 “添加 ”按钮时，如果该编号与已存在于列表框中的其他编号不重复，则将其添加到列表框 Listl已有项目之后；否则，将弹出 “不允许重复输入，请重新输入 !”对话框，单击该对话框中的 “确定 ”按钮，可以重新输入。 单击 “退出 ”按钮，则结束程序运行。 要求：请去掉程序中
28、的 注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。国家二级（ VB）机试模拟试卷 7答案与解析 一、选择题 1 【正确答案】 D 【试题解析】 二分法查找只适用于顺序存储的有序表，表中的元素按值从小到大排列。 2 【正确答案】 C 【试题解析】 大量软件设计表明，以下的设计准则是可以借鉴为设计的指导和对软件结构图进行优化，这些准则是：提高模块独立性；模块规模适中：深度、宽度、扇出和扇入适当；使模块的作用域 在该模块的控制域中；应减少模块的接口和界面的复杂性；设计成单入口、单出口的模块；设计功能可预测的模块。
29、3 【正确答案】 D 【试题解析】 队列是只允许在一端删除，在另一端插入的顺序表，允许删除的一端叫做队头，允许插入的一端叫做队尾。队列的操作数是依据先进先出的原则进行的。因此队列亦称作先进先出的线性表，或后进后出的线性表。 4 【正确答案】 B 【试题解析】 遍历就是不重复地访问二叉树的所有结点。二叉树遍历的方法有 3种：前序遍历、中序遍历和后序遍历。记住 3种遍历的顺序： 前序，访问根 按前序遍历左子树 按前序遍历右子树； 中序，按中序遍历左子树 访问根 按中序遍历右子树； 后序，按后序遍历左子树 按后序遍历右子树 访问根。 所以对该二叉树的中序遍历结果为 ABDGEHCF。 5 【正确答案
30、】 A 【试题解析】 在最坏情况下，冒泡排序所需要的比较次数为 n(n-1) 2；简单插入排序所需要的比较次数为 n(n-1) 2；希尔排序所需要的比较次数为 O(n sup 1.5 /sup )；堆排序所需要的比较次数为 O(nlog sub 2 /sub n)。 6 【正确答案】 B 【试题解析】 模块独立性是指每个模块只完成系统要求的独立的子功能，并且与其他模块的联系最少且接口简单。耦合性与内聚性是模块独立性的两个定性标准，耦合与内聚是相互关联的。在程序结构中，各模块的内聚性越强，则耦合性越弱。一般较优秀的软件设计，应尽量做到高内聚，低耦合，即减弱模块之间的耦合性和提高模块内的内聚性，有
31、利于提高模块的独立性。 7 【正确答案】 C 【试题解析】 软件生命周期分为软件定义、软件开发及软件运行维护三个阶段，其中开发阶段包括概要设计、详细设计、实现和测试。 8 【正确答 案】 D 【试题解析】 数据独立性是数据与程序间的互不依赖性，即数据库中数据独立于应用程序而不依赖于应用程序。所以选项 A)，选项 B)和选项 C)都不正确。 9 【正确答案】 B 【试题解析】 一个班可以有多名学生，而一名学生只能属于一个班级，所以 “班级 ”与 “学生 ”两个实体集之间的联系属于一对多关系。 10 【正确答案】 C 【试题解析】 在对程序进行了成功的测试之后将进入程序调试，程序调试的任务是诊断和
32、改正程序中的错误。 11 【正确答案】 D 【试题解析】 在 VB中打开菜 单编辑器有 4种方式： 执行 “工具 ”菜单中的 “菜单编辑器 ”命令； 使用热键 Ctrl+E； 单击工具栏中的 “菜单编辑器 ”按钮； 在要建立菜单的窗体上单击鼠标右键，将弹出一个菜单，然后单击 “菜单编辑器 ”命令。 12 【正确答案】 D 【试题解析】 本题考查容器。容器是指可以容纳其他控件的控件。 VB 中常用来作为容器的有框架、窗体和图片框 (PictureBox)。 13 【正确答案】 C 【试题解析】 本题考查自定义数据类型。 Type语句用于定义自定义数据类型，可以声明在窗体的通用部分或者标准模块 中
33、，窗体自定义必须说明为 Private属性。自定义数据类型含有一个或一个以上的成员，每个成员可以被定义为不同的已经存在的数据类型。 14 【正确答案】 B 【试题解析】 本题考查浮点数的表示。 E 表示 10，后面的整数为 10 的幂。也就是数学中的 8 678710 sup 8 /sup形式。 15 【正确答案】 D 【试题解析】 本题考查逻辑运算。将操作数进行逻辑运算，结果是逻辑值。常见的逻辑运算有逻辑与和逻辑或，格式分别为： “条件表达式 1 And条件表达式 2”，条件表达式均为 T时结果为 T： “条件表达式 1 Or条件表达式 2”，有一个条件表达式为 T 时结果为 T。 Not为
34、取反运算，若 x y为 True，则 Not y z为 False，因此 And运算结果为 False；又因为 Z X为 False，所以 Or运算为 False。 16 【正确答案】 C 【试题解析】 本题考查文本框的常见属性。文本框的 Text属性存放输入的数据，而 MultiLine属性的作用为设置是否为多行，默认为 False，此时不能显示多行：当设置为 True时，允许显示多行文本。当 MultiLine属性为 True时，可以通过设置 ScrollBars 属性来显示滚动条。 17 【正确答案】 A 【试题解析】 本题考查文本框的事件。文本框的 Click事件是单击文本框时触发的，
35、 Change事件是每次文本框中文本发生改变时都触发的事件。题中要求当文本框的字符改变以后实现要求，因此应通过文本框的 Change事件更改 Commandl的 Caption 属性。 18 【正确答案】 B 【试题解析】 lIf函数可以用来执行简单的条件判断操作，它是 “IfThenElse“结构的简写版本，其格式为： result=IIf(条件 ,True部分， False部分 )。其中“result“是函数的返回值， “条件 ”是一个逻辑表达式。当 “条件 ”为真时， IIf 函数返回 “True部分 ”，否则返回 “False部分 ”。 “True部分 ”或 “False部分 ”可以是
36、表达式、变量或其他函数。本题中 IIf函数的作用是如果 a 0则返回 -a，否则返回 a，等价于 -|a|。 19 【正确答案】 A 【试题解析】 本题考查滚动条的事件和属性。滚动条上滑块的位置决定了其Value属性的值，当滑块的位置发生改变时，将触发滚动条的 Change事件。因此，要想在移动滑块时，在文本框中 显示滚动条的当前值，可通过在滚动条的Change事件中将滚动条的 Value属性值赋值给文本框的 Text属性来实现。 20 【正确答案】 D 【试题解析】 Ctrl+D快捷键打开的是添加文件对话框； Ctrl+E快捷键打开的是菜单编辑器对话框； Ctrl+F快捷键不打开任何对话框：
37、 Ctrl+G快捷键打开的是立即窗口。 21 【正确答案】 C 【试题解析】 本题考查 Select语句的执行。 Rnd 产生 0， 1)范围内的数， Int()函数取不大于参数的最小整数，因此 x的值总为 4。 Select Case语句的功能是在各个Case分支中寻找 x的位置，找到则执行该分支的语句，执行完毕退出 Select Case语句。 22 【正确答案】 B 【试题解析】 本题考查 Do型循环。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件是否成立，至少执行一次循环体。由 Until引出的循环条件
38、为 False时执行循环体，条件为 True时退出循环；选项 A)中循环变量在 10的基础上逐渐增加，不可能小于 10；选项 B)中循环变量 的步长为 1，初值为 1，可能到达 10，然后退出循环。而选项 C)和 A)相似。选项 D)中循环变量的步长为 -3，不可能等于 0。 23 【正确答案】 C 【试题解析】 本题考查数组元素的赋值。数组 a在循环中为数据赋值，循环变量i从 0到 4，步长为 1。如果 i等于 2，则将 a(0)的值赋给 a(2)；如果 m等于 3，则将 a(0)的值赋给 a(1)。因此数组元素的值为： 1 2 1 4 4。 24 【正确答案】 B 【试题解析】 本题考查
39、For Each in 循环。 For Each in 循环格式为： For Each 变体变量 in数组 Next ， For Each in 循环在本题中的功能是：依次从数组 score中取出每一个元素放到变量 t中并输出。数组 score中的元素从 1到 3分别为： 2 4 6。 25 【正确答案】 C 【试题解析】 本题考查变体数组。题中定义了一个下标从 0开始的变体数组 a，然后利用 Array函数初始化数组 a中的数据，最后通过 For循环输出数组中a(5)、 a(4)、 a(3)、 a(2)四个元素的值，分别为： 6 5 4 3。 26 【正确答案】 B 【试题解析】 一个表达式
40、可能含有多种运算， 计算机按一定的顺序对表达式求值。一般顺序如下： (1)首先进行函数运算； (2)接着进行算术运算，其次序为：算术运算符，幂运算符 ()优先级最高，其次是取负运算 (-)、乘 (*)、浮点除 ( )、整除 ( )、取模 (Mod)、加 (+)、减 (-)、字符串连接符 (&)； (3)然后进行关系运算 (=、 、 =、 =)； (4)最后进行逻辑运算 (Not、 And、 Or、 Xpr、 Eqv、 Imp) 因此本题先算 “5 6*7 8=1”，然后计算 “1 Mod 9=1”，那么表达是转化为“4+1”，所以最后结果为 “5”。 27 【正确答案】 B 【试题解析】 本题
41、考查循环程序的分析。题中循环变量为 i，步长为 1，循环体中 i每次变化都增加 3，因此执行一次循环后， i的值增加 4，当 i大于 10时退出循环，所以每次循环后 i的值为： 3， 7， 11。当 i为 11时退出循环，所以循环共执行了 3次。 28 【正确答案】 C 【试题解析】 本题考查控件数组。 Optionl数组中每个元素的名字为 Optionl，依靠不同的 Index属性来区分不同的控件。变量 a表示选择不同按钮后的不同字体，字体名属性为 Font属性集的默认属性 (FontName)，这里可以直接使用 Font属性。 29 【正确答案】 A 【试题解析】 本题考查函数的参数。数组
42、作为参数进行传递时， VB 中默认的参数传递方式为地址传递。过程 Fun 的功能是计算数组中所有元素的积。数组的元素为 2 4 6 8 10，因此最后文本框中显示的内容为 30。 30 【正确答案】 D 【试题解析】 本题考查 KeyPress 事件过程和字符串函数。 KeyPress 事件的过程格式为： Sub obje2013w47/ct_KeyPress(Index As Integer,KeyAscii As Intoger)，其中 KeyAscii 为字符 ASC 码。当在文本框中输入字符 a后， UCase函数把输入的字符转化为大写字符， Asc函数则把字符转化为 ASC 码值。
43、String函数则产生 6个同样的字符 A。 31 【正确答案】 B 【试题解析】 本题考查文件的分类。按照数据的访问模式，可分为有顺序、随机、二进制文件，按照文件的存储，可分为 ASC 文件和二进制文件，按照文件的功能可分为数据文件和程序文件。 32 【正确答案】 B 【试题解析】 本题考查随机文件的基本操作。随机文 件以记录作为存储单位，以Random打开文件的格式为： Open文件名 For Random As#文件号 Len=记录长度 。如果文件不存在，则打开失败。写操作格式为： Put#文件号， 记录号 ，变量名。可以将一个记录变量的内容写到指定的记录位置处，忽略记录号，则表示在当前
44、记录后的位置插入一条记录。读操作格式为： Get#文件号， 记录号 ，变量名。如果忽略记录号，则读出当前记录后面的那一条记录。一般记录类型在 VB中是以 Type定义的自定义类型，可以在窗体和标准模块中定义。 33 【正确答案】 A 【试题解析】 本题考查文本框的常见属性。文本框中存放的字符个数由MaxLength 属性决定。当取值为 0时表示任意长的字符，取值为非 O，表示相应个数字符。 34 【正确答案】 D 【试题解析】 本题考查顺序文件的操作。打开文件 Num1和文件 Num2，文件号为 1和 2。如果 1号文件不为空，则利用 Input读出数据， Input使用格式为：Input#文
45、件号，变量列表。计算平方以后，利用 Print将信息结果写入到 2号文件中， Print的使用格式为： Print#文件号， 输出列表 。 35 【正确答 案】 C 【试题解析】 本题考查循环程序的分析。在 Do Until循环中如果 n 小于等于 2，那么把 n*(n+1)的结果累加到 j上。因此程序的功能为：循环变量 n从 0开始到 2共执行了 3次，目的为计算 1+1*2+2*3+3*4。 36 【正确答案】 A 【试题解析】 本题考查数组元素的赋值。数组 x元素的下标从 1到 10，元素分别为： 10-下标 +1(也就是 10 9 8 7 6 5 4 3 2 1)。循环结束后，从高下标
46、端输出偶数下标的元素。 37 【正确答案】 B 【试题解析】 本题考查变体类 型。变体类型变量可通过 Array函数来存放多个元素，做为数组进行处理。要读取数组上界时，可使用 UBound(x)来实现，要读取数组下界时， LBound(x)来实现。因为题中 x存放了多个字符串， i表示第一个字符串的行下标的下界， UBound(x， 1)表示第一个字符串的行下标的上界。利用Left函数取得每一行数组元素的最左边的字符，然后判断是否为 “S”，如果是，则输出该元素。 38 【正确答案】 A 【试题解析】 本题考查二维数组元素的赋值。二维数组中 a中第 i行 j列元素为(i-1)*3+j， i、
47、j分别 从 3变化到 4，因此，输出 a(3， 3)、 a(3， 4)、 a(4， 3)、 a(4， 4)的元素为： 9 10 12 13。 39 【正确答案】 B 【试题解析】 本题考查行结束标志。文件中用 EOF测试是否到达末尾：而用 “回车符 ”确定是否结束一行。 40 【正确答案】 D 【试题解析】 本题考查程序段的分析。 Select Case语句描述了当 x取不同值时 y值的情况。当在输入框中输入 8，并单击 “确定 ”按钮后， x得到的值为 8。此时，满足 SelectCase语句中的第二个 Case语句，因此执行 y=5+2*x=5+2*8=21。 二、基本操作题 41 【正确
48、答案】 【知识点拔】列表框的 MultiSelect属性用于设置是否可在列表项中做多个选择，值为 0(缺省设置 )表示不允许做多项选择，值为 1表示允许做简单多项选择，值为 2表示允许配合使用 Shift键、 Ctrl键做多项选择。 【审题分析】本题的考核要求有两项： 通过列表框的 List属性设置题中指定的列表项； 通过设置 MultiSelect属性设置列表框是否允许选择多项。 【操作步骤】 步骤1：新建一个 “标准 EXE”工程。 步骤 2：在窗体 Forml中加入 一个列表框和一个标签，并分别如表 12-3设置它们的相关属性。步骤 3：按要求将文件保存至考生文件夹中。 42 【正确答案】 【知识点拔】 为图像框控件指定图片有两种方法：一是在设计阶段通过 Picture属性设置；二是在程序运行时通过 LoadPicture()图片加载函数加载，其语法为：图片框 Picture=LoadPicture(”图像文件路径 ”)， App Path可返回当前工程文件所在的文件夹路径，是使用相对路径的一种用法。用不带参数的LoadPicture函数为对象的 Picture属性赋值将清 除窗体、图片框及图像控件中的
