1、国家二级（ VB）机试模拟试卷 167及答案与解析 一、选择题 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 y And(Not y z)Or Z X （ A） 1 （ B） 1 （ C） True （ D） False 16 将文本框的 ( )属性设置为 True时，文本框可以输入或显示多行文本，且会自动换行。 （ A） Text （ B） ScrollBars （ C）
6、MultiLine （ D） Enabled 17 在窗体 Form1上放一个名为 Text1的文本框和一个名为 Command1的命令按钮，然后编写一个事件过程。要求程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为 “VB等级考试二级 ”。以下能正确实现上述操作的事件过程是 ( )。 （ A） Private Sub Text1_Change() Command1 Caption=“VB等级考试二级 “ End Sub （ B） Private Sub Command1_Click() Caption=“VB等级考试二级 “ End Sub （ C） Private Sub
7、Form1_Click() Text1 Caption=“VB等级考试二级 “ End Sub （ D） Private Sub Commandl_Click() Text1 Text=“VB等级考试二级 “ End Sub 18 设 a是整型变量，与函数 IIf(a 0， a， a)有相同结果的代数式是 ( )。 （ A） a （ B） a （ C） a （ D） a 19 在窗体上画一个名称为 Text1的文本框，然后画一个名称为 Hscroll1的滚动条，其 Min和 Max属性分别为 0和 1000。程序运行后，如果移动滑块，则在文本框中显示滚动条的当前值。以下能实现上述操作的程序是
8、( )。 （ A） Private Sub Hscroll1_Change() Text1 Text=HScroll1 Value End Sub （ B） Private Sub Hscroll1_Click() Text1 Text=HScroll1 Value End Sub （ C） Private Sub Hscroll1_Change() Text1 Text=Hscroll1 Caption End Sub （ D） Private Sub Hscroll1_Click() Text1 Text=Hscroll1 Caption End Sub 20 下列可以打开立即窗口的操作是
9、 ( )。 （ 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 Loop Until i 10 （ B）
10、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 Until i=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) Ifi=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 （ C） 1 2 1 4 4 （ D） 1
11、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 () Private Sub Form_Click() Dim a D
12、im 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 在窗体上有一个名为 Text1的文本框和一个名为 Commandl的命令按钮，并编写有如下事件过程： Private Sub Comman
13、dl_Click() Dim i As Integer， n As Integer For i=0 To 50 i=i+3 n=n+1 Ifi 10 Then Exit For Next Text1 Text=Str(n) End Sub 程序运行后，单击命令按钮，在 文本框中显示的是 ( )。 （ A） 2 （ B） 3 （ C） 4 （ D） 5 28 在窗体上画一个名称为 Text1的文本框，然后画 3个单选按钮，并用这 3个单选按钮建立一个名为 Option1的控件数组，程序运行后，如果单击某个单选按钮，则文本框中的字体根据所选择的单选按钮切换，如图 1所示。请选择适合空白处的语句 (
14、 )。 Private Sub Optionl_Click(Index As Integer)Select Case_ Case 0： a=“宋体 “ Case 1： a=“黑体 “ Case 2： a=“楷体 GB2312“ End SelectText1 _=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 4 x=x*a(i) Next End Sub
15、在窗体上画一个名称为 Text1的文本框和一个名称为 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 Text1 Text=Str(n) End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是 ( )。 （ A） 30 （ B） 25 （ C） 20 （ D） 15 30 在窗体上画一个文本框，然后编写如下事件过程： Private Sub Textt_KeyPre
16、ss(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(UCase(char) Text1 Text=String(6， KeyAScii) End Sub 程序运行后，如果在键盘上输入字母 “a”，则文本框中显示的内容为 ( )。 （ A） a （ B） A （ C） aaaaaa （ D） AAAAAA 31 以下对文件分类的划分不正确的是 ( )。 （ A）文件分 为程序义件和数据文件 （ B）文件分为有结构文件和无结构文件 （ C）文件分为 ASCII文件和二进制文件 （ D）文件分为顺序文件
17、和随机文件 32 在窗体上有一个名称为 Commandl的命令按钮，并编写有如下事件过程： Private Sub Commandl_Click() Dim rec As animal Open“c： vbTest dat“For Random As#1 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 String*10 End Type 下列叙述中正确的是
18、 ( )。 （ A）记录类型 animal不能在 Form1中定义，必须在标准模块中定义 （ B）如果文件 c： vbTest dat不存在，则 Open命令执行失败 （ C）由于 Put命令中没有指明记录号，因此每次都把记录写到文件的末尾 （ D）语句 “Put#1， rec”将 animal类型的两个数据元素写到文件中 33 文本框接受的最长字符数由文本框的 ( )属性确定。 （ A） MaxLength （ B） MultiLine （ C） Width （ D） Text 34 以下事件过程的功能是：从已存在于磁盘上的顺序文件 Num1 txt中读取数据，计算读出数据的平方值，将该数据
19、及其平方值存入新的顺序文件 Num2 txt中。则在以下横线处合适的语句是 ( )。 Private Sub Form_Click() Dim x As Single， y As Single Open“Num1 txt“For Input As#1 Open“Num2 txt“For Output As#2 Do While Not EOF(1) _ Print x y=x2 _ 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） Print#1，
20、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； j （ 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 To 1 Step-2 Print x(i) Next
21、 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） Software （ B）
22、 Software System （ C）出错信息 （ D） SoftwareandHardwareSystem 38 窗体上命令按钮 Commandl的事件过程如下： Option Base1 Private Sub Commandl_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 i Next i For i=3 To 4 For j=3 To 4 Print a(i， j) Next i Next i End Sub 该程序执行后，输出结果是 ( )。 （ A） 9 10 12
23、13 （ B） 7 10 12 13 （ C） 9 12 10 13 （ D） 8 11 9 12 39 用 Line Input语句从顺序文件读出数据时，每次读出一行数据。所谓一行是指遇到 ( )分隔符，即认为 一行的结束。 （ A）文件结束符 （ B）回车符 （ C）空格 （ D） Tab字符 40 有以下程序段，当在消息框中输入 8后， y的值为 ( )。 x=InputBox(“Enter an Integer“) x=CInt(x) Select Case x Case Is =0 y=0 Case Is =10 y=5+2*x Case Is =15 y=x 5 Case Is 1
24、5 y=0 End Select （ A） 18 （ B） 19 （ C） 20 （ D） 21 二、基本操作题 41 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1的窗体上画出包含三个命令按钮的控件数组，名称为 cmd1，下标分别为 0、 1、 2， Caption分别为 “开始 ”、 “停止 ”和 “退出 ”，如图 3(a)所示。通过属性窗口设置各命令按钮的属性，使得程序开始运行时， “停止 ”按钮不可见， “退出 ”按钮不可用，如图 3(b)所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjt1 frm，
25、工程文件名为 sjt1 vbp。 (2)在名称为 Form1的窗体上画两个名称分别为 Command1和 Command2、标题分别为 “打开 ”和 “保存 ”的命令按钮，和一个名称为 CD1的通用对话框，如图 4所示。请在属性窗口中设置 CD1的属性，使得打开通用对话框时，其初始路径是 “C： ”。再编写适当的事件过程，使得运行程序，分别单击 “打开 ”或 “保存 ”按钮时，相应地出现 “打开 ”或 “保存 ”对话框。要求程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjt2 frm，工程文件名为sjt2 vbp。 三、简单应用题
26、42 (1)在考生文件夹下有一个工程文件 sjt3 vbp，其功能是： 单击 “读数据 ”按钮，则把考生文件夹下： in3 dat文件中的 100个正整数读入数组 a中； 单击 “统计 ”按钮，则找出这 100个正整数中的所有完全平方数 (一个整数若是另外一个整数的平方，那么它就是完全平方数。例如， 36=62，所以 36就是一个完全平方数 )，并将这些完全平方数的最大值与个数分别显示在文本框 TeXt1、 Text2中。在给出的窗体文件中有了全部控件 (如图 6所示 )，但程序不完整，请将程序中的注释符去掉，把 ?号改为正确的内容，实现上述功能 。注意：考生不得修改窗体文件已存在的控件和程序
27、，最后将程序原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，其窗体上有两个标题分别为 “添加 ”和 “退出 ”的命令按钮，一个内容为空的列表框 List1。请画一个标签，其名称为 Label1，标题为 “请输入编号 ”；再画一个名称为 Text1，初始值为空的文本框，如图 7所示。程序功能如下： 系统启动时，自动向列表框添加一个编号信息 “a0001”。 系统运行时，在文本框 Text1中输入一个编号，并单击 “添加 ”按钮时，如果该编号与已存在于列表框中的其他编号不重复，则将其添加到列表框 Listl1已有项目之后；否则，将弹出 “不允许重复输 入，请重新输入 !”对话
28、框，单击该对话框中的 “确定 ”按钮，可以重新输入。 单击 “退出 ”按钮，则结束程序运行。要求：请去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。 四、综合应用题 43 在考生文件夹中有一个工程文件 sjt5 vbp，如图 6所示。运行程序时，从文件中读入矩阵数据并放入二维数组 a中。单击 “计算 ”按钮时，将统计矩阵两个对角线的元素中能被 3整除的个数，统计结果显示在标签 lblFirst中；同时计算矩阵 主对角线的元素之和，计算结果显示在标签 lblSecond中。已给出了部分程序，请编写“计
29、算 ”命令按钮事件过程中的部分程序代码，以便完成上述功能。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，必须执行程序，并用 “计算 ”按钮进行计算，否则无成绩。 国家二级（ VB）机试模拟试卷 167答案与解析 一、选择题 1 【正确答案】 D 【试题解析】 二分法查找只适用于顺序存储的有序表，表中的元素按值从小到大排列。 2 【正确答案】 C 【试题解析】 大 量软件设计表明，以下的设计准则是可以借鉴为设计的指导和对软件结构图进行优化，这些准则是：提高模块独立性；模块规模适中；深度、宽度、扇出和扇入适当；使模块的作用域在该模块的控制域中；应减少模块
30、的接口和界面的复杂性：设计成单入口、单出口的模块；设计功能可预测的模块。 3 【正确答案】 D 【试题解析】 队列是只允许在一端删除，在另一端插入的顺序表，允许删除的一端叫做队头，允许插入的一端叫做队尾。队列的操作数是依据先进先出的原则进行的。因此队列亦称作先进先出的线性表，或后进后出的线性表。 4 【正确 答案】 B 【试题解析】 遍历就是不重复地访问二叉树的所有结点。二叉树遍历的方法有 3种：前序遍历、中序遍历和后序遍历。记住 3种遍历的顺序： 前序，访问根一按前序遍历左予树一按前序遍历右子树； 中序，按中序遍历左子树一访问根一按中序遍历右了树： 后序，按后序遍历左子树一按后序遍历右子树一
31、访问根。所以对该二叉树的中序遍历结果为 ABDGEHCF。 5 【正确答案】 A 【试题解析】 在最坏情况下，冒泡排序所需要的比较次数为 n(n 1) 2：简单插入排序所需要的比较次数为 n(n 1) 2；希尔排序所需要 的比较次数为 O(n1 5)：堆排序所需要的比较次数为 O(nlog2n)。 6 【正确答案】 B 【试题解析】 模块独立性是指每个模块只完成系统要求的独立的子功能，并且与其他模块的联系最少且接口简单。耦合性与内聚性是模块独立性的两个定性标准，耦合与内聚是相互关联的。在程序结构中，各模块的内聚性越强，则耦合性越弱。一般较优秀的软件设计，应尽量做到高内聚，低耦合，即减弱模块之间
32、的耦合性和提高模块内的内聚性，有利于提高模块的独立性。 7 【正确答案】 C 【试题解析】 软件生命周期分为软件定义、 软件开发及软件运行维护三个阶段，其中开发阶段包括概要设计、详细设计、实现和测试。 8 【正确答案】 D 【试题解析】 数据独立性是数据与程序间的互不依赖性，即数据库中数据独立于应用程序而不依赖于应用程序。所以选项 A)，选项 B)和选项 C)都不正确。 9 【正确答案】 B 【试题解析】 一个班可以有多名学生，而一名学生只能属于一个班级，所以 “班级 ”与 “学生 ”两个实体集之间的联系属于一对多关系。 10 【正确答案】 C 【试题解析】 在对程序进行了成功的测试之后将进入
33、程序调试，程序调 试的任务是诊断和改正程序中的错误。 11 【正确答案】 D 【试题解析】 在 VB中打开菜单编辑器有 4种方式： 执行 “工具 ”菜单中的 “菜单编辑器 ”命令； 使用热键 Ctrl+E； 单击工具栏中的 “菜单编辑器 ”按钮； 在要建立菜单的窗体上单击鼠标右键，将弹出一个菜单，然后单击 “菜单编辑器 ”命令。 12 【正确答案】 D 【试题解析】 本题考查容器。容器是指可以容纳其他控件的控件。 VB中常用来作为容器的有框架、窗体和图片框 (PictureBox)。 13 【正确答案】 C 【试题解析 】 本题考查自定义数据类型。 Type语句用于定义自定义数据类型，可以声明
34、在窗体的通用部分或者标准模块中，窗体自定义必须说明为 Private属性。自定义数据类型含有一个或一个以上的成员，每个成员可以被定义为不同的已经存在的数据类型。 14 【正确答案】 B 【试题解析】 本题考查浮点数的表示。 E表示 10，后面的整数为 10的幂。也就是数学中的 8 6787108形式。 15 【正确答案】 D 【试题解析】 本题考查逻辑运算。将操作数进行逻辑运算，结果是逻辑值。常见的逻辑运算有逻辑与和逻辑或，格式 分别为： “条件表达式 1 And条件表达式 2”，条件表达式均为 T时结果为 T； “条件表达式 1 Or条件表达式 2”，有一个条件表达式为 T时结果为 T。 N
35、ot为取反运算，若 x y为 True，则 Not y z为 False，因此 And运算结果为 False：又因为 z z为 False，所以 Or运算为 False。 16 【正确答案】 C 【试题解析】 本题考查文本框的常见属性。文本框的 Text属性存放输入的数据，而 MultiLine属性的作用为设置是否为多行，默认为 False，此时不能显示多行；当设置为 True时，允 许显示多行文本。当 MultiLine属性为 True时，可以通过设置 ScmllBars属性来显示滚动条。 17 【正确答案】 A 【试题解析】 本题考查文本框的事件。文本框的 Click事件是单击文本框时触发
36、的， Change事件是每次文本框中文本发生改变时都触发的事件。题中要求当文本框的字符改变以后实现要求，因此应通过文本框的 Change事件更改 Commandl的 Caption属性。 18 【正确答案】 B 【试题解析】 IIf函数可以用来执行简单的条件判断操作，它是 “IfThenEls e”结构的简写版本，其格式为： result=IIf(条件， True部分， False部分 )。其中“result”是函数的返回值， “条件 ”是一个逻辑表达式。当 “条件 ”为真时， IIf函数返回 “True部分 ”，否则返回 “False部分 ”。 “True部分 ”或 “False部分 ”可以
37、是表达式、变量或其他函数。本题中 IIf函数的作用是如果 a 0则返回 a，否则返回a，等价于 a。 19 【正确答案】 A 【试题解析】 本题考查滚动条的事件和属性。滚动条上滑块的位置决定了其Value属性的值，当滑块的位置发生改 变时，将触发滚动条的 Change事件。因此，要想在移动滑块时，在文本框中显示滚动条的当前值，可通过在滚动条的Change事件中将滚动条的 Value属性值赋值给文本框的 Text属性来实现。 20 【正确答案】 D 【试题解析】 Ctrl+D快捷键打开的是添加文件对话框； Ctrl+E快捷键打开的是菜单编辑器对话框； Ctrl+F快捷键不打开任何对话框； Ctr
38、l+G快捷键打开的是立即窗口。 21 【正确答案】 C 【试题解析】 本题考查 Select语句的执行。 Rnd产生 (0， 1)范围内的数， Int()函数取不大于参数的最小整数，因此 x的值总为 4。 Select Case语句的功能是在各个Case分支中寻找 x的位置，找到则执行该分支的语句，执行完毕退出 Select Case语句。 22 【正确答案】 B 【试题解析】 本题考查 Do型循环。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件是否成立，至少执行一次循环体。由 Until引出的循环条件为 Fa
39、lse时执行循环体，条件为 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 【试题解析】 本题考 查 For Ea
40、ch 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 【试题解析】 一个表达式可能含有多种运算，计
41、算机按一定的顺序对表达式求值。一般顺序如下： (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 【试题解析】 本题考查循环程序的分析。题中循环
42、变量为 i，步长为 1，循环体中 i每次变化都增加 3，因此执行一次循环后， i的值增加 4，当 i大于 10时退出循环，所以每次循环后 i的值为： 3， 7， 11。当 i为 11时退出循环，所以循环共执行了 3次。 28 【正确答案】 C 【试题解析】 本题考查控件数组。 Option1数组中每个元素的名字为 Option1，依靠不同的 Index属性来区分不同的控件。变量 a表示选择不同按钮后的不同字体，字体名属性为 Font属性集的默认属性 (FontName)，这里可以直接使用 Font属性。 29 【正确答案】 A 【试题解析】 本题考查函数的参数。数组作为参数进行传递时， VB中
43、默认的参数传递方式为地址传递。过程 Fun的功能是计算数组中所有元素的积。数组的元素为 2 4 6 8 10，因此最后文本框中显示的内容为 30。 30 【正确答案】 D 【试题解析】 本题考查 KeyPress事件过程和字符串函数。 KeyPress事件的过程格式为： Sub object_KeyPress(Index As Integer， KeyAscii As Integer)，其中KeyAscii为字符 ASCII码。当在文本框中输入字符 a后， UCase函数把输入的字符转化为大写字符， Asc函数则把字符转化为 ASCII码值。 String函数则产生 6个同样的字符 A。 31
44、 【正确答案】 B 【试题解析】 本题考查文件的分类。按照数据的访问模式，可分为有顺序、随机、二进制文件，按照文件的存储，可分为 ASCII文件和二进制文件，按照文件的功能可分为数据文件和程序文件。 32 【正确答案】 B 【试题解析】 本题考查随机文件的基本操作。随机文件以记录作为存储单位，以Random打开文件的格式为： Open文件名 For Random As#文件号 Len=记录长度 。如果文件不存在，则打开失败。写操作格式为： Put#文件号， 记录号 ，变量名。可以将一个记录变量的内容写到指定的记录位置处，忽略记录号，则表示在当前记录后的位置插入一条记录。读操作格式为： Get#
45、文件号， 记录号 ，变量名。如果忽略记录号，则读出当前记录后面的那一条记录。一般记录类型在 VB中是以 Type定义的自定义类型，可以在窗体和标准模块中定义。 33 【正确答案】 A 【试题解析】 本题考查文本框的常见属性。文本框中存放的字符个数由MaxLengtk属性决定。当取值为 0时表示任意长的字符，取值为非 0，表示相应个数字符。 34 【正确答案】 D 【试题解析】 本题考查顺序文件的操作。打开文件 Num1和文件 Num2，文件号为 1和 2。如果 1号文件不为空，则利用 Input读出数据， Input使用格式为：Input#文件号，变量列表。计算平方以后。利用 Print将信息
46、结果写入到 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)。循环结束后 ，从高下标端输出偶数下标的元素。 37 【正确答案】 B 【试题解
47、析】 本题考查变体类型。变体类型变量可通过 Array函数来存放多个元素，做为数组进行处理。要读取数组上界时，可使用 UBound(x)来实现，要读取数组下界时， LBound(x)来实现。因为题中 x存放了多个字符串， i表示第一个字符串的行下标的下界， UBound(x， 1)表示第一个字符串的行下标的上界。利用Left函数取得每一行数组元素的最左边的字符，然后判断是否为 “s”，如果是，则输出该元素。 38 【正确答案】 A 【试题 解析】 本题考查二维数组元素的赋值。二维数组中 a中第 i行 i列元素为 (i 1)*3+j， i、 j分别从 3变化到 4，因此，输出 a(3， 3)、
48、a(3， 4)、 a(4， 3)、 a(4， 4)的元为： 9 10 12 13。 39 【正确答案】 B 【试题解析】 本题考查行结束标志。文件中用 EOF测试是否到达末尾；而用 “回车符 ”确定是否结束一行。 40 【正确答案】 D 【试题解析】 本题考查程序段的分析。 Seleet Case语句描述了当 x取不同值时 y值的情况。当在输入框中输入 8，并单击 “确定 ”按钮 后， x得到的值为 8。此时，满足 Select Case语句中的第二个 Case语句，因此执行 y=5+2*x=5+2*8=21。 二、基本操作题 41 【正确答案】 (1)步骤 1：新建一个 “标准 EXE”工程
49、，如下表在窗体中用 “复制 ”和 “粘贴 ”画出控件数组并设置属性。 (2步骤 1：新建一个 “标准 ExE”工程，选择【工程】 【部件】命令，在弹出的 “部件 ”对话框的列表中选中 “MicroSoft Common Dialog C0ntrol6 0”项目，单击 “确定 ”按钮。步骤 2：在窗体 Form1上画一个通用对活框，其相 关属性设置如下表所示。 步骤 3：编写两个命令按钮的Click事件，加入下面的代码：参考代码： Private Sub Commandl_Click() Private Sub Command2_Click() CD1 ShowOpen或 CD1 Action=1 CD1 ShowSave或CD1 Action=2End Sub End Sub
