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

1、国家二级（ VB）机试模拟试卷 165及答案与解析 一、选择题 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）按 Shifi+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的文本框，然后画一个名称为 Hscroll1的滚动条，其 Min和 Max属性分别为 0和 1 000

6、。程序运行后，如果移动滑块，则在文本框中显示滚动条的当前值。以下能实现上述操作的程序是 ( )。 （ 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 Tex

7、t=Hscroll1 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 Optionl_Click(Index

9、As Integer) Select Case_ Case 0： a=“宋体 “ Case 1： a=“黑体 “ Case 2： a=“楷体 GB23 12“ End Select Text1 _=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 在窗体上画一个名称为 Text1的文本框和一个名称为 Comman

10、d1的命令按钮，然后编写如下事件过程： Private Sub Command1_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 Text1_KeyPress(KeyAscii As Integer) Dim charA

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

12、并编写有如下事件过程： Private Sub Command1_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 以下事件过程的功能是：从已存在于磁盘上的顺序文件 Numl txt中读取数据，计算读出数据的平方值，将该数据及其平方值存入新的顺序文件 Num2 txt中。则 在以下横线

14、处合适的语句是 ( )。 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 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）

15、Input #1， x Print #2， x， y 35 下列程序的执行结果为 ( )。 n=0 j=1 Do Until 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 Base1 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 i End Sub （ A） 1 3 5

16、 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） SoftwareSystem （ C）出

17、错信息 （ D） SoftwareandHardwareSystem 38 窗体上命令按钮 Command1的事件过程如下： Option Base1 Private Sub Command1_Click() Dim a(4， 4)As Variant For i=l To 4 For j=1 To 4 a(i， j)=(i-1)*3+j Next j 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 13 （ B） 7 10 12 13 （ C

18、） 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 Is15 y=0 End Select （ A） 18 （ B） 19 （ C） 20 （ D） 21 二、基本操作题 41 请根据以下各小题的要求设计 Vi

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

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

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

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

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

24、执行程序，并用 “计算 ”按钮进行计算，否则无成绩。国家二级（ VB）机试模拟试卷 165答案与解析 一、选择题 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属性。自定义数据类型含有一个或一个以上的成员，每个成员可以被定义为不同的已经存在的数据类型。 1

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

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

31、整数，因此 x的值总为 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 4 4。 24 【正确答案】 B 【试题解析】 本题 考查 For Each in循环。 For Each in循环格式为： For Each 变体变量 in 数组 Next ， For Each in循环在本题中的功能是：依次从数组 score中取出每

33、一个元素放到变量 t中并输出。数组 score中的元素从 1到 3分别为： 24 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为 1

35、1时退出循环，所以循环共执行了 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 object_KeyPress(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行 j列元素为(i-1)*3+j， i、 j分别从 3变化到 4，因此，输出 (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语句，因此执行 y=5+2*x=5+2*8=21。 二、基本操作题 41 【正确答案】 第 1小题 步骤 1：新建一个 “标准 EXE”工程，如下表在窗体中用“复制 ”和 “粘贴 ”画出控件数组并设置属性。第 2小题 步骤 l：新建一个 “标准 EXE”工程，选择【工程】 【部件】命令，在弹出的 “部件 ”

42、对话框的列表中选中 “MicroSoR Common Dialog Contml6 0”项目，单击 “确定 ”按钮。 步骤 2：在窗体 Fonnl上画一个通用对话框，其相关属性设置如下 表所示。步骤 3：编写两个命令按钮的 Click事件，加入下面的代码： Private Sub CommandLClick() Private Sub Command2_Click()CD1 ShowOpen或CD1 Action=1 CD1 ShowSave或 CD1 Action=2End Sub End Sub 步骤 4：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题 本题只需按题目要求画出含

43、三个元素的按钮数组，并分别设置 Caption属性。 第 2小题 本题需要在两个命令按钮的单击事件中调用 通用对话框来打开不同类型的对话框。 三、简单应用题 42 【正确答案】 第 1小题 步骤 1：打开考生文件夹下的本题工程文件 sjt3 vbp，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 Ifx=m2 Then：is_square=flag Ifa(k)max Then Text1 Text=max： Text2 Text=num 步骤 2：按要求将文件保存至考生文件夹中。第 2小题 步骤 l：打开考生文件中的本题工程文件sjt4 vbp，如下表在窗体中画出控件并设置其相关属

44、性。步骤 2：在代码编辑 窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 List1 Addltem“a0001“ For i=0 To List1 ListCount-1 List1 ListIndex=I：List1 Addltem Text1 Text End 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题 is square()函数用于判断参数 x是否为完全平方数，方法是从 1到 x的平方根进行循环，依次判断 x是否能等于循环变量的平方，若等于则退出循环，返回 True，若循环结束后都没有等于某个 循环变量的平方则返回 False。 求完全平方数的

45、最大值，只需要先预设最大值为 0，然后在循环中每次找到一个完全平方数就将其与最大值比较，若大于预设最大值则令其为新的最大值，同时令计数器加 1，循环结束后可得最大值与个数。 第 2小题 若要在系统启动时，自动向列表框添加一个编号信息 “a0001”，需要在窗体的Load事件中调用列表框的 Addltem方法向列表框中添加列表项。 在 “添加 ”按钮的单击事件中，需要判断输入的值是否在列表框中已存在，为了实现这个功能，需要遍历整个列表框，其循环 条件为 For i=0 To List1 ListCount-1；在循环中首先令 ListIndex属性值为 i，这样第 i个列表项的内容就是列表框的T

46、ext属性值，可以与文本框中的内容进行比较，若已经存在则弹出提示信息，并退出事件过程，若循环结束后还没有重复，则调用列表框的 AddItem方法将文本框的内容加入列表框。 在 “退出 ”按钮的单击事件过程中，使用 End语句结束整个程序的运行。 四、综合应用题 43 【正确答案】 步骤 l：打开考生文件夹下的本题工程文件 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-

47、k+1) 3=Int(a(k， N-k+1) 3)Then Counter=Counter+1 End If End If Next IblSecond Caption=Sum lblFirSt Caption=Counter 步骤 2：按 键运行程序，然后单击 “计算 ”按钮。 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 矩阵主对角线上元素的特点：第一维下标与第二维下标相同； 7*7矩阵次对角线上元素的特点：第一维下标与第二维下标之和为 8。根据题意，可通过一个 For循环，将满足主对角线上元素特点的数组元素累加入变量 Sum。再通过一个嵌套的 For循环逐一判断满足两个对角线上的元素特点的元素能否被 3整除，若某数组元素能被 3整除，则记录个数的变量 Counter增 1。