1、国家二级 VB 机试（选择题）-试卷 26 及答案解析(总分：80.00，做题时间：90 分钟)一、选择题(总题数：40，分数：80.00)1.下列叙述中正确的是,（分数：2.00）A.解决同一个问题的不同算法的时间复杂度一般是不同的B.解决同一个问题的不同算法的时间复杂度必定是相同的C.对同一批数据作同一种处理，如果数据存储结构不同，不同算法的时间复杂度肯定相同D.对同一批数据作不同的处理，如果数据存储结构相同，不同算法的时间复杂度肯定相同2.下列处理中与队列有关的是（分数：2.00）A.操作系统中的作业调度B.执行程序中的过程调用C.执行程序中的循环控制D.二叉树的遍历3.设栈的存储空间为
2、 S(1:m)，初始状态为 top=m+1。经过一系列入栈与退栈操作后，top=1。现又要将一个元素进栈，栈顶指针 top 值变为（分数：2.00）A.发生栈满的错误B.2C.mD.04.设二叉树共有 150 个结点，其中度为 1 的结点有 10 个，则该二叉树中的叶子结点数为（分数：2.00）A.71B.70C.69D.不可能有这样的二叉树5.非空循环链表所表示的数据结构（分数：2.00）A.有根结点也有叶子结点B.没有根结点但有叶子结点C.有根结点但没有叶子结点D.没有根结点也没有叶子结点6.设二叉树中共有 31 个结点，其中的结点值互不相同。如果该二叉树的后序序列与中序序列相同，则该二叉
3、树的深度为（分数：2.00）A.31B.16C.17D.57.在最坏情况下，堆排序的时间复杂度是（分数：2.00）A.0(log 2 n)B.0(nlog 2 n)C.0(n 2 )D.0(n 1.5 )8.软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)。下面属于系统软件的是（分数：2.00）A.学籍管理系统B.ERP 系统C.C 编译程序D.CAI 软件9.存储在计算机内有结构的数据集合是（分数：2.00）A.数据库B.数据库系统C.数据库管理系统D.数据结构10.在数据库技术中，为提高数据库的逻辑独立性和物理独立性，数据库的结构被划分成用户级、存储级和（分数：2.00）A.概
4、念级B.外部级C.管理员级D.内部级11.以下叙述中错误的是( )。（分数：2.00）A.一个 Visual Basic 应用程序可以包含一或多个工程B.一个 Sub 过程内不能嵌套定义另一个 Sub 过程C.MsgBox 函数的返回值与在对话框中所单击的按钮有关，为一整数D.Visual Basic 应用程序只能以解释方式执行12.下列说法中错误的是( )。（分数：2.00）A.事件是 Visual Basic 预置的，且能够被对象识别的动作B.事件过程是指响应某个事件后执行的一段程序代码C.一个对象可以识别一个或多个事件D.Visual Basic 是采用对象驱动编程机制的语言13.下面是
5、 Visual Basic 合法变量名的是( )（分数：2.00）A.PrintAB.10BC.DebugD.B#C14.以下不是 Visual Basic 合法常量的是( )。（分数：2.00）A.aB.&O12C.&H12&D.#1/20/2014#15.以下叙述中，错误的是( )。（分数：2.00）A.MsgBox 函数的返回值为一整数B.InputBox 函数的返回值类型由用户在输入对话框中输入数据的类型决定C.有语句：x = InputBox(“输入：“, “输入整数“)，则该语句打开的对话框的标题是“输入整数“D.可以用 MsgBox 函数输出一条信息16.在运行时，如果按 Tab
6、 键跳过了一个可以获得焦点的控件（如文本框），其原因可能是( )。（分数：2.00）A.该控件的 TabStop 属性值为 TrueB.该控件的 TabStop 属性值为 FalseC.该控件的 Enabled 属性值为 TrueD.该控件的 Locked 属性值为 True17.下列符号常量声明中，不合法的是( )。（分数：2.00）A.Const conx = “ok“B.Const conx& = 20C.Const conx As Integer = 20D.Const conx = Int(20.67)18.对于代数式 sin 2 (x+y)+e 5 ，正确的 Visual Basi
7、c 表达式为（分数：2.00）A.Sin 2 * (x + y) + Exp(5)B.Sin 2 * (x + y) + e 5C.Sin(x + y) 2 + e 5D.Sin(x + y) 2 + Exp(5)19.在窗体上画一个文本框、一个标签，其名称分别为 Text1、Label1，然后编写如下事件过程：Private Sub Text1_Change() Label1.Caption = UCase(Mid(Trim(Text1.Text), 7, 3)End Sub 程序运行时，如果在文本框中输入字符串“VisualBasic 计算机等级考试“，则在标签 Label1 中显示的内容
8、是( )。（分数：2.00）A.asiB.ASIC.BasD.BAS20.下面说法中正确的是( )。（分数：2.00）A.设 a=5，b=3，c=1，则执行语句 Print abc 后的输出结果为 FalseB.语句 Const x As Double = Sqr(2)能够定义一个符号常量 xC.在过程中，要定义可选参数，应使用的关键字是 ParamArrayD.用 Static 定义的变量，其值在程序运行过程中始终存在，因此，该种类型的变量是全局变量21.程序运行时若单击水平滚动条上滚动块右边的空白处，则其 Value 属性值的变化量为( )。（分数：2.00）A.LargeChange 属
9、性的值B.Min 属性的值C.Max 属性的值D.SmallChange 属性的值22.设窗体上有一个文本框 Text1，程序代码中有以下赋值语句（假定用到的控件和变量都存在），其中错误的是( )。（分数：2.00）A.Text1.MaxLength = 30B.Text1.Text = 89C.Text1.Caption = 89D.Text1.FontBold = True23.设组合框 Combo1 中有 5 个项目，则以下能删除最后一项的语句是( )（分数：2.00）A.Combo1.RemoveItem 4B.Combo1.RemoveItem 5C.Combo1.RemoveIte
10、m Combo1.ListCount+1D.Combo1.RemoveItem Combo1.ListCount24.假定列表框 List1 中没有被选中的项目，则执行 List1.RemoveItem List1.ListIndex 语句的结果是( )。（分数：2.00）A.删除最后加入列表中的一项B.删除最后一项C.出错D.删除第一项25.假定 Picture1 和 Text1 分别为图片框和文本框的名称，则下列语句中错误的是( )。（分数：2.00）A.Print 100B.Text1.Print 100C.Debug.Print 100D.Picture1.Print 10026.下列
11、叙述中，正确的是( )。（分数：2.00）A.框架控件的标题不能在程序运行过程中修改B.标签中显示的文本在运行阶段不能改变C.组合框是组合文本框和列表框的特性而成的控件，所以它具有二者的全部属性D.文本框可以显示多行文本27.设窗体上有一个列表框控件 List1，含有若干列表项。以下能表示当前被选中的列表项内容的是( )（分数：2.00）A.List1.ListB.List1.ListIndexC.List1.TextD.List1.Text28.若在窗体上画了一个名称为 List1 的列表框，并编写了如下事件过程：Private Sub Form_Load ( ) List1.AddItem
12、 “数学“ List1.AddItem “物理“ List1.AddItem “化学“ List1.AddItem “外语“ List1.AddItem “语文“End SubPrivate Sub Form_Click() List1.RemoveItem 1 List1.RemoveItem 2End Sub 运行程序后，单击窗体，则列表框中显示的项目是( )。（分数：2.00）A.数学 化学 语文B.数学 外语 语文C.化学 外语 语文D.物理 外语 语文29.有如下程序代码：Private Sub Form_Click() X = 8 If X 8 Then Print “X 8“ E
13、lseIf X 10 Print s32.运行如下程序 Private Sub Command1_Click() Dim a(5, 5) As Integer For i = 1 To 5 For j = 1 To 4 a(i, j) = i * 2 + j If a(i, j) / 7 = a(i, j) / 7 Then n = n + 1 End If Next j Next Print n End Sub 则 n 的值是( )（分数：2.00）A.2B.3C.4D.533.要求函数的功能是：从参数 str 字符串中删除所有参数 ch 所指定的字符，返回实际删除字符的个数，删除后的字符串
14、仍在 str 中，为此某人编写了函数 DelChar 如下：Function DelChar(str As String, ch As String) As Integer Dim n%, st$, c$ st = “ n = 0 For k = 1 To Len(str) c = Mid(str, k, 1) If c = ch Then st = st & c Else n = n + 1 End If Next k str = st DelChar = n End Function 并用下面的 Command1_Click()过程观察函数调用结果 Private Sub Command1
15、_Click() ch$ = Text1.Text Print DelChar(ch, “x“), chEnd Sub 发现结果有错误，程序代码需要修改，以下正确的修改方案是( )。（分数：2.00）A.把语句 If c = ch Then 改为 If c bc 后的输出结果为 False B.语句 Const x As Double = Sqr(2)能够定义一个符号常量 xC.在过程中，要定义可选参数，应使用的关键字是 ParamArrayD.用 Static 定义的变量，其值在程序运行过程中始终存在，因此，该种类型的变量是全局变量解析：解析：语句 Print abc 语句执行的顺序为：先执
16、行 ab，结果为 True，再判断 Truec，True 在ASCII 表对应数字的值为-1，本题中在与数值 c 比较时，True 转换为数字-1，判断-1c，结果为 False，故选项 A 正确；在声明符号常量时，可以在常量名后面加上类型说明符，如果不适用类型说明符，则根据表达式的求值结果确定常量类型，故 B 选项错误；定义可选参数的过程，必须在参数表中使用 Optional关键字，并在过程体中通过 IsMissing 函数测试调用时是否传送可选参数，可变参数过程通过ParamArray 命令来定义，故 C 选错误；用 Static 定义的变量，其值在程序运行过程中始终存在，这种变量称为静态
17、局部变量，全局变量需要使用 Public 或 Global 定义，故 D 选项错误。本题正确选项为 A。21.程序运行时若单击水平滚动条上滚动块右边的空白处，则其 Value 属性值的变化量为( )。（分数：2.00）A.LargeChange 属性的值 B.Min 属性的值C.Max 属性的值D.SmallChange 属性的值解析：解析：水平滚动条的值从左向右递增，最左端代表最小值，最右端代表最大值。Max 属性表示滚动条所能达到的最大值，取值范围为-3276732768。当滚动框位于最右端时，Value 属性将被设置为该值。故 C 选项错误；Min 属性表示滚动条所能达到的最小值，取值范
18、围同 Max 属性。当滚动框位于最左端时，Value 属性将被设置为该值。故 B 选项错误；LargeChange 属性表示当单击滚动条中滚动框前面或后面的部位时，Value 增加或减小的增量值。故 A 选项正确；SmallChange 属性表示当单击滚动条两端的箭头时，Value 属性增加或减少的增量值。故本题选择 A 选项。22.设窗体上有一个文本框 Text1，程序代码中有以下赋值语句（假定用到的控件和变量都存在），其中错误的是( )。（分数：2.00）A.Text1.MaxLength = 30B.Text1.Text = 89C.Text1.Caption = 89 D.Text1.
19、FontBold = True解析：解析：文本框属性值中无 Caption 属性，故 C 选项错误 A、B、D 叙述均正确。23.设组合框 Combo1 中有 5 个项目，则以下能删除最后一项的语句是( )（分数：2.00）A.Combo1.RemoveItem 4 B.Combo1.RemoveItem 5C.Combo1.RemoveItem Combo1.ListCount+1D.Combo1.RemoveItem Combo1.ListCount解析：解析：RemoveItem 方法用来删除列表框或组合框中指定的项目，RemoveItem 方法从组合框中删除以“索引值“为地址的项目，组
20、合框中表项“索引值“从 0 开始，并且该方法每次只能删除一个项目。ListCount 属性列出组合框中表项的数量。组合框中表项的排列从 0 开始，最后一项的序号为 ListCount-1。删除组合框中第 5 个项目，应该使用表达式“Combo1.RemoveItem 4“，故 A 选项正确。24.假定列表框 List1 中没有被选中的项目，则执行 List1.RemoveItem List1.ListIndex 语句的结果是( )。（分数：2.00）A.删除最后加入列表中的一项B.删除最后一项C.出错 D.删除第一项解析：解析：如果列表框中没有选中任何项，ListIndex 的值将设置为-1，
21、则执行表达式“List1.RemoveItem List1.ListIndex“系统会提示出错。故 C 选项正确。25.假定 Picture1 和 Text1 分别为图片框和文本框的名称，则下列语句中错误的是( )。（分数：2.00）A.Print 100B.Text1.Print 100 C.Debug.Print 100D.Picture1.Print 100解析：解析：文本框无 Print 方法，故 B 选项错误。26.下列叙述中，正确的是( )。（分数：2.00）A.框架控件的标题不能在程序运行过程中修改B.标签中显示的文本在运行阶段不能改变C.组合框是组合文本框和列表框的特性而成的控
22、件，所以它具有二者的全部属性D.文本框可以显示多行文本 解析：解析：框架控件和标签控件，在程序运行过程中都可以通过“控件名.Caption = 标题文本“动态设置控件的标题属性，故 A、B 选项均错误；组合框是由组合文本框和列表框的特性而成的控件，它具有二者绝大部分属性，而不是全部属性，故 C 选项错误；如果把文本框的 MultiLine 属性设置为 True 时，可以显示多行文本，即在文本框中输入或输出文本时可以换行，故 D 选项叙述正确。本题答案为 D。27.设窗体上有一个列表框控件 List1，含有若干列表项。以下能表示当前被选中的列表项内容的是( )（分数：2.00）A.List1.L
23、istB.List1.ListIndexC.List1.Text D.List1.Text解析：解析：列表框控件 List 属性用来列出表项的内容。List 属性保存了列表框中所有值的数组，可以通过下标访问数组中的值（下标值从 0 开始）；故 A 选项错误。ListIndex 该属性表示列表框控件中当前所选项目的索引号，表项的位置由索引值来指定；故 B 选项错误。Text 属性的值为最后一次选中的表项的文本，不能直接修改 Text 属性；Index 属性用来设置或返回控件在控件数组中的标识号；故 D 选项错误。本题正确答案为 C 选项。28.若在窗体上画了一个名称为 List1 的列表框，并编
24、写了如下事件过程：Private Sub Form_Load ( ) List1.AddItem “数学“ List1.AddItem “物理“ List1.AddItem “化学“ List1.AddItem “外语“ List1.AddItem “语文“End SubPrivate Sub Form_Click() List1.RemoveItem 1 List1.RemoveItem 2End Sub 运行程序后，单击窗体，则列表框中显示的项目是( )。（分数：2.00）A.数学 化学 语文 B.数学 外语 语文C.化学 外语 语文D.物理 外语 语文解析：解析：AddItem 方法：用
25、来在列表框中插入一行文本（即项目）。RemoveItem 方法：用来删除列表框中的指定项目。注意：列表框中项目索引值从 0 开始计数。执行 Form_load 事件后，向列表框中插入 5个值分别为：数学、物理、化学、外语、语文，索引值依次为 0，1，2，3，4。当执行 Form_Click 事件中的 List1.RemoveItem 1 语句后，List1 中“物理“项被删除。此时列表框中的值分别为：数学、化学、外语、语文，其索引值依次为 0，1，2，3。当执行 Form_Click 事件中的 List1.RemoveItem 2 语句后，List1 中“外语“项被删除。此时列表框中的值分别为
26、：数学、化学、语文。故 A 选项正确。29.有如下程序代码：Private Sub Form_Click() X = 8 If X 8 Then Print “X 8“ ElseIf X 8 为 False，不执行 Print X8 而执行句“ElseIf X 10 Print s 解析：解析：题目所给出程序段的功能：计算 1 到 10 之间所有自然数的累和，选项 A 循环变量 i 的取值为从 0 到 10，其功能为计算 1 到 11 之间所有自然数的累和，故选项 A 错误；选项 B 循环变量 i 的取值为从 1 到 9，其功能为计算 2 到 10 之间所有自然数的累和，故选项 B 错误；选项
27、 C 循环变量 i 的取值为从1 到 9，其的功能为计算 1 到 9 之间所有自然数的累和，故选项 C 错误；选项 D 的功能为计算 1 到 10 之间所有自然数的累和，故 D 选项正确。32.运行如下程序 Private Sub Command1_Click() Dim a(5, 5) As Integer For i = 1 To 5 For j = 1 To 4 a(i, j) = i * 2 + j If a(i, j) / 7 = a(i, j) / 7 Then n = n + 1 End If Next j Next Print n End Sub 则 n 的值是( )（分数：2
28、.00）A.2B.3 C.4D.5解析：解析：程序的功能：利用二重 For 循环给二维数组 a 中每个元素赋值，然后通过 If 语句“a(i,j)/7=a(i,j)/7“判断 a(i,j)的值是否能被 7 整除，若能被 7 整除，则利用语句“n=n+1“，统计满足条件的a(i,j)的个数。程序开始时，利用二重循环和表达式“a(i, j) = i * 2 + j“给数组元素赋值，通过计算可以得知：a(2,3)=2*2+3=7；a(3,1)=2*3+1=7；a(5,4)=2*5+4=14，3 个值满足条件，即 n 的值为 3，故 B选项正确。33.要求函数的功能是：从参数 str 字符串中删除所有
29、参数 ch 所指定的字符，返回实际删除字符的个数，删除后的字符串仍在 str 中，为此某人编写了函数 DelChar 如下：Function DelChar(str As String, ch As String) As Integer Dim n%, st$, c$ st = “ n = 0 For k = 1 To Len(str) c = Mid(str, k, 1) If c = ch Then st = st & c Else n = n + 1 End If Next k str = st DelChar = n End Function 并用下面的 Command1_Click(
30、)过程观察函数调用结果 Private Sub Command1_Click() ch$ = Text1.Text Print DelChar(ch, “x“), chEnd Sub 发现结果有错误，程序代码需要修改，以下正确的修改方案是( )。（分数：2.00）A.把语句 If c = ch Then 改为 If c ch Then st = st & c else n=n+1“。故选项 A 正确。34.如果窗体模块 A 中有一个过程：Private Sub Proc( ) End Sub 则下面叙述中错误的是( )。（分数：2.00）A.在标准模块中不能调用此过程B.在窗体模块 B 中可以
31、有与此相同名称的过程C.窗体模块 A 中任何其他过程都可以调用此过程D.在窗体模块 B 中可以调用此过程 解析：解析：过程所处的位置不同，其控制的范围也不同，在窗体中定义的过程能被本模块即窗体中的其他过程调用，不能被其他窗体中的模块调用。选项 D 表述错误，故正确答案为选项 D。35.对于通用对话框控件，下列说法中错误的是( )。（分数：2.00）A.DefaultEXT 和 DialogTitle 属性只用于打开对话框，不能用于保存对话框 B.用通用对话框控件可以建立打开文件对话框，也可以建立保存文件对话框C.用打开文件对话框可以指定一个文件，由程序使用D.用保存文件对话框可以指定一个文件，
32、由程序使用解析：解析：DefaultEXT 属性和 DialogTitle 属性是打开(Open)和保存(Save)对话框共同的属性，DefaultEXT 属性用来设置对话框中默认文件类型，即扩展名；DialogTitle 属性用来设置对话框的标题，故 A 选项错误。B、C、D 选项叙述均正确。本题正确答案为 A。36.利用菜单编辑器在窗体中新建一个名称为 mnuOpen 的弹出式菜单，其中含有若干个菜单项，并编写如下事件过程：Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Si
33、ngle) If Button = 2 Then _ End IfEnd Sub 程序运行过程中，当在窗体上单击鼠标右键时，显示已建立的 mnuOpen 菜单，则在以上程序代码中的横线处应填入的语句是( )。（分数：2.00）A.mnuOpen.ShowB.mnuOpen.PopupMenuC.PopupMenu mnuOpen D.Show mnuOpen解析：解析：建立弹出式菜单通常分两步进行：首先用菜单编辑器建立菜单，然后用 PopupMenu 方法弹出显示。PopupMenu 方法用来显示弹出菜单，其格式为：对象.PopupMenu 菜单名，Flags，X，Y，BoldCommand。
34、其中“对象“是窗体名；菜单名是在菜单编辑器中定义的主菜单项名。对于两个键的鼠标来说，左键的 Button 参数为 1，右键的 Button 参数值为 2。程序中条件语句判断所按下的是否是鼠标右键，如果是，则用 PopupMenu 方法弹出菜单。PopupMenu 方法省略了对象参数，指的是当前窗体。运行程序，然后在窗体的任意位置单击鼠标右键，将弹出一个菜单，故本题 C 选项正确。37.设窗体上无任何控件，且有如下程序代码：Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub Private Sub
35、Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) End Sub 运行程序，直接按“A“键，输出结果是( )。（分数：2.00）A.A AB.A a C.a AD.a a解析：解析：按照事件发生的先后顺序，按下键盘上的按键时，首先触发 KeyDown 事件，然后再触发KeyPress 事件。KeyPress 事件带有一个参数，这个参数有两种形式。第一种形式是 Index As Integer，只用于控件数组；第二种形式是 KeyAscii As Integer，用于单个控件。KeyPress 事件用来识别
36、按键的ASCII 码。参数 KeyAscii 是所按键的 ASCII 码。按下“a“键，KeyAscii 的值为 97。通过 Chr(KeyAscii)得到“a“；KeyDown 事件有两个参数，即 KeyCode 和 Shift。KeyCode 参数是按键实际的 ASCII 码，该码以“键“为准，而不是以“字符“为准。也就是说，大写字符与小写字母使用同一个键，它们的 KeyCode 相同（使用大写字母的 ASCII 码）。通过 Chr(KeyCode)得到“A“；所以输出结果为“A a“，故选项 B 正确。38.在窗体 Form1 上画一个名称为 Command1 的命令按钮，编写如下程序代
37、码：Private Type stu sn As String * 20 class As String * 20End TypePrivate Sub Command1_Click() Dim s As stu Open “c:/allstu.dat“ For Random As #1 Len = Len(s) s.sn = “John“ s.class = “Computer 2013“ Put #1, , s Close #1End Sub 则以下叙述中正确的是( )。（分数：2.00）A.定义记录类型 stu 的 Type 语句可以移到事件过程 Command1_Click 中B.如果
38、文件 c:/allstu.dat 不存在，则 Open 语句执行中出现“文件未找到“的错误C.文件 c:/allstu.dat 中的每条记录是等长的 D.语句“Put #1, , s“中没有指明记录号，因此系统总是把记录写到文件的头部解析：解析：用户定义数据类型可以用 Type 语句来定义，格式是：Type 数据类型名 数据类型元素名 AS 类型名 数据类型元素名 AS 类型名End Type。用户定义的数据类型必须先定义后使用，而且只能在模块（窗体模块或标准模块）的声明部分定义，故选项 A 错误。文件的打开格式：Open 文件说明For 方式Access 存取类型锁定As #文件号Len=记
39、录长度。如果以输出（Output）、附加（Append）或随机（Random）访问方式打开的文件不存在，则会建立相应的文件，故选项 B 错误。随机文件写操作格式：Put #文件号，记录号，变量，功能是把“变量“的内容写入由“文件“号所指定的磁盘文件中。当记录号没有指明时，系统默认，则数据将被写到下一个记录位置，即最近执行 Get 或 Put 语句后的记录，或由最近的 Seek 函数指定的记录，故选项 D 错误。本题正确答案为 C。39.Print #语句的作用是( )。（分数：2.00）A.向随机文件中写数据B.向顺序文件中写数据 C.向窗体上输出数据D.从顺序文件中读入数据解析：解析：向随机
40、文件写数据使用 Put #；向顺序文件中写数据使用 Print #；向窗体上输出数据使用Print；从顺序文件中读入数据使用 Input #；所以本题 B 选项正确。40.在 Visual Basic 工程中，可以作为“启动对象“的是( )。（分数：2.00）A.Sub Main 过程 B.任何过程C.在标准模块中专门定义的启动过程D.Sub Main 过程以及任何过程解析：解析：Sub Main 过程位于标准模块中。一个工程可以含有多个标准模块，但 Sub Main 过程只能有一个。Sub Main 过程通常是作为启动过程编写的，但是 Sub Main 过程不能自动被识别，也就是说，Visual Basic 并不自动把它作为启动过程，必须通过与设置启动窗体类似的方法把它指定为启动过程，所以本题 A 选项正确。
