2011年3和9月月计算机等级考试二级-VB笔试真题及答案

2010年3月全国计算机等级考试二级VB笔试试卷一、选择题（每题2分，共70分）（1）下列叙述中正确的是()A)对长度为n的有序链表进行查找，最坏情况下需要比较次数为nB)对长度为n的有序链表进行对分查找，最坏情况下需要比较次数为（n/2）C)对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数（log2n）D)对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数（nlog2n）（2）算法的时间复杂是指()A)算法的执行时间B)算法所处理的数据量C)算法程序中的语句或指令条数D)算法在执行过程中所需要的基本运算次数（3）软件按功能可以分为：应用软件、系统软件和支持软件（或工具软件），下面属于系统软件的是()A)编辑软件B)操作系统C)教务管理系统D）浏览器（4）软件（程序）调试的任务是()A)诊断和改正程序中的错误B)进肯能多的发现程序中的错误C)发现并改正程序中的所有错误D)确定程序中错误的性质（5）数据流程图（DFD图）是()A)软件概要设计的工具B)软件详细设计的工具C)机构化方法的需求分析工具D)面向对象方法的需求分析工具（6）软件生命周期可以分为定义阶段，开发阶段和维护阶段。详细设计属于()A)定义阶段B)开发阶段C)维护阶段D)上述三个阶段（7）数据库管理系统中负责数据模式定义的语言是A）数据定义语言B）数据管理语言C）数据操纵语言D）数据控制语言（8）在学生管理的关系数据库中，存取一个学生信息的数据单位是A）文件B）数据库C）字段D）记录（9）数据库设计中，用E-R图来描述信息结构但不涉及信息在计算机中的表示，它属于数据库设计的A）需求分析阶段B）逻辑设计阶段C）概念设计阶段D）物理设计阶段（10）有两个关系R和T如下：则由关系R得到关系T的操作是A）选择B）投影C）交D）并（11）在VB集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是（12）设x是整型变量，与函数f(x0,-x,x)有相同结果的代数式是A）|x|B）-|x|C）xD）-x（13）设窗体文件中有下面的事件过程：PrivateSubCommand1_Click（）Dimsa%=100PrintaEndSub其中变量a和s的数据类型分别是A）整型，整型B）变体型，变体型C）整型，变体型D）变体型，整型（14）下面哪个属性肯定不是框架控件的属性A）TextB）CaptionC）LeftD）Enabled（15）下面不能在信息框中输出“VB”的是A）MsgBoxVBB）x=MsgBox（VB）C）MsgBox（VB）D）CallMsgBoxVB（16）窗体上有一个名称为Option1的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程PrivateSubOption1_C1ick（IndexAsInteger）EndSub下面关于此过程的参数Index的叙述中正确的是A）Index为1表示单选按钮被选中，为O表示未选中B）Index的值可正可负C）Index的值用来区分哪个单选按钮被选中D）Index表示数组中单选按钮的数量（17）设窗体中有一个文本框Text1，若在程序中执行了Text1.SetFocus，则触发A）Text1的SetFocus事件B）Text1的GotFocus事件C）Text1的LostFocus事件D）窗体的GotFocus事件（18）VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母A）这3个事件都会触发B）只触发KeyPress事件C）只触发KeyDown、KeyUp事件D）不触发其中任何一个事件（19）下面关于标准模块的叙述中错误的是A）标准模块中可以声明全局变量B）标准模块中可以包含一个SubMain过程，但此过程不能被设置为启动过程C）标准模块中可以包含一些Public过程D）一个工程中可以含有多个标准模块（20）设窗体的名称为Form1，标题为Win，则窗体的MouseDown事件过程的过程名是A）Form1_MouseDownB）Win_MouseDownC）Form_MouseDownD）MouseDown_Form1（21）下面正确使用动态数组的是A）Dimarr()AsIntegerReDimarr(3,5)B）Dimarr()AsIntegerReDimarr(50)AsStringC）Dimarr()ReDimarr(50)AsIntegerD）Dimarr(50)AsIntegerReDimarr(20)（22）下面是求最大公约数的函数的首部Functiongcd(ByValxAsInteger,ByValyAsInteger)AsInteger若要输出8、12、16这3个数的最大公约数，下面正确的语句是A）Printgcd(8,12)，gcd(12,16)，gcd(16,8)B）Printgcd(8,12,16)C）Printgcd(8)，gcd(12)，gcd(16)D）Printgcd(8,gcd(12,16)（23）有下面的程序段，其功能是按图1所示的规律输出数据Dima(3,5)AsIntegerFori=1To3Forj=1To5A(i,j)=i+jPrinta(i,j);NextPrintNext若要按图2所示的规律继续输出数据，则接在上述程序段后面的程序段应该是A）Fori=1To5Forj=1To3Printa（j,i）;NextPrintNextB）Fori=1To3Forj=1To5Printa（j,i）;NextPrintNextC）Forj=1To5Fori=1To3Printa（j,i）;NextPrintNextD）Fori=1To5Forj=1To3Printa（i,j）;NextPrintNext（24）窗体上有一个Text1文本框，一个Command1命令按钮，并有以下程序PrivateSubCommandl_Click（）DimnIfText1.Text23456Thenn=n1Print口令输入错误&n&次EndIfEndSub希望程序运行时得到左图所示的效果，即：输入口令，单击“确认口令”命令按钮，若输入的口令不是“”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是A）在Dimn语句的下面添加一句：n=OB）把Print口令输入错误&n&次改为Print口令输入错误+n+次C）把Print口令输入错误&n&次改为Print口令输入错误&Str(n)&次D）把Dimn改为Staticn（25）要求当鼠标在图片框P1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是A）PrivateSubP1_MouseMove（ButtonASInteger,ShiftAsInteger,XAsSingle,YAsSingle）PrintX,YEndSubB）PrivateSubP1_MouseDown（ButtonASInteger,ShiftAsInteger,XAsSingle,YAsSingle）Picture.PrintX,YEndSubC）PrivateSubP1_MouseMove（ButtonASInteger,ShiftAsInteger,XAsSingle,YAsSingle）P1.PrintX,YEndSubD）PrivateSubForm_MouseMove（ButtonASInteger,ShiftAsInteger,XAsSingle,YAsSingle）P1.PrintX,YEndSub（26）计算二的近似值的一个公式是。某人编写下面的程序用此公式计算并输出的近似值：PrivateSubComand1_Click（）PI1Sign1n=20000Fork=3TonSign=-Sign/kPI=PI+Sign/kNextkPrintPI*4EndSub运行后发现结果为3.22751，显然，程序需要修改。下面修改方案中正确的是A）把Fork=3Ton改为Fork=1TonB）把n=20000改为n=C）把Fork=3Ton改为Fork=3TonStep2D）把PI=1改为PI=0（27）下面程序计算并输出的是PrivateSubComand1_Click（）a=10s=0Dos=s+a*a*aa=a-1LoopUntila=0PrintsEndSubA）13+23+33+103的值B）10!+3!+2!+1!的值C）（1+2+3+10）3的值D）10个103的和（28）若在窗体模块的声明部分声明了如下自定义类型和数组PrivateTyperecCodeAsIntegerCaptionAsStringEndTypeDimarr（5）Asrec则下面的输出语句中正确的是A）Printarr.Code(2),arr.Caption(2)B）Printarr.Code,arr.CaptionC）Printarr(2).Code,arr(2).CaptionD）PrintCode(2),Caption(2)（29）设窗体上有一个通用对话框控件CD1，希望在执行下面程序时，打开如图所示的文件对话框PrivateSubComand1_Click（）CD1.DialogTitle=打开文件CD1.InitDir=C:CD1.Filter=所有文件|*.*|Word文档|*.doc|文本文件|*.TxtCD1.FileName=CD1.Action=1IfCD1.FileName=ThenPrint未打开文件ElsePrint要打开文件&CD1.FileNameEndIfEndSub但实际显示的对话框中列出了C:下的所有文件和文件夹，“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是A）把CD1.Action=1改为CD1.Action=2B）把“CD1.Filter=”后面字符串中的“所有文件”改为“文本文件”C）在语句CD1.Action=1的前面添加：CD1.FilterIndex=3D）把CD1.FileName=改为CD1.FileName=文本文件（30）下面程序运行时，若输入395，则输出结果是PrivateSubComand1_Click（）Dimx%x=InputBox(请输入一个3位整数)PrintxMod10,x100,(xMod100)10EndSubA）395B）539C）593D）359（31）窗体上有List1、List2两个列表框，List1中有若干列表项（见图），并有下面的程序：PrivateSubComand1_Click（）Fork=List1.ListCount-1To0Step-1IfList1.Selected（k）ThenList2.AddItemList1.List（k）List1.RemoveItemkEndIfNextkEndSub程序运行时，按照图示在List1中选中2个列表项，然后单击Commandl命令按钮，则产生的结果是A）在List2中插入了“外语”、“物理”两项B）在List1中删除了“外语”、“物理”两项C）同时产生A）和B）的结果D）把List1中最后1个列表项删除并插入到List2中（32）设工程中有2个窗体：Form1、Form2，Form1为启动窗体。Form2中有菜单。其结构如表。要求在程序运行时，在Form1的文本框Text1中输入口令并按回车键（回车键的ASCII码为13）后，隐藏Form1，显示Form2。若口令为“Teacher”，所有菜单项都可见；否则看不到“成绩录入”菜单项。为此，某人在Form1窗体文件中编写如下程序：PrivateSubText1_KeyPress（KeyAsciiAsInteger）IfKeyAscii=13ThenIfText1.Text=TeacherThenForm2.input.visible=TrueElseForm2.input.visible=FalseEndIfEndIfForm1.HideForm2.ShowEndSub程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2，程序需要修改。下面修改方案中正确的是A）把Form1中Text1文本框及相关程序放到Form2窗体中B）把Form1.Hide、Form2.Show两行移到2个EndIf之间C）把IfKeyAscii=13Then改为IfKeyAscii=TeaeherThenD）把2个Form2.input.Visible中的“Form2”删去（33）某人编写了下面的程序，希望能把Text1文本框中的内容写到out.txt文件中PrivateSubComand1_Click（）Openout.txtForOutputAs#2PrintText1Close#2EndSub调试时发现没有达到目的，为实现上述目的，应做的修改是A）把PrintText1改为Print#2,Text1B）把PrintText1改为PrintText1C）把PrintText1改为WriteText1D）把所有#2改为#1（34）窗体上有一个名为Command1的命令按钮，并有下面的程序：PrivateSubComand1_Click（）Dimarr（5）AsIntegerFork=1To5arr（k）=kNextkprogarr（）Fork=1To5Printarr（k）NextkEndSubSubprog（a（）AsInteger）n=Ubound（a）Fori=nTo2step-1Forj=1Ton-1ifa（j）=0ThenCount（n）=Count（n）+1EndIfNextkm=count（0）Fork=1To25Ifm2PrintiEndSub程序运行后，单击窗体，输出结果为【10】。（9）在窗体上画一个名称为Command1的命令按钮。然后编写如下程序：OptionBase1PrivateSubCommand1_Click（）Dima（10）AsIntegerFori=1To10a（i）=iNextCallswap（【11】）Fori=1To10Printa（i）;NextEndSubSubswap（b（）AsInteger）n=Ubound（b）Fori=1Ton/2t=b（i）b（i）=b（n）b（n）=t【12】NextEndSub上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，。请填空。（10）在窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：PrivateSubForm_Click（）Opend:testsmtext1.TxtForInputAs#1DoWhileNot【13】LineInput#1,aspect$Whole$=whole$+aspect$+Chr$（13）+Chr$（10）LoopText1.Text=whole$【14】Opend:testsmtext2.TxtForOutputAs#1Print#1,【15】Close#1EndSub运行程序，单击窗体，将把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。2010年3月全国计算机等级考试二级VB笔试试卷答案选择题1-5ADBAC6-10BADBA11(D)12(B)13(C)14(A)15(D)16(C)17(B)18(A)19(B)20(A)21(A)22(D)23(A)24(D)25(C)26(C)27(A)28(C)29(C)30(B)31(C)32(B)33(A)34(B)35(D)填空题（1）A,B,C,D,E,F,5,4,3,2,1（2）15（3）EDBGHFCA（4）程序（5）课号(6)【6】2(7)7500(8)8Notlabel1.visible(9)9Timer1.Enabled=Ture(10)1028(11)11a()或a(12)12n=n-1(13)13EOF(1)(14)14Close#1(15)15Text1.Text或text1dfyz来自/2011年 9月全国计算机等级考试二级笔试试卷Visual Basic语言程序设计（考试时间90 分钟，满分100分） 一、选择题（每小题2分，共70分） 下列各题A） 、B） 、C） 、D）四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。 （1）下列叙述中正确的是（ ） 。A）算法就是程序B）设计算法时只需要考虑数据结构的设计C）设计算法时只需要考虑结果的可靠性D）以上三种说法都不对（2）下列关于线性链表的叙述中，正确的是A）各数据结点的存储空间可以不连续，但它们的存储顺序与逻辑顺序必须一致B）各数据结点的存储顺序与逻辑顺序可以不一致，但它们的存储空间必须连续C）进行插入与删除时，不需要移动表中的元素D）以上三种说法都不对（3）下列关于二叉树的叙述中，正确的是A）叶子结点总是比度为2的结点少一个B）叶子结点总是比度为2的结点多一个C）叶子结点数是度为2的结点数的两倍D）度为2的结点数是度为1的结点数的两倍（4）软件按功能可以分为应用软件、系统软件和支撑软件（或工具软件）。下面属于应用软件的是A）学生成绩管理系统B）C语言编译程序C）UNIX操作系统D）数据库管理系统（5）某系统总体结构图如下图所示：该系统总体结构图的深度是A）7B）6C）3D）2（6）程序调试的任务是A）设计测试用例B）验证程序的正确性C）发现程序中的错误D）诊断和改正程序中的错误（7）下列关于数据库设计的叙述中，正确的是A）在需求分析阶段建立数据字典B）在概念设计阶段建立数据字典C）在逻辑设计阶段建立数据字典D）在物理设计阶段建立数据字典（8）数据库系统的三级模式不包括A）概念模式B）内模式C）外模式D）数据模式（9）有三个关系R、S和T如下：RSTABCABCABCa12a12c31b21b21c31则由关系R和S得到关系T的操作是A）自然连接B）差C）交D）并（10）下列选项中属于面向对象设计方法主要特征的是A）继承B）自顶向下C）模块化D）逐步求精（11）以下描述中错误的是A）窗体的标题通过其Caption属性设置B）窗体的名称（Name属性）可以在运行期间修改C）窗体的背景图形通过其Picture属性设置D）窗体最小化时的图标通过其Icon属性设置（12）在设计阶段，当按Ctrl+R键时，所打开的窗口是A）代码窗口B）工具箱窗口C）工程资源管理器窗口D）属性窗口（13）设有如下变量声明语句：Dim a, b As Boolean则下面叙述中正确的是A）a和b都是布尔型变量B）a是变体型变量，b是布尔型变量C）a是整型变量，b是布尔型变量D）a和b都是变体型变量（14）下列可以作为Visual Basic变量名的是A）A#AB）4ABCC）?xyD）Print_Text（15）假定一个滚动条的LargeChange属性值为100，则100表示A）单击滚动条箭头和滚动框之间某位置时滚动框位置的变化量B）滚动框位置的最大值C）拖动滚动框时滚动框位置的变化量D）单击滚动条箭头时滚动框位置的变化量（16）在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() MsgBox Str(123 + 321)End Sub程序运行后，单击命令按钮，则在信息框中显示的提示信息为A）字符串“123+321”B）字符串“444”C）数值“444”D）空白（17）假定有以下程序：Private Sub Form_Click() a = 1: b = a Do Until a = 5 x = a * b Print b; x a = a + b b = b + a LoopEnd Sub程序运行后，单击窗体，输出结果是A）11B）11C）11D）1123243836（18）在窗体上画一个名称为List1的列表框，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名消失。下列在List_Click事件过程中能正确实现上述功能的语句是A）List1.RemoveItem List1.TextB）List1.RemoveItem List1.ClearC）List1.RemoveItem List1.ListCountD）List1.RemoveItem List1.ListIndex（19）列表框中的项目保存在一个数组中，这个数组的名字是A）ColumnB）StyleC）ListD）MultiSelect（20）有人编写了如下的程序：Private Sub Form_Click() Dim s As Integer, x As Integer s = 0 x = 0 Do While s = 10000 x = x + 1 s = s + x 2 Loop Print sEnd Sub上述程序的功能是：计算s=1+22+32+n2+，直到s10000为止。程序运行后，发现得不到正确的结果，必须进行修改。下列修改中正确的是A）把x = 0改为x = 1B）把Do While s = 10000改为Do While s 10000D）交换x = x + 1和s = s + x 2的位置（21）设有如下程序：Private Sub Form_Click() Dim s As Long, f As Long Dim n As Integer, i As Integer f = 1 n = 4 For i = 1 To n f = f * i s = s + f Next i Print sEnd Sub程序运行后，单击窗体，输出结果是A）32B）33C）34D）35（22）阅读下面的程序段： a = 0 For i = 1 To 3 For j = 1 To i For k = j To 3 a = a + 1 Next k Next j Next i执行上面的程序段后，a的值为A）3B）9C）14D）21（23）设有如下程序：Private Sub Form_Click() Cls a$ = For i = 1 To 6 Print Tab(12 - i); Next iEnd Sub 程序运行后，单击窗体，要求结果如图所示，则在 处应填入的内容为A）Left(a$, i)B）Mid(a$, 8 - i, i)C）Right(a$, i)D）Mid(a$, 7, i)（24）设有如下程序：Private Sub Form_Click() Dim i As Integer, x As String, y As String x = ABCDEFG For i = 4 To 1 Step -1 y = Mid(x, i, i) + y Next i Print yEnd Sub程序运行后，单击窗体，输出结果是A）ABCCDEDEFGB）AABBCDEFGC）ABCDEFGD）AABBCCDDEEFFGG（25）设有如下程序：Private Sub Form_Click() Dim ary(1 To 5) As Integer Dim i As Integer Dim sum As Integer For i = 1 To 5 ary(i) = i + 1 sum = sum + ary(i) Next i Print sumEnd Sub程序运行后，单击窗体，则在窗体上显示的是A）15B）16C）20D）25（26）有一个数列，它的前3个数为0，1，1，此后的每个数都是其前面3个数之和，即0，1，1，1，2，4，7，13，24，要求编写程序输出该数列中所有不超过1000的数。某人编写程序如下：Private Sub Form_Click() Dim i As Integer, a As Integer, b As Integer Dim c As Integer, d As Integer a = 0: b = 1: c = 1 d = a + b + c i = 5 While d = 1000 Print d; a = b: b = c: c = d d = a + b + c i = i + 1 WendEnd Sub运行上面的程序，发现输出的数列不完整，应进行修改。以下正确的修改是A）把While d 1000B）把i = 5改为i = 4C）把i = i + 1移到While d = 1000的下面D）在i = 5的上面增加一个语句：Print a; b; c;（27）下面的语句用Array函数为数组变量a的各元素赋整数值：a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)针对a的声明语句应该是A）Dim aB）Dim a As IntegerC）Dim a(9) As IntegerD）Dim a() As Integer（28） 下列描述中正确的是A）Visual Basic只能通过过程调用执行通用过程B）可以在Sub过程的代码中包含另一个Sub过程的代码C）可以像通用过程一样指定事件过程的名字D）Sub过程和Function过程都有返回值（29）阅读程序：Function fac(ByVal n As Integer) As Integer Dim temp As Integer temp = 1 For i% = 1 To n temp = temp * i% Next i% fac = tempEnd FunctionPrivate Sub Form_Click() Dim nsum As Integer nsum = 1 For i% = 2 To 4 nsum = nsum + fac(i%) Next i% Print nsumEnd Sub程序运行后，单击窗体，输出结果是A）35B）31C）33D）37（30）在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下代码：Sub S(x As Integer, y As Integer) Static z As Integer y = x * x + z z = yEnd SubPrivate Sub Command1_Click() Dim i As Integer, z As Integer m = 0 z = 0 For i = 1 To 3 S i, z m = m + z Next i Label1.Caption = Str(m)End Sub程序运行后，单击命令按钮，在标签中显示的内容是A）50B）20C）14D）7（31）以下说法中正确的是A）MouseUp事件是鼠标向上移动时触发的事件B）MouseUp事件过程中的x，y参数用于修改鼠标位置C）在MouseUp事件过程中可以判断用户是否使用了组合键D）在MouseUp事件过程中不能判断鼠标的位置（32）假定已经在菜单编辑器中建立了窗体的弹出式菜单，其顶级菜单项的名称为a1，其“可见”属性为False。程序运行后，单击鼠标左键或右键都能弹出菜单的事件过程是A）Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 And Button = 2 Then PopupMenu a1 End IfEnd SubB）Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) PopupMenu a1End SubC）Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then PopupMenu a1 End IfEnd SubD）Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu a1 End IfEnd Sub（33）在窗体上画一个名称为CD1的通用对话框，并有如下程序：Private Sub Form_Load() CD1.DefaultExt = doc CD1.FileName = c:file1.txt CD1.Filter = 应用程序(*.exe)|*.exeEnd Sub程序运行时，如果显示了“打开”对话框，在“文件类型”下拉列表框中的默认文件类型是A）应用程序(*.exe)B）*.docC) *.txtD) 不确定（34）以下描述中错误的是A）在多窗体应用程序中，可以有多个当前窗体B）多窗体应用程序的启动窗体可以在设计时设定C）多窗体应用程序中每个窗体作为一个磁盘文件保存D）多窗体应用程序可以编译生成一个EXE文件（35）以下关于顺序文件的叙述中，正确的是A）可以用不同的文件号以不同的读写方式同时打开同一个文件B）文件中各记录的写入顺序与读出顺序是一致的C）可以用Input#或Line Input#语句向文件写记录D）如果用Append方式打开文件，则既可以在文件末尾添加记录，也可以读取原有记录二、填空题(每空2分，共30 分) 请将每空的正确答案写在答题卡【l】至【15】序号的横线上，答在试卷上不得分。（1）数据结构分为线性结构与非线性结构，带链的栈属于 【1】 。（2）在长度为n的顺序存储的线性表中插入一个元素，最坏情况下需要移动表中 【2】 个元素。（3）常见的软件开发方法有结构化方法和面向对象方法。对某应用系统经过需求分析建立数据流图（DFD），则应采用 【3】 方法。（4