1、二级 VISUAL+BASIC 笔试-356 及答案解析(总分：104.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.通用对话框 CommonDialog 中的方法（分数：2.00）A.ShowOpen ShowSave ShowColor ShowFont ShowPrinterShowHelpB.ShowOpen ShowClose ShowColorShowFont ShowPrinterShowHelpC.ShowOpen ShowSaveShowFontShowPrinterShowHelpD.ShowOpenShowCloseShowFontShowP
2、rinter ShowHelp2.单击次命令按钮后，下列程序的执行结果是Private Sub Command1_Click( )S=P(1)+P(2)+P(3)+P(4) Print SEnd SubPublic Function P(N As Integer)Static SumFor i=1 To NSum=Sum+i Next iP=SumEnd Function（分数：2.00）A.15B.25C.35D.453.运行以下程序后，输出的图形是Private Sub Command1_Click( )Line(500，500)-(1000，500)Line(750，300)-(750，
3、700)End Sub（分数：2.00）A.一条折线B.两条分离的直线段C.一个伞形图形D.一个+字形图形4.下列程序段的执行结果为Dim A(10，10) For 1=2 To 4For J=4 To 5 A(I，J)=I*JNext JNext IPrint A(2，5)+A(3，4)+A(4，5)（分数：2.00）A.22B.42C.32D.525.代数|3e+lgx+arctgy|对应的 Visual Basic 表达式是（分数：2.00）A.Abs(e3+lg(x)+1/Tg(y)B.Abs(Exp(3)+Log(x)/Log(10)+Atn(y)C.Abs(Exp(3)+Log(x
4、)+Atn(y)D.Abs(Exp(3)+Log(x)+1/Atn(y)6.下列语句错误的是（分数：2.00）A.If a=3 And b=2 Then c=3 End IfB.If a=1 Thenc=2Else lf a=2End lfC.If a=3 And b=2 Then c=2Else If a=2 ThenD.If a =1 Then c=2c=3End lf7.下列程序的执行结果为Private Sub Command1_C1ick( )Dim sl As String，s2 AS Strings1=“abcdef“Call lnvert(s1，s2)Print s2End S
5、ubPrivate Sub lnvert(ByVal xstr As String，ystr As String)Dim tempstr As Stdngi=Len(xstr)Do While i=1tempstr=tempstr+Mid(xstr，i，1)i=i-1Loopystr=tempstr End Sub（分数：2.00）A.fedcbaB.abcdefC.afbecdD.defabc8.数据库系统的核心是（分数：2.00）A.数据模型B.数据库管理系统C.软件工具D.数据库9.在窗体中添加个名称为 Command1 的命令按钮，然后编写如下代码： Function F(a As I
6、nteger)b=0Static cb=b+1C=c+1F=a+b+cEnd FunctionPrivate Sub Command1_Click( ) Dim a As IntegerDim b As Integera=2For i=l To 3b=F(a)Print bNext iEnd Sub程序运行后，如果单击按钮，则在窗体上显示的内容是（分数：2.00）A.4 44B.456C.567D.55510.下列程序段，在运行时，最早输出的内容是a=2C=1AAA：C=C+aIf c10 ThenPrint cCoTo AAAE1sePrint“10 以内的奇数显示完毕。End If（分数：
7、2.00）A.3B.7C.9D.611.在软件开发中，下面任务不属于设计阶段的是 （分数：2.00）A.数据结构设计B.给出系统模块结构C.定义模块算法D.定义需求并建立系统模型12.假定有以下程序段：For i=1 To 4For j=5 To 1 Step-1Print i*jNext jNext i则语句 printi 叫的执行次数是（分数：2.00）A.20B.16C.17D.1813.下列模式中，能够给出数据库物理存储结构与物理存取方法的是（分数：2.00）A.内模式B.外模式C.概念模式D.逻辑模式14.在窗体中添加一个名称为 Text1 的文本框和一个名称为 Command1 的
8、命令按钮，然后编写如下代码：Private Sub Command1_Click( )Dimaarray1(10，10)As IntegerDim i，j As IntegerFor i=1 To 3For j=2 T0 4 Array1(i，j)=i+jNext jNext iText1.Text=array1 (2，3)+array1(3，4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是（分数：2.00）A.12B.13C.14D.1515.下列叙述中正确的是（分数：2.00）A.数据库系统是一个独立的系统，不需要操作系统的支持B.数据库设计是指设计数据库管理系统C.数据库
9、技术的根本目标是要解决数据共享的问题D.数据库系统中，数据的物理结构必须与逻辑结构一致16.以下数据结构中不属于线性数据结构的是（分数：2.00）A.队列B.线性表C.二叉树D.栈17.以下语句错误的是（分数：2.00）A.If a=1 And b=2 Then C=3 End lfB.If a1 ThenC=2Else lf a=2 ThenC=2End lfC.If a=1 Then C=3 End IfD.If a=1 ThenC=2E1se If a=2 ThenC=2End lfEud If18.下列程序的执行结果为a=100b=50If ab Thena=a+bElse b=b-a
10、Print a，b（分数：2.00）A.50 50B.150 50C.200 200D.10 1019.阅读下列程序：Private Sub Command1_Click( )Dim i As Integer，k As Integerk=2For i=1 To 3Print H(k)；Next iEnd Sub Function H(j As Integer)a=0Static ba=a+1b=b+1H=a*b+jEnd Function程序运行后，单击命令按钮输出结果是（分数：2.00）A.234B.345C.567D.35620.在窗体中画一个命令按钮，然后编写以下事件过程： Privat
11、e Sub Command1Click( )For X5 To 2.5 Step-6Next XPrint X End Sub程序运行后，输出的结果是（分数：2.00）A.22B.25C.29D.-121.执行以下 Command1 的 Click 事件过程在窗体上显示Option Base 1Private Sub Command1_Click( )Dim a a=Array(“a”，“b”，“c”，“d”，“e”，“f”，“g”)Printa(1)；a(3)；a(5)End Sub（分数：2.00）A.abcB.bdfC.aceD.出错22.下列不能打开工具箱窗口的操作是（分数：2.00）
12、A.执行“视图”菜单中的“工具箱”按钮B.按 Alt+F8C.单击工具栏上的“工具箱”按钮D.按 Alt+v 键，然后按 Alt+x 键23.下列过程定义语句中，形参个数为不确定数量的过程是（分数：2.00）A.Pnvate Sub Pr03(x As Double，y As Single)B.Pdrate Sub Pr03(Arr(3)，Option x，Option y)C.Private Sub Pr03(ByRefx，ByVoly，Arr( )D.PrivateSubPr03(ParamArrayArr( )24.在一棵二叉树上第 5 层的结点数最多是（分数：2.00）A.gB.16C
13、.32D.1525.下面描述中，符合结构化程序设计风格的是（分数：2.00）A.使用顺序、选择和重复(循环)三种基本控制结构表示程序的控制逻辑 B.模块只有一个入口，可以有多个出口C.注重提高程序的执行效率D.不使用 GOTO 语句26.在窗体中添加名称为 Command1 和名称为 Command2 的命令按钮以及文本框 Text1，然后编写如下代码：Private Sub Command1_Click( )Text1.Text=“AB“End SubPrivate Sub Command2_Cliek( )Text1.Text=“CD“End Sub首先单击 Command1 按钮，然后再
14、单击 Command2 按钮，在文本框中显示（分数：2.00）A.ABB.CDC.ABEDD.CDAB27.有如下程序Private Sub Command1_Chck( )s=0 DOs=(s+1) *(s+2)N=N+1Loop Until s=10Prim N；sEnd Sub运行后的输出结果是（分数：2.00）A.0 1B.30 30C.4 30D.2 1228.单击命令按钮时，下列程序的执行结果为Prirate Sub Command1_CUck( )Dim x As Integer，y As Integcrx=12：y=32 Call PCS(x，y)Print x；yEnd Su
15、bPublic Sub PCS(ByVal n As Integer，ByVnl m As Integer)n=n Mod 10m=m Mod 10End Sub（分数：2.00）A.1232B.232C.23D.12329.以下关于窗体的描述正确的是 （分数：2.00）A.只有用于启动的窗体可以有菜单B.窗体事件和其中所有控件事件的代码都放在窗体文件中C.窗体的名字和存盘的窗体文件名必须相同D.开始运行时窗体的位置只能是设计阶段时显示的位置30.在结构化方法中，用数据流程图(DFD.作为描述工具的软件开发阶段是（分数：2.00）A.可行性分析B.需求分析C.详细设计D.程序编码31.下面概念
16、中，不属于面向对象方法的是（分数：2.00）A.对象B.继承C.类D.过程调用32.在窗体中添加一个命令按钮(其 Name 属性为 Command1)，然后编写如下代码： Pfivme Sub Command1_Click( )score=Iht(Rnd*10)+70Select Case score Case ls60 a=“F”Case 60 T069 a=“D”Case 70 To 79a=“C” Case 80 To 89a=“B”Case Else a=“A”End Select Print aSEnd Sub 程序运行后，单击命令按钮，输出结果是（分数：2.00）A.AB.BC.C
17、D.D33.在窗体中添加一个冬称为 Command1 的命令按钮，然后编写如下程序：Private Sub Command1_Click( )Prim Tab(1)；“第一”，Print Tab(6)；“第二”，End Sub程序运行后，如果单击命令按钮，在窗体上显示的内容是(口表示空格)（分数：2.00）A.第一口口第B.第一第二口口C.第一口口第二D.第一口口第二34.在窗体上添加个文本框，名为 Text1，然后编写如下的 Load 事件过程，则程序的运行结果是Private Sub Form_Load( )Text1.Text=”Text1.Setfocust=1For k=10 To
18、6 Step-2t=t*k Next kText1.Text=tEnd Sub （分数：2.00）A.在文本框中显示 120B.文本框仍为空C.在文本框中显示 480D.出错35.下面叙述正确的是（分数：2.00）A.算法的执行效率与数据的存储结构无关B.算法的空间复杂度是指算法程序中指令(或语句)的条数 c算法的有穷性是指算法必须能在执行有限个步骤后终止 D以上三种描述都不对二、填空题(总题数：11，分数：34.00)36.算法的复杂度主要包括 【1】 复杂度和空间杂度。（分数：2.00）填空项 1:_37.数据库逻辑结构在计算机存储空间中的存放形式称为数据的 【2】 。（分数：2.00）填
19、空项 1:_38.若按功能划分，软件测试的方法通常分为白盒测试方法和 【3】 测试方法。（分数：2.00）填空项 1:_39.如果一个工人可管理多个设备，而一个设备只被一个工人管理，则实体“工人”与实体“设备”之间存在 【4】 的联系（分数：2.00）填空项 1:_40.关系数据库管理系统能实现的专门关系运算包括选择、连接和 【5】 。（分数：2.00）填空项 1:_41.表达式“12+34”的值是 【6】 ，表达式“12”&“34”的值是 【7】 。（分数：4.00）填空项 1:_42.假定建立了一个工程，该工程包括两个窗体，其名称分别为 Form1 和 Fom2，启动窗体为 Form1。在
20、Form1 上面画一个命令按钮 Command1，程序运行后，要求当单击该命令按钮时，Form1 窗体消失，显示Form2，请在 【8】 和 【9】 处将程序补充完整。Private Sub Command1_Click( )【8】 form2 【9】 End Sub（分数：8.00）填空项 1:_43.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )a=Val(1nputBox(“请输入一个整数”)b=Val(1nputBox(“请输入一个整数”)Print a+bEnd Sub程序运行后，单击命令按钮，在输入对话框中分别输入 12 和
21、 34，输出结果为 【10】 （分数：2.00）填空项 1:_44.下面一段程序定义了一个名字为“books”的记录，其 4 个域的域名及数据类型如下：域名 数据类型 数据长度title 字符型 40 author 字符型 20price 单精度实型 10请将下面 【11】 补充完整。Type bookstitle As String*40author As string*20Price 【11】 End Type（分数：2.00）填空项 1:_45.在窗体中添加一个命令按钮，(其 Name 属性为 Command1)，然后编写代码。程序的功能是产生 100 个小于 1000(不含 1000)
22、的随机正整数，并统计其中 5 的倍数所占比例。请在【12】和【13】、【14】处填入适当的内容，将程序补充完整。 Private Sub Command1_Click( )Dim a(100)For j=1 To 100a(j)=Int ( 【12】 )If a(j) 【13】 5=0 Then 【14】 Print a(j)Next jPrintprint k/100End Sub（分数：6.00）填空项 1:_46.阅读程序：Sub p(b( ) As Integer)For i=1 To 4b(i)=2*iNext iEnd 5ubPrivate Sub Command1_C1ick(
23、) Dima(1 To 4)As InteSera(1)=5a(2)=6a(3)=7a(4)=8caU p(a)For i=1 To 4Pdnt a(i)Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为【15】。（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试-356 答案解析(总分：104.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.通用对话框 CommonDialog 中的方法（分数：2.00）A.ShowOpen ShowSave ShowColor ShowFont ShowPrinterShowHelp B.Sho
24、wOpen ShowClose ShowColorShowFont ShowPrinterShowHelpC.ShowOpen ShowSaveShowFontShowPrinterShowHelpD.ShowOpenShowCloseShowFontShowPrinter ShowHelp解析：解析 通用对话框 CommonDialog 主要有 Open、Save、Color、Font、Printer、 Help 等几类，分别表示打开、保存、颜色、字体、打印、帮助对话框。注意，通用对话框不存在 ShowClose 这种方法。2.单击次命令按钮后，下列程序的执行结果是Private Sub C
25、ommand1_Click( )S=P(1)+P(2)+P(3)+P(4) Print SEnd SubPublic Function P(N As Integer)Static SumFor i=1 To NSum=Sum+i Next iP=SumEnd Function（分数：2.00）A.15B.25C.35 D.45解析：解析 在被调用过程中，有这样的语句“Static Sum”因为变量 Sum 是局部变量，局部变量除了可以用 Dim 语句声明外，还可用 Static 语句将变量声明为静态变量，它在程序运行过程中可保留变量的值，这就是说每次调用过程中，用 Static 说明的变量保持
26、原来的值。具体过程分析如下：调用 P(1)，所以在调用过程中 N=1，执行 For Next 循环，P(1)=Sum=1；调用 P(2)，所以在调用过程中 N=2，执行 ForNext 循环，P(2)=Sum=4；调用 P(3)，所以在调用过程中 N=3，执行 For Next 循环，P(3)=Sum=10；调用 P(4)，所以在调用过程中 N=4，执行 For Next 循环，P(4)=Sum=20；不难看出，最后输出的结果 S 值应为 1+4+10+20=35。3.运行以下程序后，输出的图形是Private Sub Command1_Click( )Line(500，500)-(1000，
27、500)Line(750，300)-(750，700)End Sub（分数：2.00）A.一条折线B.两条分离的直线段C.一个伞形图形D.一个+字形图形 解析：解析 Linc 方法与 Move 方法都是 Visual Basic 很重要的方法，历年试题至今未考过 Line 方法的使用，值得关注。本题实际上是划了一个+字形图形，横线的起始点为(500，500)，终点为(1000，500)；纵线的起始点为(750，300)，终点为(750，700)。考生可以画直角坐标系统进行模拟。4.下列程序段的执行结果为Dim A(10，10) For 1=2 To 4For J=4 To 5 A(I，J)=I
28、*JNext JNext IPrint A(2，5)+A(3，4)+A(4，5)（分数：2.00）A.22B.42 C.32D.52解析：解析 根据题意，该二维数组的赋值方法为 A(1，J)=I*J，故 A(2，5)、 A(4，5)的值分别为10、12、20。相加的结果为 42。5.代数|3e+lgx+arctgy|对应的 Visual Basic 表达式是（分数：2.00）A.Abs(e3+lg(x)+1/Tg(y)B.Abs(Exp(3)+Log(x)/Log(10)+Atn(y) C.Abs(Exp(3)+Log(x)+Atn(y)D.Abs(Exp(3)+Log(x)+1/Atn(y)
29、解析：解析 Visual Basic 有它自己的一套数据符号，编程时要遵守这套规则，否则系统将无法编译程序。本题中绝对值用 Abs 表示；3e 用 Exp(3)表示。由于 Visual Basic 没有提供与 lS 对应的函数，故lgx 表示为 Log(x)/Log(10)，arctg 用 Atn 表示。6.下列语句错误的是（分数：2.00）A.If a=3 And b=2 Then c=3 End IfB.If a=1 Thenc=2Else lf a=2End lf C.If a=3 And b=2 Then c=2Else If a=2 ThenD.If a =1 Then c=2c=3
30、End lf解析：解析 If 语句有单行语句与块结构两种。A、D 为单行语句，C 为块结构语句，而 B 由于缺少 Else lf 后面的语句块而不全。7.下列程序的执行结果为Private Sub Command1_C1ick( )Dim sl As String，s2 AS Strings1=“abcdef“Call lnvert(s1，s2)Print s2End SubPrivate Sub lnvert(ByVal xstr As String，ystr As String)Dim tempstr As Stdngi=Len(xstr)Do While i=1tempstr=temps
31、tr+Mid(xstr，i，1)i=i-1Loopystr=tempstr End Sub（分数：2.00）A.fedcba B.abcdefC.afbecdD.defabc解析：解析 被调过程 Invert 的参数 xstr，ystr 从主调函数中收到实参 s1，s2 传来的值“abcdef“，过程 Invert 开始声明了两个变量，都是 String 型的：xstr，ystr。2=Len(xstr)以上语句的功能是：i 的值就是 xstr 的长度，此题为 6。程序代码执行 Do WhileLoop 的循环语句。循环体为tempstr=tempstr+Mid(xslr，i,1)，其中变量是
32、1，由 15=Len(xstr)开始的，每循环一次减 1，；此程序段的最后输出的是字符串 s1 的反向输出。8.数据库系统的核心是（分数：2.00）A.数据模型B.数据库管理系统 C.软件工具D.数据库解析：解析 数据库管理系统是一种系统软件，负责数据库中的数据组织、数据操纵、数据维护、控制及保护和数据服务等，因此数据库管理系统是数据库系统的核心。9.在窗体中添加个名称为 Command1 的命令按钮，然后编写如下代码： Function F(a As Integer)b=0Static cb=b+1C=c+1F=a+b+cEnd FunctionPrivate Sub Command1_Cl
33、ick( ) Dim a As IntegerDim b As Integera=2For i=l To 3b=F(a)Print bNext iEnd Sub程序运行后，如果单击按钮，则在窗体上显示的内容是（分数：2.00）A.4 44B.456 C.567D.555解析：解析 解题的关键是理解 Static 定义变量，使变量具有的数据存储功能。本题在 For i 的三次循环中，每调用一次函数过程 F(a)，c 的值都会在上次调用的基础上加 1，b 的数值保持不变，a 的数值也保持不变，故单击按钮时，窗体上显示的内容为 B 项内容，即数值分别为 4、5、6。10.下列程序段，在运行时，最早输
34、出的内容是a=2C=1AAA：C=C+aIf c10 ThenPrint cCoTo AAAE1sePrint“10 以内的奇数显示完毕。End If（分数：2.00）A.3 B.7C.9D.6解析：解析 在本题中使用了 If 语句与 GoTo 语句。当 c10 时，输出 c，并继续运行；c=10 时，显示“10 以内的奇数显示完毕。“，并结束程序。开始时，a=2，c=1 执行语句 c=c+a 后 c 为 3，小于 10，故输出 c 的值 3。11.在软件开发中，下面任务不属于设计阶段的是 （分数：2.00）A.数据结构设计B.给出系统模块结构C.定义模块算法D.定义需求并建立系统模型 解析：
35、解析 数据结构设汁、给出系统模块结构以及定义模块算法都属于设汁阶段，而定义需求并建立系统模型属于分析阶段。12.假定有以下程序段：For i=1 To 4For j=5 To 1 Step-1Print i*jNext jNext i则语句 printi 叫的执行次数是（分数：2.00）A.20 B.16C.17D.18解析：解析 本题有 2 个 For 循环，外层的 For 循环每执行 1 次，内层的 For 循环都会全部执行 1 次，总执行次数为 4 乘以 5 次。13.下列模式中，能够给出数据库物理存储结构与物理存取方法的是（分数：2.00）A.内模式 B.外模式C.概念模式D.逻辑模式
36、解析：解析 能够给出数据库物理存储结构与物理存取方法的是内模式。外模式是用户的数据视图，也就是用户所见到的数据模式。概念模式是数据库系统中全局数据逻辑结构的描述，是全体用户公共数据视图。没有逻辑模式这一说法。14.在窗体中添加一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下代码：Private Sub Command1_Click( )Dimaarray1(10，10)As IntegerDim i，j As IntegerFor i=1 To 3For j=2 T0 4 Array1(i，j)=i+jNext jNext iText1.Text=arr
37、ay1 (2，3)+array1(3，4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是（分数：2.00）A.12 B.13C.14D.15解析：解析 根据题意，该二维数组的赋值方法为 array1(i，j)，故 array1(3，4)的值分别为 5、7。相加的结果为 12。15.下列叙述中正确的是（分数：2.00）A.数据库系统是一个独立的系统，不需要操作系统的支持B.数据库设计是指设计数据库管理系统C.数据库技术的根本目标是要解决数据共享的问题 D.数据库系统中，数据的物理结构必须与逻辑结构一致解析：解析 数据库系统需要操作系统的支持，必不可少。数据库设计是指设计一个能满足用
38、户要求，性能良好的数据库。数据库应该具有物理独立性和逻辑独立性，改变其一而不影响另一个。16.以下数据结构中不属于线性数据结构的是（分数：2.00）A.队列B.线性表C.二叉树 D.栈解析：解析 所谓的线性结构是指：如果一个非空的数据结构满足下列两个条件，即：1) 有且只有一个根结点；2) 每一个结点最多有一个前件，也最多有一个后件。同时满足两个条件的有队列、线性表和栈，而二叉树的结点可能存在两个后件，所以不是线性结构。17.以下语句错误的是（分数：2.00）A.If a=1 And b=2 Then C=3 End lfB.If a1 ThenC=2Else lf a=2 ThenC=2En
39、d lfC.If a=1 Then C=3 End IfD.If a=1 ThenC=2E1se If a=2 ThenC=2End lfEud If 解析：解析 lf 选择控制结构的两种形式为：“If ThenEnd If”与“If ThenElse If ThenEnd If”，选项 D 的写法是错误的，多出了 End If。18.下列程序的执行结果为a=100b=50If ab Thena=a+bElse b=b-aPrint a，b（分数：2.00）A.50 50B.150 50 C.200 200D.10 10解析：解析 根据题意，当 a 与 b 不相等时，则令 a 等于 a 加 b
40、，据此，当用 Print 语句输出 a 与 b 时，a 的值为 100 加 50 等于 150，b 值仍为 50。19.阅读下列程序：Private Sub Command1_Click( )Dim i As Integer，k As Integerk=2For i=1 To 3Print H(k)；Next iEnd Sub Function H(j As Integer)a=0Static ba=a+1b=b+1H=a*b+jEnd Function程序运行后，单击命令按钮输出结果是（分数：2.00）A.234B.345 C.567D.356解析：解析 被调过程是一个函数过程，它有一个形式
41、参数 j，在被调过程声明中，定义了一个参数 a，初值为 0，一个静态变量 b。语句 a=a+1 和 b=b+1 分别使用 a 和 b 各增加 1，然后返回 H 的值，因为 b 是静态变量，所以每次调用同一个参数 k 时，b 会保留前次的数值，使输出的结果变化，否则每次输出的结果都是一样的。根据分析，第一次调用时 a=1，b=1，H=3；第二次调用：a=1，b=2，H=4；第三次调用：a=1，b=3=,H=5。所以最后的输出结果是 345。20.在窗体中画一个命令按钮，然后编写以下事件过程： Private Sub Command1Click( )For X5 To 2.5 Step-6Next
42、 XPrint X End Sub程序运行后，输出的结果是（分数：2.00）A.22B.25C.29D.-1 解析：解析 For 循环执行之初变量都会在被赋新值(通过加 Step 值)的情况下，先检验此时的值有没有超过终值，如果超过，则终止 For 循环，如果没有超过，则继续下一个循环。本题中，执行完一次循环后，x 值在 5 的基础上加-6，变为-1，此时超过终值 2.5，中止循环，但此时 X 的值为-1。21.执行以下 Command1 的 Click 事件过程在窗体上显示Option Base 1Private Sub Command1_Click( )Dim a a=Array(“a”，
43、“b”，“c”，“d”，“e”，“f”，“g”)Printa(1)；a(3)；a(5)End Sub（分数：2.00）A.abcB.bdfC.ace D.出错解析：解析 根据 Option Basel，可知数组 a 的下标下界为 1，故 a(1)、a(3)、a(5)的值分别为a、c、e。22.下列不能打开工具箱窗口的操作是（分数：2.00）A.执行“视图”菜单中的“工具箱”按钮B.按 Alt+F8 C.单击工具栏上的“工具箱”按钮D.按 Alt+v 键，然后按 Alt+x 键解析：解析 工具箱的打开方式基本有三种：一为单击“视图”菜单后选择“工具箱”按钮；二为单击工具栏上的“工具箱”按钮；三为
44、使用访问键，Alt+V 打开“视图”菜单， Alt+X 打开“工具箱”。故A、C、D、操作方式正确。B 项不能打开 VB 任何功能。23.下列过程定义语句中，形参个数为不确定数量的过程是（分数：2.00）A.Pnvate Sub Pr03(x As Double，y As Single)B.Pdrate Sub Pr03(Arr(3)，Option x，Option y)C.Private Sub Pr03(ByRefx，ByVoly，Arr( )D.PrivateSubPr03(ParamArrayArr( ) 解析：解析 在虚参中，As 关键字用于说明变量或数组的类型；Option 关键字
45、用于说明虚参是可选的ByRef 关键字用于说明传址的数据传送方式；ByVal 关键字用于说明传送的数据传送方式；PararnArray关键字用于说明参数的个数是不确定的，即过程可以接受任意个数的参数。24.在一棵二叉树上第 5 层的结点数最多是（分数：2.00）A.gB.16 C.32D.15解析：解析 根据二叉树的性质，在二叉树的第 k 层上，最多有 2 的 k1 次方个结点。所以，第五层的结点数最多为 16。25.下面描述中，符合结构化程序设计风格的是（分数：2.00）A.使用顺序、选择和重复(循环)三种基本控制结构表示程序的控制逻辑 B.模块只有一个入口，可以有多个出口C.注重提高程序的
46、执行效率D.不使用 GOTO 语句解析：解析 应该选择只有一个入口和一个出口的模块，故 B 选项错误；首先要保证程序正确，然后才能提高效率，故 C 选项错误；严格控制使用 GOTO 语句，必要时可以使用。26.在窗体中添加名称为 Command1 和名称为 Command2 的命令按钮以及文本框 Text1，然后编写如下代码：Private Sub Command1_Click( )Text1.Text=“AB“End SubPrivate Sub Command2_Cliek( )Text1.Text=“CD“End Sub首先单击 Command1 按钮，然后再单击 Command2 按钮
47、，在文本框中显示（分数：2.00）A.ABB.CD C.ABEDD.CDAB解析：解析 当单击 Command1 时，Text1 的 Text 变为 AB；当单击 Command2 时， Text1 的 Text 属性变为 CD。27.有如下程序Private Sub Command1_Chck( )s=0 DOs=(s+1) *(s+2)N=N+1Loop Until s=10Prim N；sEnd Sub运行后的输出结果是（分数：2.00）A.0 1B.30 30C.4 30D.2 12 解析：解析 Until s=10 表示当 s 大于等于 10 时，终止循环，根据题意，循环 2 次，故
48、 N 的值为 2，可以判断答案为 D，另外也可以计算出 s 的值为 12，但由于本题为选择题，可以不计算。直接得到正确答案。28.单击命令按钮时，下列程序的执行结果为Prirate Sub Command1_CUck( )Dim x As Integer，y As Integcrx=12：y=32 Call PCS(x，y)Print x；yEnd SubPublic Sub PCS(ByVal n As Integer，ByVnl m As Integer)n=n Mod 10m=m Mod 10End Sub（分数：2.00）A.1232 B.232C.23D.123解析：解析 函数过程在调用过程时，一般主调与被调过程之间有数据传递，即将主调过程的实参传递给被调用的过程，完成实参与形参的结合，然后执行被调过程，在 Visual Basic 中，实参与形参的结合有两种方式，即传址与传值。这两种方法的特点如下：1) 传址的结合过程时：当调用一个过程时，它将实参的地址传给形参，因此在被调用的过程中，对形参的任何操作都变成了对相应实参的操作，因此实参的值会随形参的改变而改变。2) 传值的结合过程时：当调用一个过程时，系统将实参的值复制给形参并断开了联系，被调用过程中的操作时在形参自己的存储单元
