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）算法程序的长度是有限的 D）算法只能被有限
2、的用户使用6、对长度为 n 的线性表排序，在最坏的情况下，比较次数不是 n (n-1)/2 的排序方法是A）快速排序 B）冒泡排序 C）直接插入排序 D）堆排序 7、下列关于栈的叙述正确的是A）栈按“先进先出”组织数据 B）栈按“先进后出”组织数据 C）只能在栈底插入数据 D）不能删除数据8、在数据库设计中，将 ER 图转换成关系数据模型的过程属于A）需求分析阶段 B）概念设计阶段 C）逻辑设计阶段 D）物理设计阶段9、有三个关系 R、S 和 T 如下：R S T由关系和 S 通过运算得到关系 T，则所使用的运算为A）并 B）自然连接 C）笛卡尔积 D）交10、设有表示学生选课的三张表，学生
3、S（学号，姓名，性别，年龄，身份证号） ，课程（课号，课名） ，选课 SC（学号，课号，成绩） ，则表 SC 的关键字（键或码）为）课号，成绩 B）学号，成绩 C）学号，课号 D）学号，姓名，成绩11、以下叙述中错误的是）标准模块文件的扩展名是.bas B）标准模块文件是纯代码文件C）在标准模块中声明的全局变量可以在整个工程中使用 D）在标准模块中不能定义过程B C Da 0 k1B 1 n1B C Df 3 h2a 0 k1n 2 x1B C Da 0 k112、在 Visual Basic 中，表达式 3* 25 Mod 3 的值是） B） C ） D ）出现错误提示13、以下选项中，不合
4、法的 Visual Basic 变量名是）a5b B）_xyz C）a_b D)andif14、 以下数组定义语句中，错误的是）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 Integer15、现有语句：y=IIf(x0, x Mod 3, 0) ，设 x=10，则 y 的值是） B） C） D ）语句有错16、为了使文本框同时具有垂直和水平滚动条，应先把 MultiLine 属性设置为 True，然后再把 Scrollbars 属性设置为） B） C） D ）1
5、7、文本框 Text1 的 KeyDown 事件过程如下：Private SubText1_ KeyDown(KeyCode As Integer, Shift As Integer)End Sub其中参数 KeyCode 的值表示的是发生此事件时）是否按下了 Alt 键或 Ctrl 键 B ）按下的是哪个数字键C）所按的键盘键的键码 D）按下的是哪个鼠标键18、窗体上有一个名称为 Hscroll1 的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置（即刻度值） 。下面能够实现上述操作的事件过程是）Private Sub Hscroll1_Changc() B)Pri
6、vate Sub Hsctroll1_Change()Print HScroll1.Value Print HScroll1.SmallChangeEnd Sub End SubC)Private Sub HScroll1_Scroll() D)Private Sub HScroll1_Scroll()Print HScroll1.Value Print HScroll1.SmallChangeEnd Sub End Sub19、 若已把一个命令按钮的 Default 属性设置为 True，则下面可导致按钮的 Click 事件过程被调用的操作是）用鼠标右键单击此按钮 B）按键盘上的 Esc 键
7、C）按键盘上的回车键 D）用鼠标右键双击此按钮20、要使两个单选按钮属于同一个框架，正确的操作是）先画一个框架，再在框架中画两个单选按钮B）先画一个框架，再在框架外画两个单选按钮，然后把单远按钮拖到框架中C）先画两个单选按钮，再画框架将单选按钮框起来D）以上三种方法都正确21、能够存放组合框的所有项目内容的属性是）Caption B)Text C)List D)Selected22、 设窗体上有一个标签 Labell 和一个计时器 Timer1，Timer1 的 Interval 属性被设置为1000，Enabled 属性被设置为 True。要求程序运行时每秒在标签中显示一次系统当前时间。以下
8、可以实现上述要求的事件过程是）Private Sub Timer1_Timer() B) Private Sub Timer1_Timer()Label1.Caption=True Label1.Caption=Time$End Sub End SubC) Private Sub Timer1_Timer() D) Private Sub Timer1_Timer()Label1.Interval=1 For k = l To Timer1.IntervalEnd Sub Label1.Caption=TimerNext kEnd Sub23、 设有如图所示窗体和以下程序：Private Su
9、b Command1_Click()Textl.Text=“Visual Basic” End SubPrivate Sub Text1_LostFocus()If Text1.Text =10 Thent=x+1Else t=x+2End Iff=tEnd Function运行程序，则窗体上显示的是）38 B）49 C）61 D ）7030、窗体上有一个用菜单编辑器设计的菜单（见上图） 。运行程序，并在窗体上单击鼠标右键，则弹出一个快捷菜单，如图所示。以下叙述中错误的）在设计“粘贴”菜单项时，在菜单编辑器窗口中设置了“有效”属性（有“” ）B）菜单中的横线是在该菜单项的标题输入框中输入了一个
10、“” （减号）字符C）在设计“选中”菜单项时，在菜单编辑器窗口中设置了“复选”属性（有“” ）D）在设计该弹出菜单的主菜单项时，在菜单编辑器窗口中去掉了“可见”前面的“”31、窗体上有一个名称为 Picture1 图片框控件，一个名称 Label1 的标签控件。如图所示。现有如下程序：Public Sub display (x As Control)If TypeOf x is Label Thenx.Caption=“计算机等级考试”Elsex.Picture = Loadpicture(“pic.jpg”)EndIfEnd SubPrivate Sub Label1_Click()Call
11、 display(Label1)End SubPrivate Sub Picture1_Click()Call display(Picture1)End Sub对以上程序，下列叙述中错误的是）程序运行时会出错 B）单击图片框，在图片框中显示一幅图片C）过程中的 X 是控件变量 D）单击标签，在标签中显示一串文字32、窗体上有两个名称分别为 Text1、Text2 的文本框。Text1 的 KeyUp 的事件过程如下：Private Sub Text1_KeyUp(KeyCode As Integer , shift AS Integer)Dim C AS stringTcxt2.Text=Ch
12、r(Asc(c)+2)End Sub当向文本框 Text1 中输入小写字母 a 时，文本框 Text2 中显示的是） B） a C)C D)c33、设窗体上有一个文体框 Text1 和一个命令按钮 Command1,并有以下事件过程：Private Sub Command1_Click()Dim S As String , ch As StringS=“”For k=1 TO Len(Text1)ch = Mid(Text1,k,l)S=ch+SNext kText1.Text=SEnd Sub程序执行时，在文本框中输入“Basic”,然后单击命令按钮，则 Text1 中显示的是A）Basic
13、 B)cisaB C)BASIC D)CISAB34、某人编写了如下程序，用来求 10 个整数（整数从键盘输入）中的最大值：Private Sub Command1_Click()Dim a(10) As Integer, max As IntegerFor k=1 TO 10a(K)=InputBox(“输入一个整数”)Next kMax=0For k=1 To 10If a(k)max ThenMax = a(k)End IfNext kPrint maxEnd Sub运行程序时发现，当输入 10 个正数时，可以得到正确结果，但输入 10 个负数时结果是错误的，程序需要修改，下面的修改中可
14、以得到正确运行结果的是A) 把 If a(k)max Then 改为 If a(k)max Then B) 把 max = a(k)改为 a(k)=maxC) 把第 2 个循环语句 For k=1 TO 10 改为 For k=2 TO 10 D) 把 max=0 改为 max = a(10)35、已知在 4 行 3 列的全局数组 score(4,3)中存放了 4 个学生 3 门课程的考试成绩（均为整数） 。现需要计算每个学生的总分，某人编写程序如下：Option Base 1Private Sub Command1_Click()Dim sum As IntegerSum=0 For i=1
15、 To 4 For j=1 To 3Sum = sum + score(i,j)Next jPrint“第 ”sumNext iEnd Sub运行此程序时发现，除第 1 个人的总分计算正确外，其他人的总分是错误的。程序需要修改。以下修改方案中正确的是A) 把外层循环语句 For i=1 TO 4 改为 For i=1 To 3 内层循环语句 For j=1 TO 3 改为 For j=1 TO 4B) 把 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=su
16、m+score(i,j)改为 sum=score(i,j)二、填空题（1）测试用例包括输入值集和1 值集。（2）深度为 5 的满二叉树有2 个叶子结点。（3）设某循环队列的容量为 50，头指针 Front=5 (指向队头元素的前一位置)，尾指针rear=29（指向队尾元素） ，则该循环队列中共有3 个元素。（4）在关系数据库中，用来表示实体之间联系的是4 。（5）在数据库管理系统提供的数据定义语言、数据操纵语言和数据控制语言中，5 负责数据的模式定义与数据的物理存取构建。（6）设有以下的循环：要求程序运行时执行 3 次循环体，请填空。x=1DOx=x+2Print xLoop Until 6
17、（7）窗体上命令按钮 Command1 的事件过程如下：Private Sub Command1_Click()Dim total As Integertotal = s(1)+s(2)Print totalEnd SubPrivate Function s(m As Integer) As IntegerStatic x As IntegerFor i =1 To mx=x+1Next iS=xEnd Function运行程序，第 3 次单击命令按钮 Command1 时，输出结果为 7（8）在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序：Option Base lPr
18、ivate Sub Command1_Click()Dim a(10) As IntegerFor i=1 To 10a(i)=iNextCall swap ( 8 )For i=1 To 10Print a(i)NextEnd SubSub swap (b() As Integer)n= 9For i=1 To n/2t=b(i)b(i)=b(n)b(n)=t10NextEnd Sub上述程序的功能是，通过调用过程 swap，调换数组中数值的存放位置，即 a(1)与 a(10)的值互换，a(2)与 a(9)的值互换，请填空。（9）在窗体上面一个通用对话框，其名称为 CommonDialog1
19、，然后画一个命令按钮，并编写如下事件过程：Private Sub Command1_Click()CommonDialog1.Filter=“All Files(*.*)|*.*|Text Files”_&”(*.txt)|*.txt|Batch Files(*.bat)|*.bat”CommonDialog1 Filterlndex=1Commondialog1.ShowOpenMsgBox CommonDialog1.File NameEnd Sub程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是 11；如果在对话框中选择 d 盘 temp 目录下的 tel.txt 文件，然后单击“确定”按钮，则在 MsgBox 信息框中显示的提示信息是 12 。（10）以下程序的功能是：把程序文件 smtext1.txt 的内容全部读入内存，并在文本框 Text1中显示出来。请填空。Private Sub Command1_Click()Dim inData As StringText1.Text=“”Open“smtext1.txt” 13 As 14 Do While 15Input#2, inDataText1.Text=Text1.Text& inDataLoopClose #2End Sub
