3月计算机等级考试二级VB笔试真题及答案

1、2008年 4 月全国计算机等级考试二级 VB试卷 、选择题 1、程序流程图中带有箭头的线段表示的是 A）图元关系 B ）数据流 C）控制流 D） 调用关系 2、结构化程序设计的基本原则不包括 A）多态性 B ）自顶向下 C ）模块化 D）逐步求精 3、软件设计中模块划分应遵循的准则是 A）低内聚低耦合 B） 高内聚低耦合 C） 低内聚高耦合 D） 高内聚高耦合 4、在软件开发中，需求分析阶段产生的主要文档是 A）可行性分析报告 B ）软件需求规格说明书 C ）概要设计说明书 D ）集成测试计划 5、算法的有穷性是指 A）算法程序的运行时间是有限的B ）算法程序所处理的数据量是有限的 C）算法

2、程序的长度是有限的 D ）算法只能被有限的用户使用 6、对长度为 n 的线性表排序，在最坏的情况下，比较次数不是 n （n-1）/2 的排序方法是 A）快速排序B ）冒泡排序 7、下列关于栈的叙述正确的是 A）栈按“先进先出”组织数据 C）直接插入排序D）堆排序 B）栈按“先进后出”组织数据 C）只能在栈底插入数据 D）不能删除数据 8、在数据库设计中，将 E R 图转换成关系数据模型的过程属于 A）需求分析阶段B ）概念设计阶段 逻辑设计阶段 D 物理设计阶段 9、有三个关系 R、S和 T如下： B C D a 0 k1 B 1 n1 R B C D f 3 h2 a 0 k1 n 2 x1

3、 S B C D a 0 k1 T 由关系和 S 通过运算得到关系 T，则所使用的运算为 A）并 B ）自然连接 C ）笛卡尔积D）交 10、设有表示学生选课的三张表，学生S（学号，姓名，性别，年龄，身份证号） ，课程（课号，课名） 选课 SC（学号，课号，成绩） ，则表 SC的关键字（键或码）为 ）课号，成绩 B ）学号，成绩 C ）学号，课号D）学号，姓名，成绩 11、以下叙述中错误的是 ）标准模块文件的扩展名是 .bas B ）标准模块文件是纯代码文件 C）在标准模块中声明的全局变量可以在整个工程中使用D ）在标准模块中不能定义过程 12、在 Visual Basic 中，表达式 3*

4、25 Mod 3 的值是 ）B）C）D）出现错误提示 13 、以下选项中，不合法的 Visual Basic 变量名是 ） a5bB ）_xyz C） a_bD）andif 14 、 以下数组定义语句中，错误的是 ） 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（x0, x Mod 3, 0），设 x=10，则 y 的值是 D）语句有错 应先把 MultiLine 属性设置为 True ，然后再把 Scrollbar

5、s ）B）C） 16、为了使文本框同时具有垂直和水平滚动条， 属性设置为 )B)C)D) 17 、文本框 Text1 的 KeyDown事件过程如下： Private SubText1_ KeyDown(KeyCode As Integer, Shift As Integer) End Sub 其中参数 KeyCode 的值表示的是发生此事件时 ）是否按下了 Alt 键或 Ctrl 键B）按下的是哪个数字键 C）所按的键盘键的键码D）按下的是哪个鼠标键 18 、窗体上有一个名称为 Hscroll1 的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上 显示滚动框的位置（即刻度值） 。下

6、面能够实现上述操作的事件过程是 B)Private Sub Hsctroll1_Change() Print HScroll1.SmallChange End Sub D)Private Sub HScroll1_Scroll() Print HScroll1.SmallChange End Sub 属性设置为 ） Private Sub Hscroll1_Changc（） Print HScroll1.Value End Sub C）Private Sub HScroll1_Scroll（） Print HScroll1.Value End Sub 19 、 若已把一个命令按钮的 Defau

7、lt 作是 ）用鼠标右键单击此按钮 C）按键盘上的回车键 要使两个单选按钮属于同一个框架， ）先画一个框架，再在框架中画两个单选按钮 B）先画一个框架，再在框架外画两个单选按钮，然后把单远按钮拖到框架中 C）先画两个单选按钮，再画框架将单选按钮框起来 D）以上三种方法都正确 能够存放组合框的所有项目内容的属性是 ） CaptionB）Text C）List D）Selected 设窗体上有一个标签 Labell 和一个计时器 Timer1 ，Timer1 的 Interval 属性被设置为 1000，Enabled 属性被设置为 True 。要求程序运行时每秒在标签中显示一次系统当前时间。以下

8、可以实现上述要求的事件 过程是 True ，则下面可导致按钮的 Click 事件过程被调用的操 B ）按键盘上的 Esc 键 D）用鼠标右键双击此按钮 20、 21、 22、 正确的操作是 ) Private Sub Timer1_Timer() B) Private Sub Timer1_Timer() Label1.Caption=True End Sub C) Private Sub Timer1_Timer() Label1.Interval=1 End Sub Next k Label1.Caption=Time$ End Sub D) Private Sub Timer1_Time

9、r() For k = l To Timer1.Interval Label1.Caption=Timer End Sub 23、 设有如图所示窗体和以下程序： Private Sub Command1_Click() Textl.Text= “ Visual Basic ” End Sub Private Sub Text1_LostFocus() If Text1.Text “BASIC” Then Text1.Text= ” Text1.SetFocus End If End Sub 程序运行时，在 Text1 文件框中输入“ Basic ”(如图所示 ) ，然后单击 Command1按

10、钮，则产生的结果是 )文本框中无内容，焦点在文本框中 B )文本框中为“ Basic ” , 焦点在文本框中 C)文本框中为“ Basic ” ,焦点的按钮上 D )文本框中为“ Visual Basic ” ,焦点的按钮上 24、 窗体上有一个名称为 Command1的命令按钮，其事件过程如下： Private Sub Command1_Click() x=“ VisualBasicProgramming ” a=Right(x,11) b=Mid(x,7,5) C=Msgbox(a, , b) End Sub 运行程序后单击命令按钮，以下叙述中错误的是 )信息框的标题是 Basic B)

11、信息框中的提示信息是 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_

12、Ciick() Print Form1.x,y End Sub Module1 的代码如下： Public y As Integer 运行以上程序，单击 Form1 的命令按钮 Command，1 则显示 Form2；再单击 Form2 上的命令按钮 Command，1 则窗体上显示的是 ) B)C)D)程序有错 26 、窗体上有一个名称 Text1 的文本框，一个名称为 Command1的命令按钮。窗体文件的程序如下： Private Type x a As Integer b AS Integer End Type Private Sub Command1_Click() Dim y As

13、 x y.a = InputBox( “” ) If y.a2=y.a/2 Then y.b=y.a*y.a Else y.b = Fix(y.a/2) End If Text1.Text=y.b End Sub 对以上程序，下列叙述中错误的是 ) x 是用户定义的类型 B ) InputBox 函数弹出的对话框中没有提示信息 C)若输入的是偶数， y.b 的值为该偶数的平方 D) Fix(y.a/2) 把 y.a/2 的小数部分四舍五入，转换为整数返回 27 、窗体上有一个名称为 CD1的通用对话框控件和由四个命令按钮组成的控件数Command1其, 下标从左到 右分别为 0、1、2、3,

14、窗体外观如图所示。 命令按钮的事件过程如下： 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 对上述程序，下列叙述中错误的是 )单击“打开”按钮，显示打开文件的对话框 B) 单击“保存”按钮，显示保存文件的对话框 C) 单击“打印”按钮，能够设置打印选项，并执行打印操作 D)单击“退出”按钮，结束程序的运行 28、窗体上有两个水平滚动条 H

15、V、HT，还有一个文本框 Text1 和一个标题为 “计算” 的命令按钮 Command，1 并编写了以下程序： Private Sub Command1_ClickO Call Cale (HV.Value, HT.Value) End Sub Public Sub Cale(x AS Integer , y AS Integer) Text1.Text = x* y End Sub 运行程序，单击“计算”按钮，可根据速度与时间计算出距离，并显示计算结果。对以上程序，下列叙述 中正确的是 ）过程调用语句不对，应为 Cale （HV,HT） B）过程定义语句的形式参数不对，应为Sub Cale

16、（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 D)70 Public Function f(x As Integer) If x=10 Then t=x+1 Else t=x+2 End If f=t End Function 运行程序，则窗体上显示的是 ) 38B) 49C)61 则弹出 30、窗体上有一个用菜单编辑器设计的菜单（见上图）。运行程序

17、，并在窗体上单击鼠标右键， 个快捷菜单，如图所示。以下叙述中错误的 ）在设计“粘贴”菜单项时，在菜单编辑器窗口中设置了“有效”属性（有“” ） B）菜单中的横线是在该菜单项的标题输入框中输入了一个“”（减号）字符 C）在设计“选中”菜单项时，在菜单编辑器窗口中设置了“复选”属性（有“”） D）在设计该弹出菜单的主菜单项时，在菜单编辑器窗口中去掉了“可见”前面的“” 31 、窗体上有一个名称为 Picture1 图片框控件，一个名称 Label1 的标签控件。如图所示。 现有如下程序： Public Sub display (x As Control) If TypeOf x is Label

18、Then x.Caption= “计算机等级考试” Else x.Picture = Loadpicture(“ pic.jpg ” ) EndIf End Sub Private Sub Label1_Click() Call display(Label1) End Sub Private Sub Picture1_Click() Call display(Picture1) End Sub 对以上程序，下列叙述中错误的是 ）程序运行时会出错 C）过程中的 X是控件变量 B）单击图片框，在图片框中显示一幅图片 D）单击标签，在标签中显示一串文字 32、窗体上有两个名称分别为 Text1 、

19、Text2 的文本框。 Text1 的 KeyUp 的事件过程如下： Private Sub Text1_KeyUp(KeyCode As Integer , shift AS Integer) Dim C AS string Tcxt2.Text=Chr(Asc(c)+2) End Sub 当向文本框 Text1 中输入小写字母 a 时，文本框 Text2 中显示的是 )B) aC)C D)c 33 、设窗体上有一个文体框 Text1 和一个命令按钮 Command1并, 有以下事件过程： Private Sub Command1_Click() Dim S As String , ch A

20、s String S=“” For k=1 TO Len(Text1) ch = Mid(Text1,k,l) S=ch+S Next k Text1.Text=S End Sub 程序执行时，在文本框中输入“ Basic ”, 然后单击命令按钮，则 Text1 中显示的是 A) BasicB)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)=InputB

21、ox( “输入一个整数” ) 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)max Then B) C) 把第 2 个循环语句 For k=1 TO 10 改为 For k=2 TO 10 D) 把 max = a(k) 改为 a(k)=max 把 max=0

22、改为 max = a(10) 35 、已知在 4 行 3 列的全局数组 score（4,3） 中存放了 4 个学生 3 门课程的考试成绩（均为整数） 。现需要 计算每个学生的总分，某人编写程序如下： Option Base 1 Private Sub Command1_Click（） Dim sum As Integer Sum=0 For i=1 To 4 For j=1 To 3 Sum = sum + score(i,j) Next j Print “第” sum Next i End Sub 运行此程序时发现，除第 1 个人的总分计算正确外，其他人的总分是错误的。程序需要修改。以下修改

23、方 案中正确的是 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 之间 C )把 sum = sum+score(i,j) 改为 sum=sum+score(j,i) D) 把 sum=sum+score(i,j) 改为 sum=score(i,j) 二、填空题 ( 1)测试用例包括输入值集和 1 值集。 ( 2)深度为 5 的满二叉树有 2个叶子结点。 ( 3)设某循环队列的容量为 50，头指针 Front

24、=5 ( 指向队头元素的前一位置 ) ，尾指针 rear=29 (指向队 尾元素)，则该循环队列中共有 3 个元素。 ( 4)在关系数据库中，用来表示实体之间联系的是4 。 ( 5)在数据库管理系统提供的数据定义语言、数据操纵语言和数据控制语言中，5 负责数据 的模式定义与数据的物理存取构建。 (6)设有以下的循环：要求程序运行时执行3 次循环体，请填空。 x=1 DO x=x+2 Print x Loop Until 6 ( 7)窗体上命令按钮 Command1的事件过程如下： Private Sub Command1_Click() Dim total As Integer total =

25、 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 l Private Sub Command1_Click() Dim a(10) As Integer For i=1 To 10 a(i)=i Next Call swap ( 8 )