1、二级 VISUAL+BASIC 笔试-408 及答案解析(总分：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.软件开
2、发离不开系统环境资源的支持，其中必要的测试数据属于( )。A) 硬件资源 B) 通信资源 C) 支持软件 D) 辅助资源（分数：2.00）A.B.C.D.4.软件工程的出现是由于( )。A) 程序设计方法学的影响 B) 软件产业化的需要C) 软件危机的出现 D) 计算机的发展（分数：2.00）A.B.C.D.5.软件开发的结构化生命周期方法将软件生命周期划分成( )。A) 定义、开发、运行维护B) 设计阶段、编程阶段、测试阶段C) 总体设计、详细设计、编程调试D) 需求分析、功能定义、系统设计（分数：2.00）A.B.C.D.6.下面概念中，不属于面向对象方法的是( )。A) 对象 B) 继承
3、 C) 类 D) 过程调用（分数：2.00）A.B.C.D.7.一个关系中属性个数为 1 时，称此关系为( )。A) 对应关系 B) 单一关系 C) 一元关系 D) 二元关系（分数：2.00）A.B.C.D.8.一个教师可讲授多门课程，一门课程可由多个教师讲授，则实体教师和课程间的联系是( )。A) 1:1 联系 B) 1:m 联系 C) m:1 联系 D) m:n 联系（分数：2.00）A.B.C.D.9.下列有关数据库的描述，正确的是( )。A) 数据库是一个 DBF 文件 B) 数据库是一个关系C) 数据库是一个结构化的数据集合 D) 数据库是一组文件（分数：2.00）A.B.C.D.1
4、0.使用关系运算对系统进行操作，得到的结果是( )。A) 属性 B) 元组 C) 关系 D) 关系模式（分数：2.00）A.B.C.D.11.下列说法错误的是( )。A) 方法是对象的一部分B) 在调用方法时，对象名是不可缺少的C) 方法是一种特殊的过程和函数D) 方法的调用格式和对象属性的使用格式相同（分数：2.00）A.B.C.D.12.启动 Visual Basic 后，就意味着要建立一个新( )。A) 窗体 B) 程序 C) 工程 D) 文件（分数：2.00）A.B.C.D.13.要使文本框可输入多行文字，要更改的默认选项是( )。A) MultiLine B) Visible C)
5、ScrollBars D) 以上都不是（分数：2.00）A.B.C.D.14.Righ(“ABCDEFG“,3)的执行结果是( )。A) ABC B) EFG C) DEF D) CDE（分数：2.00）A.B.C.D.15.下列哪一项使图像(Image)控件中的图像自动适应控件的大小( )。A) 将控件的 AutoSize 属性设为 TrueB) 将控件的 AutoSize 属性设为 FalseC) 将控件的 Stretch 属性设为 TrueD) 将控件的 Stretch 属性设为 False（分数：2.00）A.B.C.D.16.要清除列表框中所有的列表项时，应使用( )方法。A) Re
6、move B) Clear C) Removeltem D) Move（分数：2.00）A.B.C.D.17.在窗体上画一个名称为 List1 的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为( )。（分数：2.00）A.B.C.D.18.以下各项中，Visual Basic 不能接收的图形文件是( )。A) .ico 文件 B) .jpg 文件 C) .psd 文件 D) .bmp 文件（分数：2.00）A.B.C.D.19.要使菜单项 MenuOne 在程序运行时失效，使用的语句是( )。A) MenuOne.Visible:True B) MenuOne.Visible
7、:FalseC) MenuOne.Enabled:True D) MenuOne.Enabled:False（分数：2.00）A.B.C.D.20.确定一个控件在窗体上的位置的属性是( )。A) Width 和 Height B) Width 或 Height C) Top 和 Left D) Top 或 Left（分数：2.00）A.B.C.D.21.下面的数组声明语句中正确的是( )。A) Dim gg1,5 As String B) Dim gg1 To 5,1 To 5As StringC) Dim gg(1 To 5) As String D) Dim gg1:5,1:5As Str
8、ing（分数：2.00）A.B.C.D.22.计时器文件设置时间间隔的属性是( )。A) Enabled B) Index C) Tag D) InCerval（分数：2.00）A.B.C.D.23.有如下函数过程：Function Fun(ByVal x As Integer, ByVal y As Integer)As IntegerDo While y0reminder=x Mod yx=yy=reminderLoopFun=xEnd Function以下是调用该函数的事件过程，该程序的运行结果是( )。Private Sub Command1_Click()Dima As Intege
9、rDim b As Integera=100:b=25x=Fun(a,B)Print XEnd SubA) 0 B) 25 C) 50 D) 100（分数：2.00）A.B.C.D.24.如果准备读文件，打开顺序文件 text.dat 的正确语句是( )。A) Open“text.dat“For Write As#1B) Open“text.dat“For Binary As#1C) Open“text.dat“For Input As#1D) Open“text.dat“For Random As#1（分数：2.00）A.B.C.D.25.执行下列程序段后，输出的结果是( )。For k1=
10、0 To 4y=20For k2=0 To 3y=10For k3=0 To 2y=y+10Next k3Next k2Next k1Print yA) 90 B) 60 C) 40 D) 10（分数：2.00）A.B.C.D.26.下面程序段执行结果为( )。x=Int(Rnd( )+4)Select Case xCase 5Print“excellent“Case4Print“good“Case 3Print“pass“Case ElsePrint “fail“End SelectA) excellent B) good C) pass D) fall（分数：2.00）A.B.C.D.27
11、.编写如下事件过程和函数过程：Private Sub Form_Click()Dim num() To 6)As Singlenum(1)=103:num(2):190:num(3)=0num(4)=32:num(5)=-56:num(6)=100PrintPrint p2(6,num()End SubPrivate Function p2(ByVal n As Integer,number() As Single)As Integerp2=number(1)For i=2 To nIf number(j)p2 Then p2=number(j)Next iEnd Function程序运行后窗
12、体上显示的值是( )。A) -56 B) 0 C) 103 D) 190（分数：2.00）A.B.C.D.28.设有命令按钮 Command1 的单击事件过程，代码如下：Private Sub Command1_Click()Dim a3,3) As IntegerFor i=1 To 3For j=1 To 3a(i,j):i*j+iNext jNext iSum=0For i=1 To 3Sum=Sum+a(i,4-i)Next iPrint SumEnd Sub运行程序，单击命令按钮，输出结果是( )。A) 20 B) 7 C) 16 D) 17（分数：2.00）A.B.C.D.29.下
13、列程序运行时输出的结果是( )。Private Sub Form_Click( )Dim aa=Array(“天天向上”，“清华大学”，“夭长地久”，“程序设计”)For i=LBound(a,1) to UBound(a,1)If Left(a(i),1)=“天“Then Print a(i):NextEnd SubA) 天天向上 B) 天天向上天长地久C) 出错信息 D) 天天向上清华大学天长地久程序设计（分数：2.00）A.B.C.D.30.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For i=1 To 4x=4For i=1
14、To 3x=3For k=1 To 2x=x+6NextNextNextPrint XEnd Sub程序运行后，单击命令按钮，输出的结果是( )。A) 7 B) 15 C) 157 D) 538（分数：2.00）A.B.C.D.31.如果要将窗体中的某个命令按钮设置成无效状态，应该设置命令按钮的( )属性。A) Value B) Visible C) Enabled D) Default（分数：2.00）A.B.C.D.32.组合框控件是将( )组合成一个控件。A) 列表框控件和文本框控件B) 标签控件和列表框控件C) 标签控件和文本框控件D) 复框控件和选项按钮控件（分数：2.00）A.B.
15、C.D.33.在窗体上画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框，然后输写如下程序：Private Sub Command1_Click()Dim x,y，Z As Integerx=5y=7z=0Text1.Text=“”Call Fun1(x,y,z)Text1.Text=Str(Z)End SubSub Fun1(ByVal a As Integer,ByVal b As Integer,c As Integer)c=a+bEnd Sub程序运行后，如果单击命令按钮，则在文本框中显示的内容是( )。A) 0 B) 12 C) Str(z) D) 没有显示
16、（分数：2.00）A.B.C.D.34.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()C=“ABCD”For n=1 To 4Print_NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容：DCDBCDABCD则在横线处应填入的内容是( )。A) Left(c,n) B) Right(c,n) C) Mid(c,n,1) D) Mid(c,n,n)（分数：2.00）A.B.C.D.35.下列每组控件中，都包含有滚动条的一组控件及( )。A) ListBox 和 LabelBoxB) Tex
17、tBox 和 DriveListBoxC) ComboBox 和 CheckBoxD) FileListBox 和 DirListBox（分数：2.00）A.B.C.D.二、填空题(总题数：15，分数：30.00)36.在算法的 4 个特征中，算法必须能在执行有限个步骤之后终止，指的是算法的 (1) 性。（分数：2.00）填空项 1:_37.对长度为 10 的线性表进行冒泡排序，最坏情况下需要比较的次数为 (2) 。（分数：2.00）填空项 1:_38.有一棵非空二叉树，其第 K 层上最多有 (3) 个结点。（分数：2.00）填空项 1:_39.符合结构化原则的三种基本控制结构是选择结构、循环
18、结构和 (4) 。（分数：2.00）填空项 1:_40.数据库设计分为以下 6 个设计阶段：需求分析阶段、 (5) 、逻辑设计阶段、物理设计阶段、实施阶段、运行和维护阶段。（分数：2.00）填空项 1:_41.Private Sub Form_Activate()For i=1 To 3x=3For I=1 To 2x=x+6Next INext jPrint XEnd Sub程序运行后，窗体上显示的结果为 (6) （分数：2.00）填空项 1:_42.执行下面的程序段后，变量 S 的值为 (7) S=5For i=2.6 To 4.9 Step 0.6S=S+1Next i（分数：2.00）
19、填空项 1:_43.在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的 Click 事件过程。程序运行后，在文本框中输入一串英文字母(不区分大小写)，单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到 Text1 中。例如，若在 Text1 中输入的是 abDfdb，则单击 Command1 按钮后Text1 中显示的字符串是 ZYXWVUTSRQPONMLKJIHGEC。请填空。Private Sub Command1_Click()Dim str As String,s As String,c As Stringstr=UCase(Text1)S=“”C
20、=“Z”While C=“A”If Instr(str,C)=O Thens= (8) End IfC=Chr $(Asdc(-1)WendIf S“”ThenText1=sEnd IfEnd Sub（分数：2.00）填空项 1:_44.控件数组的名字由 Name 属性指定，而数组中的每个元素由 (9) 属性指定。（分数：2.00）填空项 1:_45.下列事件过程的功能是：通过 Form_Load 事件给数组赋初值 35、48、15、22、67，Form_Click 事件找出可以被 3 整除的数组元素并打印出来。请在空白处填入适当的内容，将程序补充完整。Dim Arr()Private Sub
21、 Form_Load()(10) End SubPrivate Sub Form_Click()For Each X In ArrIf Int(x/3)=x/3 ThenPrint XEnd IfNext XEnd Sub（分数：2.00）填空项 1:_46.有一个过程如下：Sub Sub1(m As Integer,total As Long)Dim i AS Integertotal=1For i=1 To mtotal=total*iNextEnd Sub调用它的事件过程如下：Private Sub Command1_Click()Dim tot As Long,a As Integer
22、a:Val(InputBox(“请输入数据”)Call Sub1(a,tot)Print totEnd Sub则输入数据 5，运行结果为 (11) （分数：2.00）填空项 1:_47.下列程序的功能是：当 x50 时，y=0.8 x；当 50x100 时，y:0.7 x；当 x100 时，没有意义。请填空。Private Sub Command1_Click()Dim X As Singlex:InputBox(“请输入 x 的值！”)Select Case XCase Is 50y=0.8*XCase 50 To 100y=07 *x(12) Print“输入的数据出界！”End Sele
23、ctPrint X，yEnd Sub（分数：2.00）填空项 1:_48.把文字字符串“Hello Word”写入#1 号文件，然后把回车/换行写入文件的操作应该是 (13) 。（分数：2.00）填空项 1:_49.在用 Open 语句打开文件时，如果省略“For 方式”，则打开的文件的存在方式是 (14) 。（分数：2.00）填空项 1:_50.在名称为 Form1 的窗体上画一个名称为 Text1 的文本框，画一个名称为 Command1 的命令按钮。程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件 test.dat 中。请在空白处填上适当的内容，将程序
24、补充完整。Private Sub Command1_Click()Open “c:/test.dat“ For Output As#1For I=1 To Len(Text1.text)(15) Next ICiose#1End Sub（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试-408 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.线性表的顺序存储结构和线性表的链式存储结构分别是( )。A) 顺序存取的存储结构、顺序存取的存储结构B) 随机存取的存储结构、顺序存取的存储结构C) 随机存取的存储结构、随机存取的存储结
25、构D) 任意存取的存储结构、任意存取的存储结构（分数：2.00）A.B. C.D.解析：解析 顺序存储结构中，数据元素存放在一组地址连续的存储单元中，每个数据元素地址可通过公式 LOC(ai)=LOC(a1)+(i-1)L 计算得到，从而实现了随机存取。对于链式存储结构，要对某结点进行存取，都得从链的头指针指向的结点开始，这是一种顺序存取的存储结构。2.下列关于栈的叙述中正确的是( )。A) 在栈中只能插入数据 B) 在栈中只能删除数据C) 栈是先进先出的线性表 D) 栈是先进后出的线性表（分数：2.00）A.B.C.D. 解析：解析 栈是限定在一端进行插入与删除的线性表。栈是按照“先进后出”
26、的或“后进先出”的原则组织数据的，因此，栈也被称为“先进后出”表或“后进先出”表。3.软件开发离不开系统环境资源的支持，其中必要的测试数据属于( )。A) 硬件资源 B) 通信资源 C) 支持软件 D) 辅助资源（分数：2.00）A.B.C.D. 解析：解析 软件测试过程中，辅助资源包括测试用例(测试数据)、测试计划、出错统计和最终分析报告等。4.软件工程的出现是由于( )。A) 程序设计方法学的影响 B) 软件产业化的需要C) 软件危机的出现 D) 计算机的发展（分数：2.00）A.B.C. D.解析：解析 软件工程概念的出现源自于软件危机。为了消除软件危机，通过认真研究解决软件危机的方法，
27、认识到软件工程是使计算机软件走向工程科学的途径，逐步形成了软件工程的概念。5.软件开发的结构化生命周期方法将软件生命周期划分成( )。A) 定义、开发、运行维护B) 设计阶段、编程阶段、测试阶段C) 总体设计、详细设计、编程调试D) 需求分析、功能定义、系统设计（分数：2.00）A. B.C.D.解析：解析 通常将软件产品从提出、实现、使用维护到停止使用的过程称为软件生命周期。它可以分为软件定义、软件开发及软件运行维护 3 个阶段。6.下面概念中，不属于面向对象方法的是( )。A) 对象 B) 继承 C) 类 D) 过程调用（分数：2.00）A.B.C.D. 解析：解析 面向对象方法是一种运用
28、对象、类、封装、继承、多态和消息等概念来构造、测试、重构软件的方法。面向对象方法从对象出发，发展出对象、类、消息、继承等概念。7.一个关系中属性个数为 1 时，称此关系为( )。A) 对应关系 B) 单一关系 C) 一元关系 D) 二元关系（分数：2.00）A.B.C. D.解析：解析 在关系模型数据库中，基本结构是二维表，这种二维表称为关系。关系的列称为属性，一个具有 N 个属性的关系称为 N 元关系。8.一个教师可讲授多门课程，一门课程可由多个教师讲授，则实体教师和课程间的联系是( )。A) 1:1 联系 B) 1:m 联系 C) m:1 联系 D) m:n 联系（分数：2.00）A.B.
29、C.D. 解析：解析 两个实体间的联系可以归纳为 3 种类型。一对一联系：一对一的联系表现为主表中的每一条记录只与相关表中的一条记录相关联。一对多联系或多对一联系：一对多的联系表现为主表中的每一条记录与相关表中的多条记录相关联。多对多联系：多对多的联系表现为一个表中的多个记录在相关表中同样有多个记录与其匹配。一个教师可讲授多门课程，一门课程可由多个教师讲授，所以实体教师和课程间的联系是多对多的联系。9.下列有关数据库的描述，正确的是( )。A) 数据库是一个 DBF 文件 B) 数据库是一个关系C) 数据库是一个结构化的数据集合 D) 数据库是一组文件（分数：2.00）A.B.C. D.解析：
30、解析 数据库(DataBase，DB)是数据的集合，它具有统一的结构形式并存放于统一的存储介质内，是多种应用数据的集成，可被各个应用程序所共享。数据库中的数据具有集成、共享的特点。10.使用关系运算对系统进行操作，得到的结果是( )。A) 属性 B) 元组 C) 关系 D) 关系模式（分数：2.00）A.B.C. D.解析：解析 关系运算分为如下两种。传统的关系运算(集合运算)进行并、差、交集合运算的两个关系必须具有相同的关系模式，即相同结构。在 Visual FoxPro 中没有提供传统的集合运算，可以通过其他操作或编写程序来实现。专门的关系运算选择：从关系中找出满足给定条件的元组的操作称为
31、选择。投影：从关系模式中指定若干个属性组成新的关系称为投影。联接：联接是关系的横向结合。联接运算将两个关系模式拼接成一个更宽的关系模式，生成的新关系中包含满足联接条件的元组。11.下列说法错误的是( )。A) 方法是对象的一部分B) 在调用方法时，对象名是不可缺少的C) 方法是一种特殊的过程和函数D) 方法的调用格式和对象属性的使用格式相同（分数：2.00）A.B.C.D. 解析：解析 对象是属性、方法和事件的集合，故选项 A)正确；方法为特殊的过程和函数，故选项 C)正确；方法也是特定对象的一部分，所以方法调用时，对象不能省。故选项 B)正确。12.启动 Visual Basic 后，就意味
32、着要建立一个新( )。A) 窗体 B) 程序 C) 工程 D) 文件（分数：2.00）A.B.C. D.解析：解析 启动 Visual Basic 表示启动一个新的工程，窗体是包含在工程中的，一个工程可以没有窗体。13.要使文本框可输入多行文字，要更改的默认选项是( )。A) MultiLine B) Visible C) ScrollBars D) 以上都不是（分数：2.00）A. B.C.D.解析：解析 MultiLine 被设置为 True 时可以使用多行文字，不用改 ScrollBars。14.Righ(“ABCDEFG“,3)的执行结果是( )。A) ABC B) EFG C) DE
33、F D) CDE（分数：2.00）A.B. C.D.解析：解析 Right()函数的作用是从字符串右边取出的指定数量的字符，本题将从原字符串右侧取出 3个字符，B)选项正确。15.下列哪一项使图像(Image)控件中的图像自动适应控件的大小( )。A) 将控件的 AutoSize 属性设为 TrueB) 将控件的 AutoSize 属性设为 FalseC) 将控件的 Stretch 属性设为 TrueD) 将控件的 Stretch 属性设为 False（分数：2.00）A.B.C. D.解析：解析 Image 控件的 Stretch 属性返回或设置一个值，该值用来指定一个图形是否要调整大小，以
34、适应 Image 控件的大小。16.要清除列表框中所有的列表项时，应使用( )方法。A) Remove B) Clear C) Removeltem D) Move（分数：2.00）A.B. C.D.解析：解析 清除所有项用 clear 方法。17.在窗体上画一个名称为 List1 的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为( )。（分数：2.00）A. B.C.D.解析：解析 List1.ListCount 表示列表框项目数。引用项目的时候是从 0 开始，所以为 O 至 ListCout-1。18.以下各项中，Visual Basic 不能接收的图形文件是( )。A)
35、 .ico 文件 B) .jpg 文件 C) .psd 文件 D) .bmp 文件（分数：2.00）A.B.C. D.解析：解析 在 Visual Basic 中，可以接受不同的图形文件，见下表。Visual Basic 支持的图形文件文件类型文件扩展名位图文件bmp；.dib图标文件iCO：.curWindows 图元文件.wmf：.emfGIF格式图形压缩文件.gifJPE .jpG 格式图形压缩文件g从上表可知，psd 文件不是 Visual Basic 所支持的图形文件。19.要使菜单项 MenuOne 在程序运行时失效，使用的语句是( )。A) MenuOne.Visible:Tru
36、e B) MenuOne.Visible:FalseC) MenuOne.Enabled:True D) MenuOne.Enabled:False（分数：2.00）A.B.C.D. 解析：解析 菜单控件的主要属性有 Caption、Name、Index、Enabled、Visible 等，其中 Enabled 和Visible 属性值为逻辑值，Visible 属性用于表示菜单项是否可见，Enabled 属性用于表示菜单项是否可用。当 Enabled 属性值为 False 时，表示菜单项当前不可用；当属性值为 True 时，表示菜单项可用。20.确定一个控件在窗体上的位置的属性是( )。A)
37、Width 和 Height B) Width 或 Height C) Top 和 Left D) Top 或 Left（分数：2.00）A.B.C. D.解析：解析 top 和 left 可以定位控件。21.下面的数组声明语句中正确的是( )。A) Dim gg1,5 As String B) Dim gg1 To 5,1 To 5As StringC) Dim gg(1 To 5) As String D) Dim gg1:5,1:5As String（分数：2.00）A.B.C. D.解析：解析 在默认情况下，无论是一维还是二维或更多维的数组，其默认下标都从 0 开始，但有时为了方便，用
38、户可以自定义数组的上下界，这时可用关键字 To 来设置。例如，d(1 To 6)，其含义就是一个名为 d，上界为 6，下界为 1 的数组。22.计时器文件设置时间间隔的属性是( )。A) Enabled B) Index C) Tag D) InCerval（分数：2.00）A.B.C.D. 解析：解析 计时器控件的常用属性有两个：一是 Enabled 属性，表示计时器是否启用；二是 Interval属性，表示计时器 Timer 事件执行的时间间隔。23.有如下函数过程：Function Fun(ByVal x As Integer, ByVal y As Integer)As Integer
39、Do While y0reminder=x Mod yx=yy=reminderLoopFun=xEnd Function以下是调用该函数的事件过程，该程序的运行结果是( )。Private Sub Command1_Click()Dima As IntegerDim b As Integera=100:b=25x=Fun(a,B)Print XEnd SubA) 0 B) 25 C) 50 D) 100（分数：2.00）A.B. C.D.解析：解析 本题的难点是子函数的调用过程。子函数 Fun 的功能是求 x 和 y 的公约数，由欧几里德公式求最大公约数的算法可知，当余数 r 为 0 时，x
40、 为 x 和 y 的最大公约数。变量 x 的值通过子函数名 Fun返回。24.如果准备读文件，打开顺序文件 text.dat 的正确语句是( )。A) Open“text.dat“For Write As#1B) Open“text.dat“For Binary As#1C) Open“text.dat“For Input As#1D) Open“text.dat“For Random As#1（分数：2.00）A.B.C. D.解析：解析 Open 语句对文件输入/输出操作，语法如下：Open文件名For模式As#文件号。Input 模式：从打开的文件中写入数据。以该模式打开文件时，文件必须
41、已经存在，否则将出现错误。25.执行下列程序段后，输出的结果是( )。For k1=0 To 4y=20For k2=0 To 3y=10For k3=0 To 2y=y+10Next k3Next k2Next k1Print yA) 90 B) 60 C) 40 D) 10（分数：2.00）A.B.C. D.解析：解析 不要被题目的三重循环迷惑，因为第一层、第二层两层循环内部均对 y 进行了赋值，所以不论外层循环多少次对 y 均没有影响。只有最内层的循环决定 y 值，y 初始值 10，进行自加 10 运算 3 次，最后 40。26.下面程序段执行结果为( )。x=Int(Rnd( )+4)
42、Select Case xCase 5Print“excellent“Case4Print“good“Case 3Print“pass“Case ElsePrint “fail“End SelectA) excellent B) good C) pass D) fall（分数：2.00）A.B. C.D.解析：解析 在 Visual Basic 中，组成变量名的英文字母不区分大小写，如 Single 和 single 是一样的，在定义了一个变量之后，只要字符相同，则不管它大小写是否相同，指的都是同一个变量。27.编写如下事件过程和函数过程：Private Sub Form_Click()Dim
43、 num() To 6)As Singlenum(1)=103:num(2):190:num(3)=0num(4)=32:num(5)=-56:num(6)=100PrintPrint p2(6,num()End SubPrivate Function p2(ByVal n As Integer,number() As Single)As Integerp2=number(1)For i=2 To nIf number(j)p2 Then p2=number(j)Next iEnd Function程序运行后窗体上显示的值是( )。A) -56 B) 0 C) 103 D) 190（分数：2.
44、00）A. B.C.D.解析：解析 此题需要仔细分析 p2 函数的数学意义，不难发现返回值为前 n 个数中的最小值，所以输出的结果是 num 数组前 6 项中的最小值，即为 num( 5) =-56。28.设有命令按钮 Command1 的单击事件过程，代码如下：Private Sub Command1_Click()Dim a3,3) As IntegerFor i=1 To 3For j=1 To 3a(i,j):i*j+iNext jNext iSum=0For i=1 To 3Sum=Sum+a(i,4-i)Next iPrint SumEnd Sub运行程序，单击命令按钮，输出结果是
45、( )。A) 20 B) 7 C) 16 D) 17（分数：2.00）A.B.C. D.解析：解析 最终 sum 实为 a(1，3)、a(2，2)、a(3，1)三个元素的和，根据初始化语句，此三个数组元素值依次为 4、6、6，所以 sum 最终为 16。29.下列程序运行时输出的结果是( )。Private Sub Form_Click( )Dim aa=Array(“天天向上”，“清华大学”，“夭长地久”，“程序设计”)For i=LBound(a,1) to UBound(a,1)If Left(a(i),1)=“天“Then Print a(i):NextEnd SubA) 天天向上 B
46、) 天天向上天长地久C) 出错信息 D) 天天向上清华大学天长地久程序设计（分数：2.00）A.B. C.D.解析：解析 通过 LBound 和 UBound 函数返回一个数组中指定维的上界和下界，该程序的作用是找出并返回第一个字是“天”字的成语，故选 B)。30.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For i=1 To 4x=4For i=1 To 3x=3For k=1 To 2x=x+6NextNextNextPrint XEnd Sub程序运行后，单击命令按钮，输出的结果是( )。A) 7 B) 15 C) 157 D)
47、 538（分数：2.00）A.B. C.D.解析：解析 x 在前面两个循环中均被赋值，最终为 x=3，只看最后一个循环体中，经 2 次循环后x=15。31.如果要将窗体中的某个命令按钮设置成无效状态，应该设置命令按钮的( )属性。A) Value B) Visible C) Enabled D) Default（分数：2.00）A.B.C. D.解析：解析 在 Visual Basic 中，控制控件有效性的属性是 Enabled，设置为 True，则处于有效状态，如果设置成 False，则处于无效状态，所以选项 C)是正确的；Visible 属性是控制空间可见性的，有两种值：True 和 Fa
48、lse，默认情况下是 True，如果将对象的 Visible 值设为 False，窗体和控件在设计阶段仍可见，只有运行时才隐藏，所以选项 B)不正确；Default 是决定窗体默认命令按钮的属性，另外，一个窗体只能有一个默认命令按钮，所以选项 D)也不正确；Value 属性在不同的控件中有不同的作用。32.组合框控件是将( )组合成一个控件。A) 列表框控件和文本框控件B) 标签控件和列表框控件C) 标签控件和文本框控件D) 复框控件和选项按钮控件（分数：2.00）A. B.C.D.解析：解析 组合框是综合了文本框与列表框的一个控件。33.在窗体上画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框，然后输写如下程序：Private Sub Command1_Click()Dim x,y，Z As Integerx=5y=7z=0Text1.Text=“”Call Fun1(x,y,z)Text1.Text=Str(Z)End SubSub Fun1(ByVal a As Integer,ByVal b As Integer,c As Integer)c=a+bEnd
