1、国家二级（ VB）机试模拟试卷 139及答案与解析 一、选择题 1 下列叙述中正确的是 ( )。 （ A）算法复杂度是指算法控制结构的复杂程度 （ B）算法复杂度是指设计算法的难度 （ C）算法的时间复杂度是指设计算法的工作量 （ D）算法的复杂度包括时间复杂度与空间复杂度 2 设循环队列的存储空间为 Q(1： 50)，初始状态为 front=rear=50。现经过一系列入队与退队操作后， front=rear=1，此后又正常地插入了两个元素。最后该队列中的元素个数为 ( )。 （ A） 2 （ B） 1 （ C） 3 （ D） 52 3 一棵完全二叉树共有 360个结点，则在该二叉树中度为
2、1的结点个数为 ( )。 （ A） o （ B） 1 （ C） 180 （ D） 181 4 设某二叉树的后序序列与中序序列均为 ABCDEFGH，则该二叉树的前序序列为( )。 （ A） HGFEDCBA （ B） ABCDEFGH （ C） EFGHABCD （ D） DCBAHGFE 5 在排序过程中，每一次数据元素的移动会产生新的逆序的排序方法是 ( )。 （ A）快速排序 （ B）简单插入排序 （ C）冒泡排 序 （ D）以上说法均不正确 6 下面对软件工程描述正确的是 ( )。 （ A）软件工程是用工程、科学和数学的原则与方法研制、维护计算机软件的有关技术及管理方法 （ B）软件工
3、程的三要素是方法、工具和进程 （ C）软件工程是用于软件的定义、开发和维护的方法 （ D）软件工程是为了解决软件生产率问题 7 耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是 ( )。 （ A）内聚性是指模块间互相连接的紧密程度 （ B）提高耦合性降低内聚性有利于提高模块的独立性 （ C）耦合性是指一个 模块内部各个元素间彼此结合的紧密程度 （ D）降低耦合性提高内聚性有利于提高模块的独立性 8 下列关于数据库系统的叙述中正确的是 ( )。 （ A）数据库系统中数据的一致性是指数据类型一致 （ B）数据库系统避免了一切冗余 （ C）数据库系统减少了数据冗余 （ D）数据库系统比
4、文件系统能管理更多的数据 9 一名演员可以出演多部电影，则实体演员和电影之间的联系是 J( )。 （ A）多对多 （ B）一对一 （ C）多对一 （ D）一对多 10 学生选课成绩表的关系模式 SC(S#， C#， G)， 其中 S#为学号， C#为课号 G为成绩关系表达式 S#， C#(SC) S表示 ( )。 （ A）表 S中所有学生都选修了的课程的课号 （ B）全部课程的课号 （ C）成绩不小于 80的学生的学号 （ D）所选人数较多的课程的课号 11 下列不能作为 “容器 ”(即可以在其中放置其他控件 )的是 ( )。 （ A）图片框 （ B）窗体 （ C）框架 （ D）组合框 12
5、下列各声明语句中错误的是 ( )。 （ A） Dim Test As String=”计算机等级考试 ” （ B） Const Country=”English” （ C） Public Sum As Integer （ D） Static vl 13 设窗体上有一个名称为 Text1的文本框，要求在文本框中输入的字母都变成大写，下面可以实现这一功能的事件过程是 ( )。 （ A） Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii=Asc(UCase(Chr(KeyAscii) End Sub （ B） Private Sub T
6、ext1_KeyPress(KeyAscii As Integer) KeyAscii=UCase(KeyAscii) End Sub （ C） Private Sub Text1 KeyPress(KeyAscii As Integer) KeyAscii=KeyAscii+1 End Sub （ D） Private Sub Text1_Change() KeyAscii=UCase(KeyAscii) End Sub 14 设 a=4， b=5， c=6，执行语句 Print a b And b c 窗体上显示的是 ( )。 （ A） False （ B） True （ C）出错信息 （
7、 D） 0 15 以下说法中，正确的是 ( )。 （ A）利用关系表达式 x 2=Int(x 2)不能判断变量 x的值为偶数 （ B）表达式一 10 Mod 3的值为 1 （ C）表达式 Int(Rnd()的值是 0 （ D）表达式 Chr(Asc(”A”)=UCase(”a”)的值为 False 16 设有如下的记录类型： Private Type Employee num As String name As String End Type 则下列语句中正确的是 ( )。 （ A） Dim e As Employee （ B） Employee name=“Tom” （ C） Dim e A
8、s Type Employee （ D） Dim e As Employee=“1001”arr(3， 4)=4+10=14。最后一个 For循环，循环变量 i从 1开始执行到 4结束，每次累加数组元素的值，即 s=arr(1，1)+arr(2， 2)+arr(3， 3)+arr(4， 4)=2+4+13+0=19。故 C选项正确。 33 【正确答案】 B 【试题解析】 在 Visual Basic中，传值方式通 过关键字 ByVal来实现。也就是说，在定义通用过程时，如果形参前面有关键字 ByVal，则该参数用传值方式，否则用引用 (即传地址 )方式传送。故本题 B选项正确。 34 【正确答
9、案】 D 【试题解析】 sub过程的调用有两种方式，一种是把过程的名字放在 Call语句中，一种是把过程名作为一个语句来使用。 A选项和 B选项参数之间的分隔符应使用 “； ”，故 A、 B选项均错误 ;C选项应去掉 “实际参数 ”的括号；故 D选项正确。 35 【正确答案】 D 【试题解析】 菜单项没有 Value属性， A选项正确；若要在菜 单项之间可以插入一个分隔条，只需将菜单项的 Caption属性设置为 “一 ”即可，故 B选项正确；菜单项的 Visible属性设置为 False表示该菜单不可见，与此同时其子菜单也不可见，故 C选项正确；菜单项的大部分属性在程序运行期间是可以修改的，
10、比如Caption属性、 Visible属性和 Enabled属性等。故本题 D选项错误。 36 【正确答案】 A 【试题解析】 Popup英文意为弹出， PopupMenu意为弹出式菜单。建立弹出式菜单通常分两步进行：首先用菜单编辑器建立菜单，然后用 PopupMenu方 法弹出显示。 PopupMenu方法用来显示弹出式菜单，其格式为：对象 PopupMenu菜单名， Flags， X， Y， BoldCommand；其中 “对象 ”是窗体名，故本题 A为正确选项。 37 【正确答案】 C 【试题解析】 Drag英文意：拖动， Mode英文意：模式。 DragMode意为拖动模式。与拖放有
11、关的属性有两个，分别是 DragMode和 DragIcon，其中 DragMode属性用来设置自动或人工 (手动 )拖放模式； Draglcon属性含有一个图片或图标的文件名，在拖动时作为控件的图标。与拖放有 关的事件有两个，分别是 DragDrop和DragOver，其中当把控件 (图标 )拖到目标之后，如果松开鼠标键，则产生一个DragDrop事件；当拖动对象越过一个控件时，产生 DragOver事件。因此DragMode是决定对象拖放模式的属性，故 C选项正确。 38 【正确答案】 D 【试题解析】 KeyDown和 KeyUp的事件过程中有 KeyCode参数，没有KeyAscii参
12、数，故 A选项错误；按下键盘上的功能键时并不能触发 KeyPress事件，按下某 ASCII字符键会触发 KeyPress事件，故 B选项 错误；大键盘上的数字键与数字键盘上相同的数字键的 KeyCode是不一样的。对于有上档字符和下档字符的键，其 KeyCode为下档字符的 ASCII码， C选项错误；在 KeyPress事件过程中，同时按下 shift和大键盘上的 “4”键时， Ker yAscii参数值是 “$”的 ASCII值36，故 D选项正确。 39 【正确答案】 A 【试题解析】 目录列表框用来显示当前驱动器上的目录结构，在目录列表框中只能显示当前驱动器上的目录。如果要显示其他驱
13、动器上的目录，必须改变路径，即重新设置目录列表框的 Path属性。 Path属性适用于目录列表框和文件列表框，用来设置或返回当前驱动器的路径。故 A选项正确。 40 【正确答案】 B 【试题解析】 文件打开格式为 Open文件说明 For方式 Access存取类型 锁定 As#文件号 Len=记录长度 。其中，输入输出方式中 Output主要用于指定文件顺序输出方式，如果文件不存在，则建立一个新的数据文件，将记录可以写到该文件中，如果文件已经存在，该语句打开已存在的文件，新写入的数据将覆盖原来的数据。故本题 B选项正确。 二、基本操作题 41 【正确答案】 步骤 1：建立界面，并设置控件的属性
14、。程序中用到的控件及属性见表 1。 步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 根据题意，先通过标签的 Autosize属性把标签的大小设置为自动调整。然后通过对滚动条的 SmallChange属性设置，使单击滚动条两端的箭头时，滚动框移动 2。 42 【正确答案】 步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属性见表 2。 步骤 2：编写程序代码。 Private Sub Commandl_Clitk() Shape1 Shape=3 End Sub Private Sub Command2_Click() Shape1 BorderColor=&HFF&
15、 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 根据题意，通过命令按钮的 Name、 Caption属性设置命令按钮的名称和标题。在单击命令按钮事件过程中，通过设置形状控件的 BorderColor和Shape属性，将形状控件的边框颜色设为红色和将形状控件设为圆形。 三、简单应用题 43 【正确答案】 步骤 1：打开本题工程文件，并设置控件的属性。程序中用到的控 件及属性见表 1。 步骤 2：分析并编写程序代码。 程序提供代码 Private Sub Form_Click() If Option1 Value=True Then Text1 Text=In
16、putBox(”请输入要添加的项目 ”) List1 Addltem? End If If Option2 Value=True Then Text1 Text=InputBox(”请输入要删除的项目 ”) For i=0 To? If List1 List(i)=?Then List1 RemoveItem? End If Next i End If End Sub 程序结束 第 1个 ?处填入： Text1 第 2个 ?处填入： List1 ListCount一 1 第 3个 ?处填入：Text1 Text 第 4个 ?处填入： i 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【
17、试题解析】 向列表框添加项目使用 Addltem方法，删除列表项使用RemoveItem方法。在 “删除项目 ”单击事件中， For循环语句中逐一判断列表中各项是否与输入内容一致，若一致则删除列表框中该项。 44 【正确答案】 步骤 1：打开本题工程文 件。 步骤 2：分析并编写程序代码。 程序提供代码 Option Base 1 Private Sub Sort(a()As Integer) Dim Start As Integer， Finish As Integer Dim i As Integer， j As Integer， t As Integer Start=?(a) Tinis
18、h=?(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(Text1 Text)， Val(Text2 Text)， Vaj (Text3 Text)， yal(Text4 Text) For i=1 To 4 art2(i)=CInt(arrl(i) Next i Sort
19、art2() Text1 Text=an2(1) Text2 Text=an2(2) Text3 Text=arr2(3) Text4 Text=arr2(4) End Sub 程序结束 第 1个 ?处填入： LBound 第 2个 ?处填入： UBound 第 3个 ?处填入： 4 第 4个 ?处填入： 3 第 5个 ?处填入： 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 Array(arglist)函数用于返回一个以 arglist参数中用逗号隔开的值为元素的数组。 UBound函数用于返回数组某一维的最大下标 (上界 )， LBound函数用于返回数组某一维的最小
20、下标 (下界 )。 在本题 Sort过程中，源程序利用一个嵌套的 For循环对数组 a中的元素按从大到小进行排序。 四、综合应用题 45 【正确答案】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Option Explicit Option Base 1 Dim a(10)As Integer Private Sub Commandl_Click() Dim i As Integer Listl CIear Open App Path&”in5 dat”For Input As#1 For i=1 To 10 Input#1， a(i) Listl Addlte
21、m(a(i) Next i Close#1 End Sub Private Sub Command2_Click() =考生编写的程序 = ， = End Sub Private Sub Command3_Click() Dim i As Integer Open App Path&” out5 dat”For Output As#1 For i=0 To 9 Print#1， List2 List(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 List2 AddItem(a(maxindex) For i=1 To UBound(a)
