1、国家二级（ VB）机试模拟试卷 26及答案与解析 一、选择题 1 对于当前窗体，以下能打开代码窗口的操作是 （ A）按 F7键 （ B）单击窗体 （ C）单击窗体上的某个控件 （ D）按 Ctrl+D键 2 对于窗体 Form1，下列叙述中正确的是 （ A）语句 Form1.Hide与 Form1.Visible=True的功能是等价的 （ B）语句 Form1.Hide与 Form1.Visible=False 的功能是等价的 （ C）语句 Load Form1 与 Form1.Visible=False 的功能是等价的 （ D）语句 Unload Form1与 Form1.Visible=
2、True的功能是等价的 3 属性 BorderColor的作用是 （ A）设置形状边界线和直线的颜色 （ B）设置直线或形状的背景颜色 （ C）设置直线或形状边界线的线型 （ D）设置形状的内部颜色 4 在窗体上画多个控件，其中有一个名称为 Text1的文本框，影响 Text1的 Tab顺序的属性是 （ A） TabStop （ B） Enabled （ C） Visible （ D） TabIndex 5 为了使组合框成为简单组合框，应把其 Style属性设置为 （ A） 0 （ B） 1 （ C） 2 （ D） 3 6 要使图片框 P1中显示当前路径下的图片文件 img1.jpg，则应使用
3、的语句是 （ A） P1.Picture=“img1.jpg“ （ B） P1.Image=“img1.jpg“ （ C） P1.Picture=LoadPicture(“img1.jpg“) （ D） LoadPicture(“img1.jpg“) 7 假定把计时器控件 Timer1的 Interval 属性设置为 1000， Enabled属性设置为True，并编写下面的事件过 程： Private Sub Timer1_Timer() Dim x As Integer For i = 1 To 100 x = x + 1 Next i Print x End Sub 程序运行的结果为 （
4、 A）总是输出 100 （ B）输出 1000 （ C）输出 10000 （ D）不确定 8 为了用形状控件画出不同的图形，应设置的属性是 （ A） Height （ B） Index （ C） Enabled （ D） Shape 9 在设计阶段，为了设 置某控件的 Left属性，可使用的方法是 （ A）在属性窗口中设置该属性的值 （ B）在某个事件过程中，编写代码为该属性赋值 （ C）双击该控件，在打开的窗口中设置该属性的值 （ D）以上方法都可以 10 设有如下程序段，则正确的说法是 For i = 1 To 100 Step 0 x = x + 1 Next （ A）该循环为无限循环
5、（ B）该循环只循环 1次 （ C）该程序段有语法错误，不能执行，系统报错 （ D）该循环循环 100次 11 有下面的程序段： For i = 14 To 5 Step -3 Print Next i 执行此程序段后， i的值为 （ A） 1 （ B） 2 （ C） 3 （ D） 4 12 如果在过程 A中用语句： Call proc(a, b) 调用下面的过程 Private Sub proc(b As Integer, ByVal a As Integer) a = a + 1 b = b * 2 End Sub 则调用结束后的结果是 （ A）过程 A中变量 b的值变为原有值的 2倍 （
6、 B）过程 A中变量 a的值变为原有值的 2倍 （ C）过程 A中变量 a的值 变为原有值的 2倍， b的值等于原有值加 1 （ D）过程 A中变量 b的值变为原有值的 2倍， a的值等于原有值加 1 13 在窗体上画一个通用对话框控件 CD1，则执行以下程序段后，在显示的 “打开 “文件对话框的 “文件类型 “框中显示的信息是 CD1.Filter = “所有文件 |*.*|Word文件 |*.Doc|文本文件 |*.Txt“ CD1.FilterIndex = 2 CD1.ShowOpen （ A） Word文件 （ B） *.Doc （ C）文本文件 （ D） *.Txt 14 在窗体上
7、画一个名称为 CD1的通 用对话框，一个名称为 Command1的命令按钮。然后编写如下事件过程： Private Sub Command1_Click() CD1.FileName = “ CD1.Filter = “所有文件 |*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt“ CD1.FilterIndex = 2 CD1.DialogTitle = “选择文件 “ CD1.Action = 1 End Sub 则当程序运行时，单击命令按钮 Command1后，将显示对话框窗口，以下有关叙述中错误的 是 （ A）语句 CD1.Action = 1可等价地替换为语句 CD1.
8、ShowSave （ B）在显示的对话框中指定的默认文件名为空 （ C）显示的对话框的标题为 “选择文件 “ （ D）在对话框中显示的默认文件类型为 (*.Doc) 15 假定有如下事件过程： Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu mnuColor End If End Sub 则以下描述中错误的是 （ A） mnuColor是在菜单编辑器中已定义的弹出式菜单的名称 （ B）在窗体上，不管按下鼠标
9、的哪个按键，系统都会触发执行该事件过程 （ C）参数 Shift可表示 shift、 Ctrl和 Alt键的按键状态 （ D）只有在窗体上按下鼠标左键才可弹出菜单 mnuColor 16 设有如下的程序段： s = 0 i = 1 While i b Print “*“; a = a + 1 Loop 20 下面程序段中 Print方法不能执行 6次的是 （ A） or i = 1 To 2 For j = 1 To 3 Print i Next Next （ B） i = 1 Do While i 0 Then Print num(k); Next k End Sub Private Sub
10、 p(a() As Integer, ch As String) For k = 1 To Len(ch) st = Mid(ch, k, 1) If st = “a“ And st i + 1 a = a + 1 j = j + 1 Loop Next Text1.Text = a End Sub 当程序运行过程中，单击 Command1后，在 Text1中的输出结果为 （ A） 3 （ B） 2 （ C） 1 （ D） 0 26 窗体上有一个名称为 List1的列表框，一个名称为 Label1的标签。列表框 List1中显示了由若干课程名称组成的列表项。当双击列表框 List1中的某个课程
11、名时，在标签 Label1中能显示选中的课程名称，以下能正确实现上述功能的是 （ A） Private Sub List1_DblClick() Label1.Caption = List1.ListIndex End Sub （ B） Private Sub List1_DblClick() Label1.Name = List1.ListIndex End Sub （ C） Private Sub List1_DblClick() Label1.Name = List1.Text End Sub （ D） Private Sub List1_DblClick() Label1.Captio
12、n = List1.Text End Sub 27 下列叙述中正确的是 （ A）所谓算法就是计算方法 （ B）程序可以作为算法的一种描述方法 （ C）算法设计只需考虑得到计算结果 （ D）算法设计可以忽略算法的运算时间 28 下列各序列中不是堆的是 （ A） (91,85,53,36,47,30,24,12) （ B） (91,85,53,47,36,30,24,12) （ C） (47,91,53,85,30,12,24,36) （ D） (91,85,53,47,30,12,24,36) 29 深度为 5的完全二叉树的结点数不可能是 （ A） 15 （ B） 16 （ C） 17 （ D）
13、 18 30 下面描述不属于软件特点的是 （ A）软件是一种逻辑实体，具有抽象性 （ B）软件在使用中不存在磨损、老化问题 （ C）软件复杂性高 （ D）软件使用不涉及知识产权 31 下面对类 -对象主要特征描述正确的是 （ A）对象唯一性 （ B）对象无关性 （ C）类的单一性 （ D）类的依赖性 32 在数据库中，数据模型包括数据结构、数据操作和 （ A）数据约束 （ B）数据类型 （ C）关系运算 （ D）查询 33 一个运动队有多个队员，一个队员仅属于一个运动队，一个队一般都有一个教练，则实体运动队和队员的联系是 （ A）一对多 （ B）一对一 （ C）多对一 （ D）多对多 34 设
14、循环队列为 Q(1: m)，其初始状态为 front=rear=m。经过一系列入队与退队运算后， front=30， rear=10。现要在该循环队列中作顺序查找，最坏情况下需要比较的次数为 （ A） 19 （ B） 20 （ C） m-19 （ D） m-20 35 Visual Basic中的整数可以用十六进制或八进制表示，十六进制数前面冠以&H，八进制数前面冠以 （ A） $O （ B） &O （ C） $E （ D） &E 36 下面可以作为 Visual Basic的变量名的是 （ A） Alpha （ B） R2 （ C） Print （ D） abc-123 37 下列说法中错误
15、的是 （ A）在 过程中，可以用 Static定义变量，但当该过程调用结束后，其值继续保留 （ B）当用 Static关键字定义一个过程时，该过程中的所有变量都是 “Static“存储方式的 （ C） Sub Main过程一定是程序运行时首先被执行的过程，是整个程序的入口点 （ D）同一个工程中只能有一个 Sub Main过程 38 以下关于控件数组的叙述中，正确的是 ( )。 （ A）数组中各个控件具有相同的名称 （ B）数组中可包含不同类型的控件 （ C）数组中各个控件具有相同的 Index 属性值 （ D）数组元素不同，可以响应 的事件也不同 39 以下不具有 Picture属性的对象是
16、 （ A）命令按钮 （ B）形状控件 （ C）图片框 （ D）窗体 40 当窗体上有多个控件时，为了在程序运行后使得焦点位于某个控件上，应对该控件进行的设置是 （ A）把 Enabled属性设置为 True （ B）把 TabIndex 属性设置为 1 （ C）把 TabIndex 属性设置为 0 （ D）把 Index属性设置为 0 二、基本操作题 41 (1)在标题为 “文本框 ”、名称为 Forml的窗体上添加一个名称为 Text1的文本框，初始内容为空，其高、 宽分别为 2000、 1800， MuhiLine属性设置为 True，有水平滚动条，并通过属性窗口把文本框的字体样式设置为
17、“斜体 ”(如图所示 )。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt vbp，窗体文件名保存为sjt1 frm。 (2)在名称为 Form1的窗体上添加一个名称为 List1的列表框，通过属性窗口分别输入 4个列表项： “数学 ”、 “物理 ”、 “化学 ”、 “语文 ”，如图所示。 请编写适当的事件过程使得在程序运行时，将最后一个列表项自动改为 “英语 ”；单击窗体时，则删除最后一个列表项。 注意：要 求程序中不得使用变量，每个事件过程中只能写一条语句。 存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为 sjt2 frm。三、简单应用题
18、42 (1)考生文件夹下有一个工程文件 sjt3 vbp。程序的功能是：通过键盘向文本框中输人数字，如果输入的是非数字字符，则提示输入错误，且文本框中不显示输人的字符。单击名称为 Command1、标题为 “添加 ”的命令按钮，则将文本框中的数字添加到名称为 Combol的组合框中。在给出的窗体文件中已经添加了全部控件，但程序不完整。要求去 掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不能修改程序中的其他部分和其他控件的属性。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp。该程序的功能是计算M!+(M+1)!+(M+2)!+N! 之和。窗体
19、上有名称分别为 Text1、 Text2的两个文本框，用于接收输入的 M和 N(要求 M N)。单击名称为 Command1、标题为 “计算 ”的命令按钮，计算 M!+(M+1)!+(M+2)!+N! 的值，并将计算结果显示在标签lblResult中。 在给出的窗体文件中已经有了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 四、综合应用题 43 在考生文件夹中有一个工程文件 sjt5 vbp，如图所示。运行程序时，从文件中读入 77的矩阵数据并放入二维数组 a中。单击 “计算 ”命令按
20、钮时，将统计矩阵两个对角线的元素中能被 3整除的个数，统计结果在标签 lblFirst中显示；同时计算矩阵主对角线的元素之和，计算结果在标签 lblSecond中显示 。已给出了部分程序，请编写 “计算 ”命令按钮事件过程中的部分程序代码，以便完成上述功能。 注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名存盘。程序调试通过后，必须执行程序，并用 “计算 ”按钮进行计算，否则将没有成绩。国家二级（ VB）机试模拟试卷 26答案与解析 一、选择题 1 【正确答案】 A 【试题解析】 VB 中打开代码窗口的方式有： 1.双击窗体上的某一控件。 2.按 F7快捷键。故正确答案为
21、A选项。 2 【正确答案】 B 【试题解析】 Form1.Hide：隐藏窗 体 Form1，使当前窗体不可见。Form1.Visible：设置窗体 Form1是否可见， Visible值为 True时，窗体 Form1可见，值为 False时，窗体 Form1不可见，故选项 A错误，选项 B正确； Load(装入 )事件，该事件主要用来在启动程序时对属性和相关变量的初始化。在装入窗体后，如果运行程序，将自动触发该事件。 Unload(卸载 )事件，该事件的作用是从当前的内存中清除一个窗体包括关闭和执行 Unload 语句所触发的事件。此外如果重新装入该窗体，则窗体中的所有控件都要重新初始化，故
22、选项 C和 D均错误。 正确答案为 B选项。 3 【正确答案】 A 【试题解析】 FillColor用来设置形状内部的填充颜色。 BorderStyle用来设置直线和形状的边界形的线型。 BorderColor用来设置直线和形状的颜色。故本题正确答案为 A选项。 4 【正确答案】 D 【试题解析 】 TabStop 属性指定是否能使用 Tab 键将焦点移到控件上，为 True可以获得焦点，为 False不可获得焦点，故选项 A错误； Enabled 属性用来确定文本框或其他可获得焦点的控件，是否对用户产生的事件作出反应，故当为 False时，文本框被禁用，当为 True，可以获得焦点，故选项
23、B 错误； Visible设置控件是否可见，故选项 C错误；控件的 TabIndex属性决定了 Tab顺序，故本题正确答案为选项 D。 5 【正确答案】 B 【试题解析】 组合框的 Style属性用于设置组合框的类型和显示方式，共 3种 方式。 0为下拉组合框， 1为简单组合框， 2为下拉列表框。故正确答案为选项 B。 6 【正确答案】 C 【试题解析】 在程序代码中可以使用 LoadPicture函数把图形文件装入图片框或图像框中。 格式 对象 .Picture = LoadPicture(“文件名 “)；可知选项 A， B， D均错误。本题正确答案为 C选项。 7 【正确答案】 A 【试题
24、解析】 Interval 属性用来设置计时器事件之间所间隔的毫秒数（ ms），题中 Interval 属性值为 1000，即每隔 1秒发生一个计时器事件。 Enabled 属性用来设置计时器是否可用， Enabled 为 True，即计时器可用，整型变量默认值为 0， For循环每执行一次， x的取值加 1，一共执行了 100次，故 x=1+1+1+1=100 。根据题意，计时器控件每隔 1秒钟输出一次 100。故本题正确答案为 A选项。 8 【正确答案】 D 【试题解析】 Shape属性用来设置控件的形状； Height决定控件对象的高度；Enabled属性值为逻辑型，决定对象是否可用； I
25、ndex用来标识控件数组中的每个控件索引。故正确答案为选项 D。 9 【正确答案】 A 【试题解析】 设置控件的 Left属性只能在属性窗口中设置该属性的值，故正确答案为选项 A。 10 【正确答案】 A 【试题解析】 题目中的 “Step 0“表示在 For 循环中步长为 0，即 i的取值均为 1，循环结束条件为 i=100，该循环为无限循环。故正确答案为 A选项。 11 【正确答案】 B 【试题解析】 此题考查 For循环语句的执行顺序， For循环遵循 “先判断，后执行 “的原则，先判断循环变量是否超过终值，如果没有超过，执行循环体，并且循环变量加一个步长；否则，退出循环。题中当 i=5
26、时，未超过终值 5，执行 print操作并加一个步长， i=5+（ -3），最终 i=2，故正确答案为选项 B。 12 【正确答案】 B 【试题解析】 用 Call语句调用 Sub过程。如果形参前面有关键字 ByVal，则该参数以传值方式传送。调用结束后，变量 a的值变为原有值的 2倍，变量 b的值不变。故本题正确答案为 B。 13 【正确答案】 A 【试题解析】 Filter 属性是用来指定对话框中显示的文件类型，它的属性值有一对或多对文本字符串组成，每对字符串用 “|“隔开， “|“前面部分为描述符，后面部分一般为 通配符和文件扩展名。 FilterIndex 属性是指定默认的过滤器，当
27、Filter属性设置为多个过滤器后，每个过滤器都有一个值，本文中 FilterIndex=2，则默认的文件类型为 Word文件，故正确答案为 A选项。 14 【正确答案】 A 【试题解析】 语句 CD1.Action = 1与 CD1.ShowOpen 等价， ShowOpen 方法用于显示打开文件对话框，打开指定目录中的文件，故选项 A错误。 Filter属性用于文件过滤器，属性格式为：描述 1| 过滤器 1| 描述 2 | 过滤器 2 ； FilterIndex属性用于指定默认的文件过滤器，即本题中默认的文件过滤器为 Doc文件，文件名为空，故选项 B， D正确； DialogTitle属
28、性设置对话框的标题，选项 C正确。故正确答案为选项 A。 15 【正确答案】 D 【试题解析】 MouseDown 是按下鼠标时触发的事件。鼠标键参数， Button=2，按下右键，触发弹出菜单。选项 D错误，故本题正确答案为 D。 16 【正确答案】 C 【试题解析】 i=1，循环条件 18为假，执行循环体， a=6，依次类推，共执行了 4次。故本题正确答案为 D。 20 【正确答案】 B 【试题解析】 选项 A，双重 For循环，外层循环 i从 1到 2，内层循环 j从 1到3。外层循环每执行 1次，内层循环执行 3次，总共执行了 6次。选项 B， While与 For循环的结合体， Wh
29、ile循环条件 i从 1到 2执行了 2次， For 循环与变量 i的取值相关，当 i=1， For循环执行了 3次，当 i=2时， For循环从 2到 3执行了 2次，共执行了 5次打印 print方法，故选项 B 错误。选项 C， For 循环， i从 -2开始，直到 8，步长为 2， i取值为 -2， 0， 2， 4， 6， 8，执行了 6 次打印 Print方法。选项 D， DoLoop Until ，当程序开始执行时，先执行循环体 ，再判断循环 “条件 “值，当条件为真时结束循环，否则执行循环体。变量 i的取值： 10， 7， 4，1， -2， -5，共执行了 6次打印 Print方
30、法。故正确答案为 B 选项。 21 【正确答案】 C 【试题解析】 用户定义数据类型可以用 Type语句来定义，格式是： Type 数据类型名 数据类型元素名 AS 类型名 数据类型元素名 AS 类型名 End Type。用户定义的数据类型必须先定义后使用，而且只能在模块（窗体模块或标准模块）的声明部分定义，故选项 A错误。文件的打开格式： Open 文件说明 For 方式 Access存取类型 锁定 As #文件号 Len=记录长度 。如果以输出（ Output）、附加（ Append）或随机（ Random）访问方式打开的文件不存在， 则会建立相应的文件，故选项 B 错误。随机文件写操作格
31、式： Put #文件号， 记录号 ，变量，功能是把 “变量 “的内容写入由 “文件 “号所指定的磁盘文件中。当记录号没有指明时，系统默认，则数据将被写到下一个记录位置，即最近执行 Get或 Put 语句后的记录，或由最近的 Seek函数指定的记录，故选项 D错误。本题正确答案为 C。 22 【正确答案】 A 【试题解析】 如果形参前面没有关键字 ByRef 或 ByVal，系统默认为按地址传递参数。形参对实参的值作更改会改变相应实参的值。 Dim定义的变量称为 “自动变量 “，当引 用 Dim定义变量时，变量值会被重新设置（数值变量重新设置为 0，字符串变量被设置为空）。也就是说，下次再使用此
32、变量，其值为初始值。而 Static定义变量，每次引用该静态变量后，其值会继续保留，作为下一次引用时该变量的初始值。 For循环变量 i的取值从 1到 3。当 i=1时，调用 Fun(a)实参与形参默认按地址传递参数，静态整型变量第一次默认的初始值为 0，x=0,x=x+1=1,y=y+1=1,a=1,Fun=1。当 i=2，第二次调用 Fun(a)时，因变量 x为静态变量，下一次引用该变量的初始值是上一次处理后的最后取值 ，x=x+1=2,y=y+1=1,a=y=1,Fun=2；当 i=3，第三次调用 Fun(a)时，x=x+1=3,y=y+1=1,a=y=1,Fun=3 最后将 3返回给
33、x，故最后打印的结果为x=3,a=1。本题正确答案为 A。 23 【正确答案】 C 【试题解析】 程序开始执行时， f1=1， f2=1， s=f1+f2=2。 For循环变量 i的取值从 1到 3，当 i=1 时， f1=f1+f2=2， f2=f2+f1=1+2=3， s=s+f1+f2=2+2+3=7；当 i=2时， f1=f1+f2=2+3=5， f2=f2+f1=3+5=8， s=s+f1+f2=7+5+8=20；当 i=3时，f1=f1+f2=5+8=13， f2=f2+f1=8+13=21， s=s+f1+f2=20+13+21=54；故本题正确答案为 C。 24 【正确答案】
34、A 【试题解析】 Len(ch)计算 program的字符数为 7， num(26)数组用来统计每个字符出现的次数， Asc()函数用来返回指定字符的 ASCII码值。程序开始执行，输入字符串 “program“给变量 ch，然后调用过程 p，调用开始时实参 num()将地址传给形参 a()，实参 ch 将 地址传给形参 ch。程序开始执行过程 p：首先进入 For循环， k取值从 1到 7。当 k=1,st=mid(ch,k,1)=“p“,判断 If 条件为真，执行n=Asc(st)-Asc(“a“)+1=16， a(16)=0+1=1；当 k=2,st=mid(ch,k,1)=“r“,判断
35、 If 条件为真，执行 n=Asc(st)-Asc(“a“)+1=18， a(18)=0+1=1；当 k=3,st=mid(ch,k,1)= “o“,判断 If 条件为真，执行 n=Asc(st)-Asc(“a“)+1=15， a(15)=0+1=1；依次执行， 当k=7执行最后一次循环结束。 a()数组中存放的值为字符串 ch 中每个字符出现的次数。最后程序返回 Command1_Click 过程。 For循环将数组中非 0元素依次打印输出。故答案为 A选项。 25 【正确答案】 A 【试题解析】 Do UntilLoop ，当程序开始执行时，先计算循环 “条件 “值，当条件为真时结束循环，
36、否则执行循环体。外层 For循环，循环变量 i的取值从 1到2。当 i=1时， a=0， j=1，进入 Do Until 内层循环，循环条件 11+1为假，执行循环体， a=0+1=1， j=1+1=2，内 层循环继续执行，循环条件 21+1 为假，执行循环体， a=1+1=2， j=2+1=3，再计算内层循环条件 31+1为真，退出内层 Until 循环体；当 i=2时， a=0， j=1，进入 Do Until 内层循环，循环条件 12+1为假，执行循环体， a=0+1=1， j=1+1=2，内层循环继续执行，循环条件 22+1 为假，执行循环体， a=1+1=2， j=2+1=3，内层循
37、环继续执行，循环条件 32+1 为假，执行循环体， a=2+1=3， j=3+1=4，再计算内层循环条件 42+1为真，退出内层 Until 循环体，再退出 For循环，故 a=3。正确答案为选项 A。 26 【正确答案】 D 【试题解析】 标签 Label 的 Caption 属性表示标签中显示的内容；列表框 List的Text属性表示列表框中所选内容，故正确答案为选项 D。 27 【正确答案】 B 【试题解析】 算法是指对解题方案的准确而完整的描述，算法不等于数学上的计算方法，也不等于程序 ,A选项错误。算法设计需要考虑可行性、确定性、有穷性与足够的情报，不能只考虑计算结果， C选项错误。
38、算法设计有穷性是指操作步骤有限且能在有限时间内完成，如果一个算法执行耗费的 时间太长，即使最终得出了正确结果，也是没有意义的， D选项错误。算法在实现时需要用具体的程序设计语言描述，所以程序可以作为算法的一种描述方法， B选项正确。 28 【正确答案】 C 【试题解析】 若有个元素的序列，将元素按顺序组成一棵完全二叉树，当且仅当满足下列条件时称为堆：大根堆，所有结点的值大于或等于左右子结点的值；小根堆，所有结点的值小于或等于左右子结点的值。 A、 B、 D选项属于大根堆，C选项由于 4785，不满足条件，不是堆，故正确答案为 C选项。 29 【正确 答案】 A 【试题解析】 在树结构中，定义一
39、棵树的根结点所在的层次为，其他结点所在的层次等于它的父结点所在的层次加，树的最大层次称为树的深度。完全二叉树指除最后一层外，每一层上的结点数均达到最大值，在最后一层上只缺少右边的若干结点。深度为 5的二叉树，结点个数最多为 25-1=31，最少为 24=16，不可能是 15，故正确答案为 A选项。 30 【正确答案】 D 【试题解析】 软件具有以下特点：软件是一种逻辑实体，具有抽象性；软件没有明显的制作过程；软件在使用期间不存在磨损、老化问题；对硬件和环 境具有依赖性；软件复杂性高，成本昂贵；软件开发涉及诸多的社会因素，如知识产权等。故选项 D正确。 31 【正确答案】 A 【试题解析】 对象
40、的基本特点是：标识唯一性、分类性、多态性、封装性、模块独立性好。类是具有共同属性、共同方法的对象的集合，是关于对象的抽象描述，反映属于该对象类型的所有对象的性质。对象具有的性质，类也具有。故 A选项正确。 32 【正确答案】 A 【试题解析】 数据模型通常由数据结构、数据操作及数据约束部分组成。故 A选项正确。 33 【正确答案】 A 【试题解 析】 一般来说，实体集之间必须通过联系来建立联接关系，分为三类：一对一联系（ 1:1）、一对多联系（ 1:m）、多对多联系（ m:n）。实体运动队和队员的关系为 1:m联系，故 A选项正确。 34 【正确答案】 D 【试题解析】 循环队列是队列的一种顺
41、序存储结构，用队尾指针 rear指向队列中的队尾元素，用排头指针 front指向排头元素的前一个位置，因此，从排头指针front指向的后一个位置直到队尾指针 rear指向的位置之间所有的元素均为队列中的元素，队列初始状态为 front=rear=m，当 front=30， rear=10 时，队列中有 m-30+10+1=m-19个元素，比较次数为 m-20次， D选项正确。 35 【正确答案】 B 【试题解析】 十六进制，英文全称： Hexadecimal。八进制，英文全称：Octonary。十进制，英文全称： Decimal。十六进制与八进制前面都冠以 &符号，再取其英文全称的首字母。故正
42、确答案为 B 选项。 36 【正确答案】 A 【试题解析】 VB 中变量的命名规则有： (1)变量名的第一个字符必须是英文字母，最后一个字符可以是类型符。 (2)变量名只能由字母、数字和下 划线 “_“组成。(3)变量名有效长度为 255个字符。 (4)Visual Basic中保留字不能作变量名，但变量名字可以含有保留字。因此选项 B、 C、 D错误，正确答案为选项 A。 37 【正确答案】 C 【试题解析】 默认情况下，整个应用程序是从设计时的第一个窗口开始执行的，如果先执行 Sub Main过程，必须通过手动方式设置，故正确答案为 C选项。 38 【正确答案】 A 【试题解析】 控件数组
43、中各控件具有相同的名称，而且类型是相同的，但 Index属性值不同。数组中各控件响应的事件是相同，用 Index属性值来区分每个控件。故 A选项正确， B、 C、 D选项错误。 39 【正确答案】 B 【试题解析】 命令按钮，图形框，窗体均有 Picture属性，形状控件的属性主要包括位置、边界线宽度和颜色等，不包括 Picture。故本题正确答案为 B。 40 【正确答案】 C 【试题解析】 当对象的 Enabled 和 Visible属性都为 True时，它才能接收焦点。故 A选项错误。 Index 通常用于标识数组的下标，故 D选项错误。控件的TabIndex 属性决定了它在 Tab顺序
44、中的位置。在默认的情况下，第 1个建立的控件的 TabIndex 的属性值为 0，第 2个建立的 TabIndex 的属性值为 1，以此类推。当将某个控件的 TabIndex 的属性值设为 0时，在程序运行后将获得该焦点。故正确答案为 C选项。 二、基本操作题 41 【正确答案】 (1)【操作步骤】步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属性见表 3.115。步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属性见表 3.116。步骤 2：编写程序代码。参考答案 Private Sub Form_Cl
45、ick() List1.List(3) = “End SubPrivate Sub Form_Load() List1.List(3) = “英语 “End Sub步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、简单应用题 42 【正确答案】 (1)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Private Sub Command1_Click() Combo1.? Text1.Text = “ End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 57 O
46、r KeyAscii ? Then MsgBox “请输入数字！ “ KeyAscii = ? End If End Sub 程序结束 参考答案 第 1个？处填入： AddItem Text1.Text 第 2个？处填入： 48 第 3个？处填入： 0 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Private Sub Command1_Click() Dim m As Integer Dim n As Integer Dim s As Long Dim i As Integer m =
47、Val(Text1.Text) n = Val(Text2.Text) s = 0 For i =？ To n t =？ s = s + ? Next lblResult.Caption = s End Sub Private Function f(ByRef x As Integer) As Long Dim t As Long t = 1 For i = 1 To x t = ? Next f =？ End Function 程序结束 参考答案 第 1个？处填入： m 第 2个？处填入： f(i) 第 3个？处填入： t 第 4个？处填入： t * i 第 5个？处填入： t 步骤 3：调
48、试并运行程序，关闭程序后按题目要求存盘。 四、综合应用题 43 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Dim a(7, 7) As Integer Private Sub Form_Load() read End Sub Public Sub read() Open App.Path & “Data5.txt“ For Input As #1 Do While Not EOF(1) For i = 1 To 7 For j = 1 To 7 Input #1, a(i, j) Next j Next i Loop Close #
49、1 End Sub Public Sub Save() Open App.Path & “out5.txt“ For Output As #1 Print #1, lblFirst.Caption, lblSecond.Caption Close #1 End Sub Private Sub Command1_Click() Dim Sum As Long N = 7 Counter = 0 Sum = 0 考生编写程序开始 考生编写程序结束 Save End Sub 程序结束 参考答案 For i = 1 To 7 For j = 1 To 7 If i = j Then Sum = Sum + a(i, j) Next j Next i For i = 1 To 7 For j = 1 To 7 If i = j Or i = 8 - j And a(i, j) Mod 3 = 0 Then Counter = Counter + 1 End If Next j
