1、二级 VISUAL+BASIC 笔试 10 及答案解析(总分：92.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.下列过程定义语句中，形参个数为不确定数量的过程是（分数：2.00）A.Pnvate Sub Pr03(x As Double，y As SinglB.Pdrate Sub Pr03(Arr(3)，Option x，OptionC.Private Sub Pr03(ByRefx，ByVoly，Arr( )D.PrivateSubPr03(ParamArrayArr( )2.以下关于窗体的描述正确的是（分数：2.00）A.只有用于启动的窗体可以有菜单
2、B.窗体事件和其中所有控件事件的代码都放在窗体文件中C.窗体的名字和存盘的窗体文件名必须相同D.开始运行时窗体的位置只能是设计阶段时显示的位置3.以下数据结构中不属于线性数据结构的是（分数：2.00）A.队列B.线性表C.二叉树D.栈4.数据库系统的核心是（分数：2.00）A.数据模型B.数据库管理系统C.软件工具D.数据库5.下列程序段的执行结果为 Dim A(10，10) For 1=2 To 4 For J=4 To 5 A(I，J)=I*J Next J Next I Print A(2，5)+A(3，4)+A(4，5)（分数：2.00）A.22B.42C.32D.526.下列程序段，
3、在运行时，最早输出的内容是 a=2 C=1 AAA： C=C+a If c10 Then Print c CoTo AAA E1se Print“10 以内的奇数显示完毕。 End If（分数：2.00）A.3B.7C.9D.67.运行以下程序后，输出的图形是 Private Sub Command1_Click( ) Line(500，500)-(1000，500) Line(750，300)-(750，700) End Sub（分数：2.00）A.一条折线B.两条分离的直线段C.一个伞形图形D.一个+字形图形8.在一棵二叉树上第 5 层的结点数最多是（分数：2.00）A.gB.16C.32
4、D.159.下列叙述中正确的是（分数：2.00）A.数据库系统是一个独立的系统，不需要操作系统的支持B.数据库设计是指设计数据库管理系统C.数据库技术的根本目标是要解决数据共享的问题D.数据库系统中，数据的物理结构必须与逻辑结构一致10.代数|3e+lgx+arctgy|对应的 Visual Basic 表达式是（分数：2.00）A.Abs(e3+lg(+1/Tg()B.Abs(Exp(3)+Log(/Log(10)+Atn()C.Abs(Exp(3)+Log(+Atn()D.Abs(Exp(3)+Log(+1/Atn()11.下面叙述正确的是 A算法的执行效率与数据的存储结构无关 B算法的空
5、间复杂度是指算法程序中指令(或语句)的条数 c算法的有穷性是指算法必须能在执行有限个步骤后终止 D以上三种描述都不对（分数：2.00）A.B.C.D.12.在软件开发中，下面任务不属于设计阶段的是（分数：2.00）A.数据结构设计B.给出系统模块结构C.定义模块算法D.定义需求并建立系统模型13.在窗体中添加一个冬称为 Command1 的命令按钮，然后编写如下程序： Private Sub Command1_Click( ) Prim Tab(1)；“第一”， Print Tab(6)；“第二”， End Sub 程序运行后，如果单击命令按钮，在窗体上显示的内容是(口表示空格)（分数：2.0
6、0）A.第一口口第B.第一第二口口C.第一口口 第二D.第一口口 第二14.在窗体中画一个命令按钮，然后编写以下事件过程： Private Sub Command1Click( ) For X5 To 2.5 Step-6 Next X Print X End Sub 程序运行后，输出的结果是（分数：2.00）A.22B.25C.29D.-115.在窗体上添加个文本框，名为 Text1，然后编写如下的 Load 事件过程，则程序的运行结果是 Private Sub Form_Load( ) Text1.Text=” Text1.Setfocus t=1 For k=10 To 6 Step-2
7、 t=t*k Next k Text1.Text=t End Sub（分数：2.00）A.在文本框中显示 120B.文本框仍为空C.在文本框中显示 480D.出错16.阅读下列程序： Private Sub Command1_Click( ) Dim i As Integer，k As Integer k=2 For i=1 To 3 Print H(k)； Next i End Sub Function H(j As Integer) a=0 Static b a=a+1 b=b+1 H=a*b+j End Function 程序运行后，单击命令按钮输出结果是（分数：2.00）A.234B.
8、345C.567D.35617.下列程序的执行结果为 a=100 b=50 If ab Then a=a+b Else b=b-a Print a，b（分数：2.00）A.50 50B.150 50C.200 200D.10 1018.下列语句错误的是（分数：2.00）A.If a=3 And b=2 Then c=3 End IfB.If a=1 Then c=2Else lf a=2 End lfC.If a=3 And b=2 Then c=2 Else If a=2 ThenD.If a =1 Then c=2 c=3 End lf19.单击命令按钮时，下列程序的执行结果为 Prira
9、te Sub Command1_CUck( ) Dim x As Integer，y As Integcr x=12：y=32 Call PCS(x，y) Print x；y End Sub Public Sub PCS(ByVal n As Integer，ByVnl m As Integer) n=n Mod 10 m=m Mod 10 End Sub（分数：2.00）A.1232B.232C.23D.12320.在窗体中添加名称为 Command1 和名称为 Command2 的命令按钮以及文本框 Text1，然后编写如下代码：Private Sub Command1_Click( )
10、Text1.Text=“AB“ End Sub Private Sub Command2_Cliek( ) Text1.Text=“CD“ End Sub 首先单击 Command1 按钮，然后再单击 Command2 按钮，在文本框中显示（分数：2.00）A.ABB.CDC.ABEDD.CDAB21.下面概念中，不属于面向对象方法的是（分数：2.00）A.对象B.继承C.类D.过程调用22.下面描述中，符合结构化程序设计风格的是（分数：2.00）A.使用顺序、选择和重复(循环)三种基本控制结构表示程序的控制逻辑B.模块只有一个入口，可以有多个出口C.注重提高程序的执行效率D.不使用 GOTO
11、 语句23.在窗体中添加个名称为 Command1 的命令按钮，然后编写如下代码： Function F(a As Integer) b=0 Static c b=b+1 C=c+1 F=a+b+c End Function Private Sub Command1_Click( ) Dim a As Integer Dim b As Integer a=2 For i=l To 3 b=F(a) Print b Next i End Sub 程序运行后，如果单击按钮，则在窗体上显示的内容是（分数：2.00）A.4 4 4B.4 5 6C.5 6 7D.5 5 524.在窗体中添加一个命令按钮
12、(其 Name 属性为 Command1)，然后编写如下代码： Pfivme Sub Command1_Click( ) score=Iht(Rnd*10)+70 Select Case score Case ls60 a=“F” Case 60 T069 a=“D” Case 70 To 79 a=“C” Case 80 To 89 a=“B” Case Else a=“A” End Select Print aS End Sub 程序运行后，单击命令按钮，输出结果是（分数：2.00）A.AB.BC.CD.D25.单击次命令按钮后，下列程序的执行结果是 Private Sub Command
13、1_Click( ) S=P(1)+P(2)+P(3)+P(4) Print S End Sub Public Function P(N As Integer) Static Sum For i=1 To N Sum=Sum+i Next i P=Sum End Function（分数：2.00）A.15B.25C.35D.4526.在窗体中添加一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下代码： Private Sub Command1_Click( ) Dimaarray1(10，10)As Integer Dim i，j As Integer F
14、or i=1 To 3 For j=2 T0 4 Array1(i，j)=i+j Next j Next i Text1.Text=array1 (2，3)+array1(3，4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（分数：2.00）A.12B.13C.14D.1527.假定有以下程序段： For i=1 To 4 For j=5 To 1 Step-1 Print i*j Next j Next i 则语句 printi叫的执行次数是（分数：2.00）A.20B.16C.17D.1828.下列不能打开工具箱窗口的操作是（分数：2.00）A.执行“视图”菜单中的“工
15、具箱”按钮B.按 Alt+F8C.单击工具栏上的“工具箱”按钮D.按 Alt+v 键，然后按 Alt+x 键29.下列模式中，能够给出数据库物理存储结构与物理存取方法的是（分数：2.00）A.内模式B.外模式C.概念模式D.逻辑模式30.执行以下 Command1 的 Click 事件过程在窗体上显示 Option Base 1 Private 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.出错31.通用对
16、话框 CommonDialog 中的方法（分数：2.00）A.ShowOpen ShowSave ShowColor ShowFont ShowPrinter ShowHelpB.ShowOpen ShowClose ShowColor ShowFont ShowPrinter ShowHelpC.ShowOpen ShowSave ShowFont ShowPrinter ShowHelpD.ShowOpen ShowClose ShowFont ShowPrinter ShowHelp32.有如下程序 Private Sub Command1_Chck( ) s=0 DO s=(s+1)
17、*(s+2) N=N+1 Loop Until s=10 Prim N；s End Sub 运行后的输出结果是（分数：2.00）A.0 1B.30 30C.4 30D.2 1233.以下语句错误的是（分数：2.00）A.If a=1 And b=2 Then C=3 End lfB.If a1 Then C=2 Else lf a=2 Then C=2 End lfC.If a=1 Then C=3 End IfD.If a=1 Then C=2E1se If a=2 Then C=2 End lf Eud If34.在结构化方法中，用数据流程图(DFD.作为描述工具的软件开发阶段是（分数：2
18、.00）A.可行性分析B.需求分析C.详细设计D.程序编码35.下列程序的执行结果为 Private Sub Command1_C1ick( ) Dim sl As String，s2 AS String s1=“abcdef“ Call lnvert(s1，s2) Print s2 End Sub Private Sub lnvert(ByVal xstr As String，ystr As String) Dim tempstr As Stdng i=Len(xstr) Do While i=1 tempstr=tempstr+Mid(xstr，i，1) i=i-1 Loop ystr=t
19、empstr End Sub（分数：2.00）A.fedcbaB.abcdefC.afbecdD.defabc二、B填空题/B(总题数：11，分数：22.00)36.算法的复杂度主要包括U 【1】 /U复杂度和空间杂度。（分数：2.00）填空项 1:_37.数据库逻辑结构在计算机存储空间中的存放形式称为数据的U 【2】 /U。（分数：2.00）填空项 1:_38.若按功能划分，软件测试的方法通常分为白盒测试方法和U 【3】 /U测试方法。（分数：2.00）填空项 1:_39.如果一个工人可管理多个设备，而一个设备只被一个工人管理，则实体“工人”与实体“设备”之间存在U 【4】 /U的联系（分数
20、：2.00）填空项 1:_40.关系数据库管理系统能实现的专门关系运算包括选择、连接和U 【5】 /U。（分数：2.00）填空项 1:_41.表达式“12+34”的值是U 【6】 /U，表达式“12”&“34”的值是U 【7】 /U。（分数：2.00）填空项 1:_42.假定建立了一个工程，该工程包括两个窗体，其名称分别为 Form1 和 Fom2，启动窗体为 Form1。在Form1 上面画一个命令按钮 Command1，程序运行后，要求当单击该命令按钮时，Form1 窗体消失，显示Form2，请在U 【8】 /U和U 【9】 /U处将程序补充完整。 Private Sub Command1
21、_Click( ) U【8】 /U form2U 【9】 /U End Sub（分数：2.00）填空项 1:_43.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) a=Val(1nputBox(“请输入一个整数”) b=Val(1nputBox(“请输入一个整数”) Print a+b End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入 12 和 34，输出结果为U 【10】 /U（分数：2.00）填空项 1:_44.下面一段程序定义了一个名字为“books”的记录，其 4 个域的域名及数据类型如下： 域名 数据类型 数
22、据长度 title 字符型 40 author 字符型 20 price 单精度实型 10 请将下面U 【11】 /U补充完整。 Type books title As String*40 author As string*20 PriceU 【11】 /U End Type（分数：2.00）填空项 1:_45.在窗体中添加一个命令按钮，(其 Name 属性为 Command1)，然后编写代码。程序的功能是产生 100 个小于 1000(不含 1000)的随机正整数，并统计其中 5 的倍数所占比例。请在【12】和【13】、【14】处填入适当的内容，将程序补充完整。 Private Sub Co
23、mmand1_Click( ) Dim a(100) For j=1 To 100 a(j)=Int (U 【12】 /U) If a(j)U 【13】 /U5=0 ThenU 【14】 /U Print a(j) Next j Print print k/100 End Sub（分数：2.00）填空项 1:_46.阅读程序： Sub p(b( ) As Integer) For i=1 To 4 b(i)=2*i Next i End 5ub Private Sub Command1_C1ick( ) Dima(1 To 4)As InteSer a(1)=5 a(2)=6 a(3)=7 a
24、(4)=8 caU p(a) For i=1 To 4 Pdnt a(i) Next i End Sub 运行上面的程序，单击命令按钮，输出结果为【15】。（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试 10 答案解析(总分：92.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.下列过程定义语句中，形参个数为不确定数量的过程是（分数：2.00）A.Pnvate Sub Pr03(x As Double，y As SinglB.Pdrate Sub Pr03(Arr(3)，Option x，OptionC.Private Sub Pr03(
25、ByRefx，ByVoly，Arr( )D.PrivateSubPr03(ParamArrayArr( ) 解析：解析 在虚参中，As 关键字用于说明变量或数组的类型；Option 关键字用于说明虚参是可选的ByRef 关键字用于说明传址的数据传送方式；ByVal 关键字用于说明传送的数据传送方式；PararnArray关键字用于说明参数的个数是不确定的，即过程可以接受任意个数的参数。2.以下关于窗体的描述正确的是（分数：2.00）A.只有用于启动的窗体可以有菜单B.窗体事件和其中所有控件事件的代码都放在窗体文件中 C.窗体的名字和存盘的窗体文件名必须相同D.开始运行时窗体的位置只能是设计阶段
26、时显示的位置解析：解析 每个窗体都可以通过菜单编辑器来设计自己的菜单，A 是错误的。窗体的名字(Name)与存盘的窗体文件名可以完全不同，这是两个概念，在工程资源管理器中分别显示了存盘的窗体文件名与窗体的名字。窗体可以通过设计窗体属性或使用程序代码来确定自己在运行时的位置。3.以下数据结构中不属于线性数据结构的是（分数：2.00）A.队列B.线性表C.二叉树 D.栈解析：解析 所谓的线性结构是指：如果一个非空的数据结构满足下列两个条件，即： 1) 有且只有一个根结点； 2) 每一个结点最多有一个前件，也最多有一个后件。同时满足两个条件的有队列、线性表和栈，而二叉树的结点可能存在两个后件，所以不
27、是线性结构。4.数据库系统的核心是（分数：2.00）A.数据模型B.数据库管理系统 C.软件工具D.数据库解析：解析 数据库管理系统是一种系统软件，负责数据库中的数据组织、数据操纵、数据维护、控制及保护和数据服务等，因此数据库管理系统是数据库系统的核心。5.下列程序段的执行结果为 Dim A(10，10) For 1=2 To 4 For J=4 To 5 A(I，J)=I*J Next J Next I Print 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)、
28、 A(4，5)的值分别为10、12、20。相加的结果为 42。6.下列程序段，在运行时，最早输出的内容是 a=2 C=1 AAA： C=C+a If c10 Then Print c CoTo AAA E1se Print“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。7.运行以下程序后，输出的图形是 Pr
29、ivate Sub Command1_Click( ) Line(500，500)-(1000，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)。考生可以画直角坐标系统进行模拟。8.在一棵二叉树上
30、第 5 层的结点数最多是（分数：2.00）A.gB.16 C.32D.15解析：解析 根据二叉树的性质，在二叉树的第 k 层上，最多有 2 的 k1 次方个结点。所以，第五层的结点数最多为 16。9.下列叙述中正确的是（分数：2.00）A.数据库系统是一个独立的系统，不需要操作系统的支持B.数据库设计是指设计数据库管理系统C.数据库技术的根本目标是要解决数据共享的问题 D.数据库系统中，数据的物理结构必须与逻辑结构一致解析：解析 数据库系统需要操作系统的支持，必不可少。数据库设计是指设计一个能满足用户要求，性能良好的数据库。数据库应该具有物理独立性和逻辑独立性，改变其一而不影响另一个。10.代
31、数|3e+lgx+arctgy|对应的 Visual Basic 表达式是（分数：2.00）A.Abs(e3+lg(+1/Tg()B.Abs(Exp(3)+Log(/Log(10)+Atn() C.Abs(Exp(3)+Log(+Atn()D.Abs(Exp(3)+Log(+1/Atn()解析：解析 Visual Basic 有它自己的一套数据符号，编程时要遵守这套规则，否则系统将无法编译程序。本题中绝对值用 Abs 表示；3e 用 Exp(3)表示。由于 Visual Basic 没有提供与 lS 对应的函数，故lgx 表示为 Log(x)/Log(10)，arctg 用 Atn 表示。11
32、.下面叙述正确的是 A算法的执行效率与数据的存储结构无关 B算法的空间复杂度是指算法程序中指令(或语句)的条数 c算法的有穷性是指算法必须能在执行有限个步骤后终止 D以上三种描述都不对（分数：2.00）A.B.C. D.解析：解析 对于 A 选项，算法的执行效率与算法执行过程中所需基本运算的执行次数有关；B 选项，算法的空间复杂度是指执行这个算法所需要的内存空间。12.在软件开发中，下面任务不属于设计阶段的是（分数：2.00）A.数据结构设计B.给出系统模块结构C.定义模块算法D.定义需求并建立系统模型 解析：解析 数据结构设汁、给出系统模块结构以及定义模块算法都属于设汁阶段，而定义需求并建立
33、系统模型属于分析阶段。13.在窗体中添加一个冬称为 Command1 的命令按钮，然后编写如下程序： Private Sub Command1_Click( ) Prim Tab(1)；“第一”， Print Tab(6)；“第二”， End Sub 程序运行后，如果单击命令按钮，在窗体上显示的内容是(口表示空格)（分数：2.00）A.第一口口第B.第一第二口口C.第一口口 第二 D.第一口口 第二解析：解析 Tab(n)表示把光标移到由参数 n 指定的位置，如果当前的显示位置已经超过 n，则自动下移一行。本题由于第一个 Print 方法后接逗号，为 14 个字符的区段，所以第二个 Print
34、 方法显示的字符串会自动换行。14.在窗体中画一个命令按钮，然后编写以下事件过程： Private Sub Command1Click( ) For X5 To 2.5 Step-6 Next X Print X End Sub 程序运行后，输出的结果是（分数：2.00）A.22B.25C.29D.-1 解析：解析 For 循环执行之初变量都会在被赋新值(通过加 Step 值)的情况下，先检验此时的值有没有超过终值，如果超过，则终止 For 循环，如果没有超过，则继续下一个循环。本题中，执行完一次循环后，x 值在 5 的基础上加-6，变为-1，此时超过终值 2.5，中止循环，但此时 X 的值为
35、-1。15.在窗体上添加个文本框，名为 Text1，然后编写如下的 Load 事件过程，则程序的运行结果是 Private Sub Form_Load( ) Text1.Text=” Text1.Setfocus t=1 For k=10 To 6 Step-2 t=t*k Next k Text1.Text=t End Sub（分数：2.00）A.在文本框中显示 120B.文本框仍为空C.在文本框中显示 480D.出错 解析：解析 在触发窗体 Form 的 Load 事件时，使用 SetFocus 将发生冲突，在 Visual Basic 上调试本题的程序将显示“错误的过程调用或函数”提示。
36、如果删除 SetFocus 方法的使用，文本框中将显示480。如果用控制按钮的 Click 事件触发该段事件过程，文本框也会得到 480 的答案，对此，考生不妨自己上机一试。16.阅读下列程序： Private Sub Command1_Click( ) Dim i As Integer，k As Integer k=2 For i=1 To 3 Print H(k)； Next i End Sub Function H(j As Integer) a=0 Static b a=a+1 b=b+1 H=a*b+j End Function 程序运行后，单击命令按钮输出结果是（分数：2.00）A
37、.234B.345 C.567D.356解析：解析 被调过程是一个函数过程，它有一个形式参数 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。17.下列程序的执行结果为 a=100 b=50 If ab Then
38、 a=a+b Else b=b-a Print a，b（分数：2.00）A.50 50B.150 50 C.200 200D.10 10解析：解析 根据题意，当 a 与 b 不相等时，则令 a 等于 a 加 b，据此，当用 Print 语句输出 a 与 b 时，a 的值为 100 加 50 等于 150，b 值仍为 50。18.下列语句错误的是（分数：2.00）A.If a=3 And b=2 Then c=3 End IfB.If a=1 Then c=2Else lf a=2 End lf C.If a=3 And b=2 Then c=2 Else If a=2 ThenD.If a =
39、1 Then c=2 c=3 End lf解析：解析 If 语句有单行语句与块结构两种。A、D 为单行语句，C 为块结构语句，而 B 由于缺少 Else lf 后面的语句块而不全。19.单击命令按钮时，下列程序的执行结果为 Prirate Sub Command1_CUck( ) Dim x As Integer，y As Integcr x=12：y=32 Call PCS(x，y) Print x；y End Sub Public Sub PCS(ByVal n As Integer，ByVnl m As Integer) n=n Mod 10 m=m Mod 10 End Sub（分数：
40、2.00）A.1232 B.232C.23D.123解析：解析 函数过程在调用过程时，一般主调与被调过程之间有数据传递，即将主调过程的实参传递给被调用的过程，完成实参与形参的结合，然后执行被调过程，在 Visual Basic 中，实参与形参的结合有两种方式，即传址与传值。这两种方法的特点如下： 1) 传址的结合过程时：当调用一个过程时，它将实参的地址传给形参，因此在被调用的过程中，对形参的任何操作都变成了对相应实参的操作，因此实参的值会随形参的改变而改变。 2) 传值的结合过程时：当调用一个过程时，系统将实参的值复制给形参并断开了联系，被调用过程中的操作时在形参自己的存储单元中进行的，当过程
41、调用结束的，这些形参所占用的存储单元也同时被释放，因此在过程中对形参的任何操作不会影响实参。而题中被调过程 PCS 中有两个形参，两者均为传值方式。主调过程分别把实参 x、y 传递给 PCS，所以当过程调用结束后，实参 x、y的值都没有改变，最后输出的值应为 1232。20.在窗体中添加名称为 Command1 和名称为 Command2 的命令按钮以及文本框 Text1，然后编写如下代码：Private Sub Command1_Click( ) Text1.Text=“AB“ End Sub Private Sub Command2_Cliek( ) Text1.Text=“CD“ End
42、 Sub 首先单击 Command1 按钮，然后再单击 Command2 按钮，在文本框中显示（分数：2.00）A.ABB.CD C.ABEDD.CDAB解析：解析 当单击 Command1 时，Text1 的 Text 变为 AB；当单击 Command2 时， Text1 的 Text 属性变为 CD。21.下面概念中，不属于面向对象方法的是（分数：2.00）A.对象B.继承C.类D.过程调用 解析：解析 A、B、C 属于面向对象方法，D 属于面向过程方法。22.下面描述中，符合结构化程序设计风格的是（分数：2.00）A.使用顺序、选择和重复(循环)三种基本控制结构表示程序的控制逻辑 B.
43、模块只有一个入口，可以有多个出口C.注重提高程序的执行效率D.不使用 GOTO 语句解析：解析 应该选择只有一个入口和一个出口的模块，故 B 选项错误；首先要保证程序正确，然后才能提高效率，故 C 选项错误；严格控制使用 GOTO 语句，必要时可以使用。23.在窗体中添加个名称为 Command1 的命令按钮，然后编写如下代码： Function F(a As Integer) b=0 Static c b=b+1 C=c+1 F=a+b+c End Function Private Sub Command1_Click( ) Dim a As Integer Dim b As Integer
44、 a=2 For i=l To 3 b=F(a) Print b Next i End Sub 程序运行后，如果单击按钮，则在窗体上显示的内容是（分数：2.00）A.4 4 4B.4 5 6 C.5 6 7D.5 5 5解析：解析 解题的关键是理解 Static 定义变量，使变量具有的数据存储功能。本题在 For i 的三次循环中，每调用一次函数过程 F(a)，c 的值都会在上次调用的基础上加 1，b 的数值保持不变，a 的数值也保持不变，故单击按钮时，窗体上显示的内容为 B 项内容，即数值分别为 4、5、6。24.在窗体中添加一个命令按钮(其 Name 属性为 Command1)，然后编写如
45、下代码： Pfivme Sub Command1_Click( ) score=Iht(Rnd*10)+70 Select Case score Case ls60 a=“F” Case 60 T069 a=“D” Case 70 To 79 a=“C” Case 80 To 89 a=“B” Case Else a=“A” End Select Print aS End Sub 程序运行后，单击命令按钮，输出结果是（分数：2.00）A.AB.BC.C D.D解析：解析 Int (Rnd,10)+70 表示一个大于等于 70 的控数，因为 Rnd 随机产生 0 至 1 之间的数。25.单击次命
46、令按钮后，下列程序的执行结果是 Private Sub Command1_Click( ) S=P(1)+P(2)+P(3)+P(4) Print S End Sub Public Function P(N As Integer) Static Sum For i=1 To N Sum=Sum+i Next i P=Sum End Function（分数：2.00）A.15B.25C.35 D.45解析：解析 在被调用过程中，有这样的语句“Static Sum”因为变量 Sum 是局部变量，局部变量除了可以用 Dim 语句声明外，还可用 Static 语句将变量声明为静态变量，它在程序运行过程
47、中可保留变量的值，这就是说每次调用过程中，用 Static 说明的变量保持原来的值。具体过程分析如下： 调用 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。26.在窗体中添加一个名称为 Text1 的文本框
48、和一个名称为 Command1 的命令按钮，然后编写如下代码： Private Sub Command1_Click( ) Dimaarray1(10，10)As Integer Dim i，j As Integer For i=1 To 3 For j=2 T0 4 Array1(i，j)=i+j Next j Next i Text1.Text=array1 (2，3)+array1(3，4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（分数：2.00）A.12 B.13C.14D.15解析：解析 根据题意，该二维数组的赋值方法为 array1(i，j)，故 array1(3，4)的值分别为 5、7。相加的结果为 12。27.假定有以下程序段： For i=1 To 4 For j=5
