1、二级 VISUAL+BASIC 笔试-151 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.下列程序的执行结果为( )。n=0j=1Do Until n2n=n+1:j=j+n*(n+1)LoopPrint n;j（分数：2.00）A.0 1B.3 7C.3 21D.3 132.在窗体 Form1 上放一个名为 Text1 的文本框和一个名为 Command1 的命令按钮，然后编写一个事件过程。要求程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“VB 等级考试二级”。以下能正确实现上述操作的事件过程是( )。（分数：2.
2、00）A.Private Sub Text1_Change()Command1.Caption=“VB 等级考试二级“End SubB.Private Sub Command1_Click()Caption=“VB 等级考试二级“End SubC.Private Sub Form1_Click()Text1.Caption=“VB 等级考试二级“End SubD.Private Sub Command1_Click()Text1.Text=“VB 等级考试二级“End Sub3.下列程序执行后，其输出结果为( )。Dim a(5)For i=0 To 4a(i)=i+1m=i+1If m=3
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)=iPrint a(i);Next i（分数：2.00）A.1 1 1 4 4B.1 2 3 4 1C.1 2 1 4 4D.1 1 1 4 14.设 x=4，y=8，z=7，则以下表达式的运算结果是( )。xy And(Not yz)Or zx（分数：2.00）A.1B.-1C.TrueD.False5.对于长度为 n 的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是( )。（分数：2.00）A.冒泡排序为 n(n-1)/2B.简单插入排序为 nC.希尔排序
4、为 nD.快速排序为 n/26.编写如下事件过程：Private Sub Form Activate()Dim score(1 To 3) As IntegerDim i As Integer,t As VariantFor i=3 To 1 Step-lscore(i)=2*iNext iFor Each t In scorePrint t;NextEnd Sub程序运行后窗体上显示( )。（分数：2.00）A.6 4 2B.2 4 6C.2D.67.下列程序段的执行结果为( )。x=Int(Rnd+3)Select Case xCase 5Print “A Row“Case 4Print
5、“B Row“Case 3Print “C Row“Case ElsePrint “D Row“End Select（分数：2.00）A.A ROWB.B RowC.C ROWD.D Row8.用 Line Input 语句从顺序文件读出数据时，每次读出一行数据。所谓一行是指遇到( )分隔符，即认为一行的结束。（分数：2.00）A.文件结束符B.回车符C.空格D.Tab 字符9.设 a 是整型变量，与函数 IIf(a0，-a，（分数：2.00）A.有相同结果的代数式是( )。A) |a|B.-|a|C.aD.-a10.运行下列程序时，输出的结果是( )。Private Sub Form_Cli
6、ck()Dim xx=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 iEnd Sub（分数：2.00）A.SoftwareB.SoftwareSystemC.出错信息D.SoftwareandHardwareSystem11.软件调试的目的是( )。（分数：2.00）A.发现错误B.改善软件的性能C.改正错误D.验证软件的正确性12.关于自定义数据类型，下面叙述中不正确的是( )。（分数：2.00）A.自定义数据
7、类型必须在窗体模块或标准模块的通用声明段进行声明B.在窗体模块中定义自定义数据类型时必须使用 Private 关键字C.自定义数据类型只能在窗体模块的通用声明段进行声明D.自定义数据类型中的元素的数据类型可以是系统提供的基本数据类型或已声明的自定义数据类型13.设有如下程序：Option Base ()Private Sub Form_Click()Dim aDim i As Integera=Array(1，2，3，4，5，6，7，8，9)For i=0 To 3Print a(5-i);NextEnd Sub程序运行后，单击窗体，则在窗体上显示的是( )。（分数：2.00）A.4 3 2
8、1B.5 4 3 2C.6 5 4 3D.7 6 5 414.以下事件过程的功能是：从已存在于磁盘上的顺序文件 Num1.txt 中读取数据，计算读出数据的平方值，将该数据及其平方值存入新的顺序文件 Num2.txt 中。则在以下横线处合适的语句是( )。Private Sub Form_Click()Dim x As Single,y As SingleOpen “Num1.txt“ For Input As #1Open “Num2.txt“ For Output As #2Do While Not EOF(1)_Print xy=x2Print yLoopClose #1,#2End S
9、ub（分数：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,y15.在窗体上画一个名称为 Text1 的文本框，然后画一个名称为 Hscroll1 的滚动条，其 Min 和 Max 属性分别为 0 和 1000。程序运行后，如果移动滑块，则在文本框中显示滚动条的当前值。以下能实现上述操作的程序是( )。（分数：2.00）A.Private Sub Hscroll1_Change()Text1.Text=HScroll1.ValueEnd S
10、ubB.Private Sub Hscroll1_Click()Text1.Text=HScroll1.ValueEnd SubC.Private Sub Hscroll1_Change()Text1.Text=Hscroll1.CaptionEnd SubD.Private Sub Hscroll1_Click()Text1.Text=-Hscroll1.CaptionEnd Sub16.将文本框的( )属性设置为 True 时，文本框可以输入或显示多行文本，且会自动 换行。（分数：2.00）A.TextB.ScrollBarsC.MultiLineD.Enabled17.设有如下通用过程：
11、Public Sub Fun(a() As Integer,x As Integer)For i=1 To 4x=x*a(i)NextEnd Sub在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim arr(5)As Integer,n As Integern=1For i=1 To 4arr(i)=i+iNextFun arr,nText1.Text=Str(n)End Sub程序运行后，单击命令按钮，则在文本框中显示的内容是( )。（分数：2.00）A.30B.25C.2
12、0D.1518.下列选项中不属于软件生命周期开发阶段任务的是( )。（分数：2.00）A.软件测试B.概要设计C.软件维护D.详细设计19.在学校中，“班级”与“学生”两个实体集之间的联系属于( )关系。（分数：2.00）A.一对一B.一对多C.多对一D.多对多20.在窗体上画一个文本框，然后编写如下事件过程：Private Sub Text1_KeyPress(KeyAscii As Integer)Dim char As Stringchar=Chr(KeyAscii)KeyAscii=Asc(UCase(char)Text1.Text=String(6,KeyAscii)End Sub程
13、序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为( )。（分数：2.00）A.aB.AC.aaaaaaD.AAAAAA21.在窗体上有一个名称为 Command1 的命令按钮，并编写有如下事件过程：Private Sub Command1_Click()Dim rec As animalOpen “c:/vbTest.dat“ For Random As #1 Len=Len(ree)rec.animalName=“cat“rec.aColor=“White“Put #1,recClose #1End Sub记录类型定义如下：Private Type animalanimalNam
14、e As String*20aColor As String*10End Type下列叙述中正确的是( )。（分数：2.00）A.记录类型 animal 不能在 Form1 中定义，必须在标准模块中定义B.如果文件 c:/vbTest.dat 不存在，则 Open 命令执行失败C.由于 Put 命令中没有指明记录号，因此每次都把记录写到文件的末尾D.语句“Put #1,rec”将 animal 类型的两个数据元素写到文件中22.数据独立性是数据库技术的重要特点之。所谓数据独立性是指( )。（分数：2.00）A.数据与程序独立存放B.不同的数据被存放在不同的文件中C.不同的数据只能被对应的应用程
15、序所使用D.以上三种说法都不对23.下列队列的描述中，正确的是( )。（分数：2.00）A.队列属于非线性表B.队列在队尾删除数据C.队列按“先进后出”进行数据操作D.队列按“先进先出”进行数据操作24.下列数据结构中，能用二分法进行查找的是( )。（分数：2.00）A.无序线性表B.线性链表C.二叉链表D.顺序存储的有序表25.8.6787E+8 写成普通的十进制数是( )。（分数：2.00）A.86787000B.867870000C.8678700D.867870000026.对下列二叉树进行前序遍历的结果为( )。（分数：2.00）A.B.C.D.27.以下能够正确退出循环的是( )。
16、（分数：2.00）A.i=10Doi=i+1Loop Until i10B.i=1Doi=i+1Loop Until i=10C.i=10Doi=i+1Loop Until i0D.i=1Doi=i-3Loop Until i=028.下列叙述中，不属于设计准则的是( )。（分数：2.00）A.提高模块独立性B.使模块的作用域在该模块的控制域中C.设计成多入口、多出口模块D.设计功能可预测的模块29.在窗体上有一个名为 Text1 的文本框和一个名为 Command1 的命令按钮，并编写有如下事件过程：Private Sub Command1_Click()Dim i As Integer,n
17、 As IntegerFor i=0 To 50i=j+3n=n+1If i10 Then Exit ForNextText1.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的是( )。（分数：2.00）A.2B.3C.4D.530.在窗体上画一个名称为 Text1 的文本框，然后画 3 个单选按钮，并用这 3 个单选按钮建立一个名为Option1 的控件数组，程序运行后，如果单击某个单选按钮，则文本框中的字体根据所选择的单选按钮切换，如图所示。请选择适合空白处的语句( )。（分数：2.00）A.B.C.D.31.下列程序在运行时输出的结果是( )。Option
18、Base 1Private Sub Form_Click()Dim x(10)For i=1 To 10x(i)=10-i+1Next iFor i=10 To 1 Step-2Print x(i)Next iEnd 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 132.以下对文件分类的划分不正确的是( )。（分数：2.00）A.文件分为程序文件和数据文件B.文件分为有结构文件和无结构文件C.文件分为 ASCII 文件和二进制文件D.文件分为顺序文件和随机文件33.以下( )对象不能作为
19、容器。（分数：2.00）A.FrameB.FromC.PictureBoxD.Image34.窗体上命令按钮 Command1 的事件过程如下：Option Base 1Private Sub Command1_Click()Dim a(4,4)As VariantFor i=1 To 4For j=1 To 4a(i,j)=(i-1)*3+jNext jNext iFor i=3 To 4For j=3 To 4Print a(i,j)Next jNext iEnd Sub该程序执行后，输出结果是( )。（分数：2.00）A.9101213B.7101213C.9121013D.811912
20、35.为了使模块尽可能独立，要求( )。（分数：2.00）A.内聚程度要尽量高，耦合程度要尽量强B.内聚程度要尽量高，耦合程度要尽量弱C.内聚程度要尽量低，耦合程度要尽量弱D.内聚程度要尽最低，耦合程度要尽量强二、填空题(总题数：9，分数：30.00)36.在 E-R 图中，矩形表示 1。（分数：2.00）填空项 1:_37.符合结构化原则的三种基本控制结构是顺序结构、 1 和循环结构。（分数：2.00）填空项 1:_38.在面向对象方法中，类的实例称为 1。（分数：2.00）填空项 1:_39.队列是限定在表的一端进行插入和在另一端进行删除操作的线性表。允许删除的一端称作 1。（分数：2.0
21、0）填空项 1:_40.在关系模型中，若属性 A 是关系 R 的主码，属性 A 的取值不能为空，称为_ 约束。（分数：2.00）填空项 1:_41.以下程序的功能是将多维数组 a(1 To m，1 To n)中的元素转移到一个名为 b(1 To n)的一维数组中，请填写空白处，完成该程序。Option Base 1Private Sub Command1_Click()Dim a(1 To 4,1 To 5):Dim b()ReDim_For i=1 To 4For j=1 To 5a(i,j)=i*jNext jNext iCall Transf(a,4,5,B) End SubSub Tr
22、ansf(a(),m,n,b()Dim x As Integerx=1For i=1 To mFor j=1 To nb(x)=_x=x+1Next jNext iEnd Sub（分数：4.00）填空项 1:_42.在窗体上有一个名称为 Label1 的标签和一个名称为 Timer1 的计时器，并编写有如下几个事件过程：Private Sub Form Load()Timer1.Enabled=FalseTimer1.Interval=_End SubPrivate Sub Form_Click()Timer1.Enabled=_End SubPrivate Sub Timer1_Timer(
23、)Label1.Caption=_End Sub程序运行后，单击窗体，将在标签中显示当前时间，每隔 1s 钟变换一次，请填空。（分数：6.00）填空项 1:_43.引用列表框(List1)最后一个列表项应使用的语句是 1。（分数：2.00）填空项 1:_44.在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为 Drive1、Dir1 和File1，为了使它们同步操作，必须触发 1 事件和 2 事件，在这两个事件中执行的语句分别为 3 和 4。（分数：8.00）填空项 1:_填空项 1:_填空项 1:_填空项 1:_二级 VISUAL+BASIC 笔试-151 答案解析(总
24、分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.下列程序的执行结果为( )。n=0j=1Do Until n2n=n+1:j=j+n*(n+1)LoopPrint n;j（分数：2.00）A.0 1B.3 7C.3 21 D.3 13解析：解析 本题考查循环程序的分析。在 Do Until 循环中如果 n 小于等于 2，那么把 n*(n+1)的结果累加到 i 上。因此程序的功能为：循环变量 n 从 0 开始到 2 共执行了 3 次，目的为计算 1+1*2+2*3+3*4。2.在窗体 Form1 上放一个名为 Text1 的文本框和一个名为 Command
25、1 的命令按钮，然后编写一个事件过程。要求程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“VB 等级考试二级”。以下能正确实现上述操作的事件过程是( )。（分数：2.00）A.Private Sub Text1_Change()Command1.Caption=“VB 等级考试二级“End Sub B.Private Sub Command1_Click()Caption=“VB 等级考试二级“End SubC.Private Sub Form1_Click()Text1.Caption=“VB 等级考试二级“End SubD.Private Sub Command1_Cli
26、ck()Text1.Text=“VB 等级考试二级“End Sub解析：解析 本题考查文本框的事件。文本框的 Click 事件是单击文本框时触发的，Change 事件是每次文本框中的文本发生改变时都要触发的事件。题目中要求当文本框的字符改变以后实现要求，因此应通过文本框的 Change 事件更改 Command1 的 Caption 属性。3.下列程序执行后，其输出结果为( )。Dim a(5)For i=0 To 4a(i)=i+1m=i+1If 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)=iPrint
27、a(i);Next i（分数：2.00）A.1 1 1 4 4B.1 2 3 4 1C.1 2 1 4 4 D.1 1 1 4 1解析：解析 本题考查数组元素的赋值。数组 a 在循环中为数据赋值。循环变量 i 从 0 到 4，步长为 1。如果 i 等于 2，则将 a(0)的值赋给 a(2)；如果 m 等于 3，则将 a(0)的值赋给 a(1)。因此数组元素的值为：1 2 1 4 4。4.设 x=4，y=8，z=7，则以下表达式的运算结果是( )。xy And(Not yz)Or zx（分数：2.00）A.1B.-1C.TrueD.False 解析：解析 本题考查逻辑运算。将操作数进行逻辑运算，
28、结果是逻辑值。常见的逻辑运算有逻辑与和逻辑或，格式分别为：“条件表达式 1 And 条件表达式 2”，条件表达式均为 T 时结果为 T；“条件表达式 1 Or 条件表达式 2”，有一个条件表达式为 T 时结果为 T。Not 为取反运算，若 xy 为 True，则 Not yz 为 False，因此 And 运算结果为 False；又因为 zx 为 False，所以 Or 运算为 False。5.对于长度为 n 的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是( )。（分数：2.00）A.冒泡排序为 n(n-1)/2 B.简单插入排序为 nC.希尔排序为 nD.快速排序为 n/2解
29、析：解析 在最坏情况下，冒泡排序所需要的比较次数为 n(n-1)/2；简单插入排序所需要的比较次数为 n(n-1)/2；希尔排序所需要的比较次数为 O(n15)：堆排序所需要的比较次数为 O(nlog2n)。6.编写如下事件过程：Private Sub Form Activate()Dim score(1 To 3) As IntegerDim i As Integer,t As VariantFor i=3 To 1 Step-lscore(i)=2*iNext iFor Each t In scorePrint t;NextEnd Sub程序运行后窗体上显示( )。（分数：2.00）A.6
30、 4 2B.2 4 6 C.2D.6解析：解析 本题考查 For Each in 循环。For Each in 循环格式为：For Each 变体变量 in 数组Next，For Each in 循环在本题中的功能是：依次从数组 score 中取出每一个元素放到变量 t 中并输出。数组 score 中的元素从 1 到 3 分别为：2 4 6。7.下列程序段的执行结果为( )。x=Int(Rnd+3)Select Case xCase 5Print “A Row“Case 4Print “B Row“Case 3Print “C Row“Case ElsePrint “D Row“End Sel
31、ect（分数：2.00）A.A ROWB.B RowC.C ROW D.D Row解析：解析 本题考查 Select 语句的执行。Rnd 产生0，1)范围内的数，Int()函数取不大于参数的最小整数，因此 x 的值总为 4。Select Case 语句的功能是在各个 Case 分支中寻找 x 的位置，找到则执行该分支的语句，执行完毕退出 Select Case 语句。8.用 Line Input 语句从顺序文件读出数据时，每次读出一行数据。所谓一行是指遇到( )分隔符，即认为一行的结束。（分数：2.00）A.文件结束符B.回车符 C.空格D.Tab 字符解析：解析 本题考查行结束标志。文件中用
32、 EOF 测试是否到达末尾；而用“回车符”确定是否结束一行。9.设 a 是整型变量，与函数 IIf(a0，-a，（分数：2.00）A.有相同结果的代数式是( )。A) |a|B.-|a| C.aD.-a解析：解析 IIf 函数可以用来执行简单的条件判断操作，它是“If.Then.Else”结构的简写版本，其格式为：result=IIf(条件，True 部分，False 部分)。其中“result”是函数的返回值，“条件”是一个逻辑表达式。当“条件”为真时，IIf 函数返回“True 部分”，否则返回“False 部分”。“True 部分”或“False 部分”可以是表达式、变量或其他函数。本题
33、中 IIf 函数的作用是如果 a0 则返回-a，否则返回 a，等价于-|a|。10.运行下列程序时，输出的结果是( )。Private Sub Form_Click()Dim xx=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 iEnd Sub（分数：2.00）A.SoftwareB.SoftwareSystem C.出错信息D.SoftwareandHardwareSystem解析：解析 本题考查变体类型。变体
34、类型变量可通过 Array 函数来存放多个元素，做为数组进行处理。要读取数组上界时，可使用 UBound(x)来实现，要读取数组下界时，LBound(x)来实现。因为题中 x 存放了多个字符串，i 表示第一个字符串的行下标的下界，UBound(x,1)表示第一个字符串的行下标的上界。利用 Left 函数取得每一行数组元素的最左边的字符，然后判断是否为“s”，如果是，则输出该元素。11.软件调试的目的是( )。（分数：2.00）A.发现错误B.改善软件的性能C.改正错误 D.验证软件的正确性解析：解析 在对程序进行了成功的测试之后将进入程序调试，程序调试的任务是诊断和改正程序中的错误。12.关于
35、自定义数据类型，下面叙述中不正确的是( )。（分数：2.00）A.自定义数据类型必须在窗体模块或标准模块的通用声明段进行声明B.在窗体模块中定义自定义数据类型时必须使用 Private 关键字C.自定义数据类型只能在窗体模块的通用声明段进行声明 D.自定义数据类型中的元素的数据类型可以是系统提供的基本数据类型或已声明的自定义数据类型解析：解析 本题考查自定义数据类型。Type 语句用于定义自定义数据类型，可以声明在窗体的通用部分或者标准模块中，窗体自定义必须说明为 Private 属性。自定义数据类型含有一个或一个以上的成员，每个成员可以被定义为不同的已经存在的数据类型。13.设有如下程序：O
36、ption Base ()Private Sub Form_Click()Dim aDim i As Integera=Array(1，2，3，4，5，6，7，8，9)For i=0 To 3Print a(5-i);NextEnd Sub程序运行后，单击窗体，则在窗体上显示的是( )。（分数：2.00）A.4 3 2 1B.5 4 3 2C.6 5 4 3 D.7 6 5 4解析：解析 本题考查变体数组。题中定义了一个下标从 0 开始的变体数组 a，然后利用 Array 函数初始化数组 a 中的数据，最后通过 For 循环输出数组中 a(5)、a(4)、a(3)、a(2)四个元素的值，分别为
37、：6 5 4 3。14.以下事件过程的功能是：从已存在于磁盘上的顺序文件 Num1.txt 中读取数据，计算读出数据的平方值，将该数据及其平方值存入新的顺序文件 Num2.txt 中。则在以下横线处合适的语句是( )。Private Sub Form_Click()Dim x As Single,y As SingleOpen “Num1.txt“ For Input As #1Open “Num2.txt“ For Output As #2Do While Not EOF(1)_Print xy=x2Print yLoopClose #1,#2End Sub（分数：2.00）A.Input
38、#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 #文件号，变量列表。计算平方以后，利用Print 将信息结果写入到 2 号文件中，Print 的使用格式为：Print #文件号，输出列表。15.在窗体上画一个名称为 Text1 的文本框，然后画一个名称为 Hscroll1 的滚动
39、条，其 Min 和 Max 属性分别为 0 和 1000。程序运行后，如果移动滑块，则在文本框中显示滚动条的当前值。以下能实现上述操作的程序是( )。（分数：2.00）A.Private Sub Hscroll1_Change()Text1.Text=HScroll1.ValueEnd Sub B.Private Sub Hscroll1_Click()Text1.Text=HScroll1.ValueEnd SubC.Private Sub Hscroll1_Change()Text1.Text=Hscroll1.CaptionEnd SubD.Private Sub Hscroll1_Cl
40、ick()Text1.Text=-Hscroll1.CaptionEnd Sub解析：解析 本题考查滚动条的事件和属性。滚动条上滑块的位置决定了其 Value 属性的值，当滑块的位置发生改变时，将触发滚动条的 Change 事件。因此，要想在移动滑块时，在文本框中显示滚动条的当前值，可通过在滚动条的 Change 事件中将滚动条的 Value 属性值赋值给文本框的 Text 属性来实现。16.将文本框的( )属性设置为 True 时，文本框可以输入或显示多行文本，且会自动 换行。（分数：2.00）A.TextB.ScrollBarsC.MultiLine D.Enabled解析：解析 本题考查
41、文本框的常见属性。文本框的 Text 属性存放输入的数据，而 MultiLine 属性的作用为设置是否为多行，默认为 False，此时不能显示多行；当设置为 True 时，允许显示多行文本。当MultiLine 属性为 True 时，可以通过设置 ScrollSars 属性来显示滚动条。17.设有如下通用过程：Public Sub Fun(a() As Integer,x As Integer)For i=1 To 4x=x*a(i)NextEnd Sub在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Comm
42、and1_Click()Dim arr(5)As Integer,n As Integern=1For i=1 To 4arr(i)=i+iNextFun arr,nText1.Text=Str(n)End Sub程序运行后，单击命令按钮，则在文本框中显示的内容是( )。（分数：2.00）A.30 B.25C.20D.15解析：解析 本题考查函数的参数。数组作为参数进行传递时，VB 中默认的参数传递方式为地址传递。过程 Fun 的功能是计算数组中所有元素的积。数组的元素为 2 4 6 8 10，因此最后文本框中显示的内容为 30。18.下列选项中不属于软件生命周期开发阶段任务的是( )。（分数
43、：2.00）A.软件测试B.概要设计C.软件维护 D.详细设计解析：解析 软件生命周期分为软件定义、软件开发及软件运行维护三个阶段，其中开发阶段包括概要设计、详细设计、实现和测试。19.在学校中，“班级”与“学生”两个实体集之间的联系属于( )关系。（分数：2.00）A.一对一B.一对多 C.多对一D.多对多解析：解析 一个班可以有多名学生，而一名学生只能属于一个班级，所以“班级”与“学生”两个实体集之间的联系属于一对多关系。20.在窗体上画一个文本框，然后编写如下事件过程：Private Sub Text1_KeyPress(KeyAscii As Integer)Dim char As S
44、tringchar=Chr(KeyAscii)KeyAscii=Asc(UCase(char)Text1.Text=String(6,KeyAscii)End Sub程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为( )。（分数：2.00）A.aB.AC.aaaaaaD.AAAAAA 解析：解析 本题考查 KeyPress 事件过程和字符串函数。KeyPress 事件的过程格式为：Sub object_KeyPress(Index As Integer,KeyAscii As Integer，其中 KeyAscii 为字符 ASCII 码。当在文本框中输入字符 a 后，UCase
45、 函数把输入的字符转化为大写字符，Ase 函数则把字符转化为 ASCII 码值。String 函数则产生 6 个同样的字符 A。21.在窗体上有一个名称为 Command1 的命令按钮，并编写有如下事件过程：Private Sub Command1_Click()Dim rec As animalOpen “c:/vbTest.dat“ For Random As #1 Len=Len(ree)rec.animalName=“cat“rec.aColor=“White“Put #1,recClose #1End Sub记录类型定义如下：Private Type animalanimalName
46、 As String*20aColor As String*10End Type下列叙述中正确的是( )。（分数：2.00）A.记录类型 animal 不能在 Form1 中定义，必须在标准模块中定义B.如果文件 c:/vbTest.dat 不存在，则 Open 命令执行失败 C.由于 Put 命令中没有指明记录号，因此每次都把记录写到文件的末尾D.语句“Put #1,rec”将 animal 类型的两个数据元素写到文件中解析：解析 本题考查随机文件的基本操作。随机文件以记录作为存储单位，以 Random 打开文件的格式为：Open 文件名 For Random As#文件号Len=记录长度。
47、如果文件不存在，则打开失败。写操作格式为：Put#文件号,记录号,变量名。可以将一个记录变量的内容写到指定的记录位置处，忽略记录号，则表示在当前记录后的位置插入一条记录。读操作格式为：Get #1 文件号, 记录号,变量名。如果忽略记录号，则读出当前记录后而的那一条记录。一般记录类型在 VB 中是以 Type 定义的自定义类型，可以在窗体和标准模块中定义。22.数据独立性是数据库技术的重要特点之。所谓数据独立性是指( )。（分数：2.00）A.数据与程序独立存放B.不同的数据被存放在不同的文件中C.不同的数据只能被对应的应用程序所使用D.以上三种说法都不对 解析：解析 数据独立性是数据与程序间
48、的互不依赖性，即数据库中数据独立于应用程序而不依赖于应用程序。所以选项 A)，选项 B)和选项 C)都不正确。23.下列队列的描述中，正确的是( )。（分数：2.00）A.队列属于非线性表B.队列在队尾删除数据C.队列按“先进后出”进行数据操作D.队列按“先进先出”进行数据操作 解析：解析 队列是只允许在一端删除，在另一端插入的顺序表，允许删除的一端叫做队头，允许插入的一端叫做队尾。队列的操作数是依据先进先出的原则进行的。因此队列亦称作先进先出的线性表，或后进后出的线性表。24.下列数据结构中，能用二分法进行查找的是( )。（分数：2.00）A.无序线性表B.线性链表C.二叉链表D.顺序存储的有序表 解析：解析 二分法查找只适用于顺序存储的有序表，表中的元素按值从小到大排列。25.8.6787E+8 写成普通的十进制数是( )。（分数：2.00）A.86787000B.867870000 C.8678700D.8678700000解析：解析 本题考查浮点数的表示。E 表示 10，后面的整数为 10 的幂。也就是数学中的 8.6787108形式。26.对下列二叉树进行前序遍历的结果为( )。（分数：2.00）A.B. C.D.解析：解析 遍历就是不重复地访
