全国计算机二级考试试卷-历年考试真题

全国计算机二级历年考试试卷-真题集05年试卷一、选择题（（1）~（35）每小题2分，共70分下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。（1）数据的存储结构是指（）。A．存储在外存中的数据B．数据所占的存储空间量C．数据在计算机中的顺序存储方式D．数据的逻辑结构在计算机中的表示（2）下列关于栈的描述中错误的是（）。A．栈是先进后出的线性表B．栈只能顺序存储C．栈具有记忆作用D．对栈的插入与删除操作中，不需要改变栈底指针（3）对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是（）。A．冒泡排序为n/2B．冒泡排序为nC．快速排序为nD．快速排序为n(n-1)/2（4）对长度为n的线性表进行顺序查找，在最坏情况下所需要的比较次数为（）。A．log2nB．n/2C．nD．n+1（5）下列对于线性链表的描述中正确的是（）。A．存储空间不一定是连续，且各元素的存储顺序是任意的B．存储空间不一定是连续，且前件元素一定存储在后件元素的前面C．存储空间必须连续，且前件元素一定存储在后件元素的前面D．存储空间必须连续，且各元素的存储顺序是任意的（6）下列对于软件测试的描述中正确的是（）。A．软件测试的目的是证明程序是否正确B．软件测试的目的是使程序运行结果正确C．软件测试的目的是尽可能多地发现程序中的错误D．软件测试的目的是使程序符合结构化原则（7）为了使模块尽可能独立，要求（）。A．模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强B．模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱C．模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱D．模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强（8）下列描述中正确的是（）。A．程序就是软件B．软件开发不受计算机系统的限制C．软件既是逻辑实体，又是物理实体D．软件是程序、数据与相关文档的集合（9）数据独立性是数据库技术的重要特点之一。所谓数据独立性是指（）。A．数据与程序独立存放B．不同的数据被存放在不同的文件中C．不同的数据只能被对应的应用程序所使用D．以上三种说法都不对（10）用树形结构表示实体之间联系的模型是（）。A．关系模型B．网状模型C．层次模型D．以上三个都是（11）在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是（）。A．PrivateSubText1_Change()Command1.Caption="计算机等级考试"EndSubB．PrivateSubCommand1_Click()Caption="计算机等级考试"EndSubC．PrivateSubForm1_Click()Text1.Caption="计算机等级考试"EndSubD．PrivateSubCommand1_Click()Text1.Text="计算机等级考试"EndSub（12）设a=5，b=4，c=3，d=2下列表达式的值是（）。3>2*bOra=cAndb<>cOrc>dA．1B．TrueC．FalseD．2（13）设a="MicrosoftVisualBasic"，则以下使变量b的值为“VisualBasic”的语句是（）。A．b=Left(a,10)B．该文章转载自无忧考网：/show/385392.html．b=Mid(a,10)C．b=Right(a,10)D．b=Mid(a,11,10)（14）假定有如下的窗体事件过程：PrivateSubForm_Click()a$="MicrosoftVisualBasic"b$=Right(a$,5)c$=Mid(a$,1,9)MsgBoxa$,34,b$,c$,5EndSub程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是（）。A．MicrosoftVisualB．MicrosoftC．BasicD．5（15）设a="a"，b="b"，c="c"，d="d"，执行语句x=IIf((aD．,”A”,”B”)后，x的值为（）。A．”a”B．”b”C．”B”D．”A”（16）为了使命令按钮（名称为Command1）右移200，应使用的语句是（）。A．Command1.Move-200B．Command1.Move200C．Command1.Left=Command1.Left+200D．Command1.Left=Command1.Left-200（17）在窗体上画一个文本框，然后编写如下事件过程：PrivateSubForm_Click()x=InputBox("请输入一个整数")Printx+Text1.TextEndSub程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为（）。A．123B．456C．479D．123456（18）在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：PrivateSubCommand1_Click()Timer1.（）EndSubPrivateSubTimer1_Timer()Text1.Text=TimeEndSub在下划线处应填入的内容是（）。A．Enabled=TrueB．Enabled=FalseC．Visible=TrueD．Visible=False（19）假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是（）。A．选择图片框，然后按Del键B．执行语句Picture1.Picture=LoadPicture("")C．执行语句Picture1.Picture=""D．选择图片框，在属性窗口中选择Picture属性条，然后按回车键（20）在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是：_____。A．PrivateSubList1_Click()Label1.Caption=List1.ListIndexEndSubB．PrivateSubList1_Click()Label1.Name=List1.ListIndexEndSubC．PrivateSubList1_Click()Label1.Name=List1.TextEndSubD．PrivateSubList1_Click()Label1.Caption=List1.TextEndSub（21）在窗体上画一个命令按钮，其名称为Comma然后编写如下事件过程：PrivateSubCommand1_Click()DimiAsInteger,xAsIntegerFori=1To6Ifi=1Thenx=iIfi<=4Thenx=x+1Elsex=x+2EndIfNextiPrintxEndSub程序运行后，单击命令按钮，其输出结果为（）。A．9B．612D．15（22）在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()c=“ABCD”Forn=1To4Print（）NextEndSub程序运行后，单击命令按钮，要求在窗体上显示如下内容DCDBCDABCD则在（）处填入的内容为。A．Left(c,n)B．Right(c,n)Mid(c,n,1)D．Mid(c,n,n)（23）执行以下程序段DimiAsInteger,xAsIntegerx=0Fori=20To1Step-2x=x+i\5NextPrintx后，x的值为（）。A．16B．17C．18D．19（24）在VisualBasic工程中，可以作为“启动对象”的程序是（）。A．任何窗体或标准模块B．任何窗体或过程C．SubMain过程或其他任何模块D．SubMain过程或任何窗体（25）假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是（）。A．数组中每个命令按钮的名称（Name属性）均为Command1B．数组中每个命令按钮的标题（Caption属性）都一样C．数组中所有命令按钮可以使用同一个事件过程D．用名称Command1(下标)可以访问数组中的每个命令按钮（26）把窗体的KeyPreview属性设置为True，然后编写如下事件过程PrivateSubForm_KeyPress(KeyAsciiAsInteger)DimchAsStringch=Chr(KeyAscii)KeyAscii=Asc(UCase(ch))PrintChr(KeyAscii+2)EndSub程序运行后，按键盘上的“A”键，则在窗体上显示的内容是（）。A．AB．BC．CD．D（27）在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序：PrivateSubCommand1_Click()a=InputBox(“请输入日期（1~31）”)t=”旅游景点：”_&IIf(a>0Anda<=10,”长城”,””)_&IIf(a>10Anda<=20,”故宫”,””)_&IIf(a>20Anda<=31,”颐和园”,””)Text1.Text=tEndSub程序运行后，如果从键盘上输入16，则在文本框显示的内容是（）。A．旅游景点：长城故宫B．旅游景点：长城颐和园C．旅游景点：颐和园D．旅游景点：故宫（28）在窗体上画一个名称为Label1的标签，然后编写如下事件过程：PrivateSubForm_Click()Dimarr(10,10)AsIntegerDimiAsInteger,jAsIntegerFori=2To4Forj=2To4arr(i,j)=i*jNextjNextiLabel1.Caption=Str(arr(2,2)+arr(3,3))EndSub程序运行后，单击窗体，在标签中显示的内容是（）。A．12B．1314D．15（29）在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：PrivateFunctionfun(ByValmAsInteger)IfmMod2=0Thenfun=2Elsefun=1EndIfEndFunctionPrivateSubCommand1_Click()DimiAsInteger,sAsIntegers=0Fori=1To5s=s+fun(i)NextPrintsEndSub程序运行后，单击命令按钮，在窗体上显示的是（）。A．6B．7C．8D．9（30）阅读程序：OptionBase1Dimarr()AsIntegerPrivateSubForm_Click()DimiAsInteger,jAsIntegerReDimarr(3,2)Fori=1To3Forj=1To2arr(i,j)=i*2+jNextjNextiReDimPreservearr(3,4)Forj=3To4arr(3,j)=j+9NextjPrintarr(3,2)+arr(3,4)EndSub程序运行后，单击窗体，输入结果为（）。A．21B．13C．8D．25（31）在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：OptionBase1PrivateSubCommand1_Click()DimcAsInteger,dAsIntegerd=0c=6x=Array(2,4,6,8,10,12)Fori=1To6Ifx(i)>cThend=d+x(i)c=x(i)Elsed=d-cEndIfNextPrintdEndSub程序运行后，如果单击命令按钮，则在窗体上输出的内容为（）。A．10B．16C．12D．20（32）设有如下程序：PrivateSubCommand1_Click()DimcAsInteger,dAsIntegerc=4d=InputBox("请输入一个整数")DoWhiled>0Ifd>cThenc=c+1EndIfd=InputBox("请输入一个整数")LoopPrintc+dEndSub程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是（）。A．12B．1110D．9（33）在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，在文本框中输入以下字符串：MicrosoftVisualBasicProgramming然后编写如下事件过程：PrivateSubCommand1_Click()Open"d:\temp\outf.txt"ForOutputAs#1Fori=1ToLen(Text1.Text)c=Mid(Text1.Text,i,1)Ifc>="A"Andc<="Z"ThenPrint#1,LCase(EndIfNextiCloseEndSub程序运行后，单击命令按钮，文件outf.txt中的内容是（）。A．MVBPB．mvbpC．MD．mVvBbPp（34）在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：DimSWAsBooleanFunctionfunc(XAsInteger)AsIntegerIfX<20ThenY=XElseY=20+XEndIffunc=YEndFunctionPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)SW=FalseEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)SW=TrueEndSubPrivateSubCommand1_Click()DimintNumAsIntegerintNum=InputBox("")IfSWThenPrintfunc(intNum)EndIfEndSub程序运行后，单击命令按钮，将显示一个输入对话框，如果在输入对话框中输入25，则程序的执行结果为（）。A．输出0B．输出25输出45D．无任何输出（35）设有如下通用过程：PublicSubFun(a()AsInteger,xAsInteger)Fori=1To5x=x+a(i)NextEndSub在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：PrivateSubCommand1_Click()Dimarr(5)AsInteger,nAsIntegerFori=1To5arr(i)=i+iNextFunarr,nText1.Text=Str(n)EndSub程序运行后，单击命令按钮，则在文本框中显示的内容是（）。A．30B．25C．20D．15二、填空题（每空2分，共30分）请将每空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。（1）某二叉树中度为2的结点有18个，则该二叉树中有【1】个叶子结点。（2）在面向对象方法中，类的实例称为【2】。（3）诊断和改正程序中错误的工作通常称为【3】。（4）在关系数据库中，把数据表示成二维表，每一个二维表称为【4】。（5）问题处理方案的正确而完整的描述称为【5】。（6）以下语句输出结果是【6】。PrintInt(12345.6789*100+0.5)/100（7）在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：PrivateSubForm_Click()Text1.Text="VB程序设计"EndSubPrivateSubText1_Change()Picture1.Print"VBProgramming"EndSub程序运行后，单击窗体，则在文本框中显示的内容是【7】，而在图片框中显示的内容是【8】。（8）阅读下面的程序：PrivateSubForm_Click()DimCheckAsBoolean,CounterAsIntegerCheck=TrueCounter=5DoDoWhileCounter<20Counter=Counter+1IfCounter=10ThenCheck=FalseExitDoEndIfLoopLoopUntilCheck=FalsePrintCounterEndSub程序运行后，单击窗体，输出结果为【9】。（9）设有如下程序：PrivateSubForm_Click()DimnAsInteger,sAsIntegern=8s=0Dos=s+nn=n-1LoopWhilen>0PrintsEndSub以上程序的功能是【10】。程序运行后，单击窗体，输出结果为【11】。（10）设有如下程序：OptionBase1PrivateSubCommand1_Click()Dimarr1DimMinAsInteger,iAsIntegerarr1=Array(12,435,76,-24,78,54,866,43)Min=【12】Fori=2To8Ifarr1(i)<MinThen【13】NextPrint"最小值是：";MinEndSub以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。（11）在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：PrivateSubForm_Click()Open"d:\test\smtext1.txt"ForInputAs#1DoWhileNot【14】LineInput#1,aspect$whole$=whole$+aspect$+Chr$(13)+Chr$(10)LoopText1.Text=whole$Close#1Open"d:\test\smtext2.txt"ForOutputAs#1Print#1,【15】Close#1EndSub上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空2005年4月全国计算机等级考试二级VB语言笔试答案参考答案：选择题：15DBDCA610CBDDC11--15ABBCD16--20CDABD21--25ABCDB26--30CDBBA31--35CDDDA填空题：【1】19【2】对象【3】程序调试该文章转载自无忧考网：/show.asp?id=385392&Page=6【4】关系【5】算法【6】12345.68【7】VB程序设计【8】VBProgramming【9】10【10】求1-8的和【11】36【12】arr1(1)【13】min=arr1(i)【14】EOF(1)【15】text1.text(或whole$)[结束]该文章转载自无忧考网：/show.asp?id=385392&Page=707年4月二级VB语言笔试试题及答案发布时间：11-04页数：7页上一篇:06年四月全国等级考试二级VB语言考前密卷(一)下一篇:02年9月二级VB语言笔试试题及答案2007年4月全国计算机等级考试二级笔试试卷VisualBasic语言程序设计一、选择题(第小题2分,共70分)下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。(1)下列叙述中正确的是(B)A)算法的效率只与问题的规模有关，而与数据的存储结构无关B)算法的时间复杂度是指执行算法所需要的计算工作量C)数据的逻辑结构与存储结构是一一对应的D)算法的时间复杂度与空间复杂度一定相关(2)在结构化程序设计中，模块划分的原则是(D)A)各模块应包括尽量多的功能B)各模块的规模应尽量大C)各模块之间的联系应尽量紧密D)模块内具有高内聚度、模块间具有低耦合度(3)下列叙述中正确的是(A)A)软件测试的主要目的是发现程序中的错误B)软件测试的主要目的是确定程序中错误的位置C)为了提高软件测试的效率，最好由程序编制者自己来完成软件的测试工作D)软件测试是证明软件没有错误(4)下面选项中不属于面向对象程序设计特征的是(C)A)继承性B)多态性C)类比性D)封装性(5)下列对队列的叙述正确的是(D)A)队列属于非线性表B)队列按“先进后出”原则组织数据C)队列在队尾删除数据D)队列按“先进先出”原则组织数据（6)对下列二叉树(C)ABDYCEFZX进行前序遍历的结果为A)DYBEAFCZXB)YDEBFZXCAC)ABDYECFXZD)ABCDEFXYZ(7)某二叉树中有n个度为2的结点,则该二叉树中的叶子结点数为(A)A)n+1B)n-1C)2nD)n/2(8)在下列关系运算中,不改变关系表中的属性个数但能减少元组个数的是(B)A)并B)交C)投影D)笛卡儿乘积(9)在E—R图中,用来表示实体之间联系的图形是(C)A)矩形B)椭圆形C)菱形D)平行四边形(10)下列叙述中错误的是(A)A)在数据库系统中,数据的物理结构必须与逻辑结构一致B)数据库技术的根本目标是解决数据共享问题C)数据库技术是指己有数据管理系统的基础上建立数据库D)数据库系统需要操作系统的支持(11)下面可以正确定义2个整形变量和1个字符串变量的语句的是(D)A)Dimn,mASInterger,sASStringB)Dima%,b$,cASStringC)DimaASInteger,b,cASStringD)Dimx%,yASInteger,zASString(12)下列表述中不能判断x是否为偶数的是(D)A)x/2=Int(x/2)B)xMod2=0C)Fix(x/2)=x/2D)x\2=013)设在名称为Myform的窗体上只有1个名称为C1的命令按钮,下面叙述中正确的是(B)A)窗体的Click事件过程的过程名是Myform_ClickB)命令按钮的Click事件过程名是C1_ClickC)命令按钮的Click事件过程的过程名是Command1_Click(14)设窗体上有1个滚动条,要求单击滚动条右端的◢按钮一次,滚动条移动一定的刻度值,决定此刻度的属性是(C)A)MaxB)MinC)SmallChangeD)LargeChang(15)1个二维数组可以存放1个矩形.在程序开始有语句OptionBase0,则下面定义的数组中正好可以存放1个4*3矩阵(即只有12个元素)的是(B)A)Dima(-2To0,2)ASIntegerB)Dima(3,2)ASIngegerC)Dima(4,3)ASIngegerD)Dima(-1To-4,-1To-3)ASIngeger(16)若设置了文本框的属性PasswordChar=”$”,则运行程序时向文本框中输入8个任意字符后,文本框中显示的是(A)A)8个”$”B)1个”$”C)8个”*”D)无任何内容(17)设在窗体上有1个名称为Combo1的组合框,含有5个项目,要删除最后一项,正确的语句是(B)A)Combo1.RemoveItemCombo1.TextB)Combo1.RemoveItem4C)Combo1.RemoveItemCombo1.ListCountD)Combo1.RemoveItem5(18)工程中有2个窗体,名称分别为Form1.Form2,Form1为启动窗体,该窗体上有命令按钮Command1,要求程序运行后单击该命令按钮时显示Form2,则按钮的Click事件过程应该是(A)A)PrivateSubCommand1_Click()B)PrivateSubCommand1_Click()Form2.ShowEndSubForm2.VisibleEndSubC)PrivateSubCommand1_Click()D)PrivateSubCommand1_Click()LoadForm2EndSubForm2.LoadEndSub(19)若在某窗体模块中有如下事件过程(D)PrivateSubCommand1_Click(IndexASInteger)……EndSub则以下叙述中正确的是A)此事件过程与不带参数的事件过程没有区别B)有1个名称为Command1的窗体,单击此窗体则执行此事件过程C)有1个名称为Command1的空件数组,数组中有多个不同类型控件D)有1个名称为Command1的空件数组,数组中有多个相同类型控件(20)以下循环语句中在任何情况下都至少执行一次循环体的是(C)A)DoWhile<条件>B)While<条件>循环体循环体LoopWendC)DoD)DoUntil<条件>循环体循环体LoopUntil<条件>Loop(21)在窗体上有1个名为Cd1的通用对话框,为了在运行程序时打开保存文件对话框,则在程序总应使用的语句是(A)A)Cd1.Action=2B)Cd1.Action=1C)Cd1.ShowSave=TureD)Cd1.ShowSave=0(22)下面关于菜单的叙述中错误的是(B)A)各级菜单中的所有菜单项的名称必须唯一B)同一子菜单中的菜单项名称必须唯一,但不同子菜单中的菜单项名称可以相同C)弹出式菜单也用菜单编辑器编辑(23)已知有下面的过程(D)PrivateSubproc1(aAsInteger,bAsString,OptionalxAsBoolean)……EndSub正确调用此过程的语句是A)Callprocl(5)B)Callproc15,”abc”,FalseC)proc1(12,”abc”,True)D)proc15,“abc”(24)在窗体上有一个文件名称为Text1的文本框和1个名称为Command1的命令按钮，要求在程序执行时，每单击命令按钮一次，文本框向右移动一定距离。下面能够正确实现上述功能的程序是(C)A)PrivateSubCommand1_Click()B)PrivateSubCommand1_Click()Text1.Left=100EndSubText1.Left=Text1.Left-100EndSubC)PrivateSubCommand1_Click()D)PrivateSubCommand1_Click()Text1.Move.Text.Left+100EndSubText1.Move.Text.LeftEndSub(25)某人创建了1个工程，其中的窗体名称为Form1;之后又添加了1个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是(A)A)在工程属性对话框中把“启动对象”设置为Form2B)在Form1的Load事件过程中加入语句LoadForm2C)在Form2的Load事件过程中加入语句Form2.ShowD)在Form2的TabIndex属性设置为１，把Form1的TabIndex属性设置为２(26)窗体上有１个名称为Text1的文本框和１个名称为Command1的命令按钮。要求程序运行时，单击命令按钮，就可以把文本框中的内容写到文件out.txt中，每次写入的内容附加到文件原有内容之后。下面能够实现上述功能的程序是(C)A)PrivateSubCommand1_Click()B)PrivateSubCommand1_Click()Open“out.txt”ForInpitAs#1Open“out.txt”ForOutpitAs#1Print#1,Text1.TextClose#1Print#1,Text1.TextClose#1EndSubEndSubC)PrivateSubCommand1_Click()D)PrivateSubCommand1_Click()Open“out.txt”ForAppendAs#1Open“out.txt”ForRandomAs#1Print#1,Text1.TextClose#1Print#1,Text1.TextEndSubClose#1EndSub(27)为计算1+3+5+……+99的值，某人编程如下k=1s=0Whilek<=99k=k+2:s=s+kWendPrints在调试时发现运行结果有错误，需要修改。下列错误原因和修改方案中正确的是(D)A)While…Wend循环语句错误，应改为Fork=1To99…NextkB)循环条件错误，应改为Whliek<99C)循环前的赋值语句k=1错误，应改为k=0D)循环中两条赋值语句的顺序错误，应改为s=s+k:（29）在窗体上有1个名称为CommonDialog1的通用对话框和1个名称为Command1的命令按钮，以及其他一些控件。要求在程序运行时，单击Command1按钮，则显示打开文件对话框，并在选择或输入了1个文件名后，就可以打开该文件。以下是Command1_Click事件过程的两种算法算法1：PrivateSubCommand1_Click()CommonDialog1.ShowOpenOpenCommonDialog1.FileNameForInputAs#1EndSub算法2：PrivateSubCommand1_Click()CommonDialog1.ShowOpenIfCommonDialog1.FileName<>””ThenOpenCommonDialog1.FileNameForInputAs#1EndIfEndSub下面关于这两种算法的叙述中正确的是(B)A)显示打开文件对话框后若未选择或输入任何文件名，则算法2会出错，算法1不会B)显示打开文件对话框后若未选择或输入任何文件名，则算法1会出错，算法2不会C)两种算法的执行结果完全一样D)算法1允许输入的文件名中含有空格，而算法2不允许（30）窗体上有1个名称为List的列表框，其中已经输入了若干个项目（如图所示）：还有2个文本框，名称分别为Text1、Text2,1个名称为Command1的命令按钮，并有以下程序PrivateSubCommand1_Click()DimstrAsString,sAsString,kAsIntegers=Text1Str=””Fork=List1.ListCount-1to0Step-1IfInStr(List.List(k),s)>0thenstr=str&List.List(k)&””EndIfNextkIfstr=””ThenText2=”没有匹配的项目”ElseText2=strEndIfEndSub程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是(C)A)京B)北京南京C)南京D)没有匹配的项目（31）在窗体上画1一个名称为Command1的命令按钮，并编写以下程序PrivateSubCommand1_Click()Printfun(“ABCDEFG”)EndSubFunctionfun(stAsString)AsStringstlen=Len(st)temp=””Forkfun=tempEndFunction程序运行时，单击命令按钮，则窗体上显示的是(B)A)ABCDEFGB)AGBFCEC)GFEDCBAD)AGBFCED(32)在窗体上先后画2个图片框，名称分别为Picture1和banana,banana中添加了香蕉图片（见图1），且将banana.DragMode属性设置为1。要求程序运行时，可以用鼠标把banana拖拽到Picture1中（见图2）。能实现此功能的事件过程是(C)A)PriateSubForm_DragDrop(SourceAsControl,XAsSingle,YAsSinglebanana.MovePicture1.Left+X,Picture1.Top+Y)EndSubB)PrivateSubbanana_DragDrop(SourceAsControl,XAsSingle,YAsSingle)Source.MovePicture1.Left+X.Picture1.Top+YEndSubC)B)PrivateSubPicture1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)Source.MovePicture1.Left+X.Picture1.Top+YEndSubD)B)PrivateSubPicture1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)banana.Movebanana.Left+X,banana.Top+YEndSub(33)在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程OptionBase1PribateSubCommand1_Click()Dima(5.5)AsIntegerFori=1To5a(I,j)*5\10NextjNextiS=0Fori=1To5S=s+a(i,i)NextiPrintsEndSub程序运行后，单击命令按钮，输出结果是(A)A)15B)13C)11D)9(34)在窗体上从左到右有Text1、Text2两个文本框（见图），要求程序运行时，在Text1中输入1个分数后按回车键，则判断分数的合法性，若分数为0~100中的1个数，周围光标移到Text2中；否则光标不动，并弹出对话框显示“分数错”，下面程序中正确的是(D)A)PrivateSubText1__KeyPress(KeyAsciiASInteger)IfKeyAscii=13Thena=Val(Text1)‘回车符的ACSII码是13Ifa>=0ora<=100ThenText2.SetFocusElseText1.SetFocus;MsgBox(“分数错”)EndIfEndIfEndSubB)PrivateSubText1__KeyPress(KeyAsciiASInteger)IfKeyAscii=13Thena=Val(Text1)‘回车符的ACSII码是13Ifa>=0Anda<=100ThenText1.SetFocusElseText2.SetFocus;MsgBox(“分数错”)EndIfEndIfEndSubC)PrivateSubText1__KeyPress(KeyAsciiASInteger)IfKeyAscii=13Thena=Val(Text1)‘回车符的ACSII码是13Ifa<0Anda>100ThenText2.SetFocusElseText1.SetFocus;MsgBox(“分数错”)EndIfEndIfEndSubD)PrivateSubText1__KeyPress(KeyAsciiASInteger)IfKeyAscii=13Thena=Val(Text1)‘回车符的ACSII码是13Ifa>=0Anda<=100ThenText2.SetFocusElseText1.SetFocus;MsgBox(“分数错”)EndIfEndIfEndSub(35)在窗体上画2个命令按钮，名称分别为Command1、command2，并编写如下程序Constn=5,m=4Dima(m,n)PrivateSubCommand1_Click()K=1Fori=1TomForj=1Tona(i,j)=kk=k+1NextjNextiPrivateSubCommand2_Click()Summ=0Fori=1TomForj=1TonIfi=1Ori=mThenSumm=summ+a(i,j)ElseIfj=IOrj=nThenSumm=summ+a(i,j)EndIfEndIfNextjNextiPrintsummEndSub过程Command1_Click()的作用是二维数组a中存放1个m行n列的矩阵；过程Command2_Click()的作用是(A)A)计算矩阵外围一圈元素的累加和B)计算矩阵除外一圈以外的所有元素的累加和C)计算矩阵第1列和最后一列元素的累加和D)计算矩阵第1行和最后一行元素的累加和二、填空题（每空2分，共30分）请将每一个空的正确答案写在答题纸上[1]~[15]序号的横线上，答在试卷上，答在试卷上不得分，注意：以命令关键字填空的必须写完整（1）在深度为7的满二叉树中，度为2的结点个数为___63_____。（2）软件测试分为白箱（盒）测试和黑箱（盒）测试，等价类划分法属于__黑箱（或黑盒）测试。（3）在数据库系统中，实现各种数据管理功能的核心软件称为数据库管理系统(DBMS)_____。（4）软件生命周期可分为多个阶段，一般分为定义阶段、开发阶段和维护阶段。编码和测试属于开发_____阶段。（5）在结构化分析使用的数据流图（DFD）中，利用数据字典对其中的图形元素进行确切解释。（6）1++++…….n最大的n。请填空PrivateSubCommand1__Click()Dims,m,nASIntegerm=Val(InputBox(“请输入一个大于100的整数”))n=0s=0DoWhilesS=s+n*nLoopN=n+1Print“满足不等式的最大n是n-1EndSub(7)下面程序的功能是把文件file11.txt中重复字符去掉后（即若有多个字符相同，则只保留1个）写入文件file2.txt。请填空。PrivateSubCommand1__Click()DimincharASString,tempASString,outcharASStringOutchar=””Open=”file1.txt”ForInputAS#1Open=”file2.txt”ForOutputAS#2n=LOF(1)inchar=Input$(n,1)Fork=1Tontemp=Mid(inchar,k,1)IfInStr(outchar,temp)=0Thenoutchar=outchar&tempEndIfNextkprint#2,close#2close#1outcharEndSub(8)在窗体上先画1个名为Text1的文本框和平个名为Label1的标签,再画1个名为OP1的有4个单选按钮数组,其Index属性按季度顺序为0∽3(见图1)。在文件sales.txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时，鼠标单击1个单选按钮，则Text1中显示相应季度的销售总额，并把相应的文字显示在标签上。图2是单击“第3季度”单选按钮产生的结果。请填空。Dimsales(12)AsLongPrivateSubForm__Load()open“sales.txt”ForInputAS#1Fork=1To12Input#1,sales(k)NextkClose#1EndSubPrivateSubOp1_Click(Index,ASInteger)DimsumASLong,kASIngeger,monthASIngegersum=0month=Index*3Fork=1To3month=month+1sum=sum+sales(month)NextkLabel1.Caption=Opl(Index).Caption&“销售总额：”Text1=sumEndSub(9)某人编写如下函数来判断a是否为素数，若是，则函数返回True；否则返回FalseFunctionPrime(aAsInteger)ASBooleanDimkAsInterger,isprimeASBooleanIfa<2Thenisprime=FalseElseisprime=Truek=2DoWhilekIfaModk=0Thenisprime=FalseELSEk=k+1EndIFLOOPEndIfprime=isprimeEndFunction在测试时发现有1个非素数也被判断为素数，这个错判的数是42007年4月全国计算机等级考试二级VB语言笔试试题答案选择题：1-10cdacdcabaa11-20ddbcdabadc21-30bbdcacddbc31-35bcada填空：63黑盒测试DBMS开发阶段数据词典0N-1#210outcharop1_click3caption407年9月全国计算机二级VB笔试含答案引用地址：/b941278/d66726339.htm[复制│超文本复制]返回《金牌计算机二级..》关闭窗口13887330dxjzsyt发表于：08-03-1009:50123456一个家具系无赖的自白[东大传说]那个女孩[紫金之巅]二食堂中锅菜[军理工FOREVER]蝴蝶[大学生社区]逝去童年，沾染尘埃[雨中情-雨花台...]19路公交车（版里好久没人..[南农之浦口风云]你！就要毕业了[九中情]徐武老师是九中的君子[江苏经贸学院论..]如果我们分手了，你会怎样..[倾城晓庄]今年夏天2007年9月全国计算机等级考试二级笔试试卷VisualBasic语言程序设计（考试时间90分钟，满分100分）一、选择题（每小题2分，共70分）下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。（1）软件是指A）程序B）程序和文档C）算法加数据结构D）程序、数据与相关文档的完整集合（2）软件调试的目的是A）发现错误C）改善软件的性能（3）在面向对象方法中，实现信息隐蔽是依靠B）改正错误D）验证软件的正确性A）对象的继承B）对象的多态C）对象的封装D）对象的分类（4）下列叙述中，不符合良好程序设计风格要求的是A）程序的效率第一，清晰第二B）程序的可读性好C）程序中要有必要的注释D）输入数据前要有提示信息（5）下列叙述中正确的是A）程序执行的效率与数据的存储结构密切相关B）程序执行的效率只取决于程序的控制结构C）程序执行的效率只取决于所处理的数据量D）以上三种说法都不对（6）下列叙述中正确的是A）数据的逻辑结构与存储结构必定是一一对应的B）由于计算机存储空间是向量式的存储结构，因此，数据的存储结构一定是线性结构C）程序设计语言中的数组一般是顺序存储结构，因此，利用数组只能处理线性结构D）以上三种说法都不对（7）冒泡排序在最坏情况下的比较次数是A）ｎ(n＋1)/2B）nlog2nC）n(n－1)/2D）ｎ/2（8）一棵二叉树中共有70个叶子结点与80个度为1的结点，则该二叉树中的总结点数为A）219B）221C）229D）231（9）下列叙述中正确的是A）数据库系统是一个独立的系统，不需要操作系统的支持B）数据库技术的根本目标是要解决数据的共享问题C）数据库管理系统就是数据库系统D）以上三种说法都不对（10）下列叙述中正确的是A）为了建立一个关系，首先要构造数据的逻辑关系B）表示关系的二维表中各元组的每一个分量还可以分成若干数据项C）一个关系的属性名表称为关系模式D）一个关系可以包括多个二维表（11）要使一个文本框可以显示多行文本，应设置为True的属性是A）EnabledB）MultiLineC）MasLenfthD）Width（12）在窗体上有一个名为Text1的文本框。当光标在文本框中时，如果按下字母键“A”，则被调用的事件过程是A）Form_KeyPress()B）Text1_LostFocus()C）Text1_Click()D）Test1_Change()（13）设在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。要求单击Command1按钮时可把光标移到文本框中。下面正确的事件过程是A）PrivateSubCommand1_Click()B）PrivateSubText1.GotFocusCommand1.GotFocusEndSubEndSubC）PrivateSubCommand1_Click()D）PrivateSubText1.SetFocusCommand1.SetFocusEndSubEndSub（14）执行以下程序后输出的是PrivateSubCommand1_Click()Ch$=”AABCDEFGH”PrintMid(Righ(ch$,6),Len(left(ch$,4)),2)EndSubA)CDEFGHB)ABCDC)FGD)AB（15）设在窗体Form1上有一个列表框List1，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程是A)PrvateSubList1_Click()B)PrivateSubForm1_Click()PrintList1.TextPrintList1.TextEndSubEndSubC)PrivateSubList1_Click()D)PrivateSubForm1_Click()PrintForm1.TextList1.PrintList1.TextEndSubEndSub（16）若窗体上的图片框中有一个命令按钮，则此按钮的Left属性是指A)按钮左端到窗体左端的距离B)按钮左端到图片框左端的距离C)按钮中心点到窗体左端的距离D)按钮中心点到图片框左端的距离（17）为使程序运行时通用对话框CD1上显示的标题为“对话框窗口”，若通过程序设置该标题，则应使用的语句是A)CD1.DialogTitle=“对话框窗口”B)CD1.Action=“对话框窗口”C)CD1.FileName=“对话框窗口”D)CD1.Filter=“对话框窗口”（18）在窗体上有如右图所示的控件，各控件的名称与其标题相同，并有如下程序：PrivateSubForm_Load()Command2.Enabled=FalseCheck1.value=1EndSub刚运行程序时，看到的窗体外观是：（19）设在窗体中有一个名称为List1的列表框，其中有若干个项目（如图）。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是A)PrivateSubCommand1_Click()List1.ClearEndSubB)PrivateSubCommand1_Click()List1.ClearList1.ListIndexEndSubC)PrivateSubCommand1_Click()List1.RemoveltemList1.ListIndexEndSubD)PrivateSubCommand1_Click()List1.RemoveltemEndSub（20）某人设计了如下程序用来计算并输出7!（7的阶乘）PrivateSubCommand1_Click()t=0Fork=7To2Step-1t=t*kNextPrinttEndSub执行程序时，发现结果是错误的，下面的修改方案中能够得到正确结构的是A）把t=0改为t=1B）把Fork=7To2Step-1改为Fork=7To1Step-1C）把Fork=7To2Stip-1改为Fork=1To7D）把Next改为Nexik（21）若窗体中已经有若干个不同的单选按钮，要把它们改为一个单选按钮数组，在属性窗口中需要且只需要进行的操作是A）把所有单选按钮的Index属性改为相同值B）把所有单选按钮的Index属性改为连续的不同值C）把所有单选按钮的Caption属性值改为相同D）把所有单选按钮的名称改为相同，且把它们的Index属性改为连续的不同值。（22）窗体上有文本框Text1和一个菜单，菜单标题、名称如表，结构见图。要求程序执行时单击“保存”菜单项，则把其标题显示在Text1文本框中。下面可实现此功能的事件过程是：标题名称文件file新建new保存saveA）PrivateSubsave_Click()B）PrivateSubsave_Click()Text1.Text=file.save.CaptionText1.Text=save.CaptionEndSubEndSubC）PrivateSubfile_Click()D）PrivateSubfile_Click()Text1.Text=file.save.CaptionText1.Text=save.CaptionEndSubEndSub（23）某人在窗体上画了一个名称为Timer1的计时器和一个名称为Lab的属性设置为Enabled=True,Interval=0,并编程如下。希望在每2秒在标签上显示一次系统当前时间。PrivateSubTimer1_Timer()Label1.Caption=Time$EndSub在程序执行时发现未能实现上述目的，那么，他应做的修改是A）通过属性窗口把计时器的Interval属性设置为2000B）通过属性窗口把计时器的Enabled属生设置为FalseC)把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Tims$D)把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time（24）形状控件的Shape属性有6种取值，分别代表6种几何图形。下列不属于这6种几何图形的是（25）下面关于文件的叙述中错误的是A）随机文件中各条记录的长度是相同的]B）打开随机文件时采用的文件存取方式应该是RandomC）向随机文件中写数据应使用语句Print#文件号D）打开随机文件与打开顺序文件一样，都使用Open语句（26）设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下的图形文件File1.jpg，能实现此功能的语句是A）Picture1.Picture=”Flie1.jpgB）Picture1.Picture=LoadPicture(“File1.jpg”)C)LoadPicture(“File1.jpg”)D）CallLoadPicture(“File1.jpg”)（27）下面程序执行时，在窗体上显示的是PrivateSubCommand1_Click()Dima(10)Fork=1To10a(k)=11–kNextkPrinta(a(3)\a(7)Moda(5))EndSubA）3B）5C）7（28）为达到把a、b中的值交换后输出的目的，某人编程如下：PrivateSubCommand1_Click()a%=10:b%=20Callswap(a,b)Printa,bEndSubPrivateSubswap(ByValaAsInteger,ByValbAsInteger)c=a:a=b:b=cEndSub在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是A）调用swap过程的语句错误，应改为Callswapa,bB）输出语句错误，应改为：Print”a”,”b”C）过程的形式参数有错，应改为：swap(ByRefaAsInteger,ByRefbAsInteger)D）swap中3条赋值语句的顺序是错误的，应改为a=b:b=c:c=a（29）有如下函数：Functionfun(aAsInteger,nAsInteger)AsIntegerDimmAsIntegerWhilea>=na=a-nm=m+1Wendfun=mEndFunction该函数的返回值是A）a乘以n的乘积B）a加n的和C）a减n的差D）a除以n的商（不含小数部分）（30）下面程序的输出结果是PrivateSubCommand1_Click()ch$=”ABCDEF”procchPrintchEndSubPrivateSubproc(chAsString)S=””Fork=Len(ch)To1Step-1s=s&Mid(ch,k,1)Nextkch=sEndSubA）ABCDEFB）FEDCBAC）AD）F（31）某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码如下：FunctionMaxvalue(a()AsInteger)AsIntegerDimmax%max=1Fork=2To10Ifa(k)>a(max)Thenmax=kEndIfNextkMaxvalue=maxEndFunction程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是A）语句max=1应改为max=a(1)B）语句Fork=2To10应改为Fork=1To10C）If语句中的条件a(k)>a(max)应改为a(k)>maxD）语句Maxvalue=max应改为Maxvalue=a(max)（32）在窗体上画一个名称为Command1的命令按钮，并编写以下程序：PrivateSubCommand1_Click()Dimn%,b,tt=1:b=1:n=2Dob=b*nt=t+bn=n+1LoopUntiln>9PrinttEndSub此程序计算并输出一个表达式的值，该表达式是A）9！B）10！C）1！+2！+…+9！D）1！+2！+…+10！（33）有一个名称为Form1的窗体，上面没有控件，设有以下程序（其中方法Pset(X,Y)的功能是在坐标X，Y处画一个点）：DimcmdmaveAsBooleanPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)cmdmave=TrueEndSubPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfcmdmaveThenForm1.Pset(X,Y)EndIfEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)cmdmave=FalseEndSub此程序的功能是A）每按下鼠标键一次，在鼠标所指位置画一个点B）按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失C）不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线D）按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线（34）某人设计了下面的函数fun，功能是返回参数a中数值的位数Functionfun(aAsInteger)AsIntegerDimn%n=1Whilea\10>=0n=n+1a=a\10Wendfun=nEndFunction在调用该函数时发现返回的结果不正确，函数需要修改，下面的修改方案中正确的是A）把语句n=1改为n=0B）把循环条件a\10>=0改为a\10>0C）把语句a=a\10改为a=aMod10D）把语句fun=n改为fun=a（35）在窗体上有一个名称为Check1的复选框数组（含4个复选框），还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的方字罗列在文本框中（见图）。下面能实现此功能的事件过程是A）PrivateSubCheck1_Click(IndesAsInteger)Text1.Text=""Fork=0To3IfCheck1(k).value=1ThenText1.Text=Text1.Text&Check1(k).Caption&""'双引号中是空格EndIfNextkEndSubB）PrivateSubCheck1_Click(IndexAsInteger)Fork=0To3IfCheck1(k).value=1ThenText1.Text=Text1.Text&Check1(k).Caption&""'双引号中是空格EndIfNextkEndSubC）PrivateSubCheck1_Click(IndexAsInteger)Text1.Text=""Fork=0To3IfCheck1(k).value=1ThenText1.Text=Text1.Text&Check1(Index).Caption&""'双引号中是空格EndIfNextkEndSubD）PrivateSubCheck1_Click(IndexAsInteger)Text1.Text=""Fork=0To3IfCheck1(k).value=1ThenText1.Text=Text1.Text&Check1(k).Caption&""'双引号中是空格ExitForEndIfNextkEndSub二、填空题（每空2分，共30分）请将每空的正确答案写在答题卡[1]~[15]序号的横线上，答在试卷上不得分。(1)软件需求规格说明书应具有完整性，无岐义性、正确性、可验证性、可修改性等特征，其中最重要的是【1】。(2)在两种基本测试方法中，【2】测试的原则之一是保证所测模块中每一个独立路径至少执行一次。(3)线性表的存储结构主要分为顺序存储结构和链式存储结构。队列是一种特殊的线性表，循环队列是队列的【3】存储结构。(4)对下列二叉树进行中序遍历的结果为【4】。（5）在E-R图中，矩形表示【5】。（6）窗体上有一个组合框，其中已输入了若干个项目。程序运行时，单击其中一项，即可把该项与最上面的一项交换。例如：单击图1中的“重庆”，则与“北京”交换，得到图2的结果。下面是可实现此功能的程序，请填空。PrivateSubCombo1_Click()Dimtemptemp=Combo1.Text[6]=Combo1.List(0)Combo1.List(0)=tempEndSub（7）设窗体上有一个名称为HScroIII的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离（即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数）。下面是可实现此功能的程序，请填写。Dim[7]AsIntegerPrivateSubForm_Load()pos=HScroIII.valueEndSubPrivateSubHScroIII_Change()Print[8]-pospos=HScroIII.valueEndSub（8）设窗体上有一个名称为CD1的通用对话框，一个名称为Text1的文本框和一个名称为Command1的命令按钮。程序执行时，单击Command1按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在Text1中。下面是实现此功能的事件过程，请填空。PrivateSubCommand1_Click()CD1.Filter="文本文件1*.txt(Word文档)*.doc"CD1.Filterinder=1CD1.ShowOpenIfCD1.FileName<>""ThenOpen[9]ForInputAs#1LineInput#1,ch$Close#1Text1.Text=[10]EndIfEndSub（9）下面的程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。例如：输入7685，则输出5867，输入1000，则输出0001。请填空。PrivateSubCommand1_Click()DimxAsIntegerx=InputBox(“请输入一个正整数”)Whilex>__[11]___PrintxMod10;x=x\10WendPrint__[12]__EndSub（10）有如图所示的窗体。程序执行时先在Text1文本框中输入编号，当焦点试图离开Text1时，程序检查编号的合法性，若编号合法，则焦点可以离开Text1文本