1、二级 VISUAL+BASIC 笔试 78 及答案解析(总分：96.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.下列正确的 Visual Basic 注释语句是（分数：2.00）A.Dim a(10)As Integer Rem 这是一个 VB 程序B.这是一个 VB 程序 Private Sub Command1_Click()C.a=1:b=2:Rem 这是一个 VB 程序：c=3D.If Shift=6 And Button=2 Then Print “BBBB“ Rem 这是一个 VB 程序 End If2.在窗体上画一个命令按钮，其名称为 Com
2、mand1，然后编写如下事件过程： Private Sub Command1_Click() For i=1 To 4 If i=1 Then x=i If i = 4 Then x=x+1 Print x； Next i End Sub 程序运行后，单击命令按钮，其输出的结果为（分数：2.00）A.1 2 3 4B.2 3 4 5C.2 3 4 4D.3 4 5 63.在下列选项中，不是算法一般应该具有的基本特征的是（分数：2.00）A.确定性B.可行性C.无穷性D.拥有足够的情报4.执行以下 Command1 的 Click 事件过程，在窗体上显示 Option Base 0 Privat
3、e Sub Command1_Click() Dim a a = Array(“a“, “b“, “c“, “d“, “e“, “f“, “g“) Print a(1); a(3); a(5) End Sub（分数：2.00）A.abcB.bdfC.aceD.出错5.在窗体上画一个按钮，然后再复制 5 个，形成名称为 Command1 的 6 个控件数组，删除其中 Index=4 的一个。有下列程序： Private Sub Command1_Click(Index As Integer) Print Command1.Count； Print Command1.LBound； Print C
4、ommand1.UBound； End Sub 程序运行后，单击任一命令按钮，则窗体上显示的内容是（分数：2.00）A.0 0 0B.5 0 5C.4 0 4D.4 1 56.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer Dim sum As Integer Dim sum1 As Integer Dim a(1 To 20)，x For i = 1 To 10 a(i)=i Next i For Each x In a If x Mod 2 = 0 Then sum1=s
5、um1+x Else sum = sum+x End If Next x Print sum；sum1 End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是（分数：2.00）A.25 30B.10 20C.20 30D.1 107.阅读下列程序： Function func(n As Integer)As Integer Sum = 0 For i = 1 To n Sum = Sum + (i + 1)* i Next i func = Sum End Function. Private Sub Command1_Click () Dim a As Integer a= 5 s =
6、 func (A) Print s End Sub 程序运行后，单击命令按钮，输出的结果为（分数：2.00）A.80B.60C.70D.158.在排序方法中，将整个无序序列分割成若干小的子序列并分别进行排序的方法，称为（分数：2.00）A.希尔排序B.冒泡排序C.插入排序D.选择排序9.下面叙述中正确的是（分数：2.00）A.Spc 函数既能用于 Print 方法，也能用于表达式B.Space 函数既能用于 Print 方法，也能用于表达式C.Spc 函数与 Space 函数均生成空格，没有区别D.以上说法均不对10.编写如下事件过程： Private sub sub1 (ByVal x1 A
7、s String, y1 As String) Dim xt As String Dim i As Integer i = Len(x1) Do While i= 1 xt = xt + Mid(x1, i, 1) i=i-1 Loop y1 = xt End Sub Private Sub Form Click() Dim s1 As String, s2 As String s1= “teacher“ sub1 s1, s2 Print s2 End Sub 程序运行后，单击窗体，则窗体上显示的内容是（分数：2.00）A.rehcaetB.tahreeeC.themeeD.eerthea1
8、1.设窗体上有一个文本框，名称为 Text1，程序运行后，要求该文本框只能显示信息，不能接收输入信息，以下能实现该操作的语句是（分数：2.00）A.Text1.MaxLength=0B.Text1.Enabled=FalseC.Text1.Text=FalseD.Text1.Index=012.数据库中对全部数据的整体逻辑结构的描述，作为数据库的（分数：2.00）A.内模式B.外模式C.概念模式D.子模式13.下列 4 个表达式中，其中一个值与其他 3 个大小不同的是（分数：2.00）A.15B. x=x+1 Loop While x= 0 Print y; x End Sub 程序运行后，单
9、击命令按钮，则窗体上显示的内容是（分数：2.00）A.7 9B.34 0C.1 7D.死笔循环二、B填空题/B(总题数：13，分数：26.00)36.因为顺序栈的空间有限，因此在插入运算时，可能会发生U 【1】 /U。（分数：2.00）填空项 1:_37.设一棵二叉树的中序遍历结果为 DBEAFC，前序遍历结果为 ABDECF，则后序遍历结果为U 【2】 /U。（分数：2.00）填空项 1:_38.如果类 C 继承类 B，类 B 继承类 A，则类 C 继承类 A，这说明继承具U 【3】 /U。（分数：2.00）填空项 1:_39.一个模块被多个模块调用，调用这个模块的模块个数称为U 【4】 /
10、U。（分数：2.00）填空项 1:_40.数据库管理系统常见的数据模型有层次模型、网状模型和U 【5】 /U3 种。（分数：2.00）填空项 1:_41.一个控件在窗体上的位置由U 【6】 /U属性决定，其大小由 Width 和 Height 属性决定。（分数：2.00）填空项 1:_42.启动窗体在“工程属性”对话框中指定，为了打开该对话框，应执行U 【7】 /U菜单中的U【8】 /U 命令。（分数：2.00）填空项 1:_43.以下程序用宋输出 20 个在开区间(10，87)中的随机整数 R，每行输出 4 个整数。请完善下列程序。 Private Sub Command1_Click()
11、For I = 1 To 10 R =U 【9】 /U Print R； If I Mod 4=0 Then Print Next I End Sub（分数：2.00）填空项 1:_44.在 Visual Basic 中，用于管理文件系统的 3 个控件是文件列表框、目录列表框和U 【10】 /U。（分数：2.00）填空项 1:_45.为了能自动放大或缩小图像框中的图形以与图像框的大小相适应，必须将该图像框的 Stretch 属性设置为U 【11】 /U。（分数：2.00）填空项 1:_46.能判断是否到达文件尾的函数是U 【12】 /U。（分数：2.00）填空项 1:_47.下列程序的功能是将
12、数组中的奇数相加。给定的程序不完整，请将程序补充完整。 Option Base 1 Private Sub form_Click() Dim k As Integer Dim Total As Integer Dim n n = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) For k = 1 To UBound(n) IfU 【13】 /UThen Total = Total + n(k) End If Next k Print Total End Sub（分数：2.00）填空项 1:_48.有下列程序： Private Sub Command1_Click()
13、Dim i As Integer Dim arrY(5)As Integer For i = 0 To 4 arrY (i) = 5 Next i Dim arrZ(5)As String For i = 0 To 4 arrZ(i)= “hello“ Next i Dim arrX(2)AS Variant arrX(1)=arrY() arrX(2)=arr2() Text1.Text=arrX(1) (2) Text2.Text=arrX(2) (3) End Sub 程序运行后，单击命令按钮，在文本框 Text1 和 Text2 中分别显示的内容是U 【14】 /U和U 【15】 /U
14、。（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试 78 答案解析(总分：96.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.下列正确的 Visual Basic 注释语句是（分数：2.00）A.Dim a(10)As Integer Rem 这是一个 VB 程序B.这是一个 VB 程序 Private Sub Command1_Click() C.a=1:b=2:Rem 这是一个 VB 程序：c=3D.If Shift=6 And Button=2 Then Print “BBBB“ Rem 这是一个 VB 程序 End If解析：分析
15、 在使用注释语句时，有以下“禁忌”：当注释出现在一个语句行的后面时，只能用撇号“”作为注释符，不能使用 Rem；在复合语句行中，注释必须是最后一个语句，不能放在复合语句行中：注释语句不能放在续行符的后面。在所给出的选择中，选项 A、C、D 都是不正确的。2.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click() For i=1 To 4 If i=1 Then x=i If i = 4 Then x=x+1 Print x； Next i End Sub 程序运行后，单击命令按钮，其输出的结果为（分数：2.00）A.
16、1 2 3 4B.2 3 4 5 C.2 3 4 4D.3 4 5 6解析：分析 在 For 循环语句中引用了两个 If 语句，通过将 i 的值赋值给 x 来进行。第一次循环时 x 的值为 2，每次加 1，所以答案应为 B。3.在下列选项中，不是算法一般应该具有的基本特征的是（分数：2.00）A.确定性B.可行性C.无穷性 D.拥有足够的情报解析：分析 作为一个算法，一般应具有以下几个基本特征：可行性、确定性、有穷性、拥有足够的情报。4.执行以下 Command1 的 Click 事件过程，在窗体上显示 Option Base 0 Private Sub Command1_Click() Di
17、m a a = Array(“a“, “b“, “c“, “d“, “e“, “f“, “g“) Print a(1); a(3); a(5) End Sub（分数：2.00）A.abcB.bdf C.aceD.出错解析：分析 本题使用了 option Base 0 语句，该语句对于使用 Array 定义的数组同样起作用，数组 a的索引从 0 开始，故本题输出的结果为 bdf，答案为选项 B。5.在窗体上画一个按钮，然后再复制 5 个，形成名称为 Command1 的 6 个控件数组，删除其中 Index=4 的一个。有下列程序： Private Sub Command1_Click(Inde
18、x As Integer) Print Command1.Count； Print Command1.LBound； Print Command1.UBound； End Sub 程序运行后，单击任一命令按钮，则窗体上显示的内容是（分数：2.00）A.0 0 0B.5 0 5 C.4 0 4D.4 1 5解析：分析 控件数组删除其中一个后，其他控件元素的 Index 值不会改变，而 Ubound 属性返回数组元素的最大索引，因此依然为 5，而不是因为删除了一个而成为 4。控件数组的 Count 属性返回控件的实际个数，Lbound 属性返回其中索引最小的元素，若删除其中 Index=0 的控件
19、，则该属性值也会相应改变为1。6.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer Dim sum As Integer Dim sum1 As Integer Dim a(1 To 20)，x For i = 1 To 10 a(i)=i Next i For Each x In a If x Mod 2 = 0 Then sum1=sum1+x Else sum = sum+x End If Next x Print sum；sum1 End Sub 程序运行后，单击命令按
20、钮，则窗体上显示的内容是（分数：2.00）A.25 30 B.10 20C.20 30D.1 10解析：分析 程序的前部分给数组 a 赋初值，后部分利用 For Each-Next 语句对其进行循环操作，将奇数和偶数之和分别赋值给变量 sum 和 sum1。本题的难点就是要理解 For Each-Next 语句。注意：For Each 语句的控制变量必须为变体变量。窗体上显示的答案是 110 之内奇数与偶数之和。7.阅读下列程序： Function func(n As Integer)As Integer Sum = 0 For i = 1 To n Sum = Sum + (i + 1)*
21、i Next i func = Sum End Function. Private Sub Command1_Click () Dim a As Integer a= 5 s = func (A) Print s End Sub 程序运行后，单击命令按钮，输出的结果为（分数：2.00）A.80B.60C.70 D.15解析：分析 本题调用一个 Function 过程 func，该过程只有一个参数，类型为整型，返回值也为整型。过程的调用十分简单，关键是要搞清楚过程 func 的功能。从 For-Next 循环可以看出，该过程的功能是：12+23+34+(n+1)n。在调用过程时，实参 a 的值为
22、 5，即上式中的 n =5。因此返回的值为：12+23+34+45+56 =70。8.在排序方法中，将整个无序序列分割成若干小的子序列并分别进行排序的方法，称为（分数：2.00）A.希尔排序 B.冒泡排序C.插入排序D.选择排序解析：分析 希尔排序法的基本思想是：先将整个待排元素序列分割成若干个子序列(由相隔某个增量 h的元素组成)分别进行直接插入排序，待整个序列中的元素基本有序(增量足够小)时，再对全体元素进行一次直接插入排序。9.下面叙述中正确的是（分数：2.00）A.Spc 函数既能用于 Print 方法，也能用于表达式B.Space 函数既能用于 Print 方法，也能用于表达式 C.
23、Spc 函数与 Space 函数均生成空格，没有区别D.以上说法均不对解析：分析 Spc 函数和 Space 函数相同之处是都能由 Print 方法的格式输出，不同之处是 Space(n)函数有返回值，它能用于表达式；而 Spc(n)函数没有返回值，它只能用于 Print#语句或 Print 方法中。10.编写如下事件过程： Private sub sub1 (ByVal x1 As String, y1 As String) Dim xt As String Dim i As Integer i = Len(x1) Do While i= 1 xt = xt + Mid(x1, i, 1)
24、i=i-1 Loop y1 = xt End Sub Private Sub Form Click() Dim s1 As String, s2 As String s1= “teacher“ sub1 s1, s2 Print s2 End Sub 程序运行后，单击窗体，则窗体上显示的内容是（分数：2.00）A.rehcaet B.tahreeeC.themeeD.eerthea解析：分析 可以看出，Sub1(ByVal x1 As String，y1 As String)的作用是将参数 x1 的字符逆序处理，然后赋给 y1，而 y1 是传址引用的，可以直接返回处理结果。11.设窗体上有一个
25、文本框，名称为 Text1，程序运行后，要求该文本框只能显示信息，不能接收输入信息，以下能实现该操作的语句是（分数：2.00）A.Text1.MaxLength=0B.Text1.Enabled=False C.Text1.Text=FalseD.Text1.Index=0解析：分析 当文本框的 Enabled 属性被设置成“False”时，文本框是只读状态，纯粹用来显示，其中的内容呈灰色，对鼠标和键盘的操作没有反应。12.数据库中对全部数据的整体逻辑结构的描述，作为数据库的（分数：2.00）A.内模式B.外模式C.概念模式 D.子模式解析：分析 数据库系统的三级模式是概念模式、外模式和内模式
26、。概念模式是数据库系统中全局数据逻辑结构的描述，是全体用户(应用)公共数据视图。外模式也称子模式或用户模式，它是用户的数据视图，也就是用户所见到的数据模式，它由概念模式推导而出。内模式又称物理模式，它给出了数据库物理存储结构与物理存取方法。13.下列 4 个表达式中，其中一个值与其他 3 个大小不同的是（分数：2.00）A.15B. x=x+1 Loop While x= 0 Print y; x End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是（分数：2.00）A.7 9B.34 0C.1 7 D.死笔循环解析：分析 当第一次进入循环体后，y=7-6=1， x=6+1=7，由于
27、“7=0”的条件为假，所以只执行了一次循环就退出循环体。最后打印出 1 和 7。二、B填空题/B(总题数：13，分数：26.00)36.因为顺序栈的空间有限，因此在插入运算时，可能会发生U 【1】 /U。（分数：2.00）填空项 1:_ （正确答案：上溢）解析：分析 当栈顶指针已经指向存储空间的最后一个位置时，说明栈空间已满，不可能再进行入栈操作，这种情况称为栈“上溢”。37.设一棵二叉树的中序遍历结果为 DBEAFC，前序遍历结果为 ABDECF，则后序遍历结果为U 【2】 /U。（分数：2.00）填空项 1:_ （正确答案：DEBFCA）解析：分析 由二叉树前序遍历序列和中序遍历序列可以唯
28、一确定一棵二叉树。由于前序遍历为ABDECF，可以确定二叉树的根为 A，这样二叉树的左子树的前序遍历为 BDE、中序遍历为 DBE。在左子树中，可以确定 B 为根，D 为左子树，E 为右子树。同样的方法可以确定右子树。38.如果类 C 继承类 B，类 B 继承类 A，则类 C 继承类 A，这说明继承具U 【3】 /U。（分数：2.00）填空项 1:_ （正确答案：传递性）解析：分析 类的继承具有传递性，如果类 C 继承类 B，类 B 继承类 A，则类 C 继承类 A，这样类 C 不但继承了类 B 定义的特性外，还具有类 A 所定义的全部特性。39.一个模块被多个模块调用，调用这个模块的模块个数
29、称为U 【4】 /U。（分数：2.00）填空项 1:_ （正确答案：扇出）解析：分析 在使用程序结构图宋描述软件时，需要注意以下几个概念：深度：表示控制的层数；上级模块、从属模块：上、下两层模块 a 和 b，且有 a 调用 b，则 a 是上级模块，b 是从属模块；宽度：整体控制跨度(最大模块数的层)的表示：扇入：调用一个给定模块的模块个数；扇出：一个模块直接调用的其他模块个数；原子模块：树中位于叶子结点的模块。40.数据库管理系统常见的数据模型有层次模型、网状模型和U 【5】 /U3 种。（分数：2.00）填空项 1:_ （正确答案：关系模型）解析：分析 数据库管理系统是位于用户与操作系统之间
30、的一层系统管理软件，是一种系统软件，是用户与数据库之间的一个标准接口，其总是基于某种数据模型，可以分为层次模型、网状模型和关系模型。41.一个控件在窗体上的位置由U 【6】 /U属性决定，其大小由 Width 和 Height 属性决定。（分数：2.00）填空项 1:_ （正确答案：Top 和 Left）解析：分析 一个控件在窗体上的位置由 Top 和 Left 属性决定，其大小由 Width 和 Height 属性决定。42.启动窗体在“工程属性”对话框中指定，为了打开该对话框，应执行U 【7】 /U菜单中的U【8】 /U 命令。（分数：2.00）填空项 1:_ （正确答案：7工程）解析：8
31、(工程名)属性 分析 一个 Visual Basic 的工程文件可以包含多个窗体文件及其他类型的文件。运行 Visual Basic 程序时的启动窗体可以由设计者指定。指定启动窗体的操作可以在“工程”菜单中的“工程属性”窗口中进行。在“工程属性”窗口中，对应于“启动对象”的列表框中列出了当前工程文件中所有的窗体名称，可以从中指定一个作为启动窗体。默认情况下，创建工程文件时建立的第一个窗体为启动窗体。43.以下程序用宋输出 20 个在开区间(10，87)中的随机整数 R，每行输出 4 个整数。请完善下列程序。 Private Sub Command1_Click() For I = 1 To 1
32、0 R =U 【9】 /U Print R； If I Mod 4=0 Then Print Next I End Sub（分数：2.00）填空项 1:_ （正确答案：Int(Rnd*76+11)）解析：分析 本题目首先是要产生开区间(10，87)上的随机整数，根据 Int 函数的用法，应该使用Int(Rnd*76+11)，注意因为开区间(10，87)从 11 开始，所以不能使用数字 10。至于换行，根据题意当I=4、8 等能被 4 整除的数值时输出换行符号，可使用 Mod 语句。44.在 Visual Basic 中，用于管理文件系统的 3 个控件是文件列表框、目录列表框和U 【10】 /U
33、。（分数：2.00）填空项 1:_ （正确答案：驱动器列表框）解析：分析 在 Visual Basic 中，用于管理文件系统的 3 个控件是文件列表框、目录列表框和驱动器列表框。45.为了能自动放大或缩小图像框中的图形以与图像框的大小相适应，必须将该图像框的 Stretch 属性设置为U 【11】 /U。（分数：2.00）填空项 1:_ （正确答案：True）解析：分析 Stretch 属性只用于图像框，用来自动调整图像框中图形内容的大小。它既可通过属性窗口设置，也可通过程序代码设置。46.能判断是否到达文件尾的函数是U 【12】 /U。（分数：2.00）填空项 1:_ （正确答案：EOF）解
34、析：分析 EOF 函数返回一个 Integer，它包含 Boolean 值 True，表明已经到达为 Random 或顺序Input 打开的文件末尾。47.下列程序的功能是将数组中的奇数相加。给定的程序不完整，请将程序补充完整。 Option Base 1 Private Sub form_Click() Dim k As Integer Dim Total As Integer Dim n n = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) For k = 1 To UBound(n) IfU 【13】 /UThen Total = Total + n(k) E
35、nd If Next k Print Total End Sub（分数：2.00）填空项 1:_ （正确答案：n(k)Mod 20 或 n(k)Mod 2=1 或 n(k)/2 Int(n(k)/2)或n(k)/2-Int(n(k)/2)0）解析：分析 判定奇数的条件是数据除以 2 的余数不为 0。48.有下列程序： Private Sub Command1_Click() Dim i As Integer Dim arrY(5)As Integer For i = 0 To 4 arrY (i) = 5 Next i Dim arrZ(5)As String For i = 0 To 4 a
36、rrZ(i)= “hello“ Next i Dim arrX(2)AS Variant arrX(1)=arrY() arrX(2)=arr2() Text1.Text=arrX(1) (2) Text2.Text=arrX(2) (3) End Sub 程序运行后，单击命令按钮，在文本框 Text1 和 Text2 中分别显示的内容是U 【14】 /U和U 【15】 /U。（分数：2.00）填空项 1:_ （正确答案：145）解析：15hello 分析 程序可以运行通过。本题主要考查数组的运算，题中的 arrX(1)(2)和 arrX(2)(3)都是二维数组，使用 For 循环语句对数组(arry 和 arrZ)赋初值。题中的 arrX(1)(2)指的是 arrX 数组的第 1 个元素(数组 arrY 的第 2 个元素即 arry(2)，所以是 5；arrX(2)(3)指的是 arrX 数组的第 2 个元素(数组 arrZ 的第 3 个元素即 arrZ(3)，所以是 Hello。
