1、国家二级（VB）机试模拟试卷 165 及答案解析(总分：86.00，做题时间：90 分钟)一、选择题(总题数：40，分数：80.00)1.下列数据结构中，能用二分法进行查找的是( )。（分数：2.00）A.无序线性表B.线性链表C.二叉链表D.顺序存储的有序表2.下列叙述中，不属于设计准则的是( )。（分数：2.00）A.提高模块独立性B.使模块的作用域在该模块的控制域中C.设计成多入口、多出口模块D.设计功能可预测的模块3.下列队列的描述中，正确的是( )。（分数：2.00）A.队列属于非线性表B.队列在队尾删除数据C.队列按“先进后出”进行数据操作D.队列按“先进先出”进行数据操作4.对下
2、列二叉树进行前序遍历的结果为( )。 （分数：2.00）A.ABCDEFGHB.ABDGEHCFC.GDBEHACFD.GDHEBFCA5.对于长度为 n 的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是( )。（分数：2.00）A.冒泡排序为 n(n-1)2B.简单插入排序为 nC.希尔排序为 nD.快速排序为 n26.为了使模块尽可能独立，要求( )。（分数：2.00）A.内聚程度要尽量高，耦合程度要尽量强B.内聚程度要尽量高，耦合程度要尽量弱C.内聚程度要尽量低，耦合程度要尽量弱D.内聚程度要尽量低，耦合程度要尽量强7.下列选项中不属于软件生命周期开发阶段任务的是( )。（
3、分数：2.00）A.软件测试B.概要设计C.软件维护D.详细设计8.数据独立性是数据库技术的重要特点之一。所谓数据独立性是指( )。（分数：2.00）A.数据与程序独立存放B.不同的数据被存放在不同的文件中C.不同的数据只能被对应的应用程序所使用D.以上三种说法都不对9.在学校中，“班级”与“学生”两个实体集之间的联系属于( )关系。（分数：2.00）A.一对一B.一对多C.多对一D.多对多10.软件调试的目的是( )。（分数：2.00）A.发现错误B.改善软件的性能C.改正错误D.验证软件的正确性11.下列不能打开菜单编辑器的操作是( )。（分数：2.00）A.按 Ctrl+E 键B.单击工
4、具栏中的“菜单编辑器”按钮C.执行“工具”菜单中的“菜单编辑器”命令D.按 Shifi+Alt+M 键12.以下( )对象不能作为容器。（分数：2.00）A.FrameB.FromC.PictureBoxD.Image13.关于自定义数据类型，下面叙述中不正确的是( )。（分数：2.00）A.自定义数据类型必须在窗体模块或标准模块的通用声明段进行声明B.在窗体模块中定义自定义数据类型时必须使用 Private 关键字C.自定义数据类型只能在窗体模块的通用声明段进行声明D.自定义数据类型中的元素的数据类型可以是系统提供的基本数据类型或已声明的自定义数据类型14.86787E+8 写成普通的十进制
5、数是( )。（分数：2.00）A.86 787 000B.867 870 000C.8 678 700D.8 678 700 00015.设 x=4，y=8，z=7，则以下表达式的运算结果是( )。 xz)Or z0，-a，a)有相同结果的代数式是( )。（分数：2.00）A.|a|B.-|a|C.aD.-a19.在窗体上画一个名称为 Text1 的文本框，然后画一个名称为 Hscroll1 的滚动条，其 Min 和 Max 属性分别为 0 和 1 000。程序运行后，如果移动滑块，则在文本框中显示滚动条的当前值。以下能实现上述操作的程序是( )。（分数：2.00）A.Private Sub
6、Hscroll1_Change() Text1Text=HScroll1Value End SubB.Private Sub Hscroll1_Click() Text1Text=HScroll1Value End SubC.Private Sub Hscroll1_Change() Text1Text=Hscroll1Caption End SubD.Private Sub Hscroll1_Click() Text1Text=Hscroll1Caption End Sub20.下列可以打开立即窗口的操作是( )。（分数：2.00）A.Ctrl+DB.Ctrl+EC.Ctrl+FD.Ctrl
7、+G21.下列程序段的执行结果为( )。 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（分数：2.00）A.A RowB.B RowC.C RowD.D Row22.以下能够正确退出循环的是( )。（分数：2.00）A.i=10 Do i=i+1 Loop Until i10 Then Exit For Next Text1Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中
8、显示的是( )。（分数：2.00）A.2B.3C.4D.528.在窗体上画一个名称为 Text1 的文本框，然后画 3 个单选按钮，并用这 3 个单选按钮建立一个名为Optionl 的控件数组，程序运行后，如果单击某个单选按钮，则文本框中的字体根据所选择的单选按钮切换，如图 1 所示。请选择适合空白处的语句( )。 Private Sub Optionl_Click(Index As Integer) Select Case_ Case 0：a=“宋体“ Case 1：a=“黑体“ Case 2：a=“楷体 GB23 12“ End Select Text1_=aEnd Sub （分数：2.0
9、0）A.Option TextB.Index TextC.Index FontD.Option Font29.设有如下通用过程： Public Sub Fun(a() As Integer，x As Integer) For i=1 To 4 x=x*a(i) Next End Sub 在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程： 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 a
10、rr，n Text1Text=Str(n) End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是( )。（分数：2.00）A.30B.25C.20D.1530.在窗体上画一个文本框，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim charAs String char=Chr(KeyAscii) KeyAscii=Asc(UCase(char) Text1Text=String(6，KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为( )。（分数：2.00
11、）A.aB.AC.aaaaaaD.AAAAAA31.以下对文件分类的划分不正确的是( )。（分数：2.00）A.文件分为程序文件和数据文件B.文件分为有结构文件和无结构文件C.文件分为 ASCII 文件和二进制文件D.文件分为顺序文件和随机文件32.在窗体上有一个名称为 Command1 的命令按钮，并编写有如下事件过程： Private Sub Command1_Click() Dim rec As animal Open“c：vbTestdat“For Random As #1 Len=Len(rec) recanimalName=“cat“ recaColor=“White“ Put #
12、1，rec Close #1 End Sub 记录类型定义如下： Private Type animal animalName As String*20 aColor As String*10 End Type 下列叙述中正确的是( )。（分数：2.00）A.记录类型 animal 不能在 Form1 中定义，必须在标准模块中定义B.如果文件 c：vbTestdat 不存在，则 Open 命令执行失败C.由于 Put 命令中没有指明记录号，因此每次都把记录写到文件的末尾D.语句“Put#1，rec”将 animal 类型的两个数据元素写到文件中33.文本框接受的最长字符数由文本框的( )属性确
13、定。（分数：2.00）A.MaxLengthB.MultiLineC.WidthD.Text34.以下事件过程的功能是：从已存在于磁盘上的顺序文件 Numltxt 中读取数据，计算读出数据的平方值，将该数据及其平方值存入新的顺序文件 Num2txt 中。则在以下横线处合适的语句是( )。 Private Sub Form_Click() Dim x As Single，y As Single Open“Numltxt“For Input As #1 Open“Num2txt“For Output As #2 Do While Not EOF(1) _ Print x y=x2 _ Print
14、y Loop Close #1，#2 End Sub（分数：2.00）A.Input #1，y Print #2，x，yB.Input #2，x Print #1，x，yC.Print #1，x Input #2，x，yD.Input #1，x Print #2，x，y35.下列程序的执行结果为( )。 n=0 j=1 Do Until n2 n=n+1：j=j+n*(n+1) Loop Print n：j（分数：2.00）A.0 1B.3 7C.3 21D.3 1336.下列程序在运行时输出的结果是( )。 Option Base1 Private Sub Form_Click() Dim
15、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（分数：2.00）A.1 3 5 7 9B.9 7 5 3 1C.1 2 3 4 5 6 7 8 9 10D.10 9 8 7 6 5 4 3 2 137.运行下列程序时，输出的结果是( )。 Private Sub Form_Click() Dim x X=Array(“Software“，“and“，“Hardware“，“System“) For i=LBound(x，1)To UBound(x，1) If Left(x
16、(i)，1)=“S“Then Print x(i)； Next i End Sub（分数：2.00）A.SoftwareB.SoftwareSystemC.出错信息D.SoftwareandHardwareSystem38.窗体上命令按钮 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) Nex
17、t i Next i End Sub 该程序执行后，输出结果是( )。（分数：2.00）A.9 10 12 13B.7 10 12 13C.9 12 10 13D.8 11 9 1239.用 Line Input 语句从顺序文件读出数据时，每次读出一行数据。所谓一行是指遇到( )分隔符，即认为一行的结束。（分数：2.00）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（分
18、数：2.00）A.18B.19C.20D.21二、基本操作题(总题数：1，分数：2.00)41.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Form1 的窗体上画出包含三个命令按钮的控件数组，名称为 cmdl，下标分别为 0、1、2，Caption 分别为“开始”、“停止”和“退出”，如图 3(a)所示。通过属性窗口设置各命令按钮的属性，使得程序开始运行时，“停止”按钮不可见，“退出”按钮不可用，如图 3(b)所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjt1frm，工程文件名为 sjt1vbp。 (2)在名称为 F
19、orm1 的窗体上画两个名称分别为 Command1 和 Command2、标题分别为“打开”和“保存”的命令按钮，和一个名称为 CD1 的通用对话框，如图 4 所示。请在属性窗口中设置 CD1 的属性，使得打开通用对话框时，其初始路径是“C：”。再编写适当的事件过程，使得运行程序，分别单击“打开”或“保存”按钮时，相应地出现“打开”或“保存”对话框。要求程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjt2frm，工程文件名为 sjt2vbp。 （分数：2.00）_三、简单应用题(总题数：1，分数：2.00)42.(1)在考生文件
20、夹下有一个工程文件 sjt3vbp，其功能是： 单击“读数据”按钮，则把考生文件夹下 in3dat 文件中的 100 个正整数读入数组 a 中； 单击“统计”按钮，则找出这 100 个正整数中的所有完全平方数(一个整数若是另外一个整数的平方，那么它就是完全平方数。例如，36：62，所以 36 就是一个完全平方数)，并将这些完全平方数的最大值与个数分别显示在文本框 Text1、Text2 中。 在给出的窗体文件中有了全部控件(如图 6 所示)，但程序不完整，请将程序中的注释符去掉，把?号改为正确的内容，实现上述功能。 注意：考生不得修改窗体文件已存在的控件和程序，最后将程序原文件名存盘。(2)在
21、考生文件夹下有一个工程文件 sjt4vbp，其窗体上有两个标题分别为“添加”和“退出”的命令按钮，一个内容为空的列表框 List1。请画一个标签，其名称为 Label1，标题为“请输入编号”；再画一个名称为 Text1，初始值为空的文本框，如图 7 所示。程序功能如下： 系统启动时，自动向列表框添加一个编号信息“a0001”。 系统运行时，在文本框 Text1 中输入一个编号，并单击“添加”按钮时，如果该编号与已存在于列表框中的其他编号不重复，则将其添加到列表框 List1 已有项目之后；否则，将弹出“不允许重复输入，请重新输入!”对话框，单击该对话框中的“确定”按钮，可以重新输入。 单击“退
22、出”按钮，则结束程序运行。 要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。（分数：2.00）_四、综合应用题(总题数：1，分数：2.00)43.在考生文件夹中有一个工程文件 sjt5vbp，如图 6 所示。运行程序时，从文件中读入矩阵数据并放入二维数组 a 中。单击“计算”按钮时，将统计矩阵两个对角线的元素中能被 3 整除的个数，统计结果显示在标签 lblFirst 中：同时计算矩阵主对角线的元素之和，计算结果显示在标签 lblSecond 中。 已给出了部分程序，请编写“计算”命令按钮事件
23、过程中的部分程序代码，以便完成上述功能。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，必须执行程序，并用“计算”按钮进行计算，否则无成绩。 （分数：2.00）_国家二级（VB）机试模拟试卷 165 答案解析(总分：86.00，做题时间：90 分钟)一、选择题(总题数：40，分数：80.00)1.下列数据结构中，能用二分法进行查找的是( )。（分数：2.00）A.无序线性表B.线性链表C.二叉链表D.顺序存储的有序表 解析：解析：二分法查找只适用于顺序存储的有序表，表中的元素按值从小到大排列。2.下列叙述中，不属于设计准则的是( )。（分数：2.00
24、）A.提高模块独立性B.使模块的作用域在该模块的控制域中C.设计成多入口、多出口模块 D.设计功能可预测的模块解析：解析：大量软件设计表明，以下的设计准则是可以借鉴为设计的指导和对软件结构图进行优化，这些准则是：提高模块独立性：模块规模适中：深度、宽度、扇出和扇入适当；使模块的作用域在该模块的控制域中；应减少模块的接口和界面的复杂性：设计成单入口、单出口的模块；设计功能可预测的模块。3.下列队列的描述中，正确的是( )。（分数：2.00）A.队列属于非线性表B.队列在队尾删除数据C.队列按“先进后出”进行数据操作D.队列按“先进先出”进行数据操作 解析：解析：队列是只允许在一端删除，在另一端插
25、入的顺序表，允许删除的一端叫做队头，允许插入的一端叫做队尾。队列的操作数是依据先进先出的原则进行的。因此队列亦称作先进先出的线性表，或后进后出的线性表。4.对下列二叉树进行前序遍历的结果为( )。 （分数：2.00）A.ABCDEFGHB.ABDGEHCF C.GDBEHACFD.GDHEBFCA解析：解析：遍历就是不重复地访问二叉树的所有结点。二叉树遍历的方法有 3 种：前序遍历、中序遍历和后序遍历。记住 3 种遍历的顺序：前序，访问根一按前序遍历左子树一按前序遍历右子树：中序，按中序遍历左子树一访问根一按中序遍历右子树；后序，按后序遍历左子树一按后序遍历右子树一访问根。 所以对该二叉树的中
26、序遍历结果为 ABDGEHCF。5.对于长度为 n 的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是( )。（分数：2.00）A.冒泡排序为 n(n-1)2 B.简单插入排序为 nC.希尔排序为 nD.快速排序为 n2解析：解析：在最坏情况下，冒泡排序所需要的比较次数为 n(n-1)2；简单插入排序所需要的比较次数为 n(n-1)2：希尔排序所需要的比较次数为 O(n 15 )；堆排序所需要的比较次数为 O(nlog 2 n)。6.为了使模块尽可能独立，要求( )。（分数：2.00）A.内聚程度要尽量高，耦合程度要尽量强B.内聚程度要尽量高，耦合程度要尽量弱 C.内聚程度要尽量低
27、，耦合程度要尽量弱D.内聚程度要尽量低，耦合程度要尽量强解析：解析：模块独立性是指每个模块只完成系统要求的独立的子功能，并且与其他模块的联系最少且接口简单。耦合性与内聚性是模块独立性的两个定性标准，耦合与内聚是相互关联的。在程序结构中，各模块的内聚性越强，则耦合性越弱。一般较优秀的软件设计，应尽量做到高内聚，低耦合，即减弱模块之间的耦合性和提高模块内的内聚性，有利于提高模块的独立性。7.下列选项中不属于软件生命周期开发阶段任务的是( )。（分数：2.00）A.软件测试B.概要设计C.软件维护 D.详细设计解析：解析：软件生命周期分为软件定义、软件开发及软件运行维护三个阶段，其中开发阶段包括概要
28、设计、详细设计、实现和测试。8.数据独立性是数据库技术的重要特点之一。所谓数据独立性是指( )。（分数：2.00）A.数据与程序独立存放B.不同的数据被存放在不同的文件中C.不同的数据只能被对应的应用程序所使用D.以上三种说法都不对 解析：解析：数据独立性是数据与程序间的互不依赖性，即数据库中数据独立于应用程序而不依赖于应用程序。所以选项 A，选项 B 和选项 C 都不正确。9.在学校中，“班级”与“学生”两个实体集之间的联系属于( )关系。（分数：2.00）A.一对一B.一对多 C.多对一D.多对多解析：解析：一个班可以有多名学生，而一名学生只能属于一个班级，所以“班级”与“学生”两个实体集
29、之间的联系属于一对多关系。10.软件调试的目的是( )。（分数：2.00）A.发现错误B.改善软件的性能C.改正错误 D.验证软件的正确性解析：解析：在对程序进行了成功的测试之后将进入程序调试，程序调试的任务是诊断和改正程序中的错误。11.下列不能打开菜单编辑器的操作是( )。（分数：2.00）A.按 Ctrl+E 键B.单击工具栏中的“菜单编辑器”按钮C.执行“工具”菜单中的“菜单编辑器”命令D.按 Shifi+Alt+M 键 解析：解析：在 VB 中打开菜单编辑器有 4 种方式：执行“工具”菜单中的“菜单编辑器”命令；使用热键 Ctrl+E；单击工具栏中的“菜单编辑器”按钮；在要建立菜单的
30、窗体上单击鼠标右键，将弹出一个菜单，然后单击“菜单编辑器”命令。12.以下( )对象不能作为容器。（分数：2.00）A.FrameB.FromC.PictureBoxD.Image 解析：解析：本题考查容器。容器是指可以容纳其他控件的控件。VB 中常用来作为容器的有框架、窗体和图片框(PictureBox)。13.关于自定义数据类型，下面叙述中不正确的是( )。（分数：2.00）A.自定义数据类型必须在窗体模块或标准模块的通用声明段进行声明B.在窗体模块中定义自定义数据类型时必须使用 Private 关键字C.自定义数据类型只能在窗体模块的通用声明段进行声明 D.自定义数据类型中的元素的数据类
31、型可以是系统提供的基本数据类型或已声明的自定义数据类型解析：解析：本题考查自定义数据类型。Type 语句用于定义自定义数据类型，可以声明在窗体的通用部分或者标准模块中，窗体自定义必须说明为 Private 属性。自定义数据类型含有一个或一个以上的成员，每个成员可以被定义为不同的已经存在的数据类型。14.86787E+8 写成普通的十进制数是( )。（分数：2.00）A.86 787 000B.867 870 000 C.8 678 700D.8 678 700 000解析：解析：本题考查浮点数的表示。E 表示 10，后面的整数为 10 的幂。也就是数学中的 8678710 8 形式。15.设
32、x=4，y=8，z=7，则以下表达式的运算结果是( )。 xz)Or z0，-a，a)有相同结果的代数式是( )。（分数：2.00）A.|a|B.-|a| C.aD.-a解析：解析：IIf 函数可以用来执行简单的条件判断操作，它是“IfThenElse”结构的简写版本，其格式为：result=IIf(条件，True 部分，False 部分)。其中“result”是函数的返回值，“条件”是一个逻辑表达式。当“条件”为真时，IIf 函数返回“True 部分”，否则返回“False 部分”。“True 部分”或“False 部分”可以是表达式、变量或其他函数。本题中 IIf 函数的作用是如果 a0
33、则返回-a，否则返回 a，等价于-|a|。19.在窗体上画一个名称为 Text1 的文本框，然后画一个名称为 Hscroll1 的滚动条，其 Min 和 Max 属性分别为 0 和 1 000。程序运行后，如果移动滑块，则在文本框中显示滚动条的当前值。以下能实现上述操作的程序是( )。（分数：2.00）A.Private Sub Hscroll1_Change() Text1Text=HScroll1Value End Sub B.Private Sub Hscroll1_Click() Text1Text=HScroll1Value End SubC.Private Sub Hscroll1
34、_Change() Text1Text=Hscroll1Caption End SubD.Private Sub Hscroll1_Click() Text1Text=Hscroll1Caption End Sub解析：解析：本题考查滚动条的事件和属性。滚动条上滑块的位置决定了其 Value 属性的值，当滑块的位置发生改变时，将触发滚动条的 Change 事件。因此，要想在移动滑块时，在文本框中显示滚动条的当前值，可通过在滚动条的 Change 事件中将滚动条的 Value 属性值赋值给文本框的 Text 属性来实现。20.下列可以打开立即窗口的操作是( )。（分数：2.00）A.Ctrl+D
35、B.Ctrl+EC.Ctrl+FD.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（分数：2.00）A.A RowB.B RowC.C Row D.D Row解析：解析：本题考查 Select 语句的执行。Rnd 产生(0，1)范
36、围内的数，Int()函数取不大于参数的最小整数，因此 x 的值总为 4。Select Case 语句的功能是在各个 Case 分支中寻找 x 的位置，找到则执行该分支的语句，执行完毕退出 Select Case 语句。22.以下能够正确退出循环的是( )。（分数：2.00）A.i=10 Do i=i+1 Loop Until i10 Then Exit For Next Text1Text=Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的是( )。（分数：2.00）A.2B.3 C.4D.5解析：解析：本题考查循环程序的分析。题中循环变量为 i，步长为 1，循环体中 i
37、 每次变化都增加 3，因此执行一次循环后，i 的值增加 4，当 i 大于 10 时退出循环，所以每次循环后 i 的值为：3，7，11。当i 为 11 时退出循环，所以循环共执行了 3 次。28.在窗体上画一个名称为 Text1 的文本框，然后画 3 个单选按钮，并用这 3 个单选按钮建立一个名为Optionl 的控件数组，程序运行后，如果单击某个单选按钮，则文本框中的字体根据所选择的单选按钮切换，如图 1 所示。请选择适合空白处的语句( )。 Private Sub Optionl_Click(Index As Integer) Select Case_ Case 0：a=“宋体“ Case
38、1：a=“黑体“ Case 2：a=“楷体 GB23 12“ End Select Text1_=aEnd Sub （分数：2.00）A.Option TextB.Index TextC.Index Font D.Option Font解析：解析：本题考查控件数组。Optionl 数组中每个元素的名字为 Optionl，依靠不同的 Index 属性来区分不同的控件。变量 a 表示选择不同按钮后的不同字体，字体名属性为 Font 属性集的默认属性(FontName)，这里可以直接使用 Font 属性。29.设有如下通用过程： Public Sub Fun(a() As Integer，x As
39、Integer) For i=1 To 4 x=x*a(i) Next End Sub 在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程： 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 Text1Text=Str(n) End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是( )。（分数：2.00）A.30 B.25C.20D.15解析：解析：本题考查函数的参数
40、。数组作为参数进行传递时，VB 中默认的参数传递方式为地址传递。过程 Fun 的功能是计算数组中所有元素的积。数组的元素为 2 4 6 8 10，因此最后文本框中显示的内容为 30。30.在窗体上画一个文本框，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim charAs String char=Chr(KeyAscii) KeyAscii=Asc(UCase(char) Text1Text=String(6，KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为( )。（
41、分数：2.00）A.aB.AC.aaaaaaD.AAAAAA 解析：解析：本题考查 KeyPress 事件过程和字符串函数。KeyPress 事件的过程格式为：Sub object_KeyPress(Index As Integer，KeyAscii As Integer)，其中 KeyAscii 为字符 ASCII 码。当在文本框中输入字符 a 后，UCase 函数把输入的字符转化为大写字符，Asc 函数则把字符转化为 ASCII 码值。String 函数则产生 6 个同样的字符 A。31.以下对文件分类的划分不正确的是( )。（分数：2.00）A.文件分为程序文件和数据文件B.文件分为有结
42、构文件和无结构文件 C.文件分为 ASCII 文件和二进制文件D.文件分为顺序文件和随机文件解析：解析：本题考查文件的分类。按照数据的访问模式，可分为有顺序、随机、二进制文件，按照文件的存储，可分为 ASCII 文件和二进制文件，按照文件的功能可分为数据文件和程序文件。32.在窗体上有一个名称为 Command1 的命令按钮，并编写有如下事件过程： Private Sub Command1_Click() Dim rec As animal Open“c：vbTestdat“For Random As #1 Len=Len(rec) recanimalName=“cat“ recaColor=
43、“White“ Put #1，rec Close #1 End Sub 记录类型定义如下： Private Type animal animalName As String*20 aColor As String*10 End Type 下列叙述中正确的是( )。（分数：2.00）A.记录类型 animal 不能在 Form1 中定义，必须在标准模块中定义B.如果文件 c：vbTestdat 不存在，则 Open 命令执行失败 C.由于 Put 命令中没有指明记录号，因此每次都把记录写到文件的末尾D.语句“Put#1，rec”将 animal 类型的两个数据元素写到文件中解析：解析：本题考查随
44、机文件的基本操作。随机文件以记录作为存储单位，以 Random 打开文件的格式为：Open 文件名 For Random As #文件号Len=记录长度。如果文件不存在，则打开失败。写操作格式为：Put#文件号，记录号，变量名。可以将一个记录变量的内容写到指定的记录位置处，忽略记录号，则表示在当前记录后的位置插入一条记录。读操作格式为：Get#文件号，记录号，变量名。如果忽略记录号，则读出当前记录后面的那一条记录。一般记录类型在 VB 中是以 Type 定义的自定义类型，可以在窗体和标准模块中定义。33.文本框接受的最长字符数由文本框的( )属性确定。（分数：2.00）A.MaxLength
45、B.MultiLineC.WidthD.Text解析：解析：本题考查文本框的常见属性。文本框中存放的字符个数由 MaxLength 属性决定。当取值为 0时表示任意长的字符，取值为非 0，表示相应个数字符。34.以下事件过程的功能是：从已存在于磁盘上的顺序文件 Numltxt 中读取数据，计算读出数据的平方值，将该数据及其平方值存入新的顺序文件 Num2txt 中。则在以下横线处合适的语句是( )。 Private Sub Form_Click() Dim x As Single，y As Single Open“Numltxt“For Input As #1 Open“Num2txt“For
46、 Output As #2 Do While Not EOF(1) _ Print x y=x2 _ Print y Loop Close #1，#2 End Sub（分数：2.00）A.Input #1，y Print #2，x，yB.Input #2，x Print #1，x，yC.Print #1，x Input #2，x，yD.Input #1，x Print #2，x，y 解析：解析：本题考查顺序文件的操作。打开文件 Num1 和文件 Num2，文件号为 1 和 2。如果 1 号文件不为空，则利用 Input 读出数据，Input 使用格式为：Input#文件号，变量列表。计算平方以
47、后，利用Print 将信息结果写入到 2 号文件中，Print 的使用格式为：Print 群文件号，【输出列表】。35.下列程序的执行结果为( )。 n=0 j=1 Do Until n2 n=n+1：j=j+n*(n+1) Loop Print n：j（分数：2.00）A.0 1B.3 7C.3 21 D.3 13解析：解析：本题考查循环程序的分析。在 Do Until 循环中如果 n 小于等于 2，那么把 n*(n+1)的结果累加到 j 上。因此程序的功能为：循环变量 n 从 0 开始到 2 共执行了 3 次，目的为计算 1+1*2+2*3+3*4。36.下列程序在运行时输出的结果是( )
48、。 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（分数：2.00）A.1 3 5 7 9 B.9 7 5 3 1C.1 2 3 4 5 6 7 8 9 10D.10 9 8 7 6 5 4 3 2 1解析：解析：本题考查数组元素的赋值。数组 x 元素的下标从 1 到 10，元素分别为：10-下标+1(也就是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
