2008年4月计算机等级考试二级VB真题

机密★启用前 2008 年 4 月全国计算机等级考试二级笔试试卷 Visual Basic 语言程序设计 26 注意事项 一、考生应严格遵守考场规则，得到监考人员指令后方可作答。 二、考生拿到试卷后应首先将自己的姓名、准考证号等内容涂写在答 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 卡的相应位置上。 三、选择题答案必须用铅笔填涂在答题卡的相应位置上，填空题的答案必须用蓝、黑色钢 笔或圆珠笔写在答题卡的相应位置上，答案写在试卷上无效。 四、注意字迹清楚，保持卷面整洁。 五、考试结束将试卷和答题卡放在桌上，不得带走。待监考人员收毕清点后，方可离场。 * * * 版权所有，任何单位或个人不得保留、复制和出版，违者必究 * * * 教育部考试中心 二 00 八年二月制 本资料由 大家论坛计算机等级考试专区 收集整理 二级 Visual Basic 语言程序设计试卷 第 1 页（共 10 页） 2008年 4月全国计算机等级考试二级笔试试卷 公共基础知识和 Visual Basic语言程序设计 （考试时间 90 分钟，满分 100 分） 一、选择题(每小题 2 分，共 70 分) （1）程序流程图中带有箭头的线段表示的是（ ）。 A）图元关系 B）数据流 C）控制流 D）调用关系 （2）结构化程序设计的基本原则不包括（ ）。 A）多元性 B）自顶向下 C）模块化 D）逐步求精 （3）软件设计中模块划分应遵循的准则是（ ）。 A）低内聚低耦合 B）高内聚低耦合 C）低内聚高耦合 D）高内聚高耦合 （4）在软件开发中，需求分析阶段产生的主要文档是（ ）。 A）可行性分析报告 B）软件需求规格 说明书 房屋状态说明书下载罗氏说明书下载焊机说明书下载罗氏说明书下载GGD说明书下载 C）概要设计说明书 D）集成测试 计划 项目进度计划表范例计划下载计划下载计划下载课程教学计划下载 （5）算法的有穷性是指（ ）。 A）算法程序的运行时间是有限的 B）算法程序所处理的数据量是有限的 C）算法程序的长度是有限的 D）算法只能被有限的用户使用 （6）对长度为 n 的线性表排序，在最坏情况下，比较次数不是 n(n-1)/2 的排序方法是（ ）。 A）快速排序 B）冒泡排序 C）简单插入排序 D）堆排序 （7）下列关于栈的叙述正确的是（ ）。 A）栈按“先进先出”组织数据 B）栈按“先进后出”组织数据 C）只能在栈底插入数据 D）不能删除数据 （8）在数据库设计中，将 E-R 图转换成关系数据模型的过程属于（ ）。 A）需求分析阶段 B）概念设计阶段 C）逻辑设计阶段 D）物理设计阶段 （9）有三个关系 R、S 和 T 如下： R S T B C D a 0 k1 b 1 n1 由关系 R 和 S 通过运算得到关系 T，则所使用的运算为（ ）。 A）并 B）自然连接 C）笛卡尔积 D）交 B C D a 0 k1 B C D f 3 h2 a 0 k1 n 2 x1 本资料由 大家论坛计算机等级考试专区 收集整理 二级 Visual Basic 语言程序设计试卷 第 2 页（共 10 页） （10）设有表示学生选课的三张表，学生 S（学号，姓名，性别，年龄，身份证号），课程 C（课号，课名），选课 SC（学号，课号，成绩），则表 SC 的关键字（键或码）为（ ）。 A）课号，成绩 B）学号，成绩 C）学号，课号 D）学号，姓名，成绩 （11）以下叙述中错误的是（ ）。 A） 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 模块文件的扩展名是.bas B）标准模块文件是纯代码文件 C）在标准模块中声明的全局变量可以在整个工程中使用 D）在标准模块中不能定义过程 （12）在 Visual Basic 中，表达式 3 *2\5 Mod 3 的值是（ ）。 A）1 B）0 C）3 D）出现错误提示 （13）以下选项中，不合法的 Visual Basic 的变量名是（ ）。 A）a5b B）_xyz C）a_b D）andif （14）以下数组定义语句中，错误的是（ ）。 A）Static a(10) As Integer B）Dim c(3,1 To 4) C）Dim d(-10) D）Dim b(0 To 5, 1 To 3)As Integer （15）现有语句：y=IIf(x>0,x Mod 3,0) 设 x=10，则 y 的值是（ ）。 A）0 B）1 C）3 D）语句有错 （16）为了使文本框同时具有垂直和水平滚动条，应先把 multiLine 属性设置为 True，然后 再把 ScrollBars 属性设置为（ ）。 A）0 B）1 C）2 D）3 （17）文本框 Text1 的 KeyDown 事件过程如下： Private Sub Text 1_KeyDown(KeyCode As Integer, Shift As Integer) … End Sub 其中参数 KeyCode 的值表示的是发生此事件时（ ）。 A）是否按下了 Alt 键或 Ctrl 键 B）按下的是哪个数字键 C）所按的键盘键的键码 D）按下的是哪个鼠标键 （18）窗体上有一个名称为 HScroll 1 的滚动条，程序运行后，当单击滚动条两端的箭头时， 立即在窗体上显示滚动框的位置（即刻度值）。下面能够实现上述操作的事件过程是 （ ）。 A）Private Sub HScroll 1_Change() B）Private Sub HScroll 1_Change() Print HScroll1.Value Print HScroll1.SmallChange End Sub End Sub C）Private Sub HScroll1_Scroll() D）Private Sub HScroll1_Scroll() Print HScroll1.Value Print HScroll1.SmallChange End Sub End Sub 本资料由 大家论坛计算机等级考试专区 收集整理 二级 Visual Basic 语言程序设计试卷 第 3 页（共 10 页） （19）若已把一个命令按钮的 Default 属性设置为 True，则下面可导致按钮的 Click 事件过 程被调用的操作是（ ）。 A）用鼠标右键单击此按钮 B）按键盘上的 Esc 键 C）按键盘上的回车键 D）用鼠标右键双击此按钮 （20）要使两个单选按钮属于同一个框架，正确的操作是（ ）。 A）先画一个框架，再在框架中画两个单选按钮 B）先画一个框架，再在框架外画两个单选按钮，然后把单选按钮拖到框架中 C）先画两个单选按钮，再用框架将单选按钮框起来 D）以上三种方法都正确 （21）能够存放组合框的所有项目内容的属性是（ ）。 A）Caption B）Text C）List D）Selected （22）设窗体上有一个标签 Label 1 和一个计时器 Timer1，Timer1 的 Interval 属性被设置为 1000，Enabled 属性被设置为 True。要求程序运行时每秒在标签中显示一次系统当前 时间。以下可以实现上述要求的事件过程是（ ）。 A）Private Sub Timer 1_Timer() B）Private Sub Timer1_Timer() Labell.Caption=True Labell.Caption=Time$ End Sub End Sub C）Private Sub Timer 1_Timer() D）Private Sub Timer 1_Timer() Labell.Interval=1 For k = 1 To Timer1.Interval End Sub Labell.Caption=Timer Next K End Sub （23）设有如图所示窗体和以下程序： Private Sub Command 1_Click() Text1.Text ="Visual Basic" End Sub Private Sub Text 1_LostFocus() If Text1.Text<>"BASIC"Then Text1.Text = "" Text1.SetFocus End If End Sub 程序运行时，在 Text1 文本框中输入“Basic”（如图所示），然后单击 Command1 按钮， 则产生的结果是（ ）。 A）文本框中无内容，焦点在文本框中 B）文本框中为“Basic”，焦点在文本框中 C）文本框中为“Basic”，焦点在按钮上 D）文本框中为“Visual Basic”，焦点在按钮上 （24）窗体上有一个名称为 Command1 的命令按钮，其事件过程如下： Private Sub Command1. Click() x = "VisualBasicProgramming" 本资料由 大家论坛计算机等级考试专区 收集整理 二级 Visual Basic 语言程序设计试卷 第 4 页（共 10 页） a = Right(x, 11) b = Mid(x,7,5) c = MsgBox(a, ,b) End Sub 运行程序后单击命令按钮，以下叙述中错误的是（ ）。 A）信息框的标题是 Basic B）信息框中的提示信息是 Programming C）c 的值是函数的返回值 D）MsgBox 的使用格式有错 （25）设工程文件包含两个窗体文件 Form1.frm、Form2.frm 及一个标准模块文件 Module1.bas。两个窗体上分别只有一个名称为 Command1 的命令按钮。 Form1 的代码如下： Public x As Integer Private Sub Form_Load() x = 1 y = 5 End Sub Private Sub Command1_Click() Form2.Show End Sub Form2 的代码如下： Private Sub Command1_Click() Print Form1.x, y End Sub Module1 的代码如下： Public y As Integer 运行以上程序，单击 Form1 的命令按钮 Command1，则显示 Form2；再单击 Form2 上 的命令按钮 Command1，则窗体上显示的是（ ）。 A）1 5 B）0 5 C）0 0 D）程序有错 （26）窗体上有一个名称为 Text 1 的文本框，一个名称为 Command1 的命令按钮。窗体文 件的程序如下： Private Type x a As Integer b As Integer End Type Private Sub Command1_Click() Dim y As x y.a = InputBox("") If y.a \ 2 = y.a / 2 Then y.b = y.a * y.a Else y.b = Fix(y.a / 2) 本资料由 大家论坛计算机等级考试专区 收集整理 二级 Visual Basic 语言程序设计试卷 第 5 页（共 10 页） End If Text1.Text = y.b End Sub 对以上程序，下列叙述中错误的是（ ）。 A）x 是用户定义的类型 B）InputBox 函数弹出的对话框中没有提示信息 C）若输入的是偶数，y.b 的值为该偶数的平方 D）Fix(y.a / 2)把 y.a / 2 的小数部分四舍五入，转换为整数返回 （27）窗体上有一个名称为 CD1 的通用对话框控件和由四个命令按钮组成的控件数 Command1，其下标从左到右分别为 0、1、2、3，窗体外观如图所示。 命令按钮的事件过程如下： Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 CD1.Action = 1 Case 1 CD1.ShowSave Case 2 CD1.Action = 5 Case 3 End End Select End Sub 对上述程序，下列叙述中错误的是（ ）。 A）单击“打开”按钮，显示打开文件的对话框 B）单击“保存”按钮，显示保存文件的对话框 C）单击“打印”按钮，能够设置打印选项，并执行打印操作 D）单击“退出”按钮，结束程序的运行 （28）窗体上有两个水平滚动条 HV、HT，还有一个文本框 Text1 和一个标题为“计算”的 命令按钮 Command1，并编写了以下程序： Private Sub Command1_Click() 本资料由 大家论坛计算机等级考试专区 收集整理 二级 Visual Basic 语言程序设计试卷 第 6 页（共 10 页） Call cale(HV.Value, HT.Value) End Sub Public Sub cale(x As Integer, y As Integer) Text1.Text = x * y End Sub 运行程序，单击“计算”按钮，可根据速度与时间计算出距离，并显示计算结果。对 以上程序，下列叙述中正确的是（ ）。 A）过程调用语句不对，应为 cale(HV.HT) B）过程定义语句的形式参数不对，应为 Sub cale(x As Control, y As Control) C）计算结果在文本框中显示出来 D）程序不能正确运行 （29）现有如下程序： Private Sub Command1_Click() s = 0 For i = 1 To 5 s = s + f(5 + i) Next Print s End Sub Public Function f(x As Integer) If x >= 10 Then t = x + 1 Else t = x + 2 End If f = t End Function 运行程序，则窗体上显示的是（ ）。 A）38 B）49 C）61 D）70 （30）窗体上有一个用菜单编辑器设计的菜单。运行程序，并在窗体上单击鼠标右键，则弹 出一个快捷菜单。如图所示。 以下叙述中错误的是（ ）。 A）在设计“粘贴”菜单项时，在菜单编辑器窗口中设置了“有效”属性（有“√”） B）菜单中的横线是在该菜单项的标题输入框中输入了一个“—”（减号）字符 C）在设计“选中”菜单项时，在菜单编辑器窗口中设置了“复选”属性（有“√”） D）在设计该弹出菜单的主菜单项时，在菜单编辑器窗口中去掉了“可见”前面的“√” 本资料由 大家论坛计算机等级考试专区 收集整理 二级 Visual Basic 语言程序设计试卷 第 7 页（共 10 页） （31）窗体上有一个名称为 Picture1 的图片框控件，一个名称为 Label1 的标签控件，如图 所示。 现有如下程序： Public Sub display(x As Control) If TypeOf x Is Label Then x.Caption = "计算机等级考试" Else x.Picture = LoadPicture("pic.jpg") End If End Sub Private Sub Label1_Click() Call display(Label1) End Sub Private Sub Picture1_Click() Call display(Picture1) End Sub 对以上程序，下列叙述中错误的是（ ）。 A）程序运行时会出错 B）单击图片框，在图片框中显示一幅图片 C）过程中的 x 是控件变量 D）单击标签，在标签中显示一串文字 （32）窗体上有两个名称分别为 Text1、Text2 的文本框。Text1 的 KeyUp 事件过程如下： Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) Dim c As String c = UCase(Chr(KeyCode)) Text2.Text = Chr(Asc(c) + 2) End Sub 当向文本框 Text1 中输入小写字母 a 时，文本框 Text2 中显示的是（ ）。 A）A B）a C）C D）c （33）设窗体上有一个文本框 Text1 和一个命令按钮 Command1，并有以下事件过程： Private Sub Command1_Click() Dim s As String, ch As String s = "" For k = 1 To Len(Text1) ch = Mid(Text1, k, 1) 本资料由 大家论坛计算机等级考试专区 收集整理 二级 Visual Basic 语言程序设计试卷 第 8 页（共 10 页） s = ch + s Next k Text1.Text = s End Sub 程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则 Text1 中显示的是（ ）。 A）Basic B）cisaB C）BASIC D）CISAB （34）某人编写了如下程序，用来求 10 个整数（整数从键盘输入）中的最大值： Private Sub Command1_Click() Dim a(10) As Integer, max As Integer For k = 1 To 10 a(k) = InputBox("输入一个整数") Next k max =0 For k = 1 To 10 If a(k) > max Then max = a(k) End If Next k Print max End Sub 运行程序时发现，当输入 10 个正数时，可以得到正确结果，但输入 10 个负数时结果是 错误的。程序需要修改。下面的修改中可以得到正确运行结果的是（ ）。 A）把 If a(k)>max Then 改为 If a(k) 方案 气瓶 现场处置方案 .pdf气瓶 现场处置方案 .doc见习基地管理方案.doc关于群访事件的化解方案建筑工地扬尘治理专项方案下载 中正确的是（ ）。 A）把外层循环语句 For i = 1 To 4 改为 For i = 1 To 3 内层循环语句 For j = 1 To 3 改为 For j = 1 To 4 B）把 sum = 0 移到 For i = 1 To 4 和 For j =1 To 3 之间 本资料由 大家论坛计算机等级考试专区 收集整理 二级 Visual Basic 语言程序设计试卷 第 9 页（共 10 页） C）把 sum = sum +score(i, j)改为 sum = sum + score(j,i) D）把 sum = sum +score(i, j)改为 sum = score(i,j) 二、填空题(每空 2 分，共 30 分) （1）测试用例包括输入值集和 【1】 值集。 （2）深度为 5 的满二叉树有 【2】 个叶子结点。 （3）设某循环队列的容量为 50，头指针 front=5（指向队头元素的前一位置），尾指针 rear=29 （指向队尾元素），则该循环队列中共有 【3】 个元素。 （4）在关系数据库中，用来表示实体之间联系的是 【4】 。 （5）在数据库管理系统提供的数据定义语言、数据操纵语言和数据控制语言中， 【5】 负 责数据的模式定义与数据的物理存取构建。 （6）设有以下的循环： x = 1 Do x = x + 2 Print x Loop Until 【6】 要求程序运行时执行 3 次循环体，请填空。 （7）窗体上命令按钮 Command1 的事件过程如下： Private Sub Command1_Click() Dim total As Integer total = s(1) + s(2) Print total End Sub Private Function s(m As Integer) As Integer Static x As Integer For i = 1 To m x = x + 1 Next i s = x End Function 运行程序，第 3 次单击命令按钮 Command1 时，输出结果为 【7】 。 （8）在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer For i = 1 To 10 a(i) = i Next Call swap（ 【8】 ） For i = 1 To 10 Print a(i); Next End Sub 本资料由 大家论坛计算机等级考试专区 收集整理 二级 Visual Basic 语言程序设计试卷 第 10 页（共 10 页） Sub swap(b() As Integer) n = 【9】 For i = 1 To n / 2 t = b(i) b(i) = b(n) b(n) = t 【10】 Next End Sub 上述程序的功能是，通过调用过程 swap，调换数组中数值的存放位置，即 a(1)与 a(10) 的值互换，a(2)与 a(9)的值互换，……，请填空。 （9）在窗体上画一个通用对话框，其名称为 CommonDialog1，然后画一个命令按钮，并编 写如下事件过程： Private Sub Command1_Click() CommonDialog1.Filter = "All Files(*.*)|*.*|Text Files" _ & "(*.txt)|*.txt|Batch Files(*.bat)|*.bat" CommonDialog1.FilterIndex = 1 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中 显示的是 【11】 ；如果在对话框中选择 d 盘 temp 目录下的 tel.txt 文件，然后单击 “确定”按钮，则在 MsgBox 信息框中显示的提示信息是 【12】 。 （10）以下程序的功能是：把顺序文件 smtext1.txt 的内容全部读入内存，并在文本框 Text1 中显示出来。请填空。 Private Sub Command1_Click() Dim inData As String Text1.Text = "" Open "smtext1.txt" 【13】 As 【14】 Do While 【15】 Input #2, inData Text1.Text = Text1.Text & inData Loop Close #2 End Sub 本资料由 大家论坛计算机等级考试专区 收集整理