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

1、国家二级（ VB）机试模拟试卷 24及答案与解析 一、选择题 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，则以下表达式的运算结果是 ( )。 xz)Or z0， -a， A)有相同结果的代数式是 ( )。 （ A） |a| （ B） |a| （ C） a （ D） =-a 19 在窗体上画一个名称为 Text1的文本框，然后画一个名称为 Hscrol11的滚动条 ，其 Min和 Max属性分别为 0和 1 000

6、。程序运行后，如果移动滑块，则在文本框中显示滚动条的当前值。以下能实现上述操作的程序是 ( )。 （ A） Private Sub Hscrol11 Change() Text1 Text=HScrol11 Value End Sub （ B） Private Sub Hscrol11 Click() Text1 Text=HScrol11 Value End Sub （ C） Private Sub Hscrol11 Change() Text1 Text=Hscrol11 Caption End Sub （ D） Private Sub Hscrol11 Click() Text1 Tex

7、t=Hscrol11 Caption End Sub 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 以下能够正确退出循环的是 (

8、 )。 （ A） i=10 Do i=i+1 Loop Until i10 Then Exit For Next Text1 Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的是 ( )。 （ A） 2 （ B） 3 （ C） 4 （ D） 5 28 在窗体上画一个 名称为 Text1的文本框，然后画 3个单选按钮，并用这 3个单选按钮建立一个名为 Optionl的控件数组，程序运行后，如果单击某个单选按钮，则文本框中的字体根据所选择的单选按钮切换，如图 1所示。请选择适合空白处的语句 ( )。 Private Sub Option1 Click(Index A

9、s Integer)Select Case_Case 0： a=“宋体 “Case 1： a=“黑体 “Case 2： a=“楷体GB23 12“End SelectText1_=aEnd Sub （ A） Option Text （ B） Index Text （ C） Index Font （ D） Option Font 29 设有如下通用过程： Public Sub Fun(a0 As Integer,x As Integer) For i=1 To 4 x=x*a(i) Next End Sub 在窗体上 i画一个名称为 Text1的文本框和一个名称为 Command1的命令按钮，然

10、后编写如下事件过程： Private Sub Command 1 Click() Dim arrC5)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 Text1-KeyPress(KeyAscii As Integer) Dim char As String

11、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）文件分为顺序文件和随机文件 32 在窗体上有一个 名称为 Command1的命令按钮，并编写有如下事件过

12、程： Private Sub Command 1 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 下列叙述中正确的是 ( )。 （ A）记录类型 animal不能在 Form1中定义，必须在标准模块中定

13、义 （ B）如果文件 c： vbTest dat不存在，则 Open命令执行失败 （ C）由于 Put命令中没有指明记录号，因此每次都把记录写到文件的末尾 （ D）语句 “Put#1”“rec”将 animal类型的两个数据元素写到文件中 33 文本框接受的最长字符数由文本框的 ( )属性确定。 （ A） MaxLength （ B） MultiLine （ C） Width （ D） Text 34 以下事件过程的功能是：从已存在于磁盘上的顺序文件 Num1 txt中读取数据，计算读出数据的平方值，将该数据及其平方值存入新的顺序文件 Num2 txt中。则在以下横线处合适的语句是 ( )。

14、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， x Input#2， x， y （ D） Input#1， x Print#2， x，

15、 y 35 下列程序的执行结果为 ( )。 n=0 J=1 Do Unti1 n2 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 xf(0) Fori=1 To 10 x(i)=10-i+1 Next i For i=10 To 1 Step-2 Print x(i) Next i End Sub （ A） 1 3 5 7 9 （ B） 9 7 5 3 1 （ C）

16、 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） Soflware （ B） SoftwareSystem （ C）出错信息 （ D） SoftwareandHard

17、wareSystem 38 窗体上命令按钮 Command 1的事件过程如下： Option Base 1 Private Sub Command 1 Click() Dim a(4， 4)As Variant For i=1 To 4 For j=l 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 该程序执行后，输出结果是 ( )。 （ A） 9 10 12 13 （ B） 7 10 12 13 （ C） 9 11 10 13 （ D） 8 1

18、1 9 13 39 用 Line Input语句从顺序文件读出数据时，每次读出一行数据。所谓一行是指遇到 ( ) 分隔符，即认为一行的结束。 （ A）文件结束符 （ B）回车符 （ C）空格 （ D） Tab字符 40 有以下程序段，当在消息框中输入 8后， y的值为 ( )。 x=InputBox(“Enter an Integer“) x=CInt(x) Select Case x Case Is15 y=0 End Select （ A） 18 （ B） 19 （ C） 20 （ D） 21 二、基本操作题 41 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和

19、代码 )。 (1)在名称为 Form1的窗体上画出包含三个命令按钮的控件数组，名称为 cmd1，下标分别 为 0、 1、 2， Caption分别为 “开始 ”、 “停止 ”和 “退出 ”，如图 3( A)所示。通过属性窗口设置 各命令按钮的属性，使得程序开始运行时， “停止 “按钮不可见， “退出 ”按钮不可用，如图 3(b)所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjt1 frm，工程文件名为 sjt1 vbp。 (2)在名称为 Form1的窗体上画两个名称分别为 Command1和Command2、标题分别为 “打开 ”和 “保存 ”的命令按钮，和一个名称为 CD

20、1的通用对话框，如图 4所示。请在属性窗口中设置 CD 1的属性，使得打开通用对话框时，其初始路径是 “C： ”。再编写适当的事件过程，使得运行程序，分别单击 “打开 ”或 “保存 ”按钮时，相应地出现 “打开 ”或 “保存 ”对话框。要求程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjt2 frm，工程文件名为 sjt2 vbp。 三、简单应用题 42 (1)在考生文件夹下有一个工程文件 sjt3 vbp，其功能是： 单击 “读数据 ”按钮，则把考生文件夹下 in3 dat文件中的 100个正整数读入数组 a中； 单击 “统计

21、”按钮，则找出这 100个正整数 中的所有完全平方数 (一个整数若是另外一个整数的平方，那么它就是完全平方数。例如， 36=62，所以 36就是一个完全平方数 )，并将这些完全平方数的最大值与个数分别显示在文本框 Text1、 Text2中。在给出的窗体文件中有了全部控件 (如图 6所示 )，但程序不完整，请将程序中的注释符去掉，把 ?号改为正确的内容，实现上述功能。 注意：考生不得修改窗体文件已存在的控件和程序，最后将程序原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，其窗体上有两个标题分别为 “添加 ”和 “退出 ”的命令按钮，一个内容为空的列表 框 List 1。请

22、画一个标签，其名称为 Label1，标题为“请输入编号 ”；再画一个名称为 Text1，初始值为空的文本框，如图 7所示。程序功能如下： 系统启动时，自动向列表框添加一个编号信息 “a0001”。 系统运行时，在文本框 Fextl中输入一个编号，并单击 “添加 ”按钮时，如果该编号与已存在于列表框中的其他编号不重复，则将其添加到列表框List 1已有项目之后；否则，将弹出 “不允许重复输入，请重新输入 !”对话框，单击该对话框中的 “确定 ”按钮，可以重新输入。 单击 “退出 ”按钮，则结束程序运行。要求：请去掉 程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改窗体文

23、件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。 四、综合应用题 43 在考生文件夹中有一个工程文件 sjt5 vbp，如图 6所示。运行程序时，从文件中读入矩阵数据并放入二维数组 a中。单击 “计算 ”按钮时，将统计矩阵两个对角线的元素中能被 3整除的个数，统计结果显示在标签 |b|First中；同时计算矩阵主对角线的元素之和，计算结果显示在标签 |b|Second 中。已给出了部分程序，请编写 “计算 ”命令按钮事件过程中的部分程序代码，以便完成上述功能。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，必须执行程序，并用 “计算 ”按钮

24、进行计算，否则无成绩。 国家二级（ VB）机试模拟试卷 24答案与解析 一、选择题 1 【正确答案】 D 【试题解析】 二分法查找只适用于顺序存储的有序表，表中的元素按值从小到大于排列。 2 【正确答案】 C 【试题解析】 大量软件设计表明，以下的设计准则是可以借鉴为设计的指导和对软件结 构图进行优化，这些准则是：提高模块独立性；模块规模适中；深度、宽度、扇出和扇入适当；使模块的作用域在该模块的控制域中；应减少模块的接口和界面的复杂性；设计成单入口、单出口的模块；设计功能可预测的模块。 3 【正确答案】 D 【试题解析】 队列是只允许在一端删除，在另一端插入的顺序表，允许删除的一端叫做队头，允

25、许插入的一端叫做队尾。队列的操作数是依据先进先出的原则进行的。因此队列亦称作先进先出的线性表，或后进后出的线性表。 4 【正确答案】 B 【试题解析】 遍历就是不重复地访问二叉树的所 有结点。二叉树遍历的方法有 3种：前序遍历、中序遍历和后序遍历。记住 3种遍历的顺序： 前序，访问根 按前序遍历左子树 按前序遍历右子树； 中序，按中序遍历左子树 访问根 按中序遍历右子树； 后序，按后序遍历左子树 按后序遍历右子树 访问根。 所以对该二叉树的中序遍历结果为 ABDGEHCF。 5 【正确答案】 A 【试题解析】 在最坏情况下，冒泡排序所需要的比较次数为 n(n-1) 2；简单插入排序所需要的比较

26、次数为 n(n-1) 2；希尔排序所需要的比较次数为 O(n1 5)；堆排序所需要的比较次数为 O(nlog2n)。 6 【正确答案】 B 【试题解析】 模块独立性是指每个模块只完成系统要求的独立的子功能，并且与其他模块的联系最少且接口简单。耦合性与内聚性是模块独立性的两个定性标准，耦合与内聚是相互关联的。在程序结构中，各模块的内聚性越强，则耦合性越弱。一般较优秀的软件设计，应尽量做到高内聚，低耦合，即减弱模块之间的耦合性和提高模块内的内聚性，有利于提高模块的独立性。 7 【正确答案】 C 【试题解析】 软件生命周期分为软件定义、软件开发及软件运行维护三个阶段，其中开发阶段包括概要设 计、详细

27、设计、实现和测试。 8 【正确答案】 D 【试题解析】 数据独立性是数据与程序间的互不依赖性，即数据库中数据独立于应用程序而不依赖于应用程序。所以选项 A)，选项 B)和选项 C)都不正确。 9 【正确答案】 B 【试题解析】 一个班可以有多名学生，而一名学生只能属于一个班级，所以 “班级 ”与 “学生 ”两个实体集之间的联系属于一对多关系。 10 【正确答案】 C 【试题解析】 在对程序进行了成功的测试之后将进入程序调试，程序调试的任务是诊断和改正程序中的错误。 11 【正 确答案】 D 【试题解析】 在 VB中打开菜单编辑器有 4种方式： 执行 “工具 ”菜单中的 “菜单编辑器 ”命令；

28、使用热键 Ctrl+E； 单击工具栏中的 “菜单编辑器 ”按钮； 在要建立菜单的窗体上单击鼠标右键，将弹出一个菜单，然后单击 “菜单编辑器 ”命令。 12 【正确答案】 D 【试题解析】 本题考查容器。容器是指可以容纳其他控件的控件。 VB 中常用来作为容器的有框架、窗体和图片框 (PictureBox)。 13 【正确答案】 C 【试题解析】 本题考查自定义数据类型。 Type语句用于 定义自定义数据类型，可以声明在窗体的通用部分或者标准模块中，窗体自定义必须说明为 Private属性。自定义数据类型含有一个或一个以上的成员，每个成员可以被定义为不同的已经存在的数据类型。 14 【正确答案】

29、 B 【试题解析】 本题考查浮点数的表示。 E 表示 10，后面的整数为 10 的幂。也就是数学中的 8 6787108形式。 15 【正确答案】 D 【试题解析】 本题考查逻辑运算。将操作数进行逻辑运算，结果是逻辑值。常见的逻辑运算有逻辑与和逻辑或，格式分别为： “条件表达式 1 And条件表达式 2”，条件表达式均为 T时结果为 T： “条件表达式 1 Or条件表达式 2”，有一个条件表达式为 T 时结果为 ToNot为取反运算，若 xz为 False，因此 And 运算结果为 False：又因为 z0则返回 -a，否则返回 a，等价于 -|a|。 19 【正确答案】 A 【试题解析】 本

30、题考查滚动条的事件和属性。滚动条上滑块的位置决定了其value属性韵值，当滑块的位置发生改变时，将触发滚动条的 Change事件。因此，要想在移动滑块时，在文本框中显示滚动条的当前值，可通过在滚动条的Change事件中将滚动条的 value属性值赋值给文本框的 Text属性来实现。 20 【正确答案】 D 【试题解析】 快捷键打开的是添加文件对话框； 快捷键打开的是菜单编辑器对话框； 快捷键不打开任何对话框； 快捷键打开的是立即窗口。 21 【正确答案】 C 【试题解析】 本题考查 select语句的执行。 Rnd 产生 0， 1)范围内的数， Int()函数取不大 于参数的最小整数，因此 x

31、的值总为 4。 Select Case语句的功能是在各个Case分支中寻找 x的位置，找到则执行该分支的语句，执行完毕退出 Select Case语句。 22 【正确答案】 B 【试题解析】 本题考查 Do型循环。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体：如果是后判断条件，则无论条件是否成立，至少执行一次循环体。由 Until引出的循环条件为 False时执行循环体，条件为 True时退出循环：选项 A)中循环变量在 10的基础上逐渐 增加，不可能小于 10；选项 B)中循环变量的步长为 1，初值为 1，可能到达 10，然后退出循环。

32、而选项 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 44。 24 【正确答案】 B 【试题解析】 本题考查 ForEachin 循环。 ForEachin 循环格式为： ForEach 变体变量 in数组 Next ， For Each in 循环在本题中的功能是：依次从数组 score中取出每一个元素放到

33、变量 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 【试题解析】 一个表达式可能含有多种运算，计算机按一定的顺序对表达式求值。一般顺序如下： (1)首先进行函数运算； (2)接着进行算术运算，其次序为：算术运算符，幂运算符 ()优先级最高，其次是取负运算 (-)、乘 (*)、浮点除 (

34、/)整除 ( )、取模 (Mod)、加 (+)、减 (-)、字符串连接符(&)； (3)然后进行关系运算 (=、 、 、 =)； (4)最后进行逻辑运算 (Not、 And、 Or、 Xpr、 Eqv、 Imp) 因此本题先算 “5 6*7 8=1”，然后计算 “1 Mod 9=1”，那么表达是转化为 “4+1”，所以最后结果为 “5”。 27 【正确答案】 B 【试题解析】 本题考查循环程序的分析。题中循环变量为 i，步长为 1，循环体中 i每次变化都增加 3，因此执行一次循环后， i的值增加 4，当 i大于 10时退出循环，所以每次循环后 i的值为： 3， 7， 11。当 i为 11时退出

35、循环，所以循环共执行了 3次。 28 【正确答案】 C 【试题解析】 本题考查控件数组。 Optionl数组中每个元素的名字为 Optionl，依靠不同的 Index属性来区分不同的控件。变量 a表示选择不同按钮后的不同字体，字体名属性为 Font属性集的默认属性 (FontName)，这里可以直接使用 Font属性。 29 【正确答案】 A 【试题解析】 本题考查函数的参数。数组作为参数进行传递时， VB 中默认的参数传递方式为地址传递。过程 Fun 的功能是计算数组中所有元素的积。数组的元素为 2 4 6 8 10，因此最后文本框中显示的内容为 30。 30 【正确答案】 D 【试题解析】

36、 本题考查 KeyPress 事件过程和字符串函数。 KeyPress 事件的过程格式为： Sub objectKeyPress(Index As Integer,KeyAscii As Integer)，其中KeyAscii 为字符 ASCII码。当在文本框中输入字符 a后， UCase函数把输入的字符转化为大写字符， Asc函数则把字符转化为 ASCII码值。 String函数则产生 6个同样的字符 A。 31 【正确答案】 B 【试题解析】 本题考查文件的分类。按照数据的访问模式，可分为有顺序、随机、二进制文件，按照文件的存储，可分为 ASCII文件和二进制文件，按照文件的功能可分为数据

37、文件和程序文件。 32 【正确答案】 B 【试题解析】 本题考查随机文 件的基本操作。随机文件以记录作为存储单位，以Random打开文件的格式为： Open文件名 For Random As 撑文件号 Len=记录长度 。如果文件不存在，则打开失败。写操作格式为： Put#文件号， 记录号 ，变量名。可以将一个记录变量的内容写到指定的记录位置处，忽略记录号，则表示在当前记录后的位置插入一条记录。读操作格式为： Get#文件号， 记录号 ，变量名。如果忽略记录号，则读出当前记录后面的那一条记录。一般记录类型在 VB中是以 Type定义的自定义类型，可以在窗体和标准模块中定义。 33 【正确答案】

38、 A 【试题解析】 本题考查文本框的常见属性。文本框中存放的字符个数由MaxLength 属性决定。当取值为 0时表示任意长的字符，取值为非 0，表示相应个数字符。 34 【正确答案】 D 【试题解析】 本题考查顺序文件的操作。打开文件 Num1和文件 Num2，文件号为 1和 2。如果 1号文件不为空，则利用 Input读出数据， Input使用格式为：Input#文件号，变量列表。计算平方以后，利用 Print将信息结果写入到 2号文件中， Print的使用格式为： Print#文件号， 输出列表 。 35 【正确答案】 C 【试题解析】 本题考查循环程序的分析。在 Do Until循环中

39、如果 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 【试题解 析】 本题考查变体类型。变体类型变量可通过 Array函数来存放多个元素，做为数组进行处理。要读取数组上界时，可使用 UBound(x)来实现，要读取数组下界时， LBou

40、nd(x)来实现。因为题中 x存放了多个字符串， i表示第一个字符串的行下标的下界， UBound(x， 1)表示第一个字符串的行下标的上界。利用Left函数取得每一行数组元素的最左边的字符，然后判断是否为 “S”，如果是，则输出该元素。 38 【正确答案】 A 【试题解析】 本题考查二维数组元素的赋值。二维数组中 a中第 i行 i列元素为(i-1)*3+j， i、 j分别从 3变化到 4，因此，输出 a(3， 3)、 a(3， 4)、 a(4， 3)、 a(4， 4)的元素为： 9 10 12 13。 39 【正确答案】 B 【试题解析】 本题考查行结束标志。文件中用 EOF测试是否到达末尾

41、：而用 “回车符 ”确定是否结束一行。 40 【正确答案】 D 【试题解析】 本题考查程序段的分析。 Select Case语句描述了当 x取不同值时 y值的情况。当在输入框中输入 8，并单击 “确定 ”按钮后， x得到的值为 8。此时，满足 Select Case语句中的第二个 Case语句， 因此执行 v=5+2*x=5+2*8=21。 二、基本操作题 41 【正确答案】 【操作步骤】步骤 1：新建一个 “标准 ExE”工程，如表 12-1在窗体中用 “复制 ”和 “粘贴 ”画出控件数组并设置属性。【主要考点】控件数组画法。第 2小题【操作步骤】步骤 1：新建一个 “标准 EXE”工程，选

42、择【工程】 【部件】命令，在弹出的 “部件 ”对话框的列表中选中 “Micr0Soft common Dialog Contro16 0”项目，单击 “确定 ”按钮。步骤 2：在窗体 Form1上画一个通用对话框，其相关属性设置如表 12-2所示 。 步骤 3：编写两个命令按钮的 Click事件，加入下面的代码：参考代码： Private Sub CommanD 1_Click()CD 1 ShowOpen 或 CD 1 Action=1EnD SubPrivate Sub CommanD2_Click()CD 1 ShowSave 或 CD 1 Action=2EnD Sub步骤 4：按要求

43、将文件保存至考生文件夹中。 【试题解析】 (1)本题只需按题目要求画出含三个元素的按钮数组，并分别设置Caption 属性。 (2)通用对话框的 InitDir属性 用于为打开或另存为对话指定初始的目录，如果此属性没有指定，则使用当前目录。 本题需要在两个命令按钮的单击事件中调用通用对话框来打开不同类型的对话框。 通用对话框控件不是 VB 内部控件，通常不会在 VB 默认工具箱中列出。 三、简单应用题 42 【正确答案】 第 1小题【操作步骤】步骤 1：打开考生文件夹下的本题工程文件 sjt3 vbp，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码：Ifx=m“”then：

44、is_square=flagIfa(k)max ThenText1 Text=max： Fext2 Text=num步骤 2：按要求将文件保存至考生文件夹中。第 2小题【操作步骤】步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，如表 12-5在窗体中画出控件并设置其相关属性。 步骤 2：在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。参考代码： List 1 Addltem“a000 1“For i=0 To List1 ListCount-1List1 List1ndex=I： List1 Addltem Text1 TextEnd步骤 3：按要求将文件保存

45、至考生文件夹中。 【试题解析】 (1)Sqr(N)求平方根函数，用于返回 N的算术平方根。 is square(1函数用于判断参数 x是否为完全平方数，方法是从 1到 x的平方根进行循环，依次判断 x是否能等于循环变量的平方，若等于则退出循环，返回 True，若循环结束后都没有等于某个循环变量的平方则返回 False，求完全平方数的最大值，只需要先预设最大值为 0，然后在循环中每次找到一个完全平方数就将其与最大值比较，若大于预设最大值则令其为新的最大值，同时令计数器加 1，循环结束后可得最大值与个数。 (2)若要在系统启动时，自动向列表框添加 一个编号信息 “a0001”，需要在窗体的Load

46、 事件中调用列表框的 AddItem方法向列表框中添加列表项。在 “添加 ”按钮的单击事件中，需要判断输入的值是否在列表框中己存在，为了实现这个功能，需要遍历整个列表框，其循环条件为 For i=0 To List1 ListCount-1：在循环中首先令 List1ndex属性值为 i，这样第 i个列表项的内容就是列表框的 Text属性值，可以与文本框中的内容进行比较，若已经存在则弹出提示信息，并退出事件过程，若循环结束后还没有重复，则调用列表框的 AddItem方法将文本框的 内容加入列表框。 在 “退出 ”按钮的单击事件过程中，使用 End语句结束整个程序的运行。 四、综合应用题 43

47、【正确答案】 【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件 sjt5 vbp，在代码编辑窗口的指定位置编写以下代码： 参考代码： For k=1 To N Sum=Sum+a(k， k) Ifa(k， k) 3=Int(a(k， k) 3)Then Counter=Counter+1 End If IfkN-k+1 Then Ifa(k， N-k+1) 3=Int(a(k， N-k+1) 3)Then Counter=Counter+1 EndIf EndIf Next lblSecond CaDtion=Sum lblFirst CaDtion=Counter 步骤 2：按 键运行程序，然后单击 “计算 ”按钮。 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 矩阵主对角线上元素的特点：第一维下标与第二维下标相同； 7*7矩阵次对角线上元素的特点：第一维下标与第二维下标之和为 8。根据题意，可通过一个 For循环，将满足主对角线上元素特点的数组元素累加入变量 Sum。再通过一个嵌套的 For循环逐一判断满足两个对角线上的元素特点的元素能否被 3整除，若某数组元素能被 3整除，则记录个数的变量 Counter增 1。