1、二级 VISUAL+BASIC 笔试-98 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.在面向对象方法中，一个对象请求另一对象为其服务的方式是通过发送_。（分数：2.00）A.调用语句B.命令C.口令D.消息2.数据库技术处于数据库系统阶段的时间段是_。（分数：2.00）A.60 年代后期到现在B.60 年代到 80 年代中期C.80 年代以前D.70 年代以前3.以下关于多重窗体程序的叙述中，错误的是_。（分数：2.00）A.用 Hide 方法不但可以隐藏窗体，而且能清除内存中的窗体B.在多重窗口程序中，各窗体的菜单是彼此独立的C.在
2、多重窗口程序中，可以根据需要指定启动窗体D.对于多重窗口程序，需要单独保存每个窗体4.数据库设计包括两个方面的设计内容，它们是_。（分数：2.00）A.概念设计和逻辑设计B.模式设计和内模式设计C.内模式设计和物理设计D.结构特性设计和行为特性设计5.窗体文件的扩展名是_。（分数：2.00）AfrmBvbpCbasDfrx6.为了提高测试的效率，应该_。（分数：2.00）A.随机地选取测试数据B.取一切可能的输入数据作为测试数据C.在完成编码以后制定软件的测试计划D.选择发现错误可能性大的数据作为测试数据7.运行下列程序：Private Sub Command1_Click( )x = 0Do
3、 While x 10x = x * x + 1y = y + xLoopMsgBox yEnd Sub单击 Command1 命令按钮后，则弹出的消息对话框中显示_。（分数：2.00）A.5B.8C.26D.348.在设计阶段，当双击窗体上的某一个文本框控件时，系统将在代码窗口中显示该文本框控件的事件过程模板。（分数：2.00）A.ClickB.DblClickC.ChangeD.GotFocus9.下列关于栈的叙述中正确的是_。（分数：2.00）A.在栈中只能插入数据B.在栈中只能删除数据C.栈是先进先出的线性表D.栈是先进后出的线性表10.以下叙述正确的是_。（分数：2.00）A.Sel
4、ect Case 语句中的测试表达式可以是任何形式的表达式B.Select Case 语句中的测试表达式只能是数值表达式或字符串表达式C.在执行 Select Case 语句时，所有 Case 子句均按出现的次序被顺序执行D.如下 Select Case 语句中的 Case 表达式是错误的Select Case xCase 1 to 10End Select11.数据流图用于抽象描述一个软件的逻辑模型，数据流图由一些特定的图符构成。下面图符号不属于数据流图的是_。（分数：2.00）A.控制流B.加工C.数据存储D.源和潭12.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件
5、过程：Private Function fun1(n As Integer)As IntegerDim k As IntegerIf n = 1 Thenk = 1Elsek = 1 + fun1(n - 1)* 2End Iffun1 = kEnd FunctionPrivate Sub Command1_Click( )Dim m As Integer, x As Integerx = 4m = fun1(x)Print mEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是_。（分数：2.00）A.4B.6C.9D.1513.窗体上没有任何控件，有下列下列程序：Option Ba
6、se 1Private Sub Form_KeyPress(KeyAscii As Integer)a = Array(5, 2, 7, 6, 9)x = a(1)y = 1If KeyAscii = 13 ThenFor i = 2 To 5If a(i) ml Thenx = a(i)y = iEnd IfNext iEnd IfPrint x; yEnd Sub（分数：2.00）A.5 1B.9 5C.2 2D.7 314.使用 Redim Preserve 可以改变数组的_。（分数：2.00）A.最后一维的大小B.第一维的大小C.所有维的大小D.改变维数和所有维的大小15.假设线性表的
7、长度为 n，则在最坏情况下，冒泡排序法的时间复杂度是_。（分数：2.00）A.log2nB.nlog2nC.n(n-1)D.n(n-1)/216.为了取消窗体的最小化功能，需要把它的一个属性设置为 False，这个属性是_。（分数：2.00）A.ControlBoxB.MinButtonC.EnabledD.MaxButton17.某线性表最常用的运算是插入和删除，插入运算是指在表尾插入一个新元素。删除运算是指删除表头第一个元素，那么采用_存储方式最节省运算时间。（分数：2.00）A.仅有尾指针的单向循环链表B.仅有头指针的单向循环链表C.单向链表D.顺序存储18.Visual Basic 程
8、序中分隔各语句的字符是_。（分数：2.00）A.B.:C./D._19.当利用 Line 方法进行添加图时，以下正确的说法是_。（分数：2.00）A.有 7 种不同的线型，而且不管线宽多少都可以绘制虚线/点划线/点线B.使用 Line(100,100)-(1000,1200)和 Line(100,100)-Step(900,1100)将绘制两条相同位置的直线C.可利用 Line 方法添加矩形，如 Line(300,300)-(2000,2000),BFD.可利用 Line 方法添加矩形，如 Line(300,300)-(2300,2300),B+F20.在窗体上画一个名称为 Command1
9、的命令按钮，然后编写如下事件过程：Private Sub sub1(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer)z = x * x + y * yEnd SubPrivate Sub Command1_Click( )Dim a As Integera = 8Call sub1(1, 2, a)Print aEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是_。（分数：2.00）A.8B.2C.5D.1121.下列说法中正确的是_。为了保存一个 Visual Basic 应用程序，应当：（分数：2.00）A.只
10、保存窗体模块文件(.frm)B.只保存工程文件(.vbp)C.分别保存工程文件和标准模块文件(.bas)D.分别保存工程文件、窗体文件和标准模块文件22.当拖动滚动条中的滚动块时，将触发的滚动条的事件是_。（分数：2.00）A.MoveB.ChangeC.ScrollD.SetFocus23.以下关系表达式中，其值为 False 的是_。（分数：2.00）A.“Base “ “Basic“B.“List1“ “Command1“C.“CASE“ = UCase(“case“)D.“Integer“ “Int“24.执行语句 s = Len(Mid(“study hard“， 1， 5)后，s
11、的值是_。（分数：2.00）A.studyB.hardC.5D.1025.下列程序是将两个文本框(tetx1 和 text2)的内容进行组合，组合后的结果在图片框(Pic1)显示出来。Private Sub Command1_Click( )Dim s1 As String， s2 As Strings1 = Text1.Texts2 = Text2.TextFor i = Len(s1)To 1 Step -1s3 = s3 + Mid(s1， i， 1)+ Mid(s2， i， 1)Next iPic1.Print s3End Sub程序运行后，在 Text1 文本框中输入“ABCDE“，
12、在 Text2 文本框中输入“12345“单击命令按钮，则在 Pic1图片框中显示的内容是_。（分数：2.00）A.E5D4C3B2A1B.ABCDE12345C.12345ABCDED.A1B2C3D4E526.阅读程序：Sub Form_Click( )a = 10: b = 15: c = 20: d = 25Print a; Spc(5); b; Spc(7); cPrint a; Space(8); b; Space(5); cPrint c; Spc(1); “+“; Spc(1); d;Print Spc(1); “ = “; Spc(1); c + dEnd Sub运行上面的程
13、序，单击窗体后，第三行输出结果是_。（分数：2.00）A.20+25=45B.20+25=45C.10 15 20D.20 25 4527.如果 Tab 函数的参数小于 1，则打印位置在第_列。（分数：2.00）A.0B.1C.2D.328.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )Dim a(4)As Integer, x As Integer, sum As Integern = 4: sum = 0a(1)= 1For k = 0 To n - 1For i = 1 To k + 1x = k +
14、2 - ia(x)= a(x)+ a(x - 1)If x n - k Then Exit Forsum = sum + a(x)Next iNext kPrint sumEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是_。（分数：2.00）A.5B.6C.8D.1129.下列叙述中，错误的是_。（分数：2.00）A.数据的存储结构与数据处理的效率密切相关B.数据的存储结构与数据处理的效率无关C.数据的存储结构在计算机中所占的空间不一定是连续的D.一种数据的逻辑结构可以有多种存储结构30.编写如下两个事件过程：Private Sub Form_KeyDown(KeyCode As
15、Integer， Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Print Chr(KeyAscii)End Sub在一般情况下(即不按住 Shift 键和锁定大写)，运行程序，如果按“A“键，则程序的输出是_。（分数：2.00）A.AAB.aAC.AaD.aa31.在窗体上画一个命令按钮和一个标签，其名称分别为 Command1 和 La-bel1，然后编写如下事件过程：Private Sub Command1_Click( )Counter = 0For i =
16、 1 To 4For j = 8 To 1 Step -2Counter = Counter + 1Next jNext iLabel1.Caption = Str(Counter)End Sub程序运行后，单击命令按钮，标签中显示的内容是_。（分数：2.00）A.11B.12C.16D.2032.已知一棵二叉树的前序遍历为 ABDECF，中序遍历为 DBEAFC，则对该树进行后序遍历得到的序列为_。（分数：2.00）A.DEBAFCB.DEFBCAC.DEBCFAD.DEBFCA33.编写如下通用过程：Sub Proc(x As Single， y As Single)t = xx = t
17、/ yy = t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )Dim a As SingleDim b As Singlea = 5b = 4Proc a， bPrint a， bEnd Sub程序运行后，如果单击命令按钮，则输出结果为_。（分数：2.00）A.5 4B.1.25 1C.4 5D.1.25 534.下列程序运行后会出现错误的提示为_。Private Sub Command1_Click( )Dim i As IntegerDim xx = Array(2, 3, 4, 5, 6, 7)For E
18、ach i In xPrint i;Next iEnd Sub（分数：2.00）A.数组的下标超界B.For Each 数组的控制变量必须为变体变量C.关键字 Each 的位子不对D.x 应该定义成数组35.在窗体上画一个命令按钮，然后编写如下代码：Private Sub Command1_Click( )a f2;s1 = f1 + f2f1 = f1 + f2f2 = (12) Next iPrintEnd SubPrivate Sub Command1_Click( )Dim sum As IntegerCall Fibonacci(12， sum)Print “Sum = “; sum
19、End Sub（分数：4.00）填空项 1:_填空项 1:_44.以下程序的功能是：把当前目录下的顺序文件 smtext1.txt 的内容读入内存，并在图片框 Picture1 中显示出来。请填空。Private Sub Command1_Click( )Dim inData As StringOpen “./mText1.txt“ _ As 1Do While Not EOF(1)Input #1, inDataPicture1.Print inDataLoopClose #1End Sub（分数：2.00）填空项 1:_运行下列程序，单击 Command1 命令按钮后，则在窗体上显示第一行
20、和第二行的结果分别是 (14) 和 (15) 。Private Sub Command1_Click( )t = 1: x = 2: y = 3: z = 4If t 0 Or t = x And x y Or y z Thent = fun1(t， z)Print tElset = fun1(x， y)Print tEnd IfPrint xPrint yEnd SubFunction fun1(ByVal x As Integer， ByVal y As Integer)As IntegerDo While y 0t = x / yx = yy = tLoopfun1 = xEnd Fun
21、ction（分数：4.00）填空项 1:_填空项 1:_二级 VISUAL+BASIC 笔试-98 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.在面向对象方法中，一个对象请求另一对象为其服务的方式是通过发送_。（分数：2.00）A.调用语句B.命令C.口令D.消息 解析：2.数据库技术处于数据库系统阶段的时间段是_。（分数：2.00）A.60 年代后期到现在 B.60 年代到 80 年代中期C.80 年代以前D.70 年代以前解析：3.以下关于多重窗体程序的叙述中，错误的是_。（分数：2.00）A.用 Hide 方法不但可以隐藏窗体，而且
22、能清除内存中的窗体 B.在多重窗口程序中，各窗体的菜单是彼此独立的C.在多重窗口程序中，可以根据需要指定启动窗体D.对于多重窗口程序，需要单独保存每个窗体解析：4.数据库设计包括两个方面的设计内容，它们是_。（分数：2.00）A.概念设计和逻辑设计 B.模式设计和内模式设计C.内模式设计和物理设计D.结构特性设计和行为特性设计解析：5.窗体文件的扩展名是_。（分数：2.00）Afrm BvbpCbasDfrx解析：6.为了提高测试的效率，应该_。（分数：2.00）A.随机地选取测试数据B.取一切可能的输入数据作为测试数据C.在完成编码以后制定软件的测试计划D.选择发现错误可能性大的数据作为测试
23、数据 解析：7.运行下列程序：Private Sub Command1_Click( )x = 0Do While x 10x = x * x + 1y = y + xLoopMsgBox yEnd Sub单击 Command1 命令按钮后，则弹出的消息对话框中显示_。（分数：2.00）A.5B.8C.26D.34 解析：8.在设计阶段，当双击窗体上的某一个文本框控件时，系统将在代码窗口中显示该文本框控件的事件过程模板。（分数：2.00）A.ClickB.DblClickC.Change D.GotFocus解析：9.下列关于栈的叙述中正确的是_。（分数：2.00）A.在栈中只能插入数据B.在
24、栈中只能删除数据C.栈是先进先出的线性表D.栈是先进后出的线性表 解析：10.以下叙述正确的是_。（分数：2.00）A.Select Case 语句中的测试表达式可以是任何形式的表达式B.Select Case 语句中的测试表达式只能是数值表达式或字符串表达式 C.在执行 Select Case 语句时，所有 Case 子句均按出现的次序被顺序执行D.如下 Select Case 语句中的 Case 表达式是错误的Select Case xCase 1 to 10End Select解析：11.数据流图用于抽象描述一个软件的逻辑模型，数据流图由一些特定的图符构成。下面图符号不属于数据流图的是_
25、。（分数：2.00）A.控制流 B.加工C.数据存储D.源和潭解析：12.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Function fun1(n As Integer)As IntegerDim k As IntegerIf n = 1 Thenk = 1Elsek = 1 + fun1(n - 1)* 2End Iffun1 = kEnd FunctionPrivate Sub Command1_Click( )Dim m As Integer, x As Integerx = 4m = fun1(x)Print mEnd Sub程序运行后，
26、单击命令按钮，则窗体上显示的内容是_。（分数：2.00）A.4B.6C.9D.15 解析：13.窗体上没有任何控件，有下列下列程序：Option Base 1Private Sub Form_KeyPress(KeyAscii As Integer)a = Array(5, 2, 7, 6, 9)x = a(1)y = 1If KeyAscii = 13 ThenFor i = 2 To 5If a(i) ml Thenx = a(i)y = iEnd IfNext iEnd IfPrint x; yEnd Sub（分数：2.00）A.5 1B.9 5 C.2 2D.7 3解析：14.使用 R
27、edim Preserve 可以改变数组的_。（分数：2.00）A.最后一维的大小 B.第一维的大小C.所有维的大小D.改变维数和所有维的大小解析：15.假设线性表的长度为 n，则在最坏情况下，冒泡排序法的时间复杂度是_。（分数：2.00）A.log2nB.nlog2nC.n(n-1)D.n(n-1)/2 解析：16.为了取消窗体的最小化功能，需要把它的一个属性设置为 False，这个属性是_。（分数：2.00）A.ControlBoxB.MinButton C.EnabledD.MaxButton解析：17.某线性表最常用的运算是插入和删除，插入运算是指在表尾插入一个新元素。删除运算是指删除
28、表头第一个元素，那么采用_存储方式最节省运算时间。（分数：2.00）A.仅有尾指针的单向循环链表 B.仅有头指针的单向循环链表C.单向链表D.顺序存储解析：18.Visual Basic 程序中分隔各语句的字符是_。（分数：2.00）A.B.: C./D._解析：19.当利用 Line 方法进行添加图时，以下正确的说法是_。（分数：2.00）A.有 7 种不同的线型，而且不管线宽多少都可以绘制虚线/点划线/点线B.使用 Line(100,100)-(1000,1200)和 Line(100,100)-Step(900,1100)将绘制两条相同位置的直线 C.可利用 Line 方法添加矩形，如
29、Line(300,300)-(2000,2000),BFD.可利用 Line 方法添加矩形，如 Line(300,300)-(2300,2300),B+F解析：20.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub sub1(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer)z = x * x + y * yEnd SubPrivate Sub Command1_Click( )Dim a As Integera = 8Call sub1(1, 2, a)Print aEnd S
30、ub程序运行后，单击命令按钮，则窗体上显示的内容是_。（分数：2.00）A.8 B.2C.5D.11解析：21.下列说法中正确的是_。为了保存一个 Visual Basic 应用程序，应当：（分数：2.00）A.只保存窗体模块文件(.frm)B.只保存工程文件(.vbp)C.分别保存工程文件和标准模块文件(.bas)D.分别保存工程文件、窗体文件和标准模块文件 解析：22.当拖动滚动条中的滚动块时，将触发的滚动条的事件是_。（分数：2.00）A.MoveB.ChangeC.Scroll D.SetFocus解析：23.以下关系表达式中，其值为 False 的是_。（分数：2.00）A.“Bas
31、e “ “Basic“ B.“List1“ “Command1“C.“CASE“ = UCase(“case“)D.“Integer“ “Int“解析：24.执行语句 s = Len(Mid(“study hard“， 1， 5)后，s 的值是_。（分数：2.00）A.studyB.hardC.5 D.10解析：25.下列程序是将两个文本框(tetx1 和 text2)的内容进行组合，组合后的结果在图片框(Pic1)显示出来。Private Sub Command1_Click( )Dim s1 As String， s2 As Strings1 = Text1.Texts2 = Text2.
32、TextFor i = Len(s1)To 1 Step -1s3 = s3 + Mid(s1， i， 1)+ Mid(s2， i， 1)Next iPic1.Print s3End Sub程序运行后，在 Text1 文本框中输入“ABCDE“，在 Text2 文本框中输入“12345“单击命令按钮，则在 Pic1图片框中显示的内容是_。（分数：2.00）A.E5D4C3B2A1 B.ABCDE12345C.12345ABCDED.A1B2C3D4E5解析：26.阅读程序：Sub Form_Click( )a = 10: b = 15: c = 20: d = 25Print a; Spc(5
33、); b; Spc(7); cPrint a; Space(8); b; Space(5); cPrint c; Spc(1); “+“; Spc(1); d;Print Spc(1); “ = “; Spc(1); c + dEnd Sub运行上面的程序，单击窗体后，第三行输出结果是_。（分数：2.00）A.20+25=45 B.20+25=45C.10 15 20D.20 25 45解析：27.如果 Tab 函数的参数小于 1，则打印位置在第_列。（分数：2.00）A.0B.1 C.2D.3解析：28.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private
34、 Sub Command1_Click( )Dim a(4)As Integer, x As Integer, sum As Integern = 4: sum = 0a(1)= 1For k = 0 To n - 1For i = 1 To k + 1x = k + 2 - ia(x)= a(x)+ a(x - 1)If x n - k Then Exit Forsum = sum + a(x)Next iNext kPrint sumEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是_。（分数：2.00）A.5B.6C.8D.11 解析：29.下列叙述中，错误的是_。（分数：2.
35、00）A.数据的存储结构与数据处理的效率密切相关B.数据的存储结构与数据处理的效率无关 C.数据的存储结构在计算机中所占的空间不一定是连续的D.一种数据的逻辑结构可以有多种存储结构解析：30.编写如下两个事件过程：Private Sub Form_KeyDown(KeyCode As Integer， Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Print Chr(KeyAscii)End Sub在一般情况下(即不按住 Shift 键和锁定大写)，运行程序，如果按
36、“A“键，则程序的输出是_。（分数：2.00）A.AAB.aAC.Aa D.aa解析：31.在窗体上画一个命令按钮和一个标签，其名称分别为 Command1 和 La-bel1，然后编写如下事件过程：Private Sub Command1_Click( )Counter = 0For i = 1 To 4For j = 8 To 1 Step -2Counter = Counter + 1Next jNext iLabel1.Caption = Str(Counter)End Sub程序运行后，单击命令按钮，标签中显示的内容是_。（分数：2.00）A.11B.12C.16 D.20解析：32
37、.已知一棵二叉树的前序遍历为 ABDECF，中序遍历为 DBEAFC，则对该树进行后序遍历得到的序列为_。（分数：2.00）A.DEBAFCB.DEFBCAC.DEBCFAD.DEBFCA 解析：33.编写如下通用过程：Sub Proc(x As Single， y As Single)t = xx = t / yy = t Mod yEnd Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )Dim a As SingleDim b As Singlea = 5b = 4Proc a， bPrint a， bEnd Sub程序运行后，
38、如果单击命令按钮，则输出结果为_。（分数：2.00）A.5 4B.1.25 1 C.4 5D.1.25 5解析：34.下列程序运行后会出现错误的提示为_。Private Sub Command1_Click( )Dim i As IntegerDim xx = Array(2, 3, 4, 5, 6, 7)For Each i In xPrint i;Next iEnd Sub（分数：2.00）A.数组的下标超界B.For Each 数组的控制变量必须为变体变量 C.关键字 Each 的位子不对D.x 应该定义成数组解析：35.在窗体上画一个命令按钮，然后编写如下代码：Private Sub
39、Command1_Click( )a f2;s1 = f1 + f2f1 = f1 + f2f2 = (12) Next iPrintEnd SubPrivate Sub Command1_Click( )Dim sum As IntegerCall Fibonacci(12， sum)Print “Sum = “; sumEnd Sub（分数：4.00）填空项 1:_ （正确答案：f2=1）解析：填空项 1:_ （正确答案：f1+f2）解析：44.以下程序的功能是：把当前目录下的顺序文件 smtext1.txt 的内容读入内存，并在图片框 Picture1 中显示出来。请填空。Private
40、 Sub Command1_Click( )Dim inData As StringOpen “./mText1.txt“ _ As 1Do While Not EOF(1)Input #1, inDataPicture1.Print inDataLoopClose #1End Sub（分数：2.00）填空项 1:_ （正确答案：For Input）解析：运行下列程序，单击 Command1 命令按钮后，则在窗体上显示第一行和第二行的结果分别是 (14) 和 (15) 。Private Sub Command1_Click( )t = 1: x = 2: y = 3: z = 4If t 0 Or t = x And x y Or y z Thent = fun1(t， z)Print tElset = fun1(x， y)Print tEnd IfPrint xPrint yEnd SubFunction fun1(ByVal x As Integer， ByVal y As Integer)As IntegerDo While y 0t = x / yx = yy = tLoopfun1 = xEnd Function（分数：4.00）填空项 1:_ （正确答案：4）解析：填空项 1:_ （正确答案：2）解析：
