1、国家二级（VB）机试-试卷 21 及答案解析(总分：90.00，做题时间：90 分钟)一、选择题(总题数：40，分数：80.00)1.下列叙述中正确的是( )。（分数：2.00）A.算法复杂度是指算法控制结构的复杂程度B.算法复杂度是指设计算法的难度C.算法的时间复杂度是指设计算法的工作量D.算法的复杂度包括时间复杂度与空间复杂度2.设循环队列的存储空间为 Q(1：50)，初始状态为 front=rear=50。现经过一系列入队与退队操作后，front=rear=1，此后又正常地插入了两个元素。最后该队列中的元素个数为( )。（分数：2.00）A.2B.1C.3D.523.一棵完全二叉树共有
2、360 个结点，则在该二叉树中度为 1 的结点个数为( )。（分数：2.00）A.oB.1C.180D.1814.设某二叉树的后序序列与中序序列均为 ABCDEFGH，则该二叉树的前序序列为( )。（分数：2.00）A.HGFEDCBAB.ABCDEFGHC.EFGHABCDD.DCBAHGFE5.在排序过程中，每一次数据元素的移动会产生新的逆序的排序方法是( )。（分数：2.00）A.快速排序B.简单插入排序C.冒泡排序D.以上说法均不正确6.下面对软件工程描述正确的是( )。（分数：2.00）A.软件工程是用工程、科学和数学的原则与方法研制、维护计算机软件的有关技术及管理方法B.软件工程的
3、三要素是方法、工具和进程C.软件工程是用于软件的定义、开发和维护的方法D.软件工程是为了解决软件生产率问题7.耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是( )。（分数：2.00）A.内聚性是指模块间互相连接的紧密程度B.提高耦合性降低内聚性有利于提高模块的独立性C.耦合性是指一个模块内部各个元素间彼此结合的紧密程度D.降低耦合性提高内聚性有利于提高模块的独立性8.下列关于数据库系统的叙述中正确的是( )。（分数：2.00）A.数据库系统中数据的一致性是指数据类型一致B.数据库系统避免了一切冗余C.数据库系统减少了数据冗余D.数据库系统比文件系统能管理更多的数据9.一名演员可
4、以出演多部电影，则实体演员和电影之间的联系是 J( )。（分数：2.00）A.多对多B.一对一C.多对一D.一对多10.学生选课成绩表的关系模式 SC(S#，C#，G)，其中 S#为学号，C#为课号G 为成绩关系表达式 S#，C# (SC)S 表示( )。 （分数：2.00）A.表 S 中所有学生都选修了的课程的课号B.全部课程的课号C.成绩不小于 80 的学生的学号D.所选人数较多的课程的课号11.下列不能作为“容器”(即可以在其中放置其他控件)的是( )。（分数：2.00）A.图片框B.窗体C.框架D.组合框12.下列各声明语句中错误的是( )。（分数：2.00）A.Dim Test As
5、 String=”计算机等级考试”B.Const Country=”English”C.Public Sum As IntegerD.Static vl13.设窗体上有一个名称为 Text1 的文本框，要求在文本框中输入的字母都变成大写，下面可以实现这一功能的事件过程是( )。（分数：2.00）A.Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii=Asc(UCase(Chr(KeyAscii) End SubB.Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii=UCa
6、se(KeyAscii) End SubC.Private Sub Text1 KeyPress(KeyAscii As Integer) KeyAscii=KeyAscii+1 End SubD.Private Sub Text1_Change() KeyAscii=UCase(KeyAscii) End Sub14.设 a=4，b=5，c=6，执行语句 Print ab And bc 窗体上显示的是( )。（分数：2.00）A.FalseB.TrueC.出错信息D.015.以下说法中，正确的是( )。（分数：2.00）A.利用关系表达式 x2=Int(x2)不能判断变量 x 的值为偶数B.
7、表达式一 10 Mod 3 的值为 1C.表达式 Int(Rnd()的值是 0D.表达式 Chr(Asc(”A”)=UCase(”a”)的值为 False16.设有如下的记录类型： Private Type Employee num As String name As String End Type 则下列语句中正确的是( )。（分数：2.00）A.Dim e As EmployeeB.Employeename=“Tom”C.Dim e As Type EmployeeD.Dim e As Employee=“1001”arr(3，4)=4+10=14。最后一个 For 循环，循环变量 i 从
8、 1 开始执行到 4 结束，每次累加数组元素的值，即s=arr(1，1)+arr(2，2)+arr(3，3)+arr(4，4)=2+4+13+0=19。故 C 选项正确。33.在定义通用过程时，可以通过两种方式传送参数，其中传值方式所使用的关键字是( )。（分数：2.00）A.ByDefB.ByVal C.VarD.ByValue解析：解析：在 Visual Basic 中，传值方式通过关键字 ByVal 来实现。也就是说，在定义通用过程时，如果形参前面有关键字 ByVal，则该参数用传值方式，否则用引用(即传地址)方式传送。故本题 B 选项正确。34.已知过程定义的首行为 Sub sum(a
9、 As Integer，b As Integer)，则下面过程调用语句中正确的是( )。（分数：2.00）A.Call sum(x；y)B.sum x:yC.sum(x，y)D.sum x，y 解析：解析：sub 过程的调用有两种方式，一种是把过程的名字放在 Call 语句中，一种是把过程名作为一个语句来使用。A 选项和 B 选项参数之间的分隔符应使用“；”，故 A、B 选项均错误;C 选项应去掉“实际参数”的括号；故 D 选项正确。35.下列关于菜单的描述中错误的是( )。（分数：2.00）A.菜单项没有 Value 属性B.某菜单项是否显示为一个分隔条，取决于它的 Caption 属性C.
10、当某菜单项的 Visible 属性为 False 时，它的子菜单也不会显示D.菜单项的所有属性都不能在程序运行中修改 解析：解析：菜单项没有 Value 属性，A 选项正确；若要在菜单项之间可以插入一个分隔条，只需将菜单项的 Caption 属性设置为“一”即可，故 B 选项正确；菜单项的 Visible 属性设置为 False 表示该菜单不可见，与此同时其子菜单也不可见，故 C 选项正确；菜单项的大部分属性在程序运行期间是可以修改的，比如 Caption 属性、Visible 属性和 Enabled 属性等。故本题 D 选项错误。36.为了在程序运行时弹出一个菜单，程序中应使用( )。（分数
11、：2.00）A.窗体的 PopupMenu 方法 B.窗体的 Show 方法C.窗体的 ShowMenu 方法D.所单击控件的 PopupMenu 方法解析：解析：Popup 英文意为弹出，PopupMenu 意为弹出式菜单。建立弹出式菜单通常分两步进行：首先用菜单编辑器建立菜单，然后用 PopupMenu 方法弹出显示。PopupMenu 方法用来显示弹出式菜单，其格式为：对象PopupMenu 菜单名，Flags，X，Y，BoldCommand；其中“对象”是窗体名，故本题 A 为正确选项。37.决定对象拖放模式的属性是( )。（分数：2.00）A.DragDropB.DragIconC.
12、DragMode D.DragOver解析：解析：Drag 英文意：拖动，Mode 英文意：模式。DragMode 意为拖动模式。与拖放有关的属性有两个，分别是 DragMode 和 DragIcon，其中 DragMode 属性用来设置自动或人工(手动)拖放模式；Draglcon属性含有一个图片或图标的文件名，在拖动时作为控件的图标。与拖放有关的事件有两个，分别是DragDrop 和 DragOver，其中当把控件(图标)拖到目标之后，如果松开鼠标键，则产生一个 DragDrop 事件；当拖动对象越过一个控件时，产生 DragOver 事件。因此 DragMode 是决定对象拖放模式的属性，
13、故 C 选项正确。38.下列关于键盘事件的说法中，正确的是( )。（分数：2.00）A.KeyDown 和 KeyUp 的事件过程中有 KeyAscii 参数B.按下键盘上的任意一个键，都会引发 KeyPress 事件C.大键盘上的“1”键和数字键盘上的“1”键的 KeyCode 码相同D.大键盘上“4”键的上档字符是“$”，当同时按下 Shift 和大键盘上的“4”键时，KeyPress 事件过程的 KeyAscii 参数值是“$”的 ASCII 值 解析：解析：KeyDown 和 KeyUp 的事件过程中有 KeyCode 参数，没有 KeyAscii 参数，故 A 选项错误；按下键盘上的
14、功能键时并不能触发 KeyPress 事件，按下某 ASCII 字符键会触发 KeyPress 事件，故 B 选项错误；大键盘上的数字键与数字键盘上相同的数字键的 KeyCode 是不一样的。对于有上档字符和下档字符的键，其 KeyCode 为下档字符的 ASCII 码，C 选项错误；在 KeyPress 事件过程中，同时按下 shift 和大键盘上的“4”键时，Ker yAscii 参数值是“$”的 ASCII 值 36，故 D 选项正确。39.目录列表框 Path 属性的作用是( )。（分数：2.00）A.显示当前驱动器或指定驱动器上的目录结构 B.显示当前驱动器或指定驱动器上的某目录下的
15、文件名C.显示根目录下的文件名D.只显示当前路径下的文件解析：解析：目录列表框用来显示当前驱动器上的目录结构，在目录列表框中只能显示当前驱动器上的目录。如果要显示其他驱动器上的目录，必须改变路径，即重新设置目录列表框的 Path 属性。Path 属性适用于目录列表框和文件列表框，用来设置或返回当前驱动器的路径。故 A 选项正确。40.设有如下程序代码： Private Sub Commandl_Click() Dim Sname As String，SNo As String，Score As Single Open”D：Scoretxt“_As#1 SNo=InputBox(”输入学号：”)
16、 Sname=InputBox(”输入姓名：”) Score=Val(InputBox(”输入成绩：”) Print#1，SNo，Sname，Score Close#1 End Sub 以上程序的功能是，向文件 D：Scoretxt 中写入一名同学的学号、姓名和成绩，当文件不存在时，则新建 该文件；当文件存在时，则覆盖原文件的内容。在横线处应填入的内容是( )。（分数：2.00）A.For InputB.For Output C.For OverWriteD.For Random解析：解析：文件打开格式为 Open 文件说明For 方式Access 存取类型锁定As#文件号Len=记录长度。其
17、中，输入输出方式中 Output 主要用于指定文件顺序输出方式，如果文件不存在，则建立一个新的数据文件，将记录可以写到该文件中，如果文件已经存在，该语句打开已存在的文件，新写入的数据将覆盖原来的数据。故本题 B 选项正确。二、基本操作题(总题数：2，分数：4.00)41.在名称为 Form1 的窗体上添加一个名称为 Label1、标题为“设置速度”的标签，通过属性窗口把标签的大小设置为自动调整。添加一个名称为 HScroll1 的水平滚动条，通过属性窗口设置适当属性使滚动条的最小值为 1，最大值为 80，单击滚动条两端的箭头时，滚动框移动 2，滚动框的初始值为 30。程序运行后的窗体如图所示。
18、 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1vbp，窗体文件名保存为 sjt1frm。 （分数：2.00）_正确答案：(正确答案：步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属性见表 1。 )解析：解析：根据题意，先通过标签的 Autosize 属性把标签的大小设置为自动调整。然后通过对滚动条的 SmallChange 属性设置，使单击滚动条两端的箭头时，滚动框移动 2。42.在名称为 Forml 的窗体上添加一个名称为 Shape1 的形状控件，添加两个名称分别为Command1、Command2，标题分别为“圆形”、“红色边框”的命令按钮。将窗体的标题设置为
19、“图形控件”，如图 1 所示。请编写适当的事件过程，使得程序在运行时，单击“圆形”按钮将形状控件设为圆形。单击“红色边框”按钮，将形状控件的边框颜色设为红色(&HFF&)，如图 2 所示。 注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。 存盘时必须存放在考生文件夹下，工程文件名保存为sjt2vbp，窗体文件名保存为 sjt2frm。 （分数：2.00）_正确答案：(正确答案：步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属性见表 2。 )解析：解析：根据题意，通过命令按钮的 Name、Caption 属性设置命令按钮的名称和标题。在单击命令按钮事件过程中，通过设置形状控
20、件的 BorderColor 和 Shape 属性，将形状控件的边框颜色设为红色和将形状控件设为圆形。三、简单应用题(总题数：2，分数：4.00)43.在考生文件夹下有一个工程文件 sjt3vbp，请在窗体上添加两个单选按钮(名称分别为 Option1 和Option2，标题分别为“添加项目”和“删除项目”)，一个列表框(名称为 List1)和一个文本框(名称为Text1)，如图 1 所示。编写窗体的 Click 事件过程。程序运行后，如果选择“添加项目”单选按钮，然后单击窗体，则从键盘上输入要添加的项目内容(内容任意，不少于三个)，并添加到列表框中；如果选择“删除项目”单选按钮，然后单击窗体
21、，则从键盘上输入要删除的项目内容，将其从列表框中删除。程序的运行情况如图 2 所示。 在考生文件夹下的工程文件 sjt3vbp(相应的窗体文件名为 sjt3frm)，可以实现上述功能。但这个程序不完整，请把它补充完整。 （分数：2.00）_正确答案：(正确答案：步骤 1：打开本题工程文件，并设置控件的属性。程序中用到的控件及属性见表1。 )解析：解析：向列表框添加项目使用 Addltem 方法，删除列表项使用 RemoveItem 方法。在“删除项目”单击事件中，For 循环语句中逐一判断列表中各项是否与输入内容一致，若一致则删除列表框中该项。44.在考生文件夹下有一个工程文件 sjt4vbp
22、(相应的窗体文件名为 sjt4frm)，其功能是通过调用过程Sort 将数组进行降序排序。程序运行后，分别向四个文本框中各输入一个整数(如图 1 所示)，然后单击命令按钮，即可使数组按降序排序，并显示在文本框中(如图 2 所示)。这个程序不完整，请把它补充完整，并能正确运行。 要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Option Base 1 Private Sub Sort(a()
23、As Integer) Dim Start As Integer，Finish As Integer Dim i As Integer，j As Integer，t As Integer Start=?(a) Tinish=?(a) For i=?To 2 Step 一 1 For j=1 To? If a(j)?a(j+1)Then t=a(j+1) a(j+1)=a(j) a(j)=t End If Next j Next i End Sub Private Sub Commandl_Click() Dim arr1 Dim art2(4)As Integer arr1=Array(Val
24、(Text1Text)，Val(Text2Text)，Vaj (Text3Text)，yal(Text4Text) For i=1 To 4 art2(i)=CInt(arrl(i) Next i Sort art2() Text1Text=an2(1) Text2Text=an2(2) Text3Text=arr2(3) Text4Text=arr2(4) End Sub 程序结束 第 1 个?处填入：LBound 第 2 个?处填入：UBound 第 3 个?处填入：4 第 4 个?处填入：3 第 5 个?处填入： 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：解析：Arra
25、y(arglist)函数用于返回一个以 arglist 参数中用逗号隔开的值为元素的数组。UBound函数用于返回数组某一维的最大下标(上界)，LBound 函数用于返回数组某一维的最小下标(下界)。 在本题 Sort 过程中，源程序利用一个嵌套的 For 循环对数组 a 中的元素按从大到小进行排序。四、综合应用题(总题数：1，分数：2.00)45.在考生文件夹下有一个工程文件 sjt5vbp。程序运行时，单击“显示数据”按钮，则将考生文件夹下 in5dat 文件的内容读入一维数组 a 中，并按下标顺序将数组 a 各元素的值显示在 List1 列表框中；单击“移动”按钮，则将数组 a 中的最大
26、值移动到数组的最前面，其他数据的排列顺序不变，并将移动后的结果显示在 List2 列表框中。单击“保存”按钮，则保存移动后的结果。 要求：“显示数据”和“保存”按钮的 Click 事件过程已经给出，请编写“移动”按钮的 Click 事件过程实现上述功能。程序窗体界面如图所示。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前必须单击“移动”按钮，并单击“保存”按钮保存结果，否则无成绩。最后程序按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Option Explicit Option Ba
27、se 1 Dim a(10)As Integer Private Sub Commandl_Click() Dim i As Integer ListlCIear Open AppPath&”/in5dat”For Input As#1 For i=1 To 10 Input#1，a(i) ListlAddltem(a(i) Next i Close#1 End Sub Private Sub Command2_Click() =考生编写的程序= ，= End Sub Private Sub Command3_Click() Dim i As Integer Open AppPath&”out
28、5dat”For Output As#1 For i=0 To 9 Print#1，List2List(i) Next i Close#1 End Sub 程序结束 考生编写部分填： Dim i，max，mflxindex As Integer max=a(1) For i=2 To UBound(a) If a(i)max Then max=a(i) maxindex=i End If Next i List2AddItem(a(maxindex) For i=1 To UBound(a) If imaxindex Then List2AddItem(a(i) End If Next i 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：解析：本题考查数组的使用，通过循环结构找出数组中的最大值及对应的下标，并将值分别保存起来。然后利用 For 循环和 Listaddltem 方法将数组元素值添加到列表框中显示。
