1、二级 VISUAL+BASIC 笔试-366 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.软件测试中根据测试用例设计方法的不同可分为黑盒测试和白盒测试，它们（分数：2.00）A.前者属于静态测试，后者属于动态测试B.前者属于动态测试，后者属于静态测试C.都属于静态测试D.都属于动态测试2.编写如下事件过程：Private sub sub1 (ByVal x1 As String, y1 As String)Dim xt As StringDim i As Integeri = Len(x1)Do While i= 1xt = xt +
2、Mid(x1, i, 1)i=i-1Loopy1 = xtEnd SubPrivate Sub Form Click()Dim s1 As String, s2 As Strings1= “teacher“sub1 s1, s2Print s2End Sub程序运行后，单击窗体，则窗体上显示的内容是（分数：2.00）A.rehcaetB.tahreeeC.themeeD.eerthea3.当用鼠标左键单击窗体(Form1)时所发生的事件是（分数：2.00）A.Load1_ClickB.Load_ClickC.Form1_ClickD.Form_Click4.对采用二分查找法进行查找运算的查找表
3、，要求按 _ 方式进行存储。（分数：2.00）A.顺序存储B.链式存储C.顺序存储且结点按关键字有序D.链式存储且结点按关键字有序5.设 s=8，t=7，x=6，y=5，下列表达式的值是43 * t Or s = x And t x Or x y（分数：2.00）A.1B.TrueC.FalseD.26.设关系 R 是 4 元关系，关系 S 是一个 5 元关系，关系 T 是 R 与 S 的笛卡儿积，即 T=RS，则关系 T 是 _ 元关系。（分数：2.00）A.9B.11C.20D.407.在窗体上画一个按钮，然后再复制 5 个，形成名称为 Command1 的 6 个控件数组，删除其中 In
4、dex=4 的一个。有下列程序：Private Sub Command1_Click(Index As Integer)Print Command1.Count；Print Command1.LBound；Print Command1.UBound；End Sub程序运行后，单击任一命令按钮，则窗体上显示的内容是（分数：2.00）A.0 0 0B.5 0 5C.4 0 4D.4 1 58.有如下程序Private Sub Command1_Click()a = 100Dos=s+aa=a+1Loop While a120Print aEnd Sub程序运行后，单击命令按钮，其输出的结果为（分数
5、：2.00）A.100B.120C.201D.1019.变量未赋值时，数值型变量的值为 0，字符串变量的值为（分数：2.00）A.FalseB.空串“ “C.NullD.没任何值10.在排序方法中，将整个无序序列分割成若干小的子序列并分别进行排序的方法，称为（分数：2.00）A.希尔排序B.冒泡排序C.插入排序D.选择排序11.为了使窗体的大小可以改变，必须将它的 BorderStyle 属性设置为（分数：2.00）A.1B.2C.3D.412.执行以下 Command1 的 Click 事件过程，在窗体上显示Option Base 0Private Sub Command1_Click()D
6、im aa = Array(“a“, “b“, “c“, “d“, “e“, “f“, “g“)Print a(1); a(3); a(5)End Sub（分数：2.00）A.abcB.bdfC.aceD.出错13.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程：Private Sub Command1_Click()For i=1 To 4If i=1 Then x=iIf i = 4 Then x=x+1Print x；Next iEnd Sub程序运行后，单击命令按钮，其输出的结果为（分数：2.00）A.1 2 3 4B.2 3 4 5C.2 3 4 4D.3
7、4 5 614.设窗体上有一个文本框，名称为 Text1，程序运行后，要求该文本框只能显示信息，不能接收输入信息，以下能实现该操作的语句是（分数：2.00）A.Text1.MaxLength=0B.Text1.Enabled=FalseC.Text1.Text=FalseD.Text1.Index=015.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim x As Integer, y As Integerx = 6: y = 7Doy = y - xDebug. Print y;x=x+1Loop Whi
8、le x= 0Print y; xEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是（分数：2.00）A.7 9B.34 0C.1 7D.死笔循环16.下列 4 个表达式中，其中一个值与其他 3 个大小不同的是（分数：2.00）A.15B. a(3); a(5)End Sub（分数：2.00）A.abcB.bdf C.aceD.出错解析：分析 本题使用了 option Base 0 语句，该语句对于使用 Array 定义的数组同样起作用，数组 a的索引从 0 开始，故本题输出的结果为 bdf，答案为选项 B。13.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过
9、程：Private Sub Command1_Click()For i=1 To 4If i=1 Then x=iIf i = 4 Then x=x+1Print x；Next iEnd Sub程序运行后，单击命令按钮，其输出的结果为（分数：2.00）A.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。14.设窗体上有一个文本框，名称为 Text1，程序运行后，要求该文本框只能显示信息，不能接收输入信息，以下能实现该操作
10、的语句是（分数：2.00）A.Text1.MaxLength=0B.Text1.Enabled=False C.Text1.Text=FalseD.Text1.Index=0解析：分析 当文本框的 Enabled 属性被设置成“False”时，文本框是只读状态，纯粹用来显示，其中的内容呈灰色，对鼠标和键盘的操作没有反应。15.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim x As Integer, y As Integerx = 6: y = 7Doy = y - xDebug. Print y;x=x
11、+1Loop While x= 0Print y; xEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是（分数：2.00）A.7 9B.34 0C.1 7 D.死笔循环解析：分析 当第一次进入循环体后，y=7-6=1， x=6+1=7，由于“7=0”的条件为假，所以只执行了一次循环就退出循环体。最后打印出 1 和 7。16.下列 4 个表达式中，其中一个值与其他 3 个大小不同的是（分数：2.00）A.15B.&HAC.1111 D.&O17解析：分析 在 Visual Basic 中，可以使用十进制、八进制和十六进制，默认为十进制。有时候在特殊场合为了使用方便，也使用八进制和十六进
12、制。使用八进制的方法是借助函数 Oct，将十进制数值转换为八进制，或者直接在数值前用符号“&O”表示，如&O17 表明这是八进制数值，其值对应于十进制的 15；使用十六进制数则使用函数 Hex 或使用符号“&H”。17.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序：Private Sub Command1_Click()Static a As Integer，b As IntegerClsb = b + 3a = a + bPrint a，bEnd Sub程序运行时，3 次单击命令按钮 Command1 后，窗体上显示的结果为（分数：2.00）A.8 16B.6 6C.
13、15 18D.18 9 解析：分析 本题过程中使用了两个 Static 变量，每次单击命令按钮后，变量都保留着上次计算后的值。变量 y 的计算过程为：a=3、9、18，变量 b 的计算过程为：b=3、6、9。18.下列描述中不是链表优点的是（分数：2.00）A.逻辑上相邻的结点物理上不必相邻B.插入、删除运算操作方便，不必移动结点C.所需存储空间比线性表节省 D.无需事先估计存储空间的大小解析：分析 线性表的链式存储是用一组任意的存储空间来存放数据元素，链表结点空间是动态生成的，无需事先估计存储空间的大小。链表逻辑上相邻的元素在物理位置上不一定相邻，因此需要另外开辟空间来保存元素之间的关系，花
14、费的存储空间较顺序存储多。在链表中插入或删除结点，只需修改指针，不需要移动元素。19.结构化程序设计的 3 种基本控制结构是（分数：2.00）A.过程、子程序和分程序B.顺序、选择和重复 C.递归、堆栈和队列D.调用、返回和转移解析：分析 已经证明，程序设计语言仅仅使用顺序、选择和重复 3 种基本控制结构就足以表达出各种其他形式结构的程序设计方法。20.下面叙述中正确的是（分数：2.00）A.Spc 函数既能用于 Print 方法，也能用于表达式B.Space 函数既能用于 Print 方法，也能用于表达式 C.Spc 函数与 Space 函数均生成空格，没有区别D.以上说法均不对解析：分析
15、Spc 函数和 Space 函数相同之处是都能由 Print 方法的格式输出，不同之处是 Space(n)函数有返回值，它能用于表达式；而 Spc(n)函数没有返回值，它只能用于 Print#语句或 Print 方法中。21.用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是（分数：2.00）A.ListB.ListIndexC.Text D.ListCount解析：分析 组合框的 Text 属性值为最后一次选中的表项文本，不能直接修改 Text 属性。22.阅读下列程序：Function func(n As Integer)As IntegerSum = 0For i = 1 T
16、o nSum = Sum + (i + 1)* iNext ifunc = SumEnd Function.Private Sub Command1_Click ()Dim a As Integera= 5s = func (（分数：2.00）A.Print sEnd Sub程序运行后，单击命令按钮，输出的结果为 A) 80B.60C.70 D.15解析：分析 本题调用一个 Function 过程 func，该过程只有一个参数，类型为整型，返回值也为整型。过程的调用十分简单，关键是要搞清楚过程 func 的功能。从 For-Next 循环可以看出，该过程的功能是：12+23+34+(n+1)n
17、。在调用过程时，实参 a 的值为 5，即上式中的 n =5。因此返回的值为：12+23+34+45+56 =70。23.在窗体上画一个命令按钮，然后编写如下代码：Private Type RecordID As IntegerName As String *20End TypePrivate Sub Command1_Click()Dim Maxsize, NextChar, MyCharOpen “d:/temp/female.txt“ For Input As #1Maxsize = LOF(1)For NextChar = Maxsize To 1 Step -1Seek #1, Nex
18、tCharMyChar = Input(1, #1)Next NextCharPrint EOF(I)Close 31End Sub程序运行后，单击命令按钮，其输出的结果为（分数：2.00）A.TrueB.False C.0D.Null解析：分析 这个题目的重点在于考核函数 LOF、 EOF 和 Input$的使用。LOF 函数能够返回文件的实际长度。EOF 函数用于测定记录指针是否到达文件末尾。Input$函数用于从文件中读出指定个数的字符。24.下列正确的 Visual Basic 注释语句是（分数：2.00）A.Dim a(10)As Integer Rem 这是一个 VB 程序B.这是
19、一个 VB 程序Private Sub Command1_Click() C.a=1:b=2:Rem 这是一个 VB 程序：c=3D.If Shift=6 And Button=2 ThenPrint “BBBB“ Rem 这是一个 VB 程序End If解析：分析 在使用注释语句时，有以下“禁忌”：当注释出现在一个语句行的后面时，只能用撇号“”作为注释符，不能使用 Rem；在复合语句行中，注释必须是最后一个语句，不能放在复合语句行中：注释语句不能放在续行符的后面。在所给出的选择中，选项 A、C、D 都是不正确的。25.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：
20、Private Sub Command1_Click()Dim i As IntegerDim sum As IntegerDim sum1 As IntegerDim a(1 To 20)，xFor i = 1 To 10a(i)=iNext iFor Each x In aIf x Mod 2 = 0 Thensum1=sum1+xElsesum = sum+xEnd IfNext xPrint sum；sum1End Sub程序运行后，单击命令按钮，则窗体上显示的内容是（分数：2.00）A.25 30 B.10 20C.20 30D.1 10解析：分析 程序的前部分给数组 a 赋初值，后
21、部分利用 For Each-Next 语句对其进行循环操作，将奇数和偶数之和分别赋值给变量 sum 和 sum1。本题的难点就是要理解 For Each-Next 语句。注意：For Each 语句的控制变量必须为变体变量。窗体上显示的答案是 110 之内奇数与偶数之和。26.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为 Text1、Labell 和 Command1，然后编写如下两个事件过程：Private Sub Command1_Click()strText=InputBox(“请输入“)Text1.Text=strTextEnd SubPrivate Sub Text1_
22、Change()Labell.Caption=Right(Trim(Text1.Text)，3)End Sub程序运行后，单击命令按钮，如果在输入对话框中输入 Visual，则在标签中显示的内容是（分数：2.00）A.空B.VisualC.VisD.ual 解析：分析 当用户向文本框中输入新信息或当程序将 Text 属性设置为新值从而改变文本框的 Text 属性时，将触发 Change 事件，即执行“Text1.Text=strText”语句时，就触发了 Change 事件。Trim(字符串)将返回的是去掉“字符串”两边的空白字符，Right(字符串，n)将返回“字符串”的最后 n 个字符。字
23、符串 Visual 最右边的 3 个字符为 ual。27.如果文本框的 Enabled 属性被设置为 False，则运行时（分数：2.00）A.文本框中的文本将变成灰色，并且此时用户不能将光标置于文本框上 B.文本框中的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容C.文本框中的文本将变成灰色，用户仍然能改变文本框中的内容D.文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容解析：分析 常见控件都有 Enable 属性，默认值一般都为 True，当需要屏蔽该控件对用户的响应时，可以将 Enable 属性改为 False。文本框 Enable 属
24、性为 False 后，文本框中的文本将变成灰色，并且此时用户不能将光标置于文本框上，不能修改文本内容，也不能对鼠标、键盘等事件响应。28.Visual Basic 程序中语句行的续行符是（分数：2.00）A.B.：C./D._ 解析：分析 在输入程序时，可以通过续行符将程序分别放在几行中。Visual Basic 6.0 中使用的续行符是下划线()。如果一个语句行的末尾是下划线，则下一行与该行属于同一个语句行。注意，续行符与它前面的字符之间至少要有一个空格。29.在一棵二叉树上第 8 层的结点数最多是（分数：2.00）A.8B.16C.128 D.256解析：分析 根据二叉树的性质 1：二叉树
25、第 k(k1)层上，最多有 2k-1个结点。于是第 8 层的结点数最多是 27=128。30.在窗体上画一个命令按钮和一个文本框，并将窗体的 KeyPreview 属性设置为 True，然后编写如下代码：Dim SaveAll As StringPrivate Sub Form_Load()ShowText1.Text=“ “Text1.SetFocusEnd SubPrivate Sub Command1_Click()Text1.Text = Ucase(SaveAll)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)SaveAll
26、=SaveAll+Chr(KeyAscii)End Sub程序运行后，在键盘上输入 abcdefg，单击命令按钮，则文本框中显示的内容为（分数：2.00）A.abcdefgB.不显示任何信息C.ABCDEFG D.出错解析：分析 将窗体的 KeyPreview 属性设置为 True，在键盘上输入 abcdefg 时，触发 Form_KeyPross事件，变量 SaveAll 的值为“abcdefg”。由于 SaveAll 为过程变量，单击命令按钮后，UCase 函数将SaveAll 的内容转换成大写字符。选项 C 的答案是正确的。31.在以下事件中，Private 表示Private Sub
27、sub1(x As Integer，y As Integer).End Sub（分数：2.00）A.此过程可以被其他过程调用B.此过程只可以被本窗体模块中的其他过程调用 C.此过程不可以被任何其他过程调用D.此过程只可以被本工程中的其他过程调用解析：分析 Private 表示只有在包含其声明的模块中的其他过程可以访问该 Sub 过程。32.在下列选项中，不是算法一般应该具有的基本特征的是（分数：2.00）A.确定性B.可行性C.无穷性 D.拥有足够的情报解析：分析 作为一个算法，一般应具有以下几个基本特征：可行性、确定性、有穷性、拥有足够的情报。33.为了避免流程图在描述程序逻辑时的灵活性，提
28、出了用方框图宋代替传统的程序流程图，通常也将这种图称为（分数：2.00）A.PAD 图B.N-S 图 C.结构图D.数据流图解析：分析 常见的过程设计工具有：程序流程图、 N-S 图、PAD 图和 HIPO 图。其中，为了避免流程图在描述程序逻辑时的灵活性，提出了用方框图来代替传统的程序流程图，通常也将这种图称为 N-S 图。34.为了使命令按钮的 Picture、DownPicture 或 DisabledPicture 属性生效，必须将它的 Style 属性设置为（分数：2.00）A.0B.1 C.TrueD.False解析：分析 命令按钮像复选框和选项按钮一样，可通过更改 Style 属
29、性设置值后用 Picture、 DownPicture 和 DisabledPicture 属性增强视觉效果。比如要向命令按钮添加图标或位图，或者在单击、禁止控件时显示不同的图像。35.数据库中对全部数据的整体逻辑结构的描述，作为数据库的（分数：2.00）A.内模式B.外模式C.概念模式 D.子模式解析：分析 数据库系统的三级模式是概念模式、外模式和内模式。概念模式是数据库系统中全局数据逻辑结构的描述，是全体用户(应用)公共数据视图。外模式也称子模式或用户模式，它是用户的数据视图，也就是用户所见到的数据模式，它由概念模式推导而出。内模式又称物理模式，它给出了数据库物理存储结构与物理存取方法。二
30、、填空题(总题数：13，分数：30.00)36.因为顺序栈的空间有限，因此在插入运算时，可能会发生 【1】 。（分数：2.00）填空项 1:_ （正确答案：上溢）解析：分析 当栈顶指针已经指向存储空间的最后一个位置时，说明栈空间已满，不可能再进行入栈操作，这种情况称为栈“上溢”。37.设一棵二叉树的中序遍历结果为 DBEAFC，前序遍历结果为 ABDECF，则后序遍历结果为 【2】 。（分数：2.00）填空项 1:_ （正确答案：DEBFCA）解析：分析 由二叉树前序遍历序列和中序遍历序列可以唯一确定一棵二叉树。由于前序遍历为ABDECF，可以确定二叉树的根为 A，这样二叉树的左子树的前序遍历
31、为 BDE、中序遍历为 DBE。在左子树中，可以确定 B 为根，D 为左子树，E 为右子树。同样的方法可以确定右子树。38.如果类 C 继承类 B，类 B 继承类 A，则类 C 继承类 A，这说明继承具 【3】 。（分数：2.00）填空项 1:_ （正确答案：传递性）解析：分析 类的继承具有传递性，如果类 C 继承类 B，类 B 继承类 A，则类 C 继承类 A，这样类 C 不但继承了类 B 定义的特性外，还具有类 A 所定义的全部特性。39.一个模块被多个模块调用，调用这个模块的模块个数称为 【4】 。（分数：2.00）填空项 1:_ （正确答案：扇出）解析：分析 在使用程序结构图宋描述软件
32、时，需要注意以下几个概念：深度：表示控制的层数；上级模块、从属模块：上、下两层模块 a 和 b，且有 a 调用 b，则 a 是上级模块，b 是从属模块；宽度：整体控制跨度(最大模块数的层)的表示：扇入：调用一个给定模块的模块个数；扇出：一个模块直接调用的其他模块个数；原子模块：树中位于叶子结点的模块。40.数据库管理系统常见的数据模型有层次模型、网状模型和 【5】 3 种。（分数：2.00）填空项 1:_ （正确答案：关系模型）解析：分析 数据库管理系统是位于用户与操作系统之间的一层系统管理软件，是一种系统软件，是用户与数据库之间的一个标准接口，其总是基于某种数据模型，可以分为层次模型、网状模
33、型和关系模型。41.一个控件在窗体上的位置由 【6】 属性决定，其大小由 Width 和 Height 属性决定。（分数：2.00）填空项 1:_ （正确答案：Top 和 Left）解析：分析 一个控件在窗体上的位置由 Top 和 Left 属性决定，其大小由 Width 和 Height 属性决定。42.启动窗体在“工程属性”对话框中指定，为了打开该对话框，应执行 【7】 菜单中的 【8】 命令。（分数：4.00）填空项 1:_ （正确答案：7工程8(工程名)属性）解析：分析 一个 Visual Basic 的工程文件可以包含多个窗体文件及其他类型的文件。运行 Visual Basic 程序
34、时的启动窗体可以由设计者指定。指定启动窗体的操作可以在“工程”菜单中的“工程属性”窗口中进行。在“工程属性”窗口中，对应于“启动对象”的列表框中列出了当前工程文件中所有的窗体名称，可以从中指定一个作为启动窗体。默认情况下，创建工程文件时建立的第一个窗体为启动窗体。43.以下程序用宋输出 20 个在开区间(10，87)中的随机整数 R，每行输出 4 个整数。请完善下列程序。Private Sub Command1_Click()For I = 1 To 10R = 【9】 Print R；If I Mod 4=0 Then PrintNext IEnd Sub（分数：2.00）填空项 1:_ （
35、正确答案：Int(Rnd*76+11)）解析：分析 本题目首先是要产生开区间(10，87)上的随机整数，根据 Int 函数的用法，应该使用Int(Rnd*76+11)，注意因为开区间(10，87)从 11 开始，所以不能使用数字 10。至于换行，根据题意当I=4、8 等能被 4 整除的数值时输出换行符号，可使用 Mod 语句。44.在 Visual Basic 中，用于管理文件系统的 3 个控件是文件列表框、目录列表框和 【10】 。（分数：2.00）填空项 1:_ （正确答案：驱动器列表框）解析：分析 在 Visual Basic 中，用于管理文件系统的 3 个控件是文件列表框、目录列表框和
36、驱动器列表框。45.为了能自动放大或缩小图像框中的图形以与图像框的大小相适应，必须将该图像框的 Stretch 属性设置为 【11】 。（分数：2.00）填空项 1:_ （正确答案：True）解析：分析 Stretch 属性只用于图像框，用来自动调整图像框中图形内容的大小。它既可通过属性窗口设置，也可通过程序代码设置。46.能判断是否到达文件尾的函数是 【12】 。（分数：2.00）填空项 1:_ （正确答案：EOF）解析：分析 EOF 函数返回一个 Integer，它包含 Boolean 值 True，表明已经到达为 Random 或顺序Input 打开的文件末尾。47.下列程序的功能是将数
37、组中的奇数相加。给定的程序不完整，请将程序补充完整。Option Base 1Private Sub form_Click()Dim k As IntegerDim Total As IntegerDim nn = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)For k = 1 To UBound(n)If 【13】 ThenTotal = Total + n(k)End IfNext kPrint TotalEnd Sub（分数：2.00）填空项 1:_ （正确答案：n(k)Mod 20 或 n(k)Mod 2=1 或 n(k)/2 Int(n(k)/2)或n(k
38、)/2-Int(n(k)/2)0）解析：分析 判定奇数的条件是数据除以 2 的余数不为 0。48.有下列程序：Private Sub Command1_Click()Dim i As IntegerDim arrY(5)As IntegerFor i = 0 To 4arrY (i) = 5Next iDim arrZ(5)As StringFor i = 0 To 4arrZ(i)= “hello“Next iDim arrX(2)AS VariantarrX(1)=arrY()arrX(2)=arr2()Text1.Text=arrX(1) (2)Text2.Text=arrX(2) (3
39、)End Sub程序运行后，单击命令按钮，在文本框 Text1 和 Text2 中分别显示的内容是 【14】 和 【15】 。（分数：4.00）填空项 1:_ （正确答案：14515hello）解析：分析 程序可以运行通过。本题主要考查数组的运算，题中的 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。
