1、二级 VISUAL+BASIC 笔试-402 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.下列数据结构中，属于非线性结构的是_。A) 带链队列 B) 循环队列 C) 带链栈 D) 二叉树（分数：2.00）A.B.C.D.2.下列叙述中正确的是_。A) 数据的逻辑结构与存储结构是一一对应的B) 算法的时间复杂度与空间复杂度一定相关C) 算法的效率只与问题的规模有关，而与数据的存储结构无关D) 算法的时间复杂度是指执行算法所需要的计算工作量（分数：2.00）A.B.C.D.3.在结构化程序设计中，模块划分的原则是_。A) 各模块应包括尽量多
2、的功能 B) 各模块的规模应尽量大C) 各模块之间的联系应尽量紧密 D) 模块内具有高内聚度、模块间具有低耦合度（分数：2.00）A.B.C.D.4.软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)，下面属于应用软件的是_。A) 浏览器 B) 操作系统 C) 编译程序 D) 汇编程序（分数：2.00）A.B.C.D.5.在 E-R 图中，用来表示实体的图形是_。A) 矩形 B) 椭圆形 C) 菱形 D) 三角形（分数：2.00）A.B.C.D.6.结构化分析可以使用的工具是_。A) N-S 图 B) DFD 图 C) PAD 图 D) 程序流程图（分数：2.00）A.B.C.D.7
3、.下面不属于软件设计原则的是_。A) 抽象 B) 模块化 C) 自底向上 D) 信息隐蔽（分数：2.00）A.B.C.D.8.在数据管理技术的发展过程中，经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中，数据独立性最高的阶段是_。A) 数据库系统 B) 文件系统 C) 人工管理 D) 数据项管理（分数：2.00）A.B.C.D.9.数据库设计包含四个阶段，它们是需求分析、_、逻辑设计和物理设计。A) 编码设计 B) 测试阶段 C) 运行阶段 D) 概念设计（分数：2.00）A.B.C.D.10.有两个关系 R，S 如下：（分数：2.00）A.B.C.D.11.窗体文件的扩展名是_。A)
4、.bas B) .cls C) .frm D) .res（分数：2.00）A.B.C.D.12.以下不能输出“Program“的语句是_。A) Print Mid(“VBProgram“,3,7) B) Print Right(“VBProgram“,7)C) Ptint Mid(“VBProgram“,3) D) Print Left(“VBProgram“,7)（分数：2.00）A.B.C.D.13.如果一个变量未经定义就直接使用，则该变量的类型为_。A) Integer B) Byte C) Boolean D) Variant（分数：2.00）A.B.C.D.14.设 a=“a“，b=
5、“b“，c=“c“，d=“d“，执行语句 x=IIf(ab) Or (cd)，“A“，“B“)后，x 的值为_。A) “a“ B) “b“ C) “A“ D“B/（分数：2.00）A.B.C.D.15.执行以下程序段a $=“Visual Basic Programming“b $=“C+“c $=UCase(Left $(a $,7)b $ Right$(a $ ,12)后，变量 c $的值为_。A) Visual BASIC Programming B) VISUAL BASIC ProgrammingC) Visual C+Programming D) VISUAL C+Programm
6、ing（分数：2.00）A.B.C.D.16.以下能够触发文本框 Change 事件的操作是_。A) 文本框失去焦点 B) 文本框获得焦点C) 当文本框不可用时 D) 改变文本框的内容（分数：2.00）A.B.C.D.17.在程序运行时，下面的叙述中正确的是_。A) 用鼠标右键单击窗体中无控件的部分，会执行窗体的 Form_Load 事件过程B) 用鼠标左键单击窗体的标题栏，会执行窗体的 Form_Click 事件过程C) 只装入而不显示窗体，也会执行窗体的 Form_Load 事件过程D) 装入窗体后，每次显示该窗体时，都会执行窗体的 Form_Click 事件过程（分数：2.00）A.B.
7、C.D.18.定义有 5 个整数型元素的数组，正确的语句是_。A) Dim a(4) As Integer B) Option Base 1:Dim a(5)C) Dim a(5) D) Dime a(5) As Integer（分数：2.00）A.B.C.D.19.设窗体上有一个水平滚动条，要求单击滚动条右端的 （分数：2.00）A.B.C.D.20.设窗体上有一个标签 Label1 和一个计时器 Timer1，Timer1 的 Interval 属性被设置为 1000，Enabled属性被设置为 True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是_。
8、A) Private Sub Timer1_Timer()Label1.Caption=TrueEnd SubB) Private Sub Timer1_Timer()For k=1 To Timer1.IntervalLabel1.Caption=TimerNext kEnd SubC) Private Sub Timer1_Timer()Label1.Caption=Timer1.IntervalEnd SubD) Private Sub Timer1_Timer()Label1.Caption=Time $End Sub（分数：2.00）A.B.C.D.21.执行如下两条语句后，窗体上显
9、示的是_。a=9.8596Print Format(a,“$00 ,00.00“)A) 0,009.86 B) $9.68 C) 9.68 D) $ 00,09.86（分数：2.00）A.B.C.D.22.在窗体上画一个图片框，再在图片框中画一个命令按钮，位置如下图所示，则命令按钮的 Top 属性值是_。（分数：2.00）A.B.C.D.23.下面程序段执行结果为_。x=Int(Rnd()+4)Select Case xCase 5Print “excellent“Case 4Print “good“Case 3Print “pass“Case ElsePrint “fail“End Sele
10、ctA) excellent B) good C) pass D) fall（分数：2.00）A.B.C.D.24.已知有下面过程：Private Sub procl(a As Integer,b As String,Optional x As Boolean)End Sub正确调用此过程的语句是_。A) Call procl(3) B) Call procl 3,“xyz“ ,TrueC) procl(5,“xyz“ ,False) D) procl 12,“xyz/（分数：2.00）A.B.C.D.25.在窗体上画三个标签、三个文本框(名称分别为 Text1、Text2、Text3)和一个
11、命令按钮(名称为Command1)，外观如下图所示。（分数：2.00）A.B.C.D.26.若在某窗体模块中有如下事件过程：Private Sub Command1_Click(Index As Integer)End Sub则以下叙述中正确的是_。A) 此事件过程与不带参数的事件过程没有区别B) 有一个名称为 Command1 的窗体，单击此窗体则执行此事件过程C) 有一个名称为 Command1 的控件数组，数组中有多个不同类型控件D) 有一个名称为 Command1 的控件数组，数组中有多个相同类型控件（分数：2.00）A.B.C.D.27.设有以下函数过程：Function fun(a
12、 As Integer,b As Integer)Dim c As IntegerIf ab Thenc=a:a=b:b=cEnd Ifc=0Doc=c+aLoop Until c Mod b=0fun=cEnd Function若调用函数 fun 时的实际参数都是自然数，则函数返回的是_。A) a、b 的最大公约数B) a、b 的最小公倍数C) a 除以 b 的余数D) a 除以 b 的商的整数部分（分数：2.00）A.B.C.D.28.设有如下通用过程：Public Function Fun(xStr As String) As StringDim tStr As String,strL
13、As IntegertStr=“ “strL=Len(xStr)i=1Do While i=strL/2tStr=tStrarr(3,4)End Sub 程序运行后，单击窗体，输出结果为_。A) 0 0 B) 7 12 C) 0 13 D) 8 13（分数：2.00）A.B.C.D.34.假设有下表所列的菜单结构标题 名称 层次显示 appear 1(主菜单)大图标 bigicon 2(子菜单)小图标 smallicon2(子菜单)要求程序运行后，如果单击菜单项“大图标“，则在该菜单项前添加一个“。以下事件过程正确的是_。A) Ptivate Sub bigicon_Click()bigico
14、n.Checked=TrueEnd SubB) Ptivate Sub bigicon_Click()bigicon.Checked=FalseEnd SubC) Private Sub bigicon_Click()appear.bigicon.Checked=TrueEnd SubD) Private Sub bigicon_Click()Me.appear.bigicon.Checked=TrueEnd Sub（分数：2.00）A.B.C.D.35.在窗体上画一个命令按钮和两个文本框，其名称分别为 Command1、Text1 和 Text2，在属性窗口中把窗体的 KeyPreview
15、属性设置为 True，然后编写如下程序：Dim S1 As String,S2 As StringPrivate Sub Form Load()Text1.Text=“ “Text2.Text=“ “Text1.Enabled=FalseText2.Enabled=FalseEnd SubPrivate Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)S2=S2 Chr(KeyCode)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)S1=S1Chr(KeyAscii)End S
16、ubPrivate Sub Command1_Click()Text1.Text=S1Text2.Text=S2S1=“ “S2=“ “End Sub程序运行后，先后按 a、b、c 键，然后单击命令按钮，在文本框 Text1 和 Text2 中显示的内容分别为_。A) 空白 B) abc 和 ABC C) 出错 D) ABC 和 abc（分数：2.00）A.B.C.D.二、填空题(总题数：10，分数：30.00)36.一个栈的初始状态为空。首先将元素 1，2，3，4，5 依次入栈，然后退栈一次，再将元素 A，B，C，D依次入栈，之后将所有元素全部退栈，则所有元素退栈(包括中间退栈的元素)的顺序
17、为 1。（分数：2.00）填空项 1:_37.已知二叉树后序遍历序列是 dabec，中序遍历序列是 debac，它的前序遍历序列是 1。（分数：2.00）填空项 1:_38.一个项目具有一个项目主管，一个项目主管可管理多个项目，则实体“项目主管“与实体“项目“的联系属于 1 的联系。（分数：2.00）填空项 1:_39.软件测试可分为白盒测试和黑盒测试。逻辑覆盖测试属于 1 测试。（分数：2.00）填空项 1:_40.在最坏情况下，简单插入排序需要 1 次比较。（分数：2.00）填空项 1:_41.描述“X 是小于 500 的非负整数“的 Visual Basic 表达式是 1。（分数：2.0
18、0）填空项 1:_设窗体上有一个名称为 Combo1 的组合框，并有以下程序：Private Sub ComboLKeyPress(KeyAscii As Integer)If (7) =13 Then 回车符的 ASC码是 13For k=0 To (8) -1If Combo1.Text=Combo1.List(k)ThenCombo1.Text=“ “Exit ForEnd IfNext kIf Combo1.Text“ “ThenCombo1.AddItem (9) End IfEnd IfEnd Sub程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的
19、项目，若有，则把编辑区中的文本删除，否则把编辑区中的文本添加到列表的尾部。请填空。（分数：6.00）填空项 1:_填空项 1:_填空项 1:_42.设有如下的记录类型：Dim stul as studentType studentnumber As Stringname As Stringage As IntegerEnd Type则引用该记录成员 number 的代码是_。（分数：2.00）填空项 1:_假定建立了一个工程，该工程包括两个窗体，其名称(Name 属性)分别为 Form1 和 Form2，启动窗体为Form1。在 Form1 上画一个命令按钮 Command1，程序运行后，要求
20、当单击该命令按钮时，Form1 窗体隐藏，显示窗体 Form2，请将下面的程序补充完整。Private Sub Command1_Click()Form1. (11) Form2. (12) End Sub（分数：4.00）填空项 1:_填空项 1:_窗体上已有名称分别为 Drive1、Dir1、File1 的驱动器列表框、目录列表框和文件列表框，且有一个名称为 Text1 的文本框。以下程序的功能是：将指定位置中扩展名为“.txt“的文件显示在 File1 中，如果双击File1 中的某个文件，则在 Text1 中显示该文件的内容。请填空。Private Sub Form_Load()Fil
21、e1.Pattern= (13) End SubPrivate Sub Drive1_Change()Dir1.Path=Drive1.DriveEnd SubPrivate Sub Dir1_Change()File1.Path=Dir1.PathEnd SubPrivate Sub File1_DblClick()Dim S As String*1If Right(File1.Path,1)=“/“Thenf_name=File1.Path+Filel.FileNameElsef_name=Filel.Path+“/“+Filel.FileNameEnd IfOpen f_name (14
22、) As#1Text1.Text=“ “Do While (15) s=Input(1，#1) Text1, Text=Text1.Text+SLoopClose#1End Sub（分数：6.00）填空项 1:_填空项 1:_填空项 1:_二级 VISUAL+BASIC 笔试-402 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.下列数据结构中，属于非线性结构的是_。A) 带链队列 B) 循环队列 C) 带链栈 D) 二叉树（分数：2.00）A.B.C.D. 解析：解析 根据数据结构中各数据元素之间前后关系的复杂程度，一般将数据结构分为两大
23、类型：线性结构与非线性结构。线性结构表示数据元素之间为一对一的关系，非线性结构表示数据元素之间为一对多或者多对一的关系。根据各种结构的定义知二叉树是一种非线性结构。2.下列叙述中正确的是_。A) 数据的逻辑结构与存储结构是一一对应的B) 算法的时间复杂度与空间复杂度一定相关C) 算法的效率只与问题的规模有关，而与数据的存储结构无关D) 算法的时间复杂度是指执行算法所需要的计算工作量（分数：2.00）A.B.C.D. 解析：解析 根据时间复杂度和空间复杂度的定义可知，算法的时间复杂度与空间复杂度并不相关。数据的逻辑结构就是数据元素之间的逻辑关系，它是从逻辑上描述数据元素之间关系的，是独立于计算机
24、的；数据的存储结构是研究数据元素和数据元素之间的关系如何在计算机中表示的，它们并非一一对应。算法的执行效率不仅与问题的规模有关，还与数据的存储结构有关。3.在结构化程序设计中，模块划分的原则是_。A) 各模块应包括尽量多的功能 B) 各模块的规模应尽量大C) 各模块之间的联系应尽量紧密 D) 模块内具有高内聚度、模块间具有低耦合度（分数：2.00）A.B.C.D. 解析：解析 耦合性和内聚性是模块独立的两个定性标准。一般较优秀的软件设计尽量做到高内聚、低耦合，这样有利于提高软件模块的独立性，也是模块划分的原则。4.软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)，下面属于应用软件的
25、是_。A) 浏览器 B) 操作系统 C) 编译程序 D) 汇编程序（分数：2.00）A. B.C.D.解析：解析 操作系统属于系统软件，编译程序和汇编程序都属于支撑软件，而浏览器属于应用软件。5.在 E-R 图中，用来表示实体的图形是_。A) 矩形 B) 椭圆形 C) 菱形 D) 三角形（分数：2.00）A. B.C.D.解析：解析 E-R 图中用矩形表示实体集，用椭圆形表示属性，用菱形表示联系。6.结构化分析可以使用的工具是_。A) N-S 图 B) DFD 图 C) PAD 图 D) 程序流程图（分数：2.00）A.B. C.D.解析：解析 数据流图(DFD) 、数据字典、判定表和判定树是
26、结构化分析常用的工具。程序流程图、N-S图和 PAD 图是详细设计过程中常用的图形工具。7.下面不属于软件设计原则的是_。A) 抽象 B) 模块化 C) 自底向上 D) 信息隐蔽（分数：2.00）A.B.C. D.解析：解析 软件设计遵循软件工程的原则，包括抽象、模块化、局部化、信息隐蔽、确定性、一致性、完备性和可验证性。8.在数据管理技术的发展过程中，经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中，数据独立性最高的阶段是_。A) 数据库系统 B) 文件系统 C) 人工管理 D) 数据项管理（分数：2.00）A. B.C.D.解析：解析 在数据管理技术的发展过程中，经历了人工管理阶段、
27、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是数据库系统。数据库阶段用数据模型表示复杂的数据。有较高的数据独立性。数据库系统为用户提供了方便的用户接口，用户可以使用查询语言或终端命令操作数据库，也可以用程序方式操作数据库。数据库管理系统提供了数据控制功能。9.数据库设计包含四个阶段，它们是需求分析、_、逻辑设计和物理设计。A) 编码设计 B) 测试阶段 C) 运行阶段 D) 概念设计（分数：2.00）A.B.C.D. 解析：解析 数据库设计目前一般采用生命周期法，即将整个数据库应用系统的开发分解成目标独立的若干阶段。它们是需求分析阶段、概念设计阶段、逻辑设计阶段和物理设计阶段。10.
28、有两个关系 R，S 如下：（分数：2.00）A.B.C. D.解析：解析 专门的关系运算有 3 种：投影、选择和联接。选择运算是从关系中找出满足给定条件的那些元组，其中的条件是以逻辑表达式给出的，值为真的元组将被选取，这种运算是从水平方向抽取元组。投影运算是从关系模式中挑选若干属性组成新的关系，这是从列的角度进行的运算，相当于对关系进行垂直分解。联接运算是二目运算，需要两个关系作为操作对象。11.窗体文件的扩展名是_。A) .bas B) .cls C) .frm D) .res（分数：2.00）A.B.C. D.解析：bas 为程序模块文件的扩展名；.cls 为类模块文件的扩展名；.res
29、为相关资源文件的扩展名，.frm 为窗体文件的扩展名，故选项 C) 正确。12.以下不能输出“Program“的语句是_。A) Print Mid(“VBProgram“,3,7) B) Print Right(“VBProgram“,7)C) Ptint Mid(“VBProgram“,3) D) Print Left(“VBProgram“,7)（分数：2.00）A.B.C.D. 解析：解析 Left 函数用于输出给定字符串左侧的字符，本题为取字符串左侧 7 个字符，选项 D) 输出的结果应为 VBProgr。13.如果一个变量未经定义就直接使用，则该变量的类型为_。A) Integer
30、B) Byte C) Boolean D) Variant（分数：2.00）A.B.C.D. 解析：解析 在 Visual Basic 中，系统提供了多种数据类型，有字符串类型、数值型、货币型、布尔型和日期型等，此外还有一种变体类型，Variant 是一种特殊的数据类型，Variant 变量中可以存放任何类型的数据，如数值、文本字符串、日期和时间等，向 Variant 变量赋值时不必进行任何转换，系统将自动进行必要的转换。如果变量未经定义就直接使用，则该变量为 Variant 类型。14.设 a=“a“，b=“b“，c=“c“，d=“d“，执行语句 x=IIf(ab) Or (cd)，“A“，
31、“B“)后，x 的值为_。A) “a“ B) “b“ C) “A“ D“B/（分数：2.00）A.B.C. D.解析：解析 IIf 函数是根据表达式的值，来返回两部分中的其中之一。如果表达式的值为 True，则返回第二个参数；如果值为 False，则返回第三个参数。本题中 ab 为 True，故表达式的值为 True，所以返回“A“。15.执行以下程序段a $=“Visual Basic Programming“b $=“C+“c $=UCase(Left $(a $,7)b $ Right$(a $ ,12)后，变量 c $的值为_。A) Visual BASIC Programming B
32、) VISUAL BASIC ProgrammingC) Visual C+Programming D) VISUAL C+Programming（分数：2.00）A.B.C.D. 解析：解析 UCase()函数是返回字符串的大写形式，$表示返回的类型为字符型，属于类型声明字符，例如，%表示整型，表示长整型，#表示双精度浮点。Right(a，M)表示从字符串 a 右边开始取值，取的位数为 M 位，Left(a，N)是从字符串 a 左边开始取值，取的位数为 N 位。根据题意，从字符串 a 左边开始取 7 位是 Visual，通过 UCase()函数返回字符串的大写形式为 VISUAL，通过 Ri
33、ght(a，M)函数得出Programming，最后运用连接符将两个字符串连接在一起。16.以下能够触发文本框 Change 事件的操作是_。A) 文本框失去焦点 B) 文本框获得焦点C) 当文本框不可用时 D) 改变文本框的内容（分数：2.00）A.B.C.D. 解析：解析 当用户向文本框中输入新消息，或当程序把 Text 属性设置为新值从而改变文本框的 Text属性时，将触发 Change 事件。17.在程序运行时，下面的叙述中正确的是_。A) 用鼠标右键单击窗体中无控件的部分，会执行窗体的 Form_Load 事件过程B) 用鼠标左键单击窗体的标题栏，会执行窗体的 Form_Click
34、事件过程C) 只装入而不显示窗体，也会执行窗体的 Form_Load 事件过程D) 装入窗体后，每次显示该窗体时，都会执行窗体的 Form_Click 事件过程（分数：2.00）A.B.C. D.解析：解析 当加载窗体时，系统自动触发该窗体的 Load 事件；当窗体成为一个活动窗口时，触发Activate 事件；单击窗体空白处时，会触发窗体 Click 事件。选项 A) 触发的是 Form_Click 事件；选项B) 用鼠标左键单击窗体的标题栏，不会触发 Form_Click 事件过程；选项 D) 触发的是 Form_Activate 事件过程。所以正确答案为 C) 。18.定义有 5 个整数
35、型元素的数组，正确的语句是_。A) Dim a(4) As Integer B) Option Base 1:Dim a(5)C) Dim a(5) D) Dime a(5) As Integer（分数：2.00）A. B.C.D.解析：解析 在选项 B) 中，语句 Option Base 1 不能放在过程中与 Dim 语句写在一行；选项 C) 中，使用了多余的字符“；选项 D) 中的关键字错误。选项 A) 中的 4 表示最大下标的值，而起始下标默认为0，数组包含 a(0)到 a(4)5 个元素。19.设窗体上有一个水平滚动条，要求单击滚动条右端的 （分数：2.00）A.B.C. D.解析：解
36、析 在一般情况下，垂直滚动条的值由上往下递增，最上端代表最小值(Min)，最下端代表最大值(Max)；水平滚动条的值从左到右递增，最左端代表最小值(Min)，最右端代表最大值(Max)，其取值范围为-32768-32768，因此选项 A) 和选项 B) 不正确。滚动条有两个属性是设置滚动步长的，为LargeChange 和 SmallChange，而 LargeChange 表示单击滚动条中滚动框前面或后面的部位时，Value 增加或减少的增量值，SmallChange 表示单击滚动条两端的箭头时，Value 属性增加或减少的增量值，即滚动块移动的刻度值。20.设窗体上有一个标签 Label1
37、 和一个计时器 Timer1，Timer1 的 Interval 属性被设置为 1000，Enabled属性被设置为 True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是_。A) Private Sub Timer1_Timer()Label1.Caption=TrueEnd SubB) Private Sub Timer1_Timer()For k=1 To Timer1.IntervalLabel1.Caption=TimerNext kEnd SubC) Private Sub Timer1_Timer()Label1.Caption=Timer1.
38、IntervalEnd SubD) Private Sub Timer1_Timer()Label1.Caption=Time $End Sub（分数：2.00）A.B.C.D. 解析：解析 在 Timer 事件过程中编写需要定时进行处理的代码，可以周期性地激活 Timer 事件。在程序代码中，计时器 Interva1=1000，设置间隔为 1 秒。每隔一秒钟自动地调用一次 Timer 事件过程。利用Timer 函数获取系统日期。显示在 Label 控件上。21.执行如下两条语句后，窗体上显示的是_。a=9.8596Print Format(a,“$00 ,00.00“)A) 0,009.86
39、 B) $9.68 C) 9.68 D) $ 00,09.86（分数：2.00）A.B.C.D. 解析：解析 本题考查的是 Format 函数。该函数返回字符串变量，其中含有一个表达式，是根据表达式中的指令来格式化的。所以 9.8596 被格式化后就是$ 00，09.86。22.在窗体上画一个图片框，再在图片框中画一个命令按钮，位置如下图所示，则命令按钮的 Top 属性值是_。（分数：2.00）A. B.C.D.解析：解析 控件的 Top 属性值为控件在父控件或是屏幕中的垂直位置坐标，命令按钮的直接父控件是图片框，因此应该取值 200 而不是 500 或 700。23.下面程序段执行结果为_。
40、x=Int(Rnd()+4)Select Case xCase 5Print “excellent“Case 4Print “good“Case 3Print “pass“Case ElsePrint “fail“End SelectA) excellent B) good C) pass D) fall（分数：2.00）A.B. C.D.解析：解析 Rnd()函数产生的随机数为0，1)，加上 4 后为4，5)，用 Int()函数取整以后就只能是 4了，所以执行 Case 4 后面的语句输出 good。24.已知有下面过程：Private Sub procl(a As Integer,b As
41、 String,Optional x As Boolean)End Sub正确调用此过程的语句是_。A) Call procl(3) B) Call procl 3,“xyz“ ,TrueC) procl(5,“xyz“ ,False) D) procl 12,“xyz/（分数：2.00）A.B.C.D. 解析：解析 过程的调用有两种，一种是把过程的名字放在一个 Call 语句中，一种是把过程名作为一个语句来使用。如果用第一种方式，其格式为：Call 过程名(实际参数)。如果过程本身没有参数，则“实际参数“和括号可以省略，否则应给出相应的实际参数，并把参数放在括号中，所以选项 B) 不正确。本
42、题中，只有参数 x 是可选的，调用时可以不写，而其他的必须有，而选项 A) 丢了一个实际参数，所以也不正确。如果用过程名来调用过程，则 Call 省略，则此时去掉“实际参数“的括号，故选项 C) 不正确，所以只有选项 D) 正确。25.在窗体上画三个标签、三个文本框(名称分别为 Text1、Text2、Text3)和一个命令按钮(名称为Command1)，外观如下图所示。（分数：2.00）A.B.C.D. 解析：解析 本题考查的是参数的传递。Visual Basic 通过关键字 ByVal 来实现传值。这时候，Visual Basic 为形参分配内存，并将相应的实参值复制给形参。对于 f，其参
43、数分别为 x=36，y=24，这里的x，y 与事件过程中的 x，y 使用的不是同一个地址，f 的返回值是 12，所以 TexB 中的内容是 12。26.若在某窗体模块中有如下事件过程：Private Sub Command1_Click(Index As Integer)End Sub则以下叙述中正确的是_。A) 此事件过程与不带参数的事件过程没有区别B) 有一个名称为 Command1 的窗体，单击此窗体则执行此事件过程C) 有一个名称为 Command1 的控件数组，数组中有多个不同类型控件D) 有一个名称为 Command1 的控件数组，数组中有多个相同类型控件（分数：2.00）A.B.
44、C.D. 解析：解析 根据题意，该段代码应为命令按钮数组的单击过程代码，它与单个命令按钮的事件过程是不同的，它根据索引值的不同来执行不同的代码，所以选项 A) 和选项 B) 都不正确；控件数组是由一组相同类型的控件组成，这些控件用一个相同的控件名称，具有相同的属性设置，因此选项 C) 错误，选项D) 正确。27.设有以下函数过程：Function fun(a As Integer,b As Integer)Dim c As IntegerIf ab Thenc=a:a=b:b=cEnd Ifc=0Doc=c+aLoop Until c Mod b=0fun=cEnd Function若调用函数
45、 fun 时的实际参数都是自然数，则函数返回的是_。A) a、b 的最大公约数B) a、b 的最小公倍数C) a 除以 b 的余数D) a 除以 b 的商的整数部分（分数：2.00）A.B. C.D.解析：解析 题中所述函数过程中，If 语句用来保证数 a 大于数 b，如果数 a 小于数 h，则将两者的值交换。取模运算符 Mod 用来求余数，即结果是数 c 整除数 b 所得的余数。c 等于 a 值的累加，其值在逐步增大，c 当然能整除 a；而循环结束的条件为 c 是否能整除 b，当刚好整除时跳出循环体，所以 c 的值能整除 a 和 b 的最小值，因此 Do Loop 循环语句运行的结果为 a
46、和 b 的最小公倍数。28.设有如下通用过程：Public Function Fun(xStr As String) As StringDim tStr As String,strL As IntegertStr=“ “strL=Len(xStr)i=1Do While i=strL/2tStr=tStrarr(3,4)End Sub 程序运行后，单击窗体，输出结果为_。A) 0 0 B) 7 12 C) 0 13 D) 8 13（分数：2.00）A.B.C.D. 解析：解析 本题考查的是动态数组。在通用中定义的数组，我们并没有给它界定范围，也没有赋初值，在过程中用 ReDim 语句具体定义数
47、组，其一般格式为：ReDimPreserve(数组名下界 To上界，下界To上界)。此题中要分清楚两个数组的界限。而 Preserve 关键字表示只能调整数组最后维数的大小，并且不能改变数组的维数。这样重新定义数组后，arr(3，2)的值可以保留，所以选择答案 D) 。34.假设有下表所列的菜单结构标题名称层次显示appear1(主菜单)大图标bigicon2(子菜单)小图标smallicon2(子菜单)要求程序运行后，如果单击菜单项“大图标“，则在该菜单项前添加一个“。以下事件过程正确的是_。A) Ptivate Sub bigicon_Click()bigicon.Checked=TrueEnd SubB) Ptivate Sub bigicon_Click()bigicon.Checked=FalseEnd SubC) Private Sub bigicon_Click()appear.bigicon.Checked=TrueEnd SubD) Private Sub bigicon_Click()Me.appear.bigicon.Checked=TrueEnd Sub（分数：2.00）A. B.C.D.解析：解析 在 Visual Basic 中，要对菜
