历年全国计算机等级考试二级vb笔试真题及答案

2005年4月等级考试二级VB真题（考试时间90分钟，满分100分）一、选择题（（1）〜（35）每小题2分，共70分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。（1）数据的存储结构是指A）存储在外存中的数据 B）数据所占的存储空间量0数据在计算机中的顺序存储方式 D）数据的逻辑结构在计算机中的表示（2）下列关于栈的描述中错误的是A）栈是先进后出的线性表 B）栈只能顺序存储0栈具有记忆作用 D）对栈的插入与删除操作中，不需要改变栈底指针（3）对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是A）冒泡排序为n/2 B）冒泡排序为n0快速排序为n D）快速排序为n（n-l）/2（4）对于长度为n的线性表进行顺序查找，在最坏情况下所需要的比较次数为A）log2nB）n/2C）nD）n+1（5）下列对于线性链表的描述中正确的是A）存储空间不一定是连续，且各元素的存储顺序是任意的B）存储空间不•定是连续，且前件元素一定存储在后件元素的前面0存储空间必须连续，且前件元素一定存储在后件元素的前面D）存储空间必须连续，且各元素的存储顺序是任意的（6）下列对于软件测试的描述中正确的是A）软件测试的目的是证明程序是否正确B）软件测试的目的是使程序运行结果正确0软件测试的目的是尽可能多地发现程序中的错误D）软件测试的H的是使程序符合结构化原则（7）为了使模块尽可能独立，要求A）模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强B）模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱C）模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱D）模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强(8)下列描述中正确的是A)程序就是软件B)软件开发不受计算机系统的限制0软件既是逻辑实体，又是物理实体D)软件是程序、数据与相关文档的集合(9)数据独立性是数据库技术的堇要特点之一。所谓数据独立性是指A)数据与程序独立存放B)不同的数据被存放在不同的文件中0不同的数据只能被对应的应用程序所使用D)以上三种说法都不对(10)用树形结构表示实体之间联系的模型是A)关系模型B)网状模型C)层次模型D)以上三个都是11、在窗体(名称为Forml)上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写一个事件过程。程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是：A)PrivateSubTextl_Change()Commandl.Caption=>,计算机等级考试”EndSubPrivateSubCommandl_Click()Caption/计算机等级考试”EndSubPrivateSubForml_Click()Textl.Caption="计算机等级考试”EndSubPrivateSubCommandlClickOTextl.Text="计算机等级考试”EndSub(12)设a=5,b=4,c=3,d=2,下列表达式的值是3>2*bOra=cAndbOcOrc>dA)1B)TrueC)FalseD)2(13)设a="MicrosoftVisualBasic”,则以下使变量b的值为"VisualBasic”的语句是A)b=Left(a,10)B)b=Mid(a,10)C)bright(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"JB")后，x的值为：A)"a“B)”b“ C)”B“ D)“A"(16)为了使命令按钮(名称为Commandl)右移200,应使用的语句是A)Command1.Move-200B)Commandl.Move200C)Commandl.Left=Commandl.Left+200D)Commandl.Left=Commandl.Left-200(17)在窗体上画一个文本框，然后编写如下事件过程：PrivateSubFormClickOx=InputBox("请输入一个整数”)Printx+Textl.TextEndSub程序运行时，在文本框中输入456,然后单击窗体，在输入对话框中输入123,单击“确定”按钮后，在窗体上显示的内容是：A)123 B)456 0579D)123456(18)在窗体上画一个文本框和一个计时器控件，名称分别为Textl和Timerl,在属性窗口中把计时器的Interval属性设置为1000,Enabled属性设置为False,程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：PrivateSubCommand1_C1ick()Timer1. EndSubPrivateSubTimerl_Timer()Textl.Text=TimeEndSub在 处应填入的内容是A)Enabled=TrueB)Enabled=FalseC)Visible=TrueD)Visible=False(19)假定在图片框Picturel中装入了一个图形，为了清除该图形(不删除图片框)，应采用的正确方法是：A)选择图片框,然后按Del键 B)执行语句Picturel.Picture=LoadPicture("")C)执行语句Picture】.Picture=""D)选择图片框，在属性窗口中选择Picture属性，然后按回车键(20)在窗体上画一个Listl的列表框，一个名称为Labell的标签，列表框中显不若干个项目，当单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列能正确

实现上述操作的程序是Private Sub Listl ClickOPrivate实现上述操作的程序是Private Sub Listl ClickOPrivate Sub Listl_Click()Private Sub Listl ClickOPrivate Sub Listl ClickOLabel1.Name=Listl.ListindexEndSubLabel1.Name=Listl.TextEndSubLabel1.Caption=Listl.TextEndSub(21)在窗体上画一个命令按钮，名称为Commands然后编写如下事件过程:PrivateSubCommand1_C1ick()DimiAsInteger,xAsIntegerFori=1To6Ifi=1Thenx=iIfi<=4Thenx=x+1Elsex=x+2EndIfNextiPrintxEndSub程序运行后，单击命令按钮，其输出结果为A)9 B)6 C)12 D)15(22)在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程:PrivateSubCommand1_C1ick()c=〃ABCD〃Forn=1To4Print NextEndSub程序运行后，单击命令按钮，要求在窗体上显示如下内容：DCDBCDABCD则在 处应填入的内容为A)Left(c,n)B)Right(c,n)C)Mid(c,n,1)D)Mid(c,n,n)(23)执行以下程序段DimxAsInteger,iAsIntegerx=0Fori=20To1Step-2x=x+i\5NextI后，X的值为A)16 B)17 018 D)19(24)在VisualBasic工程中，可以作为启动对象的程序是A)任何窗体或标准模块B)任何窗体或过程OSubMain过程或其他任何模块D)SubMain过程或任何窗体(25)假定建立了一个名为Commandl的命令按钮数组，则以下说法中错误的是A)数组中每个命令按钮的名称(名称属性)均为CommandlB)数组中每个命令按钮的标题(Caption属性)都一样C)数组中所有命令按钮可以使用同一个时间过程D)用名称Commandl(下标)可以访问数组中的每个命令按钮(26)把窗体的KeyPreview属性设置为True,然后编写如下事件过程：PrivateSubForm_KeyPress(KeyAsciiAsInteger)DimchAsStringch=Chr(KeyAscii)KeyAscii=Asc(UCase(ch))PrintChr(KeyAscii+2)EndSub程序运行后，按键盘上的“A”键，则在窗体上显示的内容是A)AB)BC)CD)D(27)在窗体上画一个命令按钮和一个文本框，名称分别为Commandl和Textl,然后编写如下程序：PrivateSubCommandl_Click()a=InputBox("请输入日期(1〜31)")t="旅游景点:"一&IIf(a>0Anda<=10,"长城_&HRa>10Anda<=20,"故宫_&Ilfifa>20Anda<=30,"颐和园”，巧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)13C)14D)15(29)在窗体上画一个名称为Comamndl的命令按钮,然后编写如下通用过程和命令按钮的事件过程：PrivateFunctionfun(ByValmAsInteger)IfmMod2=0Thenfun=2Elsefiin=1EndIfEndFunctionPrivateSubCommand1_Click()DimiAsInteger,sAsIntegers=0Fori=1To5s=s+fiin(i)NextPrintsEndSub程序运行后，单击命令按钮,则窗体上显示的是：A)6B)7C)8D)9(30)阅读程序：OptionBase1Dimarr()AsIntegerPrivateSubFonn_Click()DimiAsInteger,jAsIntegerRcDimarr(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)2531)在窗体上画一个名称为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-cEndIfNextiPrintdEndSub程序运行后，如果单击命令按钮，则在窗体上输入的内容为A)10B)16C)12D)20(32)设有如下程序：PrivateSubCommandI_Click()DimcAsInteger,dAsIntegerc=4d=InputBox(”请输入•个整数”)DoWhiled>0Ifd>cThenc=c+1EndIfd=InpulBox("请输入一个整数”)LoopPrintc+dEndSub程序运行后，单击命令按钮如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0,则输出结果是：A)12B)llC)10D)9(33)在窗体上画一个名称为Commandl的命令按钮和—个名称为Textl的文本框,在文本框中输入以下字符串：MicrosoftVisualBasicProgramming然后编写如下事件过程：PrivateSubCommand1_Click()Open"d:\temp\outf.txt”ForOutputAs#1Fori=1ToLen(Textl.Text)c=Mid(Textl.Text,i,1)Ifc>=MA"Andc<=,,ZMThenPrint#1,LCase(c)EndIfNextiCloseEndSub程序运行后,单击命令按犯，文件outf.txt中的内容是：A)MVBPB)mvbpC)MVBPD)mvb(34)在窗体上画一个名称为Command1的命令按钮,然后编写如下程序：DimSWAsBooleanFunctionfunc(XAsInteger)AsIntegerIfX<20ThenY=XElseY=20+XEndIfftinc=YEndFunctionPrivateSubCommand1_Click()DimintNumAsIntegerintNum=InputBox(,,H)IfSWThenPrintfunc(intNum)EndIfEndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)SW=FalseEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)SW=TrueEndSub程序运行后,单击命令按钮，将显示一个输入对话框,如果在对话框中输入25,则程序的执行结果是：A)输出0B)输出25C)输出45D)无任何输出(35)设有如下通用过程：PublicSubfun(a()AsInteger,xAsInteger)Fori=1To5x=x+a(i)NextEndSub在窗体上画一个名称为Textl的文本框和一个名称为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】o(3)诊断和改正程序中错误的工作通常称为【3】.(4)在关系数据库中，把数据表示成二维表，每一个二维表称为【4】。(5)问题处理方案的正确而完整的描述称为【5】。(6)以下语句的输出结果是：【6】PrintInt(l2345.6789*100+0.5)/100(7)在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：PrivateSubForm_Click()Text1.Text=MVB程序设计”EndSubPrivateSubTextl_Change()Picture1.PrintnVBProgrammingMEndSub程序运行后，单击窗体，在文本框中显示的内容是【7］，而在图片框中显示的内容是［8】(8)阅读下面的程序PrivateSubForm_Click()DimCheckAsBoolean,CounterAsIntegerCheck=TrueCounter=5DoDoWhileCounter<20Counter=Counter+1IfCounter=10ThenCheck=FalseExitDoEndIfLoopLoopUntilCheck=FalsePrintCounterEndSub程序运行后，单击窗体，输出结果是[9】(9)设有如下程序PrivateSubForm_Click()DimaAsInteger,sAsIntegern=8s=0Dos=s+nn=n-1LoopWhilen>0PrintsEndSub以上程序的功能是【10】，程序运行后，单击窗体，输出结果为[11](10)设有如下程序：OptionBase1PrivateSubCommand1_Click()DimarrlDimMinAsInteger,iAsIntegerarrl=Array(12,435,76,-24,78,54,866,43)Min=[12]Fori=2To8Ifarrl(i)<MinThen[13]NextiPrint”最小值是:”;MinEndSub以上程序的功能是用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中的最小值,请填空(11)在名称为Forml的窗体上画一个文本框，其名称为Textl,在属性窗口中把文本框的MultiLine属性设置为True,然后编写如下事件过程：PrivateSubForm_Click()Open,,d:\test\smtcxtl.txtnForInputAs#1DoWhileNot[14]LineInput#1,aspect?whole$=whole$+aspects+Chr(13)+Chr(l0)LoopText1.Text=wholeSClose#1Open"d:\test\smtext2.txt"ForOutputAs#1Print#1,[15]Close#1EndSub上述程序的功能是，把磁盘文件smtextl.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt.请填空以下答案仅供参考选择题：1—5DBDCA6—10CBDDC11-15ABBCD16-20CDABD21-25ABCDB26-30CDBBA31-35CDDDA填空题：19[2]对象程序调试关系算法12345.68VB程序设计VBProgramming10[10]求1-8的和36arrl⑴min=arrl(i)EOF(l)text1.text(或wholeS)2005年9月二级VB试题+答案一、选择题（每小题2分，共70分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。（1）下列叙述中正确的是A.程序设计就是编制程序B.程序的测试必须由程序员自己去完成C.程序经调试改错后还应进行再测试D.程序经调试改错后不必进行再测试（2）下列数据结构中，能用二分法进行查找的是A.顺序存储的有序线性表B.线性链表C.二叉链表D.有序线性链表（3）下列关于栈的描述正确的是A.在栈中只能插入元素而不能删除元素B.在栈中只能删除元素而不能插入元素C.栈是特殊的线性表，只能在一端插入或删除元素D.栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素（4）下列叙述中正确的是A.一个逻辑数据结构只能有一种存储结构B.数据的逻辑结构属于线性结构，存储结构属于非线性结构一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率（5）卜列描述中正确的是A,软件工程只是解决软件项目的管理问题B.软件工程主要解决软件产品的生产率问题C.软件工程的主要思想是强调在软件开发过程中需要应用工程化原则D.软件工程只是解决软件开发中的技术问题(6)在软件设计中，不属于过程设计工具的是PDL(过程设计语言)PAD图N-S图DFD图(7)下列叙述中正确的是A.软件交付使用后还需要进行维护B.软件一旦交付使用就不需要再进行维护C.软件交付使用后其生命周期就结束D,软件维护是指修复程序中被破坏的指令(8)数据库设计的根本目标是要解决A.数据共享问题B.数据安全问题C.大量数据存储问题D.简化数据维护(9)设有如下关系表：RSTABCABCABC112313112223223313A.T=ROST=RUST=RxST=R/S（10）数据库系统的核心是A.数据模型B.数据库管理系统C.数据库D.数据库管理员（11）假定一个VisualBasic应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是A.只保存窗体模块文件B.分别保存窗体模块、标准模块和工程文件C.只保存窗体模块和标准模块文件D.只保存工程文件（12）为了清除窗体上的一个控件，下列正确的操作是A.按回车键B.按Esc键C.选择（单击）要清除的控件，然后按Del键D.选择（单击）要清除的控件，然后按回车键（13）以下叙述中错误的是A.打开•个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B.当程序运行时，双击一个窗体，则触发该窗体的DblClick事件C.VisualBasic应用程序只能以解释方式执行D.事件可以由用户引发，也可以由系统引发(14)设a=2,b=3,c=4,d=5,下列表达式的值是Nota<=cOr4*c=bA2Andboa+c-11TrueFalse(15)设a=5,b=10,则执行c=Int((b-a)*Rnd+a)+1后，c值的范围为5〜106〜96〜105〜9(16)在窗体上画一个命令按钮，名称为Commands然后编写如下事件过程:PrivateSubCommand1_Click()a$="softwareandhardware"b$=Right(a$,8)c$=Mid(a$,1,8)MsgBoxa$,,b$,c$,1EndSub运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是A.softwareandhardwareB・softwareC•hardwareD.1(17)在窗体上画一个命令按钮和♦个文本框，其名称分别为Commandl和Textl,把文本框的Text属性设置为空白，然后编写如下事件过程：PrivateSubCommand1_Click()a=InputBox(*'Enteraninteger0)b=InputBox(*'Enteraninteger”)Textl.Text=b+aEndSub程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10,则文本框中显示的内容是10818810D.出错(18)在窗体上画两个文本框，其名称分别为Textl和Text2,然后编写如下程序：PrivateSubForm_Load()ShowTextl.Text=,H,Text2.Text=TextI.SetFocusEndSubPrivateSubTextl_Change()Text2.Text=Mid(Textl.Text,8)EndSub程序运行后，如果在文本框Textl中输入BeijingChina,则在文本框Text2中显示的内容是BeijingChinaChinaBeijingBeijingC(19)在窗体上画一个列表框和一个命令按钮，其名称分别为Listl和Commands然后编写如下事件过程：PrivateSubFonn_Load()List1.Additem“Item1"List1.Additem"Item2"List1.Additem**Item3"EndSubPrivateSubCommand1_Click()Listl.List(Listl.ListCount)="AAAAHEndSub程序运行后，单击命令按钮，其结果为A.把字符串“AAAA”添加到列表框中，但位置不能确定B.把字符串“AAAA”添加到列表框的最后(即“Item3”的后面)C.把列表框中原有的最后一项改为“AAAA”D.把字符串“AAAA”插入到列表框的最前面(即“Item1”的前面)(20)假定有如下事件过程：PrivateSubForm_Click()DimxAsInteger,nAsIntegerx=1n=0DoWhilex<28n=n+1LoopPrintx,nEndSub程序运行后，单击窗体，输出结果是8145632812435(21)有如卜程序：PrivateSubForm_Click()DimCheck,CounterCheck=TrueCounter=0DoDoWhileCounter<20Counter=Counter+1IfCounter=10ThenCheck=FalseExitDoEndIfLoopLoopUntilCheck=FalsePrintCounter,Check程序运行后，单击窗体，输出结果为15020-110True10False(22)有如下程序：PrivateSubForm_Click()DimiAsInteger,sumAsIntegersum=0Fori=2To10IfiMod2<>0AndiMod3=0Thensum=sum+iEndIfNextiPrintsumEndSub程序运行后，单击窗体，输出结果为12302418(23)在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommandI_Click()DimiAsInteger,jAsIntegerFori=1To3Forj=2To4arrayl(i,j)=i+jNextjNextiTextl.Text=array1(2,3)+array1(3,4)EndSub程序运行后，单击命令按钮，在文本框中显示的值是12131415(24)在窗体上画•个命令按钮，其名称为Command］，然后编写如下事件过程:PrivateSubCommand1_Click()Dima1(4,4),a2(4,4)Fori=1To4Forj=1To4al(i,j)=i+ja2(i,j)=al(i,j)+i+jNextjNextiPrintal(3,3);a2(3,3)EndSub程序运行后，单击命令按钮，在窗体上输出的是66105721612(25)有如下程序：OptionBase1PrivateSubForm_Click()Dimarr,SumSum=0arr=Array(l,3,5,7,9,11,13,15,17,19)Fori=1To10Ifarr(i)/3=arr(i)\3ThenSum=Sum+arr(i)EndIfNextiPrintSumEndSub程序运行后，单击窗体，输出结果为25262728(26)在窗体上画一个命令按钮，然后编写如下事件过程:PrivateSubCommandl_Click()Fori=1To5a(i)=Chr(Asc(MA")+(i-1))NextiForEachbInaPrintb;NextEndSub程序运行后，单击命令按钮，输出结果是ABCDE12345abcdeD.出错信息(27)以下关于函数过程的叙述中，正确的是A.如果不指明函数过程参数的类型，则该参数没有数据类型B.函数过程的返回值可以有多个C.当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递D.函数过程形参的类型与函数返回值的类型没有关系(28)函数过程F1的功能是：如果参数b为奇数，则返回值为1,否则返回值为0。以卜能正确实现上述功能的代码是FunctionFl(bAsInteger)IfbMod2=0ThenReturn0ElseReturn1EndIfEndFunctionFunctionFl(bAsInteger)IfbMod2=0ThenFl=0ElseFl=1EndIfEndFunctionFunctionFl(bAsInteger)IfbMod2=0ThenFl=1ElseFl=0EndIfEndFunctionFunctionFl(bAsInteger)IfbMod2o0ThenReturn0ElseReturn1EndIfEndFunction(29)以下关于KeyPress事件过程中参数KeyAscii的叙述中iE确的是KeyAscii参数是所按键的ASCII码KeyAscii参数的数据类型为字符串KeyAscii参数可以省略KeyAscii参数是所按键上标注的字符(30)设窗体上有一个名为Textl的文本框，并编写如下程序：PrivateSubForm_Load()ShowTextl.Text=Textl.SetFocusEndSubPrivateSubForm_MouseUp(ButtonAsInteger,_ShiftAsInteger,XAsSingle,YAsSingle)Print”程序设计”EndSubPrivateSubText1KeyDown(KeyCodeAsInteger,ShiftAsInteger)Print“VisualBasic”；EndSub程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是A.VisualBasicB.程序设计C.VisualBasic程序设计D.a程序设计(31)假定有下表所列的菜单结构：标题名称层次显示appear1（主菜单）大图标bigicon2（子菜单）小图标smallicon2（子菜单）要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个“0”。以下正确的事件过程是PrivateSubbigicon_Click()bigicon.Checkcd=FalseEndSubPrivateSubbigicon_Click()Me.appear.bigicon.Checked=TrueEndSubPrivateSubbigicon_Click()bigicon.Checkcd=TrueEndSubPrivateSubbigicon_Click()appear.bigicon.Checked=TrueEndSub(32)假定通用对话框的名称为CommonDialogl,命令按钮的名称为Command1,则单击命令按钮后，能使打开的对话框的标题为“NewTitle”的事件过程是PrivateSubCommandl_Click()CommonDialogl.DialogTitle="NewTitle**CommonDialogl.ShowPrinterEndSubPrivateSubCommandl_Click()CommonDialogl.DialogTitle="NewTitle”CommonDialogl.ShowFontEndSubPrivateSubCommandl_Click()CommonDialogl.DialogTitle="NewTitle”CommonDialogl.ShowOpcnEndSubPrivateSubCommandl_Click()CommonDialogl.DialogTitle="NewTitle**CommonDialogl.ShowColorEndSub(33)如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是A.任何时刻最多只有一个窗体是活动窗体B.不能把标准模块设置为启动模块C.用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体D.如果工程中含有SubMain过程，则程序•定首先执行该过程(34)假定在工程文件中有一个标准模块，其中定义了如下记录类型TypeBooksNameAsString*10TelNumAsString*20EndType要求当执行事件过程Command1_Click时，在顺序文件Person.txt「T写入-一条记录。下列能够完成该操作的事件过程是PrivateSubCommandl_Click()DimBAsBooksOpen"c:\Person.txt”ForOutputAs#1B.Name=InputBox,输入姓名”)B.TelNum=【nputBox（"输入电话号码”）Write#1,B.Name,B.TelNumClose#1EndSubPrivateSubCommand1_Click（）DimBAsBooksOpen"c:\Person.txt”ForInputAs#1B.Name=InputBox（"输入姓名”）B.TelNum=InputBox（"输入电话号码”）Print#1,B.Name,B.TelNumClose#1EndSubPrivateSubCommandl_Click（）DimBAsBooksOpen"c:\Person.txt"ForOutputAs#1Name=InputBox（"输入姓名”）TelNum=InputBox（"输入电话号码”）Write#1,BClose#1EndSubPrivateSubCommandl_Click（）DimBAsBookOpen"c:\Person.txt"ForInputAs#1Name=InputBox。'输入姓名"）Print#1,B.Name,B.TelNumClose#1EndSub(35)目录列表框的Path属性的作用是A.显示当前驱动器或指定驱动器上的某目录下的文件名B.显示当前驱动器或指定驱动器上的目录结构C.显示根目录下的文件名D.显示指定路径下的文件 二、填空题(每空2分，共30分)请将每空的正确答案写在答题卡［1】〜【15】序号的横线上，答在试卷上不得分。(1)数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段，其中数据独立性最高的阶段是【1】.(2)算法复杂度主要包括时间复杂度和【2】复杂度。(3)在进行模块测试时，要为每个被测试的模块另外设计两类模块：驱动模块和承接模块(桩模块)。其中【3】的作用是将测试数据传送给被测试的模块，并显示被测试模块所产生的结果。一棵二叉树第六层(根结点为第一层)的结点数最多为【4】个。(5)数据结构分为逻辑结构和存储结构，循环队列属于【5】结构。(6)设有以下函数过程：Functionfun(mAsInteger)AsIntegerDimkAsInteger,sumAsIntegersum=0Fork=mTo1Step-2sum=sum+kNextkfun=sumEndFunction若在程序中用语句s=fun(10)调用此函数，则s的值为【6】o(7)在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母(不区分大小写)，单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Textl中。例如，若在Textl中输入的是abDfdb,则单击Command1按钮后Textl中显示的字符串是ZYXWVUTSRQPONMLKJIHGECo请填空。PrivateSubCommandl_Click()DimstrAsString,sAsString,cAsStringstr=UCase(Textl)s=""c=Whilec>=IfInStr(str,c)=0Thens=[7]EndIfc=Chr$(Asc(c)[8])WendIfso,n,ThenTextl=sEndIfEndSub(8)在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式计算。下图窗体中3个文本框的名称依次是Textl、Text2.Text3o程序运行时在Textl>Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中(见下图)。请填空。PrivateSubCommandl_Click()DimrAsInteger,nAsIntegern=Textlr=Text2Text3=fun(n)/fiin([9])/ftin(r)EndSubFunctionfiin(nAsInteger)aslongDimtAsLong[10]Fork=1Tont=t*kNextfun=tEndFunction(9)以下是一个比赛评分程序。在窗体上建立一个名为Textl的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后的平均分即为最后得分)，如图所示。请填空。PrivateSubCommandl_Click()DimkAsIntegerDimsumAsSingle,maxAsSingle,minAsSinglesum=Text1(0)max=Text1(0)min=[11]Fork=[12]To6Ifmax<Textl(k)Thenmax=Textl(k)EndIfIfmin>Textl(k)Thenmin=Textl(k)EndIfsum=sum+Textl(k)NextkText2=([13])/5(10)如图所示，在列表框Listl中已经有若干人的简单信息，运行时在Textl文本框(即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。PrivateSubCommandl_Click()DimkAsInteger,nAsInteger,foundAsBooleanfound=Falsen=Len([14])k=0Whilek<Listl.ListCountAndNotfoundIfTextl=Left$(Listl.List(k),n)ThenText2=[15]found=TrueEndIfk=k+1WendIfNotfoundThenText2="查无此人”EndIfEndSub2005年9月全国计算机等级考试二级VB笔试试卷(含参考答案)参考答案选择题[1-5]CACDC[6-10]DAABB[11-15]BCCDC[16-20]CABBA[21-25]DAADC[26-30]ADBAC[31-35]CCDAB填空题【1】数据库系统【2】空间【3】驱动模块32[5]存储结构【6】30s&c[8]-1[9]n-rt=l[11]textl(O)[12]1【13】(sum-max-min) 【14】text1.text[15]listl.list(k)绝密★启用前2006年4月全国计算机等级考试二级笔试试卷9VisualBasic语言程序设计（考试时间90分钟，满分100分）一、选择题（每小题2分，共70分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。请将正确选项廿在答题卡相应位置上，答在试卷上不得分.（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）只有根结点的二叉树是线性结构

(6)对如下二叉树进行后序遍历的结果为A)ABCDEF B)DBEAFCC)ABDECF D)DEBFCA(7)在深度为7的满二叉树中，叶子结点的个数为A)32 B)-3I C)64 D)63“商品”与“顾客”两个实体集之间的联系一般是A)一对一 B)一对多C)多对一 D)多对多(9)在E-R图中，用来表示实体的图形是A)矩形 B)椭圆形C)菱形 D)三角形(10)数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系悬A)DB包含DBS和DBMS B)DBMS包含DB和DBSC)DBS包含DB和DBMS D)没有任何关系.(11)以下关于VisualBasic特点的叙述中，错误的是VisualBasic是采用事件驱动编程机制的语言VisualBasic程序既可以编译运行，也可以解释运行C)构成VisualBasic程序的多个过程没有固定的执行顺序D)VisualBasic程序不是结构化程序，不具备结构化程序的三种基本结构(12)以下叙述中.错误的是一个VisualBasic应用程序可以含有多个标准模块文件一个VisualBasic工程可以含有多个窗体文件C)标准模块文件可以属于某个指定的窗体文件D)标准模块文件的扩展名山bas

(13)以下叙述中，错误的是A)在VisualBasic中，对象所能响应的事件是由系统定义的B)对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定C)VisualBasic中允许不同对象使用相同名称的方法D)VisualBasic中的对象具有自己的属性和方法(14)设有如下语句：Dima,bAsIntegerc="VisualBasic"d=#7/20/2005#以下关于这段代码的叙述中，错误的是A)a被定义为Integer类型变量B)b被定义为Integer类型变量C)c中的数据是字符串D)d中的数据是日期类型(15)以下能从字符串"VisualBasic"中直接取出子字符串"Basic"的函数是A)Left B)Mid C)String D)Instr(16)设a=4,b=3.c=2,d=1,下列表达式的值是a>b+lOrc<dAndbModcA)True B)1 C)-1 D)0(17)以下可以作为VisualBasic变量名的是A)A#A B)counstA C)3A D)?AA(18)设x=4,y=6,则以下不能在窗体上显示出“A=10"的语句是A)PrintA=x+y B)Print"Ax+yPrint”A="+StKx+y) D)Print"A="&x+y(19)假定有如下的命令按钮(名称为Commandl)事件过程：PrivateSubCommandl_Click()x=InputBox("输入："，"输入整数")MsgBox"输入的数据是：*，"输入数据:"+xEndSub

(13)以下叙述中，错误的是A)在VisualBasic中，对象所能响应的事件是由系统定义的B)对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定C)VisualBasic中允许不同对象使用相同名称的方法D)VisualBasic中的对象具有自己的属性和方法(14)设有如下语句：Dima,bAsIntegerc="VisualBasic"d=#7/20/2005#以下关于这段代码的叙述中，错误的是A)a被定义为Integer类型变量B)b被定义为Integer类型变量C)c中的数据是字符串D)d中的数据是日期类型(15)以下能从字符串"VisualBasic"中直接取出子字符串"Basic"的函数是A)Left B)Mid C)String D)Instr(16)设a=4,b=3.c=2,d=1,下列表达式的值是a>b+lOrc<dAndbModcA)True B)1 C)-1 D)0(17)以下可以作为VisualBasic变量名的是A)A#A B)counstA C)3A D)?AA(18)设x=4,y=6,则以下不能在窗体上显示出“A=10"的语句是A)PrintA=x+y B)Print"Ax+yC)Print”A="+StKx+y) D)Print"A="&x+y(19)假定有如下的命令按钮(名称为Commandl)事件过程：PrivateSubCommandl_Click()x=InputBox("输入："，"输入整数")MsgBox"输入的数据是：*，"输入数据:"+xEndSub

A)B)C)D)a数蛆中的数据是30A)B)C)D)语句ForEacharrltemIna有语法错误IfarrltemMod7=0……语句的功能是输出数组中能够被7整除的数Ifarrltem>90……语句的作用是当数组元素的值大于90时退出For循环(22)设有命令按钮Commandl的单击事件过程，代码如EPrivateSubCommandI_ClickQDima(3,3)AsIntegerFori=1To3a(i,j)=i・j+iNextjNextiSum=0 .Fori=1To3Sum=Sum+a(i,4-a(i,j)=i・j+iNextjNextiSum=0 .Fori=1To3Sum=Sum+a(i,4-i)NextiPrintSumEndSub运行程序，单击命令按钮，输出结果是A)20B)7C)16(23)在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程:PrivateSubCommandl_Click()a=0Fori=lTo2Forj-1To4IfjMod2v>0Thena=a-lEndIfa=a+lNextjNextiPrintaEndSub程序运行后，单击命令按钮，输出结果是A)0B)2C)3A)0B)2C)3D)424）窗体上有名称分别为TextkText2的2个文本框，有一个由3个单选按钮构成的拓件数组Optionl,如图1所示。程序运行后，如果单击某个单选按钮，则执行Textl4的数值与该单选按钮所对应的运算（乘以I、10或100），并将结果显示在Text2中，如图2所示.为了实现上述功能，在程序中的问号（?）处应填入的内容是PrivateSubOptionI_Click(IndexAsInteger)IfTextl.Text<>HMThenSelectCase?CaseOText2.Text=Val(Text1.Text)Text2.Text=Val(Textl.Text).10Text2.Text=Val(Textl.Text)•100EndSelectEndIfEndSubB)Option1.IndexD)OptionI(Index).ValueB)Option1.IndexD)OptionI(Index).ValueC)Optionl(Index)5)在窗体上画1个命令按钮，其名称为Command1,然后编写如下程序:PrivateSubCommandl_Click()Dima(10)AsIntegerDimxAsIntegerFori=1To10a(i)=8+iNextx=2Printa(f(x)+x)EndSubFunctionRxAsInteger)x=x+3f=xEndFunction •程序运行后，单击命令按钮，输出结果为A)12 B)15 C)17 D)18：26)以下关于过程的叙述中，错误的是A)事件过程是由某个事件触发而执行的过程B)函数过程的返回值可以有多个C)可以在事件过程中调用通用过程D)不能在事件过程中定义函数过程(27)在窗体上画3个标签、3个文本框(名称分别为Textl、Text2和Text3)和I个命"按钮(名称为Commandl),外观如图所示.编写如下程序：PrivateSubForm_Load()Textl.1^xt=0MText2.Text=Text3.Text=""EndSubPrivateSubCommandl_CHck()x=Val(Textl.Text)y=Val(Tcxt2.Text)Text3.Text=Rx,y)EndSub

FunctionRByValxAsInteger,ByVaiyAsInteger)DoWhiley<>0tmp=xModyx3yy=tmpLoopf=xEndFunction运行程序，在Textl文本椎中输入36,在Text2文本框中输入24,然后单击命令按钮,则在Text3文本框中显示的内容是A)4 B)6 C)8 D)12!)窗体上有名称分别为Textl、Text2的2个文本框，要求文本框Textl中输入的数据小于500,文本框Text2中输入的数据小于1000,否则重新输入•为了实现上述功能，在以F程序中问号(？)处应填入的内容是PrivateSubTextl_LostFocus()CallChecklnput(Textl,500)EndSubPrivateSubText2_LostFocusOCallCheckInput(Text2,1000) .EndSubSubChecklnput(tAs?,xAsInteger)IfVal(t.Text)>xThenMsgBox”请重新输入！”EndIf2ndSubX)Text B)SelText C)Control D)Form9)在窗体上画1个文本框，其名称为Textl,然后编写如下过程：PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)EndSubPrivateSubTextl_KeyUp(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode+2)2ndSub

程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为A)AAB)ABC)A ,CD)AD(30)为了使列表框中的项目呈多列显示，需要设置的属性为A)ColumnsB)StyleC)ListD)MultiSelect(31)在窗体上画1个命令按钮，名称为Command］，然后编写如下程序：DimFlagAsBooleanPrivateSubCommandl_ClickODimintNumAsIntegerintNum=InputBox("请输入:") ，，IfFlagThenPrintf(intNum)EndIfEndSubFunctionf(XAsInteger)AsIntegerIfX<lOThenY=XElseY=X+10EndIff=Y 疗、■EndFunctionPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingleFlag=TrueEndSub运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5,则程序的输结果为A)0 B)5 C)15 D)无任何输出(32)在菜单编辑器中建立I个名称为MenuO的菜单项，将其“可见”属性设置为Fais并建立其若干子菜单，然后编写如下过程： •PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingk

IfButton=1Then •PopupMenuMenuOEndIfEndSub则以F叙述中错误的是A）该过程的作用是弹出一个菜单B）单击鼠标右键时弹出菜单C）Menu。是在菜单编辑器中定义的弹出菜单的名称D）参数X、丫指明鼠标当前位置的坐标（33）窗体上有1个名称为CD1的通用对话框，1个名称为CommandI的命令按按钮的单击事件过程如下：PrivateSubCommandl_Click（）CDl.FileName=""CD1.Filter="A1IFi!es|*.*|（*.Doc）|,J>oc|（*.Txt）|*.Txt"CDl.Filterlndex=2CDI.Action=1EndSub关于以上代码，错误的叙述是A）执行以上事件过程，通用对话框被设置为“打开”文件对话框B）通用对话框的初始路径为当前路径C）通用对话框的默认文件类型为•］日D）以上代码不对文件执行读写操作（34）以下叙述中错误的是A）用Shell函数可以执行汇展名为.exe的应用程序B）若用Static定义通用过程，则该过程中的同部变量都被默认为Static类型C）Static类型的变量可以在标准模块的声明部分定义D）全局变量必须在标准模块中用Public或Global声明（35）以下关于文件的叙述中，错误的是A）使用Append方式打开文件时，文件指针被定位于文件尾B）当以输入方式（Input）打开文件时，如果文件不存在，则建立一个新文件C）顺序文件各记录的长度可以不同D）随机文件打开后，既可以进行读操作，也可以进行写操作

二、填空题(每空2分，共30分)请将每空的正确答案写在答题卡【1】〜(15］序号的横线上，答在试卷上不得分。<1)对长度为10的线性表进行冒泡排序，最坏情况下需要比较的次数为(2)在面向对象方法中， 【2】 描述的是具有相似属性与操作的一组对象.(3)在关系模型中，把数据看成是二维表，每一个二维表称为一个 【3】。(4)程序测试分为静态分析和动态测试.其中【4】是指不执行程序,而只是又序文本进行检查，通过阅读和讨论，分析和发现程序中的错误.(5)数据独立性分为逻辑独立性与物理独立性。当数据的存储结构改变时，其逻辑结才以不变，因此，基于逻辑结构的应用程序不必修改，称为【5】•(6)下列语句的输出结果是16】。PrintFormat(lnt(12345.6789*100+0.5)/100,"0000,0.00")(7)在窗体上画1个命令按钮，其名称为Command］，然后编写如下事件过程：PrivateSubCommandl_Click()Diman(lTo100)AsIntegerFori=1To100an(i)=Int(Rnd*1000)NextiMax=arr(l)Min=arr(l)Fori-ITo100 *If【7】ThenMax=arr(i)EndIfIf【8】ThenMin=arr(i)EndIfNextiPrint"Max=Max,HMin="；MinEndSub2006年4月计算机二级VB笔试参考答案，均上机测试通过1-5DADBA6-10DCDAC11-15DCCDB16-20DBDAA21-25BCBAD26-30BDCDA31-35BBCCB填空题1,452,类3关系4静态测试5物理独立性Max<arr(i)Min>arr(i)-511ABCDDialogTitleKeyascii“END”Text1.text2006年9月二级VisualBasic程序设计笔试试卷及答案一、单项选择⑴下列选项中不符合良好程序设计风格的是A))源程序要文档化B)数据说明的次序要规范化C))避免滥用goto语句D)模块设计要保证高耦合、高内聚(2)从工程管理角度，软件设计一般分为两步完成，它们是oA))概要设计与详细设计B)数据设计与接口设计C))软件结构设计与数据设计D)过程设计与数据设计(3)下列选项中不属于软件生命周期开发阶段任务的是oA))软件测试 B)概要设计 C)软件维护 D)详细设计(4)在数据库系统中，用户所见的数据模式为„A))概念模式 B)外模式C)内模式D)物理模式(5)数据库设计的四个阶段是：需求分析、概念设计、逻辑设计和A))编码设计 B)测试阶段C)运行阶段 D)物理设计(6)设有如下三个关系表：下列操作中正确的是。(7)下列叙述中正确的是oA))•个算法的空间复杂度大，则其空间复杂度也必定大B))一个算法的空间复杂度大，则其时间复杂度必定小C))一个算法的时间复杂度大，则其空间复杂度必定小D))上述三种说法都不对(8)在长度为64的有序线性表中进行顺序查找，最坏情况下需要比较的次数为A))63B)64 C)6D)7(9)数据库技术的根本目标是要解决数据的oA))存储问题 B)共享问题 C)安全问题 D)保护问题(10)对下列二叉树：进行中序遍历的结果是OA))ACBDFEGB)ACBDFGEC)ABDCGEFD)FCADBEG(11)以下叙述中正确的是oA))窗体的Name属性指定窗体的名称，用来标识一个窗体B))窗体的Name属性值是显示在窗体标题栏中文本C))可以在运行期间改变窗体的Name属性的值D))窗体的Name属性值可以为空(12)以下叙述中错误的是oA))打开一个工程文件时，系统自动装入与该工程有关的窗体文件B))保存VisualBasic程序时，应分别保存窗体文件及工程文件C))VisualBasic应用程序只能以解释方式执行D))窗体文件包含该窗体及其控件的属性(13)设a=2,b=3,c=4,下列表达式的值是。Nota<=cOr4*c=bA2Andboa+cA))-1B)1C)TrueD)False(14)没有如下的用户定义类型：TypeStudentnumberAsStringnameAsStringA)geASIntegerEndType则以下正确引用该类型成员的代码是OA))S=“李明"B)DimsAsStudentC))DimsAsTypeStudentD)DimsAsTypeS.name="李明"="李明15)设a=5,b=6,c=7,d=8,执行下列语句后，X的值为。X=///((a>b)And(c>d),l0,20)A)10B)20C)TrueD)False(16)执行以下程序段后，变量c$的值为o$="VisualBassicProgramming”$="Quick，e$=b$&UCase(Mid$(a$,7,6))&Right$(a$,12)A))VisualBasicProgrammingB)QuickBasicprogrammingC))QuickBasicProgrammingD)QuickBasicProgramming(17)在窗体上画一个文本框(其名称为Textl)和一个标签(其名称为Labell),程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容,以下可以实现上述操作的事件过程是oA))PrivateSubTextl_Click()B)PrivateSubTextl_Change()Labell.Caption=TextLTextLabell.Caption=TextLTextEndSubEndSubC))PrivateSubLabell_Ctrange()D)PrivateSubLabell_Click()Labell.Caption=Textl.TextLabell.Caption=Textl.TextEndSubEndSub(18)在窗体上面画一个命令按钮和一个标签，其名称分别为Commandl和Labell,然后编写如下事件过程：PrivateSubCommandl_Click()Counter=0Fori=lTo4Forj=6To1Step-2Counter=Counter+1NextjNextiLabell.Caption=Str(Counter)EndSub程序运行后，单击命令按钮，标签中显示的内容是A))11B)12C)16D)20(19)在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：PrivateCommandl_Click()DimiAsInteger,nAsIntegerFori=0To50i=i+3n=n+1Ifi>10ThenExitForNextTextl.Text=Str(n)EndSub程序运行后，单击命命令按钮，在文本框中显示的值是oA))5B)4C)3D)2(20)在窗体上画一个命令按钮和两个标签，真名和分别为Commandl、Label1和Labe12'A)1 23 B)123 C)123 D)123然后编写) )如下事件，(X过程： 246 3PrivateSubCommandl 〜，八369 4_Chick.A)=