1、全国计算机等级考试二级 VISUAL+BASIC 真题 2006 年 4 月及答案解析(总分：92.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.下列选项中不属于结构化程序设计方法的是_。（分数：2.00）A.自顶向下B.逐步求精C.模块化D.可复用2.两个或两个以上的模块之间关联的紧密程度称为_。（分数：2.00）A.耦合度B.内聚度C.复杂度D.数据传输特性3.下列叙述中正确的是_。（分数：2.00）A.软件测试应该由程序开发者来完成B.程序经调试后一般不需要再测试C.软件维护只包括对程序代码的维护D.以上三种说法都不对4.按照“后进先出”原则组织数据的
2、数据结构是_。（分数：2.00）A.队列B.栈C.双向链表D.二叉树5.下列描述中正确的是_。（分数：2.00）A.线性链表是线性表的链式存储结构B.栈与队列是非线性结构C.双向链表是非线性结构D.只有根结点的二叉树是线性结构6.对如下二叉树 （分数：2.00）A.ABCDEFB.DBEAFCC.ABDECFD.DEBFCA7.在深度为 7 的满二叉树中，叶子结点的个数为_。（分数：2.00）A.32B.31C.64D.638.“商品”与“顾客”两个实体集之间的联系一般是_。（分数：2.00）A.一对一B.一对多C.多对一D.多对多9.在 E-R 图中，用来表示实体的图形是_。（分数：2.00
3、）A.矩形B.椭圆形C.菱形D.三角形10.数据库 DB、数据库系统 DBS、数据库管理系统 DBMS 之间的关系是_。（分数：2.00）A.DB 包含 DBS 和 DBMSB.DBMS 包含 DB 和 DBSC.DBS 包含 DB 和 DBMSD.没有任何关系11.以下关于 Visual Basic 特点叙述中，错误的是_。（分数：2.00）A.Visual Basic 是采用事件驱动编程机制的语言B.Visual Basic 程序既可以编译运行，也可以解释运行C.构成 Visual Basic 程序的多个过程没有固定的执行顺序D.Visual Basic 程序不是结构化程序，不具备结构化程
4、序的三种基本结构12.以下叙述中，错误的是_。（分数：2.00）A.一个 Visual Basic 应用程序可以含有多个标准模块文件B.一个 Visual Basic 工程可以含有多个窗体文件C.标准模块文件可以属于某个指定的窗体文件D.标准模块文件的扩展名是.bas13.以下叙述中错误的是_。（分数：2.00）A.在 Visual Basic 中，对象所能响应的事件是由系统定义的B.对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定C.Visual Basic 中允许不同对象使用相同名称的方法D.Visual Basic 中的对象具有自己的属性与方法14.设有如下语句： Dim a
5、,b As Integer c=“Visual Basic“ d=#7/20/2005# 以下关于这段代码的叙述中，错误的是_。（分数：2.00）A.a 被定义为 Integer 类型变量B.b 被定义为 Integer 类型变量C.c 中的数据是字符串D.d 中的数据是日期类型15.以下能从字符串“Visual Basic”中直接取出子字符串“Basic”的函数是_。（分数：2.00）A.LeftB.MidC.StringD.Instr16.设 a=4,b=3,c-2,d=1，下列表达式的值是_。ab1 Or cd And b Mod c（分数：2.00）A.TrueB.1C.-1D.017
6、.以下可以作为 Visual Basic 变量名的是_。（分数：2.00）A.A#AB.counstAC.3AD.?AA18.设 x=4,y=6，则以下不能在窗体上显示出“a=10”的语句是_。（分数：2.00）A.Prim A=xyB.Print “A=“；xyC.Print “A=“ str(xD.Print “A=“&Xy19.假定有如下的命令按扭(名称为 Command1)事件过程： Private Sub Command1_Click() x=InputBox(“输入：”，“输入整数”) MsgBox“输入的数据是：”，“输入数据：”x End Sub 程序运行后，单击命名按扭，所果
7、从键盘上输入整数 10，则以下叙述中错误的是_。（分数：2.00）A.x 的值是数值 10B.输入对话框的标题是“输入整数”C.信息框的标题是“输入数据：10”D.信息框中显示的“输入的数据是：”20.在窗体上画 1 个命令按扭(名称为 Command1)和 1 个文本框(名称为 Text1)，然后编写如下事件过程： Private Sub Command1_click() x=Val(Text1.Text) Select Case x Case 1,3 y=x*x Case Is=10,Is=-10 y=x Case-10 To 10 y=-x End Select End Sub 程序运行
8、后，在文本框中输入 3，然后单击命令按扭，则以下叙述中正确的是_。（分数：2.00）A.执行 y=x*xB.执行 y=-xC.先执行 y=x*x，再执行 y=-xD.程序出错21.设有命令按钮 Command1 的单击事件过程，代码如下： Private Sub Command1_Click() Dim a(30) As Integer For i=1 To 30 a(i)=Int(Rnd*100) Next For Each arrItem In a If arrItem Mod 7=0 Then Print arrItem If arrItem90 Then Exit For Next E
9、nd Sub 对于该事件过程，以下叙述中错误的是_。（分数：2.00）A.a 数组中的数据是 20 个 100 以内的整数B.语句 For Each arrItem In a 有语法错误C.If arrItem Mod 7=0语句的功能是输出数组中能够被 7 整除的数D.If arrItem90语句的作用是当数组元素的值大于 90 时退出 For 循环22.设有命令按钮 Command1 的单击事件过程，代码如下： Private Sub Command1 Click() Dim a(3,3)As Integer For i=1 To 3 For j=1 To 3 a(i,j)=i*j+i N
10、ext j Next i Sum=0 For i=1 To 3 Sum=Sum+a(i,4-i) Next i Print Sum End Sub 运行程序，单击命令按钮，输出结果是_。（分数：2.00）A.20B.7C.16D.1723.在窗体上画 1 个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() a=0 For i=1 To 2 For j=1 To 4 If j Mod 20 Then a=a-1 End If a=a1 Next j Next i Print a EndSub 程序运行后，单击命令按钮，输出结果
11、是_。（分数：2.00）A.0B.2C.3D.424.窗体上有名称为 Text1、Text2 的 2 个文本框，有一个由 3 个单选按钮构成的控件数组 Option1，如图1 所示。程序运行后，如果单击某个单选按钮，则执行 Text1 中的数值与该单选按钮所对应的运算(乘以1、10 或 100)，并将结果显示在 Text2 中，如图 2 所示，为了实现上述功能，在程序中的问号(?)处应填入的内容是_。 Private Sub Option1 Click(Index As Integer) If Text1.Text“Then Select Case ? Case 0 Text2.Text=Va
12、l(Text1.Text) Case 1 Text2.Text=Val(Text1.Text)*10 Case 2 Text2.Text=Val(Text1.Text)*100 End Select End If End Sub （分数：2.00）A.IndexB.Option1.IndexC.Option1(IndeD.Option1(IndValue25.在窗体上画 1 个命令按钮，其名称为 Command1，然后编写如下程序： Private Sub Command1 Click() Dim a(10) As Integer Dim x As Integer For i=1 To 10
13、a(i)=8+i Next x=2 Print a(f(x)x) End Sub Function f(x As Integer) x=x3 f=x End Function 程序运行后，单击命令按钮，输出结果为_。（分数：2.00）A.12B.15C.17D.1826.以下关于过程的叙述中，错误的是_。 A) 事件过程是由某个事件触发而执行的过程 B) 函数过程的返回值可以有多个 C) 可以在事件过程中调用通用过程 0) 不能在事件过程中定义函数过程（分数：2.00）A.B.C.D.27.在窗体上画 3 个标签、3 个文本框(名称分别为 Text1、Text2 和 Text3)和 1 个命令
14、按钮(名称为Command1)，外观如图所示。 （分数：2.00）A.4B.6C.8D.1228.窗体上有名称分别为 Text1、Text2 的 2 个文本框，要求文卒框 Text1 中输入的数据小于 500，文本框Text2 中输入的数据小于 1000，否则重新输入。为了实现上述功能，在以下程序中问号(?)处应填入的内容是_。 Private Sub Text1 LostFocus() Call CheckInput(Text1,500) End Sub Private Sub Text2 LostFocus() Call CheCkInput(Text2,1000) End Sub Sub
15、 CheckInput(t AS ?,x As Integer) If Val(t.Text)X Then MsgBox “请重新输入!“ End If End Sub（分数：2.00）A.TextB.SelTextC.ControlD.Form29.在窗体上画 1 个文本框，其名称为 Text1，然后编写如下过程： Pfivme Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Text1_KeyUp(KeyCode As Integer,Shift As
16、 Integer) Print Chr(KeyCode2) End Sub 程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为_。（分数：2.00）A.A AB.A BC.A CD.A D30.为了使列表框中的项目呈多列显示，需要设置的属性为_。（分数：2.00）A.ColumnsB.StyleC.ListD.MultiSelect31.在窗体上画 1 个命令按钮，名称为 Command1，然后编写如下程序： Dim Flag As Boolean Private Sub Command1_Click() Dim intNum As Integer intNum=InputBo
17、x(“请输入：”) If Flag Then Print f(intNum) End If End Sub Function f(X as Integer)As Integer If X10 Then Y=X Else Y=X10 End If f=Y End Function Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X as Single,Y As Single) Flag=True End Sub 运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入 5，则程序的输出结果为_。（分数：2.00）A.0B
18、.5C.15D.无任何输出32.在菜单编辑器中建立 1 个名称为 Menu0 菜单项，将其“可见”属性设置为 False，并建立其若干子菜单，然后编写如下过程： Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single，Y As Single) If Button=1 Then PopupMenu Menu0 End If End Sub 则以下叙述错误的是_。（分数：2.00）A.该过程的作用是弹出一个菜单B.单击鼠标右键时弹出菜单C.Menu0 在菜单编辑器中定义的弹出菜单的名称D.参数 X、Y 指明
19、鼠标当前位置的坐标33.窗体上有 1 个过程为 CD1 的通用对话框，1 个名称为 Command1 晌命令按钮。命令按钮的单击事件过程 如下： Private Sub Command1_Click() CD1.FileName=“ “ CD1.Filter=“All Files|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt“ CD1.FilterIndex=2 CD1.Action=1 End Sub 关于以上代码，错误的叙述是_。（分数：2.00）A.执行以上事件过程，通用对话框被设置为“打开”文件对话框B.通用对话框的初始路径为当前路径C.通用对话框的默认文件类型为*.
20、TxtD.以上代码不对文件执行操作34.以下叙述错误的是_。（分数：2.00）A.用 Shell 函数可以执行扩展名为.exe 的应用程序B.若用 Static 定义通用过程，则该过程中的局部变量都被默认为 Static 类型C.Static 类型的变量可以在标准模块的声明部分定义D.全局变量必须在标准模块中用 Public 或 Global 声明35.以下关于文件的叙述中，错误的是_。（分数：2.00）A.使用 Append 方式打开文件时，文件指针被定位于文件尾B.当以输入方式(Inpu 打开文件时，如果文件不存在，则建立一个新文件C.顺序文件各记录的长度可以不同D.随机文件打开后，既可以
21、进行读操作，也可以进行写操作二、B填空题/B(总题数：11，分数：22.00)36.对长度为 10 的线性表进行冒泡排序，最坏情况下需要比较的次数为U 【1】 /U。（分数：2.00）填空项 1:_37.在面向对象方法中U 【2】 /U描述的是具有相似属性与操作的一组对象。（分数：2.00）填空项 1:_38.在关系模型中，把数据看成是二维表，每一个二维表称为一个U 【3】 /U。（分数：2.00）填空项 1:_39.程序测试分为静态分析和动态测试。其中U 【4】 /U是指不执行程序，而只是对程序文本进行检查，通过阅读和讨论，分析和发现程序中的错误。（分数：2.00）填空项 1:_40.数据独
22、立性分为逻辑独立性与物理独立性。当数据的存储结构改变时，其逻辑结构可以不变，因此，基于逻辑结构的应用程序不必修改，称为U 【5】 /U。（分数：2.00）填空项 1:_41.下列语句的输出结果是U 【6】 /U。 Print Format(Int(12345.6789* 1000.5)/100，“0000,0.00“)（分数：2.00）填空项 1:_42.在窗体上画 1 个命令按钮，其名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim arr(1 To 100)As Integer For i=1 To 100 arr(i)=In
23、t(Rnd*1000) Next i Max=arr(1) Min=arr(1) For i=1 To 100 If U【7】 /U Then Max=arr(i) End If If U【8】 /U Then Min=arr(i) End If Next i Print “Max=“；Max，“Min=“；Min End Sub 程序运行后，单击命令按钮，将产生 100 个 1000 以内的随机整数，加入数组 arr 中，然后查找并输出这 100个数中的最大值 Max 和最小值 Min，请填空。（分数：2.00）填空项 1:_43.在窗体上画 1 个名称为 Command1 和命令按钮和 2
24、 个名称分别为 Text1、Text2 的文本框，如图所示，然后编写如下程序： （分数：2.00）填空项 1:_44.在窗体上画 1 个命令按钮和 1 个文本框，其名称分别为 Command1 和 Text1，然后编写如下代码： Dim SaveAll As String Private Sub Command1 Click() Text1.Text=Left(UCase(SaveAll),4) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) SaveAll=SaveAllChr(KeyAscii) End Sub 程序运行后，在
25、文本框中输入 abcdefg，单击命令按钮，则文本框中显示的内容是U 【11】 /U。（分数：2.00）填空项 1:_45.在窗体上画 1 个命令按钮和 1 个通用对话框，其名称分别为 Command1 和 CommonDialog1，然后编写如下事件过程： Private Sub Command1 Click() CommonDialog1.U 【12】 /U=“打开文件“ CommonDialog1.Filter=“All Files(*.*)|*.*“ CommonDialog1.InitDir=“C:/“ CommonDialog1.ShowOpen End Sub 该程序的功能是，程
26、序运行后，单击命令按钮，将显示“打开”文件对话框，其标题是“打开文件”，在“文件类型”栏内显示“All Files(*.*)”，并显示 C 盘根目录下的所有文件，请填空。（分数：2.00）填空项 1:_46.在窗体上画 1 个文本框，名称为 Text1，然后编写如下程序： Private Sub Form_Load() Open “d:/temp/dat.txt“ For Output As #1 Text1.Text=“ “ End Sub Private Sub Text1 KeyPress(KeyAscii As Integer) If U【13】 /U=13 Then If UCase
27、(Text1.Text)=U 【14】 /U Then Closer #1 End Else Write #1，U 【15】 /U Text1.Text=“ “ End If End If End Sub 以上程序的功能是，在 D 盘 temp 目录下建立 1 个名为 dat.txt 的文件，在文本框中输入字符，每次按回车键(回车符的 ASCII 码是 13)都把当前文本框中的内容写入文件 dat.txt，并清除文本框中的内容；如果输入“END”，则结束程序。请填空。（分数：2.00）填空项 1:_全国计算机等级考试二级 VISUAL+BASIC 真题 2006 年 4 月答案解析(总分：92
28、.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.下列选项中不属于结构化程序设计方法的是_。（分数：2.00）A.自顶向下B.逐步求精C.模块化D.可复用 解析：知识点 结构化程序设计方法 评析 20 世纪 70 年代以来，提出了许多软件设计方法，主要有逐步求精：对复杂的问题，应设计一些子目标作过渡，逐步细化；自顶向下：程序设计时应先考虑总体，后考虑细节；先考虑全局目标，后考虑局部目标。不要一开始就过多追求众多的细节，先从最上层总目标开始设计，逐步使问题具体化；模块化：一个复杂问题，肯定是由若干稍简单的问题构成。模块化是把程序要解决的总目标分解为分目标，再进一
29、步分解为具体的小目标，把每个小目标称为一个模块，而可复用是面向对象程序设计的一个优点。2.两个或两个以上的模块之间关联的紧密程度称为_。（分数：2.00）A.耦合度 B.内聚度C.复杂度D.数据传输特性解析：知识点 耦合度 评析 耦合度是模块间互相连接的紧密程度的度量；内聚度是一个模块内部各个元素间彼此结合的紧密程度的度量。3.下列叙述中正确的是_。（分数：2.00）A.软件测试应该由程序开发者来完成B.程序经调试后一般不需要再测试C.软件维护只包括对程序代码的维护D.以上三种说法都不对 解析：知识点 软件的测试与程序的调试 评析 程序调试的任务是诊断和改正程序中的错误。它与软件测试不同，软件
30、测试是尽可能多地发现软件中的错误。先要发现软件的错误，然后借助于一定的调试工具去找出软件错误的具体位置。软件测试贯穿整个软件生命期，调试主要在开发阶段。为了达到更好的测试效果，应该由独立的第三方来构造测试。因为从心理学角度讲，程序人员或设计方在测试自己的程序时，要采取客观的态度是程度不同地存在障碍的。软件的运行和维护是指将已交付的软件投入运行，并在运行使用中不断地维护，根据新提出的需求进行必要而且可能的扩充和删改。4.按照“后进先出”原则组织数据的数据结构是_。（分数：2.00）A.队列B.栈 C.双向链表D.二叉树解析：知识点 栈和队列的定义 评析 栈和队列都是一种特殊的操作受限的线性表，只
31、允许在端点处进行插入和删除。二者的区别是：栈只允许在表的一端进行插入或删除操作，是一种“后进先出”的线性表；而队列只允许在表的一端进行插入操作，在另一端进行删除操作，是一种“先进先出”的线性表。5.下列描述中正确的是_。（分数：2.00）A.线性链表是线性表的链式存储结构 B.栈与队列是非线性结构C.双向链表是非线性结构D.只有根结点的二叉树是线性结构解析：知识点 线性结构与非线性结构的概念 评析 根据数据结构中各数据元素之间前后关系的复杂程度，一般将数据结构分为两大类型：线性结构与非线性结构。如果一个非空的数据结构满足下列两个条件：有且只有一个根结点；每个结点最多有一个前件，也最多有一个后件
32、。则称该数据结构为线性结构，又称线性表。所以线性表、栈与队列、线性链表都是线性结构，而二叉树是非线性结构。6.对如下二叉树 （分数：2.00）A.ABCDEFB.DBEAFCC.ABDECFD.DEBFCA 解析：知识点 二叉树的后序遍历 评析 后序遍历指在访问根结点、遍历左子树与遍历右子树这三者中，首先遍历左子树，然后遍历右子树，最后访问根结点：并且遍历左、右子树时，仍然先遍历左子树，然后遍历右子树，最后访问根结点。7.在深度为 7 的满二叉树中，叶子结点的个数为_。（分数：2.00）A.32B.31C.64 D.63解析：知识点 二叉树的概念评析 所谓满二叉树是指这样的一种二叉树：除最后一
33、层外，每层上的所有结点都有两个子结点。这就是说，在满二叉树中，每一层上的结点数都达到最大值，即在满二叉树的第 K 层上有 2K-1个结点，且深度为 m 的满二叉树有 2m-1个结点。树的最大层次称为树的深度。本题中深度为 7，故叶子结点数为 27-1=26=64。8.“商品”与“顾客”两个实体集之间的联系一般是_。（分数：2.00）A.一对一B.一对多C.多对一D.多对多 解析：知识点 Visual FoxPro 基础知识/关系数据库 评析 两个实体间的联系可以归纳为 3 种类型： 一对一联系：一对一的联系表现为主表中的每一条记录只与相关表中的一条记录相关联。 一对多联系：一对多的联系表现为主
34、表中的每一条记录与相关表中的多条记录相关联。 多对多联系：多对多的联系表现为一个表中的多个记录在相关表中同样有多个记录其匹配。 本题中一个顾客可以购买多种商品，同一种商品可以有多个顾客购买，所以商品和顾客之间是多对多的联系。9.在 E-R 图中，用来表示实体的图形是_。（分数：2.00）A.矩形 B.椭圆形C.菱形D.三角形解析：知识点 实体联系模型及 E-R 图 评析 E-R 图中用矩形表示实体集，用椭圆表示属性，用菱形表示联系。10.数据库 DB、数据库系统 DBS、数据库管理系统 DBMS 之间的关系是_。（分数：2.00）A.DB 包含 DBS 和 DBMSB.DBMS 包含 DB 和
35、 DBSC.DBS 包含 DB 和 DBMS D.没有任何关系解析：知识点 数据库的基本概念：数据库，数据库管理系统，数据库系统 评析 数据库系统由如下几部分组成：数据库、数据库管理系统、数据库管理员、系统平台(硬件平台和软件平台)。11.以下关于 Visual Basic 特点叙述中，错误的是_。（分数：2.00）A.Visual Basic 是采用事件驱动编程机制的语言B.Visual Basic 程序既可以编译运行，也可以解释运行C.构成 Visual Basic 程序的多个过程没有固定的执行顺序D.Visual Basic 程序不是结构化程序，不具备结构化程序的三种基本结构 解析：评析
36、 Visual Basic 是一种结构化程序设计语言，它具备结构化程序设计的顺序、循环、分支三种基本结构。12.以下叙述中，错误的是_。（分数：2.00）A.一个 Visual Basic 应用程序可以含有多个标准模块文件B.一个 Visual Basic 工程可以含有多个窗体文件C.标准模块文件可以属于某个指定的窗体文件 D.标准模块文件的扩展名是.bas解析：评析 标准模块文件为整个工程所有，不属于某个特定的窗体。13.以下叙述中错误的是_。（分数：2.00）A.在 Visual Basic 中，对象所能响应的事件是由系统定义的 B.对象的任何属性既可以通过属性窗口设定，也可以通过程序语句
37、设定C.Visual Basic 中允许不同对象使用相同名称的方法D.Visual Basic 中的对象具有自己的属性与方法解析：评析 在 VB 中，可以通过关键字 Event 定义用户自己的事件，用 RaiseEvent 定义触发事件的条件。14.设有如下语句： Dim a,b As Integer c=“Visual Basic“ d=#7/20/2005# 以下关于这段代码的叙述中，错误的是_。（分数：2.00）A.a 被定义为 Integer 类型变量 B.b 被定义为 Integer 类型变量C.c 中的数据是字符串D.d 中的数据是日期类型解析：评析 在 VB 中不能用一个 AS
38、定义多个变量，故变量 a 不是 Integer 型，而是 Variant 型。15.以下能从字符串“Visual Basic”中直接取出子字符串“Basic”的函数是_。（分数：2.00）A.LeftB.Mid C.StringD.Instr解析：评析 Mid(s,index,length)用来从字符串 s 中的第 index 字符开始连续取出 length 个字符。对于本题，可以用 Mid(“VisualBasic“,7,5)就可以取出字符串“Basic”。16.设 a=4,b=3,c-2,d=1，下列表达式的值是_。ab1 Or cd And b Mod c（分数：2.00）A.TrueB
39、.1C.-1D.0 解析：评析 在 VB 中，算术运算符的优先级高于比较运算符，比较运算符高于逻辑运算符，故本题先算b mod c，其结果为 1，而 cd 的结果是 False，False And 1 的结果是 0，ab1 的结果也是False，False Or 0 的结果是 0。17.以下可以作为 Visual Basic 变量名的是_。（分数：2.00）A.A#AB.counstA C.3AD.?AA解析：评析 Vb 中的变量名是以字母开头的字母、数字与下划线的组合，其长度不超过 255，并且不能与关键字相同。18.设 x=4,y=6，则以下不能在窗体上显示出“a=10”的语句是_。（分数
40、：2.00）A.Prim A=xy B.Print “A=“；xyC.Print “A=“ str(xD.Print “A=“&Xy解析：评析 选项 A 是打印 xy 与 A 的比较结果，其值是一布尔型值。19.假定有如下的命令按扭(名称为 Command1)事件过程： Private Sub Command1_Click() x=InputBox(“输入：”，“输入整数”) MsgBox“输入的数据是：”，“输入数据：”x End Sub 程序运行后，单击命名按扭，所果从键盘上输入整数 10，则以下叙述中错误的是_。（分数：2.00）A.x 的值是数值 10 B.输入对话框的标题是“输入整数
41、”C.信息框的标题是“输入数据：10”D.信息框中显示的“输入的数据是：”解析：评析 由于 x 没有预先定义，故其数据类型应为变体型(Variant)而不是一个数值 10。20.在窗体上画 1 个命令按扭(名称为 Command1)和 1 个文本框(名称为 Text1)，然后编写如下事件过程： Private Sub Command1_click() x=Val(Text1.Text) Select Case x Case 1,3 y=x*x Case Is=10,Is=-10 y=x Case-10 To 10 y=-x End Select End Sub 程序运行后，在文本框中输入 3，
42、然后单击命令按扭，则以下叙述中正确的是_。（分数：2.00）A.执行 y=x*x B.执行 y=-xC.先执行 y=x*x，再执行 y=-xD.程序出错解析：评析 Select Case 语句在执行时依次查找相应的 Case 分支，如果满足条件，则执行相应分支中的语句，执行结束后，退出 Select 块，而不继续查找下面的分支。本题中，由于第一个分支就满足条件，故只执行第一个 Case 分支中的语句。21.设有命令按钮 Command1 的单击事件过程，代码如下： Private Sub Command1_Click() Dim a(30) As Integer For i=1 To 30 a
43、(i)=Int(Rnd*100) Next For Each arrItem In a If arrItem Mod 7=0 Then Print arrItem If arrItem90 Then Exit For Next End Sub 对于该事件过程，以下叙述中错误的是_。（分数：2.00）A.a 数组中的数据是 20 个 100 以内的整数B.语句 For Each arrItem In a 有语法错误 C.If arrItem Mod 7=0语句的功能是输出数组中能够被 7 整除的数D.If arrItem90语句的作用是当数组元素的值大于 90 时退出 For 循环解析：评析 F
44、or Each 语句的基本语法结构为： For Each 变量 In 数组 语句块 Next变量 本题中For Each 语句没有语法错误。22.设有命令按钮 Command1 的单击事件过程，代码如下： Private Sub Command1 Click() Dim a(3,3)As Integer For i=1 To 3 For j=1 To 3 a(i,j)=i*j+i Next j Next i Sum=0 For i=1 To 3 Sum=Sum+a(i,4-i) Next i Print Sum End Sub 运行程序，单击命令按钮，输出结果是_。（分数：2.00）A.20B
45、.7C.16 D.17解析：评析 第 3 个 For 语句是用来打计算 a(1,3)、a(2,2)及 a(3,1)这三个数组元素的和。由第 1、2这两个嵌入的 For 语句知，a(1,3)=1*33=6；a(2,2)=2*22=6；a(3,1)=3*11=4。故最后 Sum 的值应为 664=16。23.在窗体上画 1 个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1 Click() a=0 For i=1 To 2 For j=1 To 4 If j Mod 20 Then a=a-1 End If a=a1 Next j Next i
46、 Print a EndSub 程序运行后，单击命令按钮，输出结果是_。（分数：2.00）A.0B.2C.3D.4 解析：评析 在内层循环中，在奇数次执行时，a 的值不变，偶数次执行时，a 的值加 1。每执行一轮外层循环，内层循环中的语句将要执行 4 次，即 a 的值要加 2，一共执行了两次内层循环语句，故 a 的值要加 4，而初始时 a 的值为 0，故最后输出的 a 的值为 4。24.窗体上有名称为 Text1、Text2 的 2 个文本框，有一个由 3 个单选按钮构成的控件数组 Option1，如图1 所示。程序运行后，如果单击某个单选按钮，则执行 Text1 中的数值与该单选按钮所对应的
47、运算(乘以1、10 或 100)，并将结果显示在 Text2 中，如图 2 所示，为了实现上述功能，在程序中的问号(?)处应填入的内容是_。 Private Sub Option1 Click(Index As Integer) If Text1.Text“Then Select Case ? Case 0 Text2.Text=Val(Text1.Text) Case 1 Text2.Text=Val(Text1.Text)*10 Case 2 Text2.Text=Val(Text1.Text)*100 End Select End If End Sub （分数：2.00）A.Index B.Option1.IndexC.Option1(IndeD.Option1(IndValue解析：评析 对于一个控件数组，其事件中的 index 参数表示触发事件的控件数组元素的下标。本题中，要根据不同的控件数组元素，作出不同的计算，只要判断该事件是由控件数组中的哪个元素触发的
