1、VB 笔试-试卷 73 及答案解析(总分：96.00，做题时间：90 分钟)一、选择题(总题数：36，分数：72.00)1.选择题（）下列各题 A、B、C、D 四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上。（分数：2.00）_2.由两个栈共享一个存储中间的好处是（分数：2.00）A.减少存取时间，降低下溢发生的机率B.节省存储空间，降低上溢发生的机率C.减少存取时间，降低上溢发生的机率D.节省存储空间，降低下溢发生的机串3.没有两个串 p 和 q,求 q 在 p 首次出现位置的运算称作（分数：2.00）A.连接B.模式匹配C.求于串D.求串长4.n 个顶点的连通田中边的
2、条数至少为（分数：2.00）A.0B.1C.n-lD.n5.对象实现了数据和操作的结合，是指对数据和数据的操作进行（分数：2.00）A.结卉B.隐藏C.封装D.抽象6.下列叙述中，正确的是（分数：2.00）A.软件就是程序清单B.软件就是存放在计算机中的文件C.软件应包括程序清单及运行结果D.软件包括程序和文档7.软件设计中，有利于提高模块独立性的一个准则是（分数：2.00）A.低内聚低耦合B.低内聚高耦含C.高内聚低耦台D.高内聚高耦合8.软件生命周期中花费时间最多的阶段是（分数：2.00）A.详细设计B.软件编码C.软件测试D.软件维护9.下列 4 项中说法不正确的是（分数：2.00）A.
3、数据库减少了数据冗余B.数据库中的数据可以共享C.数据库避免了一切数据的重复D.数据库具有较高的数据独立性10.下列 4 项中，必须进行查询优化的是（分数：2.00）A.关系数据库B.网状数据库C.层次数据厍D.非关系模型11.最常用的一种基本数据模型是关系数据模型，它的表示应采用（分数：2.00）A.树B.网络C.图D.二维表12.下列说法错误的是（分数：2.00）A.标准模块的扩展名是basB.标准模块由程序代码组成C.标准模块只用来定义一些通用的过程D.标准模块不附属于任何一个窗体13.如果要将窗体中的某个命令按钮设置成无效状态，应该动命令按钮的何种属性（分数：2.00）A.ValueB
4、.VisibleC.DefaultD.Enabled14.在窗体上有多个控件，要实现程序运行后焦点默认在某一控件上，应该设置的属性是（分数：2.00）A.设置 Enabled 的值为 TrueB.设置 TabIndex 的值为 1C.设置 TabIndex 的值为 0D.设置 Index 的值为 015.下列几项中，属于合法的日期型常量的是（分数：2.00）A.10/10/02B.10/10/02C.10/10/02D.#10/10/02#16.下列程序段的执行结果为 A=2 B=5 If A * B 1 Then B=B - 1 Else B= - 1 Print B -A 0（分数：2.0
5、0）A.TrueB.FalseC.-1D.117.以下语句的输出结果是 a = Sqr(26) Print Formats (a，“#“)（分数：2.00）A.5099B.5099C.5099D.000509918.标签控件能够显示文本信息，决定其文本内容的属性是（分数：2.00）A.AlignmentB.CaptionC.VisibleD.BorderStyle19.在属性窗口中，加载指定的图形放入当前对象中的属性是（分数：2.00）A.CurrentYB.PictureC.CurrentXD.Caption20.在使用应用程序时，常常用作在单击时执行指定的操作的控件是（分数：2.00）A.
6、命令按钮B.图片框C.复选框D.单选按钮21.当直线或形状的 BorderStyle 属性设置为 1 时，控件是（分数：2.00）A.虚线B.点线C.不可见D.实线22.通过设置何属性可以改变所画图形的形状?（分数：2.00）A.ShapeB.IndexC.EnabledD.Height23.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() s=1 Do s=(s + 1) * (s + 2) Number=Number + 1 Loop Until s = 30 Print Number，s End Sub 程序运行后，输出的结果是（分
7、数：2.00）A.2 3B.2 56C.5 12D.10 2024.下列程和序段的执行结果为 x=Int(Rnd()+9) Select Case X Case 10 Print “excellent“ Case 9 Print “good“ Case 8 Print “pass“ Case Else Print “fail“ End Select（分数：2.00）A.excellentB.goodC.passD.fail25.下列程序段的执行结果为 a=75 If a 60 Then Score=1 If a 70 Then Score=2 If a 80 Then Score=3 If a
8、 90 Then Score=4 Print “Score= “；Score（分数：2.00）A.Score=1B.Score=2C.Score=3D.Score=426.下列程序段的执行结果为 I=1 x=5 Do I= I + 1 x= x + 2 Loop Until I=7 Print “ I= “；I Print “x=“；x（分数：2.00）A.I=4 x=5B.I=7 x=15C.I=6 x=8D.I=7 x=1727.下面的程序的运行结果是 a=1 b=1 Do a=a2 b= b + 1 Loop Until b5 Print “k=“；a；Spc(4)；“b=“；b + a
9、（分数：2.00）A.k=7 b=14B.k=6 b=6C.k=4 b=8D.k=1 b=728.单击命令按钮，下列程序的执行结果为 Private Sub Commandl_Click() Dim x As Integer，y As Integer x=32：y=42 Call PCS(x，y) Print x；y End Sub Public Sub PCS(Byval n As Integer，ByVal m As Integer) n=n Mod 10+1 m=m Mood 10+1 End Sub（分数：2.00）A.32 42B.2 32C.2 3D.12 329.下列程序的执行结
10、果为 Private Sub Commandl_Click() Dim s1 As String ,s2 As String s1= “abcd“ Call Transfer(sl，s2) Print s2 End Sub Private Sub Transfer (ByVal xstr As String，ystr As String) Dim tempstr As String ystr=tempstr End Sub（分数：2.00）A.dcbaB.abdcC.abcdD.dabc30.单击命令按钮，下列程序的执行结果是 Private Sub Blck (x As Integer) x
11、 = x * 2 + l If x 6 Then Call Blck(x) End If x = x * 2 + 1 Print x； End Sub Private Sub Commandl_Click() Blck 2 End Sub（分数：2.00）A.23 47B.10 36C.22 44D.24 5031.有如下程序： Private Sub Commandl_Click() Dim a As Integer a=2 For i=1 To 3 Print Gad (A)Next i End Sub Function Gad (a As Integer) b=0 Static c b=
12、b + 1 c= c + 1 Gad= a + b + C End Function 运行上面的程序后，单击命令按钮，输出结果为（分数：2.00）A.1 2 3B.2 3 4C.4 5 6D.1 4 632.下列过程定义语句中，参数不是对象的定义语句是（分数：2.00）A.Sub Pro4 (x As Form)B.Sub Pro4 (y As Control)C.Sub Pro4 (Forml As Form，Labell As Control)D.Sub Pro4 (x As Currency)33.下列说法正确的是（分数：2.00）A.任何时候都可以使用标准工具栏的“菜单编辑器”按钮打开
13、菜单编辑器B.只有当代码窗口为当前活动窗口时，才能打开菜单编辑器C.任何时候都可以使用“工具”菜单下的“菜单编辑器”命令，打开菜单编辑器D.只有当某个窗体为当前活动窗体时，才能打开菜单编辑器34.下列各选项说法错误的一项是（分数：2.00）A.文件对话框可分为两种即打开(Open)文件对话框和保存(Save As)文件对话框B.DefaultEXT 属性和 DialogTitle 属性都是打开对话框的属性，但非保存对话框的属性C.打开文件对话框可以让用户指定一个文件，由程序使用；而用保存文件对话框可以指D.通用对话框的名称属性的默认值为 CommonDialogX( X=1，2)，此外，每种对
14、话 框都有自己的默认标题35.下列数组定义语句错误的是（分数：2.00）A.k=10 Dim Arr(k)B.Const k=10 Dim Arr(k)C.Dim Arrl(10) As Integer Dim Arr2(10)D.Dim Arrl(1 To 10) Dim Arr2(1 To 10，2 To 11)36.在 Visual Basic 中按文件的数据性质不同，可将文件分为（分数：2.00）A.数据文件和程序文件B.文本文件和数据文件C.顺序文件和随机文件D.ASCII 文件和二进制文件二、填空题(总题数：12，分数：24.00)37.填空题（每空）请将每一个空的正确答案写在答题
15、卡上。注意：以命令关键字填空的必须拼写完整。（分数：2.00）_38.常用的黑箱测试有等价分类法、 1、因果图法和错误推测法 4 种。（分数：2.00）填空项 1:_39.测试的目的是暴露错误，评价程序的可靠性；而 1 的目的是发现错误的位置并改正错误。（分数：2.00）填空项 1:_40.软件维护活动包括以下几类：改正性维护、适应性维护、 1 维护和预防性维护。（分数：2.00）填空项 1:_41.在面向对象的设计中，用来请求对象执行某一处理或回答某些信息的要求称为 1。（分数：2.00）填空项 1:_42.关键字 ASC 和 DESC 分别表示 1 的含义。（分数：2.00）填空项 1:_
16、43.关系式 x-5 或 x5 所对应的布尔表达式是 1。（分数：2.00）填空项 1:_44.对随机文件数据存取是以 1 为单位进行操作的。（分数：2.00）填空项 1:_45.执行语句 Open “TC.dat“ For Random As #1 Len=50 后，对文件 TC.dat 中的数据能执行的操作是 1。（分数：2.00）填空项 1:_46.下面程序的作用是用 InputBox 函数输入一个整数，然后判断能否同时被 2，5 和 7 整除，果能则输出该数及平方值。请填空。 Private Sub Command1_Click() Dim numX As Integer numX =
17、 Val (InputBox(“请输入一个整数“) If 1Then Form1Print 2 End If End Sub（分数：2.00）填空项 1:_47.下列程序计算 Sn 的值。Sn=a+aa+aaa+aaaa，其中最后一项为 n 个。例如：a=5，n=4 时，则Sn=5+55+555+5555。请在空白处填人适当的内容，将程序充完整。Private Sub Command1_Click() Dim a As Integer，n As Integer，Cout As Integer Dim Sn As Long，Tn As Long Cout=1 Sn=0 Tn=0 a=InputB
18、ox(“请输入 a 的值：“) 1 Do Tn=Tn * 10 + a Sn 二 Sn + Tn Cout=Cout+1 2 DebugPrint a，n，SnEnd Sub（分数：2.00）填空项 1:_48.下面的程序用于根据文本框 Test 中输入的内容进行以下处理：若 Text 为 1，则打印“您的成绩为优秀！”；若 Text 为 2，则打印“您的成绩为良好!”；若 Text 为 3，则打印“您的成绩为一般”；否则打印“您的成绩一般以下!”，请填空。 Private Sub Command1_Click( ) Selct Case Val(Text1.Text) Case 1 Prin
19、t “您的成绩为优秀！“ Case 2 Print “您的成绩为良好！“ Case 3 Print “您的成绩为一般！“ Case Else Print “您的成绩为一般以下！“ End Select End Sub（分数：2.00）填空项 1:_填空项 1:_填空项 1:_VB 笔试-试卷 73 答案解析(总分：96.00，做题时间：90 分钟)一、选择题(总题数：36，分数：72.00)1.选择题（）下列各题 A、B、C、D 四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上。（分数：2.00）_解析：2.由两个栈共享一个存储中间的好处是（分数：2.00）A.减少存取时间
20、，降低下溢发生的机率B.节省存储空间，降低上溢发生的机率 C.减少存取时间，降低上溢发生的机率D.节省存储空间，降低下溢发生的机串解析：解析：常常一个程序中要用到多个栈，为了不发生上溢错误，就必须给每个栈分配一十足够大的存储空间。但实际中，很难准确地估计，若每个栈都分配过大的存储空间，势必造成系统空间紧张；若让多个栈共用一个足够大的连续存储空间，则可利用栈的动态特性使他们的存储空间互补。3.没有两个串 p 和 q,求 q 在 p 首次出现位置的运算称作（分数：2.00）A.连接B.模式匹配 C.求于串D.求串长解析：解析：子串的定位操作通常称作串模式匹配，是各种申处理系统中最重要的操作之一，算
21、法的基本思想是：从主串的开始字符起和模式的第一个字符比较，若相等则继续比较后续字符，否则从主串的下一个字符起再重新和模式的字符比较，依次类推，直至模式中的每一个字符依次和主串中的一个连续的字符序列相等，称匹配成功，否则称匹配不成功。4.n 个顶点的连通田中边的条数至少为（分数：2.00）A.0B.1C.n-l D.n解析：解析：在无向图(边没有方向性的图)中，若从顶点 vi 到 vj 有路径，则称 vi 和 vj 是连通的，若该图中任意两个顶点都是连通的，则称该图为连通图。5.对象实现了数据和操作的结合，是指对数据和数据的操作进行（分数：2.00）A.结卉B.隐藏C.封装 D.抽象解析：6.下
22、列叙述中，正确的是（分数：2.00）A.软件就是程序清单B.软件就是存放在计算机中的文件C.软件应包括程序清单及运行结果D.软件包括程序和文档 解析：7.软件设计中，有利于提高模块独立性的一个准则是（分数：2.00）A.低内聚低耦合B.低内聚高耦含C.高内聚低耦台 D.高内聚高耦合解析：解析：模块的独立程度是评价设计好坏的再要度量标准。衡量软件的模块独立性使用耦合性和内聚性两个定性的度量标准。一般优秀的软件设计，应尽量做到高内聚，低耦合，即减弱模块之间的耦合性和提高模块内的内聚性，有利于提高模块的独立性。8.软件生命周期中花费时间最多的阶段是（分数：2.00）A.详细设计B.软件编码C.软件测
23、试D.软件维护 解析：解析：软件生命周期分为软件定义、软件开发及软件运行维护 3 个所段。本题中，详细设计、软什编码和软件测试都属于软件开发阶段；维护是软件生命周期的最后一个阶段，也是持续时间最长，花费代价最大的一个阶段，软件工程学的一个目的就是提高软件的可维护性降低维护的代价。9.下列 4 项中说法不正确的是（分数：2.00）A.数据库减少了数据冗余B.数据库中的数据可以共享C.数据库避免了一切数据的重复 D.数据库具有较高的数据独立性解析：解析：数据库系统具有以下几个特点，一是数据的集成性、二是数据的高共享性与低冗余性、三是数据的独立性，四是数据统一管理与控制。10.下列 4 项中，必须进
24、行查询优化的是（分数：2.00）A.关系数据库 B.网状数据库C.层次数据厍D.非关系模型解析：解析：关系数据模型诞生之后迅速发展，深受用户喜爱，但关系数据模型也有缺点其培主要的缺点是由于存取路径对用户透明，查询效率往往不如非关系数据模型，因此为了提高性能，必须对用户的查询请求进行优化。11.最常用的一种基本数据模型是关系数据模型，它的表示应采用（分数：2.00）A.树B.网络C.图D.二维表 解析：解析：关系数据模型用统一的二维表结构表示实体及实体之间的联系(即关系)。12.下列说法错误的是（分数：2.00）A.标准模块的扩展名是basB.标准模块由程序代码组成C.标准模块只用来定义一些通用
25、的过程 D.标准模块不附属于任何一个窗体解析：解析：标准模块不仅可以用来定义一些通用的过程，还可以用来声明一些全局 变量，所以 C 是不正确的；标准模块的扩展名是bas，所以选项 A)是正确的；正因为标准 模块是程序模块文件，所以必然是程序代码组成，所以选项 B)是正确的；标准模块不属 于任何一个固定的窗体，在工程中是公用的，所以选项 D)是正确的。 注意：类模块、资源文件、窗体文件和工程文件的知识。13.如果要将窗体中的某个命令按钮设置成无效状态，应该动命令按钮的何种属性（分数：2.00）A.ValueB.VisibleC.DefaultD.Enabled 解析：解析：在 Visual Ba
26、sic 中，控制控件有效性的属性是 Enabled，设置为 True，则处 于有效状态，如果设置成 False，则处于无效状态，所以 D)是正确的；Visible 属性是控制 空间可见性的，有两种值：True 和 False，默认情况下是 True；如果将对象的 Visible 值设为 False，窗体和控件在设计阶段仍可见，只有运行时才隐藏，所以 B)不正确；Default 是决 定窗体的缺省命令的命令按钮的属性，另外，一个窗体只能有一个缺省命令按钮，所以选 项 C)也不正确；Value 属性在不同的控件中有不同的作用，也不是本题的答案。14.在窗体上有多个控件，要实现程序运行后焦点默认在某
27、一控件上，应该设置的属性是（分数：2.00）A.设置 Enabled 的值为 TrueB.设置 TabIndex 的值为 1C.设置 TabIndex 的值为 0 D.设置 Index 的值为 0解析：解析：要想在程序运行时焦点落在某一控件上必须使该控件的 Tablndex 的值 在窗体中最小，故设置为 0，所以正确答案为选项 C)；Enabled 属性决定控件的有效与失 效；Index 用于引用的，用在控件数组中，不符合本题的意思。 注意：控件的 Enabled 属性、Cancel 属性和 Caption 属性等。15.下列几项中，属于合法的日期型常量的是（分数：2.00）A.10/10/0
28、2B.10/10/02C.10/10/02D.#10/10/02# 解析：解析：日期型数据是用来表示日期信息的，其格式为 mm/dd/yyyy 或者 mm- dd-yyyy，它的取值范围是 1/1/100 到 12/31/9999。任何可辨认的日期文本都可以赋值 给日期变量，日期文本必须以“#”号括起来。 注意：字符串常量的书写格式。16.下列程序段的执行结果为 A=2 B=5 If A * B 1 Then B=B - 1 Else B= - 1 Print B -A 0（分数：2.00）A.TrueB.False C.-1D.1解析：解析：Print 方法具有计算和输出双重功能，对于表达式
29、，它先计算后输出，此 题中经过第一步的条件语句后，B 的数值为-1，则 B-A 的值为-3，小于 0，所以 B-A 0 为逻辑假，故输出结果应该为False。 注意：表达式的计算。17.以下语句的输出结果是 a = Sqr(26) Print Formats (a，“#“)（分数：2.00）A.5099 B.5099C.5099D.0005099解析：解析：用 Format()函数可以将数值按“格式字符串”指定的格式输出，包括在输出字符串前面加，字符串后面补 0 及千位分隔符等。“格式字符串”是一个常量或变量，它由专门的格式说明符组成，由这些字符决定数据项的显示格式，并指定显示区域的长度，当格
30、式字符串为常量时，必须放在双引号中，格式说明符及作用见下表：18.标签控件能够显示文本信息，决定其文本内容的属性是（分数：2.00）A.AlignmentB.Caption C.VisibleD.BorderStyle解析：解析：标签(Label)主要用来显示一小段不需要用户修改的文本，被显示文本 内容只能由 Caption属性来定义和修改。因此选项 B)是正确的。选项 A)确定标签标题 的放置方式；选项 C)决定程序运行后，控件是否在屏幕上显示出来。BorderStyle 属性一 般情况下设置为 True，但如果要屏蔽鼠标事件，可将其设置为 False，此时文本变为灰色。19.在属性窗口中，
31、加载指定的图形放入当前对象中的属性是（分数：2.00）A.CurrentYB.Picture C.CurrentXD.Caption解析：解析：打开对象的属性列表，从中选择 Picture 属性栏，单击后面的“”，将弹 出“加载图片”对话框，用户选择相应的路径和文件名，图形就显示在当前对象中了，可见 选项 B)是正确的；而选项 A)CurrentY 和选项 C)是设置当前位置的；选项 D)Caption 属性 决定标题的显示信息。 注意：LoadPicture方法的应用。20.在使用应用程序时，常常用作在单击时执行指定的操作的控件是（分数：2.00）A.命令按钮 B.图片框C.复选框D.单选按
32、钮解析：解析：从编程的角度上，命令按钮、复选框和单选按钮十分相似，但对于用户来 说，它们的用途不同。在应用程序中，命令按钮通常用来在单击时执行指定的操作，而复 选框和单选按钮用来表示“选”或“不选”两种状态。复选框用“”表示被选中，在一个 运行窗体上可以同时选取多个复选框；单选按钮不同，在一组单选按钮中只能选择其中 一个(用“?”表示被选中)。当选中一个单选按钮后，其他单选按钮都处于关闭状态。21.当直线或形状的 BorderStyle 属性设置为 1 时，控件是（分数：2.00）A.虚线B.点线C.不可见D.实线 解析：解析：在 Visual Basic 中，BorderStyle 属性用来
33、确定直线或形状的边界线线型， 可以取 7 种值：0 - Transparent：表示透明； 1 - Solid：表示实线； 2 - Dash：表示虚线； 3 - Dot：表示点线； 4 - Dash - Dot：表示点划线； 5 - Dash - Dot-Dot：表示双点划线； 6 - Inside Solid：内实线；22.通过设置何属性可以改变所画图形的形状?（分数：2.00）A.Shape B.IndexC.EnabledD.Height解析：解析：Visual Basic 中，利用控件可以在窗体上画矩形，通过设置 Shape 属性可 以画出圆、椭圆和圆角矩形。因此答案 A)是正确的；选
34、项 C)Enabled 是设置有效性的；选项 B)Index 是索引，用于引用的；选项 D)是设置高度的。23.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() s=1 Do s=(s + 1) * (s + 2) Number=Number + 1 Loop Until s = 30 Print Number，s End Sub 程序运行后，输出的结果是（分数：2.00）A.2 3B.2 56 C.5 12D.10 20解析：解析：Number 记录循环次数，S=30 为控制语句，当 Number = 1 时，s=6；当 Number=
35、2 时 s=5630，故结束运行。 注意：DoLoop While、Do WhileLoop 等结构24.下列程和序段的执行结果为 x=Int(Rnd()+9) Select Case X Case 10 Print “excellent“ Case 9 Print “good“ Case 8 Print “pass“ Case Else Print “fail“ End Select（分数：2.00）A.excellentB.good C.passD.fail解析：解析：考查考生对多分支控制结构的掌握。解析x=Int(Rnd()+9)语句中，Rnd 是用来产生随机数的，其值在 01 之 间，
36、而在(Rnd()+9)前面有 Int 进行强制转换，所以 x 总为 9，Select Case xEnd Select 语句体中的 Case 9CRPrint “ good “语句。 注意：Select Case 语句与IfThenElse 语句块的转换。25.下列程序段的执行结果为 a=75 If a 60 Then Score=1 If a 70 Then Score=2 If a 80 Then Score=3 If a 90 Then Score=4 Print “Score= “；Score（分数：2.00）A.Score=1B.Score=2 C.Score=3D.Score=4解
37、析：解析：如果 a60，则 Score=1；如果 a70，则 Score=2；如果 a80，则 Score=3；如果a90，则 Score=4；本题的条件是 a=75，输出结果应该是 Score=2。 注意：块结构条件语句的使用方法。26.下列程序段的执行结果为 I=1 x=5 Do I= I + 1 x= x + 2 Loop Until I=7 Print “ I= “；I Print “x=“；x（分数：2.00）A.I=4 x=5B.I=7 x=15C.I=6 x=8D.I=7 x=17 解析：解析：Do 循环结构，其格式为： Do 语句块 Exit Do Loop Until 循环条
38、件 此循环由于“先执行后检查”，所以至少执行一次。本题中，程序运行到循环条件 I =7 的值为 True，才停止。所以当程序结束运行后结果为： I = 7 x = 17 注意：DoLoop While 循环结构和循环结构的嵌套。27.下面的程序的运行结果是 a=1 b=1 Do a=a2 b= b + 1 Loop Until b5 Print “k=“；a；Spc(4)；“b=“；b + a（分数：2.00）A.k=7 b=14B.k=6 b=6C.k=4 b=8D.k=1 b=7 解析：解析：本题中的 DoLoop Until 循环为直到型循环结构，直到条件 b5 为止，此时 a=1，b=
39、6，最后输出的结果是 k = 1 b=7。注意：循环控制结构的嵌套。28.单击命令按钮，下列程序的执行结果为 Private Sub Commandl_Click() Dim x As Integer，y As Integer x=32：y=42 Call PCS(x，y) Print x；y End Sub Public Sub PCS(Byval n As Integer，ByVal m As Integer) n=n Mod 10+1 m=m Mood 10+1 End Sub（分数：2.00）A.32 42 B.2 32C.2 3D.12 3解析：解析：在调用过程时，一般主调与被调过程
40、之间有数据传递，即将主调过程的 实参传递给被调用的过程，完成实参与形参的结合，然后执行被调过程，在 Visual Basic 中，实参与形参的结合有两种方式：即传址与传值。这两种方法的特点如下： 传址的结合过程是，当调用一个过程是，它将实参的地址传给形参，因此在被调用的 过程中，对形的任何操作都变成了对相应实参的操作，因此实参的值会随形参的改变而 改变。 传值的结合过程是，当调用一个过程时，系统将实参的值复制给形参并断开了联系， 被调用过程中的操作时在形参自己的存储单元中进行的，当过程调用结束时，这些形参 所占用的存储单元也同时被释放，因此在过程中对形参的任何操作不会影响实参。而题 中被调过程
41、 PCS 中有两个形参，两者均为传值方式。主调过程分别把实参 x 和 y 传递给 PCS，所以当过程调用结束后，实参 x 和 y 的值都没有改变，最后输出的值应为 32 42。29.下列程序的执行结果为 Private Sub Commandl_Click() Dim s1 As String ,s2 As String s1= “abcd“ Call Transfer(sl，s2) Print s2 End Sub Private Sub Transfer (ByVal xstr As String，ystr As String) Dim tempstr As String ystr=tem
42、pstr End Sub（分数：2.00）A.dcba B.abdcC.abcdD.dabc解析：解析：主调函数最终输出值是 s2 值，这就得调用函数过程 Transfer 函数。 被调过程 Transfer 的参数 xstr，ystr 从主调函数中收到实参 s1，s2 传来的值“ abcd “，过 程 Transfer 开始声明了两个String 型的变量，xstr、ystr。i=Len(xstr)语句的功能是：i 的 值就是 xstr 的长度，此题为 4。程序代码执行 Do WhileLoop 的循环语句。循环体为 tempstr = tempstr + Mid(xstr，i，l)，其中变
43、量是I，由 I=Len(xstr)开始的，每循环一次 减 1。此程序的最后输出的是字符串 s1 的反向输出。30.单击命令按钮，下列程序的执行结果是 Private Sub Blck (x As Integer) x = x * 2 + l If x 6 Then Call Blck(x) End If x = x * 2 + 1 Print x； End Sub Private Sub Commandl_Click() Blck 2 End Sub（分数：2.00）A.23 47 B.10 36C.22 44D.24 50解析：解析：考查考生对过程的理解。解析此题在函数调用过程中采用了简单递
44、归的方式，具体流程如下：主调过 程调用 Blck 过程，把实参 2 传递给 Blck 过程中的形参 x，由 x = x * 2 + 1 语句推出 x= 5，此时满足 Blck 过程体中判断语句的判断条件，执行 Call Blck(x)语句，第二次调用 Blck 过程。由 x = x * 2 + 1 语句得到 x 值为 11，判断条件 116 为假，故返回此调用 过程，执行 x = x * 2 + l 语句，的 x = 23 并输出，结束此次调用过程。由于两次调用 Blck 过程，第二次仍返回调用时的断点语句，即执行 x=x * 2 + 1，Print x，输出 x 的值 为 47，返回到主调过
45、程，两次输出为 2347。31.有如下程序： Private Sub Commandl_Click() Dim a As Integer a=2 For i=1 To 3 Print Gad (A)Next i End Sub Function Gad (a As Integer) b=0 Static c b=b + 1 c= c + 1 Gad= a + b + C End Function 运行上面的程序后，单击命令按钮，输出结果为（分数：2.00）A.1 2 3B.2 3 4C.4 5 6 D.1 4 6解析：解析：在事件 Gad 中定义了一个静态变量 c，每次调用完成后，c 的值都将
46、保存 到下一次调用c；Sub 过程中，循环语句 For 的变量 I 的初始值和终值分别是 1，3，因为步 长为 1，所以循环 3 次，循环体为调用 Gad 过程；在第一次调用循环时，将 a 等于 2 传给形 参，因为是第一次调用 Gad，且 c 没有赋值，所以默认 c 为 0，执行 b=b+1，c=c+1，b，c 的值为 1，所以 Gad 的值为 4；第三此循环时，c 的初值为 2，执行 Gad 过程后，返回值为 6。32.下列过程定义语句中，参数不是对象的定义语句是（分数：2.00）A.Sub Pro4 (x As Form)B.Sub Pro4 (y As Control)C.Sub Pr
47、o4 (Forml As Form，Labell As Control)D.Sub Pro4 (x As Currency) 解析：解析：在形参表中，As 关键字用于定义形参的类型：AsForm 定义形参为窗体类型；AsComtrol 定义形参为控件类型；AsCurrency 定义形参为货币类型。 注意：可选参数和可变参数的过程定义。33.下列说法正确的是（分数：2.00）A.任何时候都可以使用标准工具栏的“菜单编辑器”按钮打开菜单编辑器B.只有当代码窗口为当前活动窗口时，才能打开菜单编辑器C.任何时候都可以使用“工具”菜单下的“菜单编辑器”命令，打开菜单编辑器D.只有当某个窗体为当前活动窗体时，才能打开菜单编辑器 解析：解析：在 Visual Basic 中，因为“菜单编辑器”命令是在“工具”菜单下，所以只有当某个窗体为当前活动窗体时，才能打开“工具”菜单，并从而选择“菜单编辑器”选项，打开
