008年4月全国计算机等级考试二级vb试卷

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

2、在最坏的情况下，比较次数不是A）快速排序B ）冒泡排序7、下列关于栈的叙述正确的是A）栈按“先进先出”组织数据C）只能在栈底插入数据C）直接插入排序B）栈按“先进后出”D）不能删除数据n （n-1）/2的排序方法是D）堆排序组织数据8、在数据库设计中，将 E R图转换成关系数据模型的过程属于C ）逻辑设计阶段D ）物理设计阶段9、有三个关系RA）需求分析阶段 B ）概念设计阶段 S和T如下：BCDa0k1B1n1BCDf3h2a0k1X1笛S关系R使用的A）卡尔积BCDa0k1D)交T和S通过运算得到关系 则 运算为并 B ）自然连接 C ）10、设有表示学生选课的三张表，学生 S身份证号），

3、课程（课号，课名），选课SC （学号，课号，成绩） 码）为（学号，姓名，性别，年龄，,则表SC的关键字（键或A）课号，成绩 B ）学号，成绩11、以下叙述中错误的是A）标准模块文件的扩展名是.basC ）学号，课号D）学号，姓名，成绩）标准模块文件是纯代码文件C）在标准模块中声明的全局变量可以在整个工程中使用 过程12、在Visual Basic 中，表达式 3* 25 Mod 3 的值是D ）在标准模块中不能定义A) 1B) 0C) 3D）出现错误提示13、以下选项中，不合法的Visual Basic变量名是A) a5bB ) _xyz C ) a_b D)andif14、以下数组定义语句中

4、，错误的是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 Integer15、现有语句：y=IIf(x>0, x Mod 3, 0)，设 x=10,则 y 的值是A) 0B) 1C) 3D)语句有错16、为了使文本框同时具有垂直和水平滚动条，应先把 MultiLine属性设置为True ,然后再把Scrollbars属性设置为A) 0B) 1C) 2D) 317、文本框 Text1的KeyDow诽件过程如下：Private SubText1_ KeyDow

5、n(KeyCode As Integer, Shift As Integer) End Sub其中参数KeyCode的值表示的是发生此事件时 A)是否按下了 Alt键或Ctrl键C)所按的键盘键的键码18、窗体上有一个名称为Hscroll1的滚动条，立即在窗体上显示滚动框的位置(即刻度值)A ) Private Sub Hscroll1_Changc()Hsctroll1_Change()PrintHScroll1.ValueHScroll1.SmallChangeEnd SubEnd SubC)Private Sub HScroll1_Scroll()HScroll1_Scroll()Pri

6、nt HScroll1.ValueHScroll1.SmallChangeEnd Sub19、 若已把一个命令按钮的Default程被调用的操作是End Sub属性设置为B)按下的是哪个数字键D)按下的是哪个鼠标键程序运行后，当单击滚动条两端的箭头时，下面能够实现上述操作的事件过程是B)Private SubPrintD)Private SubPrintTrue ,则下面可导致按钮的Click事件过B)按键盘上的 Esc键D)用鼠标右键双击此按钮A)用鼠标右键单击此按钮C)按键盘上的回车键20、要使两个单选按钮属于同一个框架，正确的操作是A)先画一个框架，再在框架中画两个单选按钮B)先画一个框

7、架，再在框架外画两个单选按钮，然后把单远按钮拖到框架中C)先画两个单选按钮，再画框架将单选按钮框起来D)以上三种方法都正确21、能够存放组合框的所有项目内容的属性是A) Caption B)Text C)List D)Selected22、设窗体上有一个标签 Labell和一个计时器 Timer1 , Timer1的Interval属性被设置为1000, Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。A) Private Sub Timer1_Timer()Label1.Caption=TrueEnd SubB) Private Sub Timer1_Ti

8、mer()Label1.Caption=Time$End SubC) Private Sub Timer1_Timer()D) Private Sub Timer1_Timer()以下可以实现上述要求的事件过程是Label1.Interval=1For k = l ToTimerl.IntervalEnd SubLabel1.Caption=TimerNext kEnd Sub23、设有如图所示窗体和以下程序：Private Sub Command1_Click() Textl.Text= "Visual Basic ”End SubPrivate Sub Text1_LostFoc

9、us()If Text1.Text <>“ BASIC' ThenText1.Text=Text1.SetFocusEnd IfEnd Sub程序运行时，在 Text1文件框中输入“Basic”(如图所示),然后单击Command假钮，则产 生的结果是A)文本框中无内容，焦点在文本框中B )文本框中为“ Basic”，焦点在文本框中C)文本框中为“ Basic ”，焦点的按钮上 D )文本框中为“ Visual Basic ”，焦点的 按钮上24、窗体上有一个名称为 Command1勺命令按钮，其事件过程如下：Private Sub Command1_Click() x=

10、"VisualBasicProgramming ” a=Right(x,11) b=Mid(x,7,5) C=Msgbox(a, , b)End Sub运行程序后单击命令按钮，以下叙述中错误的是A)信息框的标题是 Basic B)信息框中的提示信息是ProgrammingC) C的值是函数的返回值D) MsgBox的使用格式有错25、设工程文件包含两个窗体文件Form1.frm、Form2.frm 及一个标准模块文件 Module1.bas ,两个窗体上分别只有一个名称Command1勺命令按钮。Form1的代码如下：Public X As IntegerPrivate Sub Fo

11、rm_load()x=1y=5End SubPrivate Sub Command1_Click()Form2.ShowEnd SubForm2的代码如下:Private Sub Command1_Ciick()Print Form1.x,yEnd SubModulel的代码如下：Public y As Integer运行以上程序，单击Form1的命令按钮 Command 1则显示Form2;再单击Form2上的命令按钮Command 1则窗体上显示的是A) 15B) 05C) 00D)程序有错26、窗体上有一个名称 Text1的文本框，一个名称为Command1勺命令按钮。窗体文件的程序如下

12、：Private Type xa As Integerb AS IntegerEnd TypePrivate Sub Command1_Click()Dim y As xy.a = InputBox( "")If y.a2=y.a/2 Theny.b=y.a*y.aElsey.b = Fix(y.a/2)End IfText1.Text=y.bEnd Sub对以上程序，下列叙述中错误的是A) x是用户定义的类型B ) InputBox函数弹出的对话框中没有提示信息C)若输入的是偶数，y.b的值为该偶数的平方D) Fix(y.a/2) 把y.a/2的小数部分四舍五入，转换为整

13、数返回27、窗体上有一个名称为CD1的通用对话框控件和由四个命令按钮组成的控件数Commandl,其下标从左到右分别为0、1、2、3,窗体外观如图所示。命令按钮的事件过程如下：Private Sub Command1_Click(Index As Integer)Select Case IndexCase 0CD1.Action=1Case 1 CDl.ShowSaveCase 2CD1.Action=5Case 3EndEnd SelectEnd Sub对上述程序，下列叙述中错误的是A）单击“打开”按钮，显示打开文件的对话框B）单击“保存”按钮，显示保存文件的对话框C）单击“打印”按钮，能够

14、设置打印选项，并执行打印操作D）单击“退出”按钮，结束程序的运行28、窗体上有两个水平滚动条HVV HT,还有一个文本框 Textl和一个标题为“计算”的命令按钮Command1并编写了以下程序：Private Sub Command1_ClickOCall Cale （HV.Value, HT.Value）End SubPublic Sub Cale（x AS Integer , y AS Integer）Textl.Text = x* yEnd Sub运行程序，单击“计算”按钮，可根据速度与时间计算出距离，并显示计算结果。对以上程 序，下列叙述中正确的是A）过程调用语句不对，应为 Cale

15、 （HV,HT）B）过程定义语句的形式参数不对，应为 Sub Cale（x As Control , y As Control）C）计算结果在文本框中显示出来D）程序不能正确运行29、现有如下程序：Private Sub Command1_ Click（）S=0For i=1 to 5S=S+f(5+i)NextPrint SEnd SubPublic Function f(x As Integer)If x>=10 Thent=x+1Elset=x+2End Iff=tEnd Function运行程序，则窗体上显示的是A） 38B） 49C） 61D） 7030、窗体上有一个用菜单编辑

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

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

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

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

20、 10If a(k) >max ThenMax = a(k)End IfNext kPrint maxEnd Sub运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改，下面的修改中可以得到正确运行结果的是A)把 If a(k)>max Then 改为 If a(k)<max Then B)把 max = a(k)改为a(k尸maxC)把第 2 个循环语句 For k=1 TO10 改为 For k=2 TO10 D) 把 max=0改为 max = a(10) 35、已知在4行3列的全局数组score(4,3)中存放了 4个学生

21、3门课程的考试成绩(均为 整数)。现需要计算每个学生的总分，某人编写程序如下：Option Base 1Private Sub Command1_Click()Dim sum As IntegerSum=0For i=1 To 4For j=1 To 3Sum = sum + score(i,j)Next jPrint "第” &i&”个学生的总分是："；sumNext iEnd Sub运行此程序时发现，除第1个人的总分计算正确外，其他人的总分是错误的。程序需要修改。 以下修改方案中正确的是A)把外层循环语句 For i=1 TO 4 改为For i=1 T

22、o 3内层循环语句 For j=1 TO 3 改为For j=1 TO 4B) 把 sum=0移至U 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=5 (指向队头元素的前一位置)，尾指针rear=29 (指向队尾元素)，则该循环队列中共有3 个元素。(4)在关系数据库中，

23、用来表示实体之间联系的是4。(5)在数据库管理系统提供的数据定义语言、数据操纵语言和数据控制语言中，5负责数据的模式定义与数据的物理存取构建。(6)设有以下的循环：要求程序运行时执行3次循环体，请填空。x=1DOx=x+2Print xLoop Until 6(7)窗体上命令按钮 Command的事件过程如下：Private Sub Command1_Click()Dim total As Integertotal = s(1)+s(2)Print totalEnd SubPrivate Function s(m As Integer) As IntegerStatic x As Intege

24、rFor i =1 To mx=x+1Next iS=xEnd Function运行程序，第3次单击命令按钮 Command1寸，输出名果为7(8)在窗体上画一个名称为Command1勺命令按钮，然后编写如下程序：Option Base lPrivate 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)在窗体上面一个通用对话框，其名称为 CommonDialogl,然后画一个命令按钮，并编 写如下事件过程：Private Sub Command1_Click()CommonDialog1.Filter= "All Files(*.*)|*.*|Text Files” &” (*.txt)|*.