2006年4月全国计算机等级考试二级笔试试卷

机密★启用前 2006年4月全国计算机等级考试二级笔试试卷 Visual basic语言程序设计 26 注意事项 考生应严格遵守考场规则,得到监考人员指令后方可作答。 、考生拿到试卷后应首先将自己的姓名、准考证号等内容涂写在答题卡的相应位置上。 、选择题答案必须用铅笔填涂在答题卡的相应位置上,填空题的答案必须用蓝、黑色钢 笔或圆珠笔写在答题卡的相应位置上,答案写在试卷上无效。 四、注意字迹清楚,保持卷面整洁 五、考试结束将试卷和答题卡放在桌上,不得带走。待监考人员收毕清点后,方可离场 ***版权所有,任何单位或个人不得保留、复制和出版,违者必究*** 教育部考试中心 0六年二月制

机密★启用前 2006 年 4 月全国计算机等级考试二级笔试试卷 Visual Basic 语言程序设计 26 注意事项 一、考生应严格遵守考场规则，得到监考人员指令后方可作答。 二、考生拿到试卷后应首先将自己的姓名、准考证号等内容涂写在答题卡的相应位置上。 三、选择题答案必须用铅笔填涂在答题卡的相应位置上，填空题的答案必须用蓝、黑色钢 笔或圆珠笔写在答题卡的相应位置上，答案写在试卷上无效。 四、注意字迹清楚，保持卷面整洁。 五、考试结束将试卷和答题卡放在桌上，不得带走。待监考人员收毕清点后，方可离场。 * * * 版权所有，任何单位或个人不得保留、复制和出版，违者必究 * * * 教育部考试中心 二 00 六年二月制

2006年4月全国计算机等级考试二级笔试试卷 公共基础知识和 isual basic语言程序设计 (考试时间90分钟,满分100分) 、选择题(每小题2分,共70分) (1)下列选项中不属于结构化程序设计方法的是() A)自顶向下 B)逐步求精 C)模块化 D)可复用 (2)两个或两个以上模块之间关联的紧密程度称为() A)耦合度 B)内聚度 C)复杂度 D)数据传输特性 (3)下列叙述中正确的是( A)软件测试应该由程序开发者来完成 B)程序经调试后一般不需要再测试 C)软件维护只包括对程序代码的维护 D)以上3种说法都不对 (4)按照“后进先出”原则组织数据的数据结构是()。 A)队列 B)栈 C)双向链表 D)二叉树 (5)下列叙述中正确的是() A)线性链表是线性表的链式存储结构 B)栈与队列是非线性结构 C)双向链表是非线性结构 D)只有根结点的二叉树是线性结构 (6)对下列二叉树: 进行后序遍历的结果为()。 A) ABCDEF B) DBEAFC C) ABDECF D) DEBFCA 二级 Visual basic语言程序设计试卷第1页(共11页)

二级 Visual Basic 语言程序设计试卷 第 1 页（共 11 页） 2006 年 4 月全国计算机等级考试二级笔试试卷 公共基础知识和 Visual Basic 语言程序设计 （考试时间 90 分钟，满分 100 分） 一、选择题（每小题 2 分，共 70 分） （1）下列选项中不属于结构化程序设计方法的是（ ）。 A）自顶向下 B）逐步求精 C）模块化 D）可复用 （2）两个或两个以上模块之间关联的紧密程度称为（ ）。 A）耦合度 B）内聚度 C）复杂度 D）数据传输特性 （3）下列叙述中正确的是（ ）。 A）软件测试应该由程序开发者来完成 B）程序经调试后一般不需要再测试 C）软件维护只包括对程序代码的维护 D）以上 3 种说法都不对 （4）按照“后进先出”原则组织数据的数据结构是（ ）。 A）队列 B）栈 C）双向链表 D）二叉树 （5）下列叙述中正确的是（ ）。 A）线性链表是线性表的链式存储结构 B）栈与队列是非线性结构 C）双向链表是非线性结构 D）只有根结点的二叉树是线性结构 （6）对下列二叉树： 进行后序遍历的结果为（ ）。 A）ABCDEF B）DBEAFC C）ABDECF D）DEBFCA

(7)在深度为7的满二叉树中,叶子结点的个数为() A)32 B)31 D)6 (8)“商品”与“顾客”两个实体集之间的联系一般是() A)一对 B)一对多 C)多对 D)多对多 (9)在ER图中,用来表示实体的图形是()。 A)矩形 B)椭圆形 C)菱形 D)三角形 (10)数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是()。 A)DB包含DBS和DBMS B)DBMS包含DB和DBS C)DBS包含DB和DBMS D)没有任何关系 (11)下列关于 Visual basic特点的叙述中,错误的是( A) Visual basic是采用事件驱动编程机制的语言 B)Ⅴ isual basic程序既可以编译运行,也可以解释运行 C)构成Ⅴ isual basic程序的多个过程没有固定的执行顺序 D)Ⅴ isual basic程序不是结构化程序,不具备结构化程序的3种基本结构 (12)下列叙述中错误的是() A)一个Ⅴ isual basic应用程序可以含有多个标准模块文件 B)一个 Visual basic工程可以含有多个窗体文件 C)标准模块文件可以属于某个指定的窗体文件 D)标准模块文件的扩展名是ba (13)下列叙述中错误的是()。 A)在Ⅴ isual basic中,对象所能响应的事件是由系统定义的 B)对象的任何属性既可以通过属性窗口设定,也可以通过程序语句设定 C)Ⅴ isual basic中允许不同对象使用相同名称的方法 D)Ⅴ Visual basic中的对象具有自己的属性和方法 (14)有下列语句: Dim a, b As Integer c="Visual Basic" d=#7/202005# 下列关于这段代码的叙述中错误的是() A)a被定义为 Integer类型变量 B)b被定义为 Integer类型变量 C)c中的数据是字符串 D)d中的数据是日期类型 (15)下列能从字符串"Ⅴ Visual basic"中直接取出子字符串" Basic"的函数是( A) Left 二级 Visual basic语言程序设计试卷第2页(共11页)

二级 Visual Basic 语言程序设计试卷 第 2 页（共 11 页） （7）在深度为 7 的满二叉树中，叶子结点的个数为（ ）。 A）32 B）31 C）64 D）63 （8）“商品”与“顾客”两个实体集之间的联系一般是（ ）。 A）一对一 B）一对多 C）多对一 D）多对多 （9）在 E-R 图中，用来表示实体的图形是（ ）。 A）矩形 B）椭圆形 C）菱形 D）三角形 （10）数据库 DB、数据库系统 DBS、数据库管理系统 DBMS 之间的关系是（ ）。 A）DB 包含 DBS 和 DBMS B）DBMS 包含 DB 和 DBS C）DBS 包含 DB 和 DBMS D）没有任何关系 （11）下列关于 Visual Basic 特点的叙述中，错误的是（ ）。 A）Visual Basic 是采用事件驱动编程机制的语言 B）Visual Basic 程序既可以编译运行，也可以解释运行 C）构成 Visual Basic 程序的多个过程没有固定的执行顺序 D）Visual Basic 程序不是结构化程序，不具备结构化程序的 3 种基本结构 （12）下列叙述中错误的是（ ）。 A）一个 Visual Basic 应用程序可以含有多个标准模块文件 B）一个 Visual Basic 工程可以含有多个窗体文件 C）标准模块文件可以属于某个指定的窗体文件 D）标准模块文件的扩展名是.bas （13）下列叙述中错误的是（ ）。 A）在 Visual Basic 中，对象所能响应的事件是由系统定义的 B）对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定 C）Visual Basic 中允许不同对象使用相同名称的方法 D）Visual Basic 中的对象具有自己的属性和方法 （14）有下列语句： Dim a,b As Integer c="VisualBasic" d=#7/20/2005# 下列关于这段代码的叙述中错误的是（ ）。 A）a 被定义为 Integer 类型变量 B）b 被定义为 Integer 类型变量 C）c 中的数据是字符串 D）d 中的数据是日期类型 （15）下列能从字符串"VisualBasic"中直接取出子字符串"Basic"的函数是（ ）。 A）Left

B)Mid c) String D)Instr (16)设a=4,b=3,c=2,d=1,下列表达式的值是 a>b+1 Or c<d and b mod c A) True B)1 C)-1 D)0 (17)下列可以作为 Visual basic变量名的是() A)A#A B) consta C)3A D)2AA (18)设x=4,y=6,则下列不能在窗体上显示出“A=10”的语句是()。 A) Print A-x+y B) Print"A=" C)Print"A="+Str(x+y) D) Print"A="&x+y (19)有下列的命令按钮(名称为 Command 1)事件过程: Private Sub Commandl Click( X= nput Box("输入:","输入整数 MsgBox"输入的数据是",,"输入数据: End Sub 程序运行后,单击命令按钮,如果从键盘上输入整数10,则下列叙述中错误的是 A)x的值是数值10 B)输入对话框的标题是“输入整数 C)消息框的标题是“输入数据:10” D)消息框中显示的是“输入的数据是:” (20)在窗体上画1个命令按钮(名称为 Command1)和1个文本框(名称为Text1),然 后编写下列事件过程 Private Sub Commandl Click() Select case x Case 13 V-XX Case-10 To 10 End Select End Sub 程序运行后,在文本框中输入3,然后单击命令按钮,则下列叙述中正确的是()。 A)执行y=x*x B)执行y=x C)先执行y=x*x,再执行y=x D)程序出错 二级Ⅴ isual basic语言程序设计试卷第3页(共11页)

二级 Visual Basic 语言程序设计试卷 第 3 页（共 11 页） B）Mid C）String D）Instr （16）设 a=4，b=3，c=2，d=1，下列表达式的值是（ ）。 a>b+1 Or c=10,Is<=-10 y=x Case -10 To 10 y=-x End Select End Sub 程序运行后，在文本框中输入 3，然后单击命令按钮，则下列叙述中正确的是（ ）。 A）执行 y=x*x B）执行 y=-x C）先执行 y=x*x，再执行 y=-x D）程序出错

(21)命令按钮 Command 1的单击事件过程的代码下列 Private Sub Commandl Click() Dim a(30)As Intege For 1=1 To 30 a()=nt(Rnd*100) For each arrltem In a If arrltem Mod 7=0 Then Print arrltem If arrltem>90 Then Exit For End Sub 对于该事件过程,下列叙述中错误的是() A)a数组中的数据是30个100以内的整数 B)语句 For each arrltem In a有语法错误 C) If artem Mod7=0…语句的功能是输出数组中能够被7整除的数 D) If artem>90…语句的作用是当数组元素的值大于90时退出For循环 (22)命令按钮 Command1的单击事件过程的代码如下: Private Sub Commandl Click() Dim a(3,3)As Integer For i=l To 3 For j=l To 3 Next i For i=1 To 3 Next i End Sub 运行程序,单击命令按钮,输出结果是()。 A)20 B)7 D)17 (23)在窗体上画1个名称为 Command1的命令按钮,然后编写下列事件过程: Private Sub Commandl Click( For i=l To 2 F If i Mod 2<0 Then End if Next 二级 Visual basic语言程序设计试卷第4页(共11页)

二级 Visual Basic 语言程序设计试卷 第 4 页（共 11 页） （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 arrItem>90 Then Exit For Next End Sub 对于该事件过程，下列叙述中错误的是（ ）。 A）a 数组中的数据是 30 个 100 以内的整数 B）语句 For Each arrItem In a 有语法错误 C）If arrItem Mod 7=0……语句的功能是输出数组中能够被 7 整除的数 D）If arrItem>90……语句的作用是当数组元素的值大于 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 Next j Next i Sum=0 For i=1 To 3 Sum=Sum+a(i,4-i) Next i Print Sum End Sub 运行程序，单击命令按钮，输出结果是（ ）。 A）20 B）7 C）16 D）17 （23）在窗体上画 1 个名称为 Command1 的命令按钮，然后编写下列事件过程： Private Sub Command1_Click( ) a=0 For i=1 To 2 For j=1 To 4 If j Mod 2<>0 Then a=a-1 End If a=a+1 Next j Next i

Print End Sub 程序运行后,单击命令按钮,输出结果是() A)0 B)2 (24)窗体上有名称分别为Text1、Text2的2个文本框,有一个由3个单选按钮构成的控 件数组 Option,如图1所示。程序运行后,如果单击某个单选按钮,则执行 TextI 中的数值与该单选按钮所对应的运算(乘以1、10或100),并将结果显示在Text2 中,如图2所示。为了实现以上功能,在程序中的问号(?)处应填入的内容是()。 图2 Private Sub Option Click(Index As Integer) If TextI. Texts““Then Select Case Case 0 Text2Text=Val(TextI Text) Case 1 Text2 Text=Val(Text1. Text)*10 Text2 Text=Val(Text1.Text)*100 End select End If End Sub A) Index B)Option1 Index C)Option(Index) D)Optionl(Index). Value (25)在窗体上画1个命令按钮,其名称为 Command1,然后编写下列程序: Private Sub Commandl Click() Dim a(10)As Integer Dim x As Integer For i=1 To 10 a( Print a(f(x)+x) End sub Function f(x As Integer) X=x+3 End Function 二级 Visual basic语言程序设计试卷第5页(共11页)

二级 Visual Basic 语言程序设计试卷 第 5 页（共 11 页） Print a End Sub 程序运行后，单击命令按钮，输出结果是（ ）。 A）0 B）2 C）3 D）4 （24）窗体上有名称分别为 Text1、Text2 的 2 个文本框，有一个由 3 个单选按钮构成的控 件数组 Option1，如图 1 所示。程序运行后，如果单击某个单选按钮，则执行 Text1 中的数值与该单选按钮所对应的运算（乘以 1、10 或 100），并将结果显示在 Text2 中，如图 2 所示。为了实现以上功能，在程序中的问号（?）处应填入的内容是（ ）。 图 1 图 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 A）Index B）Option1.Index C）Option1(Index) D）Option1(Index).Value （25）在窗体上画 1 个命令按钮，其名称为 Command1，然后编写下列程序： Private Sub Command1_Click( ) Dim a(10) As Integer Dim x As Integer For i=1 To 10 a(i)=8+i Next x=2 Print a(f(x)+x) End Sub Function f(x As Integer) x=x+3 f=x End Function

程序运行后,单击命令按钮,输出结果为()。 A)12 B)15 D)18 (26)下列关于过程的叙述中,错误的是() A)事件过程是由某个事件触发而执行的过程 函数过程的返回值可以有多个 可以在事件过程中调用通用过程 D)不能在事件过程中定义函数过程 (27)在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令 按钮(名称为 Command1),外观如图所示 s FormI x 第一个数第二个数结果 编写下列程序: Private Sub Form Load() TextI.Text=“ Iext2.Text=“ Text3.Text=“ End Sub Private Sub Commandl Click() =Val(TextI Text) Text3Text=f(x,y) End Sub Function f(By Val x As Integer, By Val y As Integer) Do While you tmp=x Mod y End Function 运行程序,在 TextI文本框中输入36,在Text2文本框中输入24,然后单击命令按钮 则在Text3文本框中显示的内容是()。 A)4 B)6 C)8 D)12 (28)窗体上有名称分别为Text1、Text2的2个文本框,要求文本框Text中输入的数据小 于500,文本框Text2中输入的数据小于1000,否则重新输入。为了实现以上功能 在下列程序中问号(?)处应填入的内容是( Private Sub TextI LostFocus() End Sub 二级 Visual basic语言程序设计试卷第6页(共11页)

二级 Visual Basic 语言程序设计试卷 第 6 页（共 11 页） 程序运行后，单击命令按钮，输出结果为（ ）。 A）12 B）15 C）17 D）18 （26）下列关于过程的叙述中，错误的是（ ）。 A）事件过程是由某个事件触发而执行的过程 B）函数过程的返回值可以有多个 C）可以在事件过程中调用通用过程 D）不能在事件过程中定义函数过程 （27）在窗体上画 3 个标签、3 个文本框（名称分别为 Text1、Text2 和 Text3）和 1 个命令 按钮（名称为 Command1），外观如图所示。 编写下列程序： Private Sub Form_Load( ) Text1.Text=“ “ Text2.Text=“ “ Text3.Text=“ “ End Sub Private Sub Command1_Click( ) x=Val(Text1.Text) y=Val(Text2.Text) Text3.Text=f(x,y) End Sub Function f(ByVal x As Integer,ByVal y As Integer) Do While y<>0 tmp=x Mod y x=y y=tmp Loop f=x End Function 运行程序，在 Text1 文本框中输入 36，在 Text2 文本框中输入 24，然后单击命令按钮， 则在 Text3 文本框中显示的内容是（ ）。 A）4 B）6 C）8 D）12 （28）窗体上有名称分别为 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 CheckInput(t As?, X As Integer If Val(t Text)>x Then MsgBox"请重新输入! End if End Sub A) Text B) SelText C) Control D Form (29)在窗体上画1个文本框,其名称为 Text1,然后编写下列过程 Private Sub Textl Key Down( Key Code As Integer, Shift As Integer Print Chr(KeyCode) Private Sub TextI KeyUp(Key Code As Integer, Shift As Integer) Print Chr(KeyCode+2) End Sub 程序运行后,把焦点移到文本框中,此时如果敲击“A”键,则输出结果为()。 A)A B)A A B C)A (30)为了使列表框中的项目呈多列显示,需要设置的属性为()。 B) Style D) MultiSelect (31)在窗体上画1个命令按钮,名称为 Command1,然后编写下列程序 Dim Flag As Bo Private Sub Commandl Click() Dim intNum as integer antRum= nput Box("请输入:") If flag th Print f(intNum) End lt End Sub If X<10 Then Else Y=X+10 End If End Function Private Sub Form MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single 二级 Visual basic语言程序设计试卷第7页(共11页)

二级 Visual Basic 语言程序设计试卷 第 7 页（共 11 页） Private Sub Text2_LostFocus( ) Call CheckInput(Text2,1000) End Sub Sub CheckInput(t As ?,x As Integer) If Val(t.Text)>x Then MsgBox"请重新输入!" End If End Sub A）Text B）SelText C）Control D）Form （29）在窗体上画 1 个文本框，其名称为 Text1，然后编写下列过程： Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+2) End Sub 程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为（ ）。 A）A B）A A B C）A D）A C D （30）为了使列表框中的项目呈多列显示，需要设置的属性为（ ）。 A）Columns B）Style C）List D）MultiSelect （31）在窗体上画 1 个命令按钮，名称为 Command1，然后编写下列程序： Dim Flag As Boolean Private Sub Command1_Click( ) Dim intNum As Integer intNum=InputBox("请输入:") If Flag Then Print f(intNum) End If End Sub Function f(X As Integer)As Integer If X<10 Then Y=X Else Y=X+10 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,则程序的输 出结果为() A)0 B)5 C)15 D)无任何输出 (32)在菜单编辑器中建立1个名称为Menu0的菜单项,将其“可见”属性设置为 False, 并建立其若干子菜单,然后编写下列事件过程: Private Sub Form Mouse Down( Button As Integer, Shift As Integer, X As Single, Y As Single) If Button=l Then End If End Sub 则下列叙述中错误的是()。 A)该过程的作用是弹出一个菜单 B)单击鼠标右键时弹出菜单 C)Menu0是在菜单编辑器中定义的弹出菜单的名称 D)参数X、Y指明鼠标当前位置的坐标 (33)窗体上有1个名称为CD1的通用对话框,1个名称为 Command 1的命令按钮。命令 按钮的单击事件过程下列 Private Sub Commandl Click() CDI FileName= CDI Filter"All Files*. *I(*. DoC)* Docl(*. Txt)*.txt CDIFilterIndex=2 CDIAction=l End Sub 关于以上代码,错误的叙述是()。 A)执行以上事件过程,通用对话框被设置为“打开”文件对话框 B)通用对话框的初始路径为当前路径 C)通用对话框的默认文件类型为*Txt D)以上代码不对文件执行读写操作 (34)下列叙述中错误的是() A)用 Shell函数可以执行扩展名为exe的应用程序 B)若用 Static定义通用过程,则该过程中的局部变量都被默认为 Static类型 C) Static类型的变量可以在标准模块的声明部分定义 D)全局变量必须在标准模块中用 Public或 Global声明 (35)下列关于文件的叙述中错误的是() A)使用 Append方式打开文件时,文件指针被定位于文件尾 B)当以输入方式( Input)打开文件时,如果文件不存在,则建立一个新文件 C)顺序文件各记录的长度可以不同 D)随机文件打开后,既可以进行读操作,也可以进行写操作 二、填空题(每空2分,共30分) (1)对长度为10的线性表进行冒泡排序,最坏情况下需要比较的次数为_【1】_。 (2)在面向对象方法中,【2】描述的是具有相似属性与操作的一组对象。 二级 Visual basic语言程序设计试卷第8页(共11页)

二级 Visual Basic 语言程序设计试卷 第 8 页（共 11 页） End Sub 运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入 5，则程序的输 出结果为（ ）。 A）0 B）5 C）15 D）无任何输出 （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 则下列叙述中错误的是（ ）。 A）该过程的作用是弹出一个菜单 B）单击鼠标右键时弹出菜单 C）Menu0 是在菜单编辑器中定义的弹出菜单的名称 D）参数 X、Y 指明鼠标当前位置的坐标 （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 关于以上代码，错误的叙述是（ ）。 A）执行以上事件过程，通用对话框被设置为“打开”文件对话框 B）通用对话框的初始路径为当前路径 C）通用对话框的默认文件类型为*.Txt D）以上代码不对文件执行读写操作 （34）下列叙述中错误的是（ ）。 A）用 Shell 函数可以执行扩展名为.exe 的应用程序 B）若用 Static 定义通用过程，则该过程中的局部变量都被默认为 Static 类型 C）Static 类型的变量可以在标准模块的声明部分定义 D）全局变量必须在标准模块中用 Public 或 Global 声明 （35）下列关于文件的叙述中错误的是（ ）。 A）使用 Append 方式打开文件时，文件指针被定位于文件尾 B）当以输入方式（Input）打开文件时，如果文件不存在，则建立一个新文件 C）顺序文件各记录的长度可以不同 D）随机文件打开后，既可以进行读操作，也可以进行写操作 二、填空题(每空 2 分，共 30 分) （1）对长度为 10 的线性表进行冒泡排序，最坏情况下需要比较的次数为 【1】 。 （2）在面向对象方法中， 【2】 描述的是具有相似属性与操作的一组对象

(3)在关系模型中,把数据看成是二维表,每一个二维表称为一个【3】。 (4)程序测试分为静态分析和动态测试。其中【4】是指不执行程序,而只是对程序文 本进行检査,通过阅读和讨论,分析和发现程序中的错误。 (5)数据独立性分为逻辑独立性与物理独立性。当数据的存储结构改变时,其逻辑结构可 以不变,因此,基于逻辑结构的应用程序不必修改,称为_【5】 (6)下列语句的输出结果是【6】。 Print format(nt(123456789*100+0.5/100,"00,000.00") (7)在窗体上画1个命令按钮,其名称为 Command1,然后编写下列事件过程: Private Sub Commandl Click() Dim arr( I To 100)As Integer For i=l To 100 arr(iInt(Rnd*1000 Next i Max=arr(1) Min=arr1) For F=l To 100 If【7】Then Maxair(i) End lf If【8】Then Min=arr(i) ext i Print"Max": Max,"Min=": Min End Sub 程序运行后,单击命令按钮,将产生100个1000以内的随机整数,放入数组arr中 然后査找并输出这100个数中的最大值Max和最小值Min,请填空 (8)在窗体上画1个名称为 Command 1的命令按钮和2个名称分别为 TextI、Text2的文本 框,如图所示,然后编写下列程序 口x Commandl Function Fun(x As Integer, By Val y As Integer)As Integer If x<o Then Fun=x Else Fun=v End lt End Function Private Sub Command1 Click() Dim a As Integer, b As Integer 二级 Visual basic语言程序设计试卷第9页(共11页)

二级 Visual Basic 语言程序设计试卷 第 9 页（共 11 页） （3）在关系模型中，把数据看成是二维表，每一个二维表称为一个 【3】 。 （4）程序测试分为静态分析和动态测试。其中 【4】 是指不执行程序，而只是对程序文 本进行检查，通过阅读和讨论，分析和发现程序中的错误。 （5）数据独立性分为逻辑独立性与物理独立性。当数据的存储结构改变时，其逻辑结构可 以不变，因此，基于逻辑结构的应用程序不必修改，称为 【5】 。 （6）下列语句的输出结果是 【6】 。 Print Format(Int(12345.6789*100+0.5)/100,"00,000.00") （7）在窗体上画 1 个命令按钮，其名称为 Command1，然后编写下列事件过程： Private Sub Command1_Click( ) Dim arr(1 To 100）As Integer For i=1 To 100 arr(i)=Int(Rnd*1000) Next i Max=arr(1) Min=arr(1) For i=1 To 100 If 【7】 Then Max=arr(i) End If If 【8】 Then Min=arr(i) End If Next i Print"Max="；Max，"Min="；Min End Sub 程序运行后，单击命令按钮，将产生 100 个 1000 以内的随机整数，放入数组 arr 中， 然后查找并输出这 100 个数中的最大值 Max 和最小值 Min，请填空。 （8）在窗体上画 1 个名称为 Command1 的命令按钮和 2 个名称分别为 Text1、Text2 的文本 框，如图所示，然后编写下列程序： Function Fun(x As Integer,ByVal y As Integer)As Integer x=x+y If x<0 Then Fun=x Else Fun=y End If End Function Private Sub Command1_Click( ) Dim a As Integer,b As Integer