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

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

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

2008年4月全国计算机等级考试二级笔试试卷 公共基础知识和 isual basic语言程序设计 (考试时间90分钟,满分100分) 选择题(每小题2分,共70分) (1)程序流程图中带有箭头的线段表示的是() A)图元关系 B)数据流 C)控制流 D)调用关系 (2)结构化程序设计的基本原则不包括()。 A)多元性 B)自顶向下 C)模块化 D)逐步求精 (3)软件设计中模块划分应遵循的准则是()。 A)低内聚低耦合 B)高内聚低耦合 C)低内聚高耦合 D)高内聚高耦合 (4)在软件开发中,需求分析阶段产生的主要文档是()。 A)可行性分析报告 B)软件需求规格说明书 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 D2kx 0 由关系R和S通过运算得到关系T,则所使用的运算为()。 A)并 B)自然连接 C)笛卡尔积 二级Ⅴ isual Basic语言程序设计试卷第1页(共10页)

二级 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）软件需求规格说明书 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

(10)设有表示学生选课的三张表,学生S(学号,姓名,性别,年龄,身份证号),课程 C(课号,课名),选课SC(学号,课号,成绩),则表SC的关键字(键或码)为()。 A)课号,成绩 B)学号,成绩 C)学号,课号 D)学号,姓名,成绩 (11)以下叙述中错误的是()。 A)标准模块文件的扩展名是bas B)标准模块文件是纯代码文件 C)在标准模块中声明的全局变量可以在整个工程中使用 D)在标准模块中不能定义过程 (12)在 Visual basic中,表达式3*2\5Mod3的值是() A)1 B)0 C)3 D)出现错误提 (13)以下选项中,不合法的Ⅴ sual basic的变量名是() B (14)以下数组定义语句中,错误的是()。 A) Static a(10)As Integer B) Dim c(3 C) Dim d(-10) D)Dim b(0 To 5, 1 To 3)As Integer (15)现有语句:y=If(x>0,xMod3,0) 设x=10,则y的值是()。 B)1 C)3 D)语句有错 (16)为了使文本框同时具有垂直和水平滚动条,应先把 multiline属性设置为True,然后 再把 ScrollBars属性设置为() A)0 C)2 D)3 (17)文本框 TextI的 KeyDown事件过程如下 Private Sub Text 1 Key Down(Key Code As Integer, Shift As Integer) End Sub 其中参数 Key Code的值表示的是发生此事件时 A)是否按下了At键或Ctrl键 B)按下的是哪个数字键 C)所按的键盘键的键码 D)按下的是哪个鼠标键 (18)窗体上有一个名称为 HScroll 1的滚动条,程序运行后,当单击滚动条两端的箭头时, 立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是 A)Private Sub HScroll 1 Change B)Private Sub HScroll 1 ChangeO Print hscroll value Print hscroll smallChange C) Private Sub HScrolll Scroll D)Private Sub HScrolll Scroll Print hscroll value Print HScroll l SmallChange End Sub End sub 二级Ⅴ isual basic语言程序设计试卷第2页(共10页)

二级 Visual Basic 语言程序设计试卷 第 2 页（共 10 页） （10）设有表示学生选课的三张表，学生 S（学号，姓名，性别，年龄，身份证号），课程 C（课号，课名），选课 SC（学号，课号，成绩），则表 SC 的关键字（键或码）为（ ）。 A）课号，成绩 B）学号，成绩 C）学号，课号 D）学号，姓名，成绩 （11）以下叙述中错误的是（ ）。 A）标准模块文件的扩展名是.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

(19)若已把一个命令按钮的 Default属性设置为True,则下面可导致按钮的 Click事件过 程被调用的操作是()。 A)用鼠标右键单击此按钮 B)按键盘上的Esc键 C)按键盘上的回车键 D)用鼠标右键双击此按钮 (20)要使两个单选按钮属于同一个框架,正确的操作是() A)先画一个框架,再在框架中画两个单选按钮 B)先画一个框架,再在框架外画两个单选按钮,然后把单选按钮拖到框架中 C)先画两个单选按钮,再用框架将单选按钮框起来 D)以上三种方法都正确 (21)能够存放组合框的所有项目内容的属性是() A)Caption B) Text C) List D) Selected (22)设窗体上有一个标签 Label1和一个计时器 Timer, Timer的 Interval属性被设置为 1000, Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前 时间。以下可以实现上述要求的事件过程是()。 A)Private Sub Timer 1 TimerO B)Private Sub Timer Timer Labell. CaptionTrue Labell Caption= TimeS End Sub End Sub C) Private Sub Timer 1 Timer D) Private Sub Timer 1 Timer Labell Interval=] For k= 1 To Timer l Interval End sub Labell Caption=Timer End Sub (23)设有如图所示窗体和以下程序 Private Sub Command 1 Click Text1. Text=Visual basic" End Sub Private Sub Text 1 LostFocusO If Text1. Text<"BASIC"Then Command1 Text1.Text= Textl SetFocus End If End Sub 程序运行时,在 Text1文本框中输入“ Basic”(如图所示),然后单击 Command1按钮, 则产生的结果是()。 A)文本框中无内容,焦点在文本框中 B)文本框中为“ Basic”,焦点在文本框中 C)文本框中为“ Basic”,焦点在按钮上 D)文本框中为“ Visual basic”,焦点在按钮上 (24)窗体上有一个名称为 Command l的命令按钮,其事件过程如下: Private Sub Commandl. Click x="Visual Basic Programming 二级Ⅴ isual basic语言程序设计试卷第3页(共10页)

二级 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

a= Right(x, Il) b= Mid(x, 7, 5) End Sub 运行程序后单击命令按钮,以下叙述中错误的是()。 A)信息框的标题是 Basic B)信息框中的提示信息是 Programming C)c的值是函数的返回值 D) Msg Box的使用格式有错 (25)设工程文件包含两个窗体文件 Form1. frm、Form2.frm及一个标准模块文件 Module l bas。两个窗体上分别只有一个名称为 Command l的命令按钮。 Forml的代码如下 Public x as integer Private Sub Form Load y=5 End Sub Private Sub Command1 Click Form2 Show End Sub Form2的代码如下: Private Sub Commandl Click Print Forml.x,y End Sub Module l的代码如下: Public y As Integer 运行以上程序,单击Fom1的命令按钮 Command1,则显示Fom2:再单击Form2上 的命令按钮 Command1,则窗体上显示的是()。 A)15 B)05 )00 D)程序有错 (26)窗体上有一个名称为Text1的文本框,一个名称为 Command 1的命令按钮。窗体文 件的程序如下 Private Type x a as Integer b As Integer nd Type Private Sub Commandl Click ya=InputBox(") If y a \2=ya/2 Then 二级Ⅴ isual Basic语言程序设计试卷第4页(共10页)

二级 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)