全国计算机等级考试二级VB真题(2005-2012)

《全国计算机等级考试二级VB真题(2005-2012)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

2005-2012年国二VB真题2005年4月全国计算机等级考试二级VB笔试试选择题1）35）每小题2分，共70分）（1）数据的存储结构是指B）数据所占的存储空间量D）数据的逻辑结构在计算机中B）栈只能顺序存储D）对栈的插入与删除操作A）存储在外存中的数据C）数据在计算机中的顺序存储方式的表示（2）下列关于栈的描述中错误的是A）栈是先进后出的线性表C）栈具有记忆作用中，不需要改变栈底指针（3）对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是A）冒泡排序为n/2B）冒泡排序为nC）快速排序为nD）快速排序为n（n-l）/2（4）对于长度为n的线性表进行顺序查找，在最坏情况下所需要的比较次数为B)n/2A)log2nD)n+1（5）下列对于线性链表的描述中正确的是A）存储空间不一定是连续，且各元素的存储顺序是任意的B）存储空间不一定是连续，且前件元素一定存储在后件元素的前面C）存储空间必须连续，且前件元素一定存储在后件元素的前面D）存储空间必须连续，且各元素的存储顺序是任意的（6）下列对于软件测试的描述中正确的是A）软件测试的目的是证明程序是否正确C）软件测试的目的是尽可能多地发现程序中的错误（7）为了使模块尽可能独立，要求B）软件测试的目的是使程序运行结果正确D）软件测试的目的是使程序符合结构化原则A）模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强B）模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱C）模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱D）模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强（8）下列描述中正确的是A）程序就是软件C）软件既是逻辑实体，又是物B）软件开发不受计算机系统的理实体限制D）软件是程序、数据与相关文

1档的集合（9）数据独立性是数据库技术的重要特点之一。所谓数据独立性是指A）数据与程序独立存放C）不同的数据只能被对应的应B）不同的数据被存放在不同的用程序所使用文件中D）以上三种说法都不对（10）用树形结构表示实体之间联系的模型是A）关系模型B）网状模型C）层次模型D）以上三个都是（11）在窗体（名称为Forml）上画一个名称为Textl的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试:以下能实现上述操作的事件过程是：A)PrivateSubTextlChange()Command1.Caption=M计算机等级考试”EndSubC)PrivateSubFormlClickOTextl.Caption="计算机琴级考试”EndSubB)PrivateSubCommandlClick()Caption="计算机等级考试”EndSubCommand1_C1ick()Textl.Text="计算机等级考试”EndSubD)PrivateSub(12)设a=5,b=4,c=3,d=2,下列表达式的值是3>2*bOra=cAndbOcOrc>dA)1B)TrueC)FalseD)2(13)设a^^icrosoftVisualBasic则以下使变量b的值为'WisualBasic”的语句是A)b=Left(a,10)B)b=Mid(a,10)C)bright(a,10)D)b=Mid(a,11,10)(14)假定有如下的窗体事件过程，程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息是：PrivateSubFormClickOa$="MicrosoftVisualBasic”b$=Right(a$,5)c=Mid(a$,1,9)MsgBoxa$,34,b$,c$,5EndSubA)MicrosoftVisualB)MicrosoftC)BasicD)5(15)设a="a",b="b"，c="c"，d="d"，执行语句x=Hf((a

2(16)为了使命令按钮(名称为Commandl)右移200,应使用的语句是A)Commandl.Move-200B)Commandl.Move200C)Commandl.Left=Commandl.Left+200D)Commandl.Left=Commandl.Left-200(17)在窗体上画一个文本框，然后编写如下事件过程，程序运行时，在文本框中输入456,然后单击窗体，在输入对话框中输入123,单击“确定”按钮后，在窗体上显示的内容是：PrivateSubFormClick()x=InputBox("请输入一个整数”)Printx+Textl.TextEndSubA)123B)456C)579D)123456(18)在窗体上画一个文本框和一个计时器控件，名称分别为Textl和Timer1,在属性窗口中把计时器的Interval属性设置为1000,Enabled属性设置为False,程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序，在处应填入的内容是PrivateSubCommandlClick()Timerl.EndSubPrivateSubTimerl_Timer()Textl.Text=TimeEndSubA)Enabled=TrueB)Enabled=FalseC)Visible=TrueA)B)C)D)A)PrivateSubListlClickOLabell.Caption=Listl.ListindexEndSubB)PrivateSubListlClickOLabell.Name=Listl.ListindexEndSubC)Private：Labell.Name=1EndSubD)PrivateLabell.CaptionEndSubSubListlClickOListl.TextSubListlClickO=Listl.TextD)Visible=False(19)假定在图片框Picturel中装入了一个图形，为了清除该图形(不删除图片框)，应采用的正确方法是：选择图片框，然后按Del键执行语句Picturel.Picture=LoadPicture("")执行语句Picturel.Picture—'”选择图片框，在属性窗口中选择Picture属性，然后按回车键(20)在窗体上回一个Listl的列表框，一个名称为Labell的标签，列表框中显示若干个项目，当单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列能正确实现上述操作的程序是

3(21)在窗体上画一个命令按钮，名称为Commandl,然后编写如下事件过程：PrivateSubCommandlClick()DimiAsInteger,xAsIntegerFori=1To6Ifi=1Thenx=i15(22)在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程：PrivateSubCommand1Click()c="ABCD"Forn=1To4PrintIfi<=4Thenx=x+1Elsex=x+2EndIfNextiPrintxEndSub程序运行后，单击命令按钮，其输出结果为A)9B)6C)12D)(23)执行以下程序段后，x的值为NextEndSub程序运行后，单击命令按钮，要求在窗体上显示如下内容：DCDBCDABCD则在处应填入的内容为A)Left(c,n)B)Right(c,n)C)Mid(c,n,1)D)Mid(c,n,n)DimxAsInteger,iAsIntegerx=0Fori=20To1Step-2x=x+i\5NextIA)16B)17C)18D)19(24)在VisualBasic工程中，可以作为启动对象的程序是A)任何窗体或标准模块B)任何窗体或过程C)SubMain过程或其他任何模块D)SubMain过程或任何窗体(25)假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是A)数组中每个命令按钮的名称(名称属性)均为CommandlB)数组中每个命令按钮的标题(Caption属性)都一样C)数组中所有命令按钮可以使用同一个事件过程D)用名称Commandl(下标)可以访问数组中的每个命令按钮(26)把窗体的KeyPreview属性设置为True,然后编写如下事件过程：PrivateSubFormKeyPress(KeyAsciiAsInteger)

4DimchAsStringch=Chr(KeyAscii)KeyAscii=Asc(UCase(ch))PrintChr(KeyAscii+2)EndSub程序运行后,按键盘上的“A”键,则在窗体上显示的内容是A)AB)BC)CD)D(27)在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Textl,然后编写如下程序：PrivateSubCommand1_C1ick()a=InputBox(”请输入日期(1~31)”)t="旅游景点：”&IIf(a>0Anda<=10,"长城"，"〃)&IIf(a>10Anda<=20,〃故宫"，_&IIf(a>20Anda<=30,"颐和园"，Textl.Text=tEndSub程序运行后,如果从键盘输入16,则在文本框中显示的内容是：A)旅游景点：长城故宫B)旅游景点：长城颐和园C)旅游景点：颐和园D)旅游景点：故宫(28)在窗体上画一个名称为Label1的标签，然后编写如下事件过程，程序运行后，单击窗体,在标签中显示的内容是PrivateSubFormClick()Dimarr(10,10)AsIntegerDimiAsInteger,jAsIntegerFori=2To4Forj=2To4arr(i,j)=i*jNextjNextiLabel1.Caption=Str(arr(2,2)+arr(3,3))EndSubA)12B)13C)14D)15(29)在窗体上画一个名称为IfmMod2=0ThenComamndl的命令按钮,然后编写如下通用过程和命令按钮的事件过程：fun=2ElsePrivateFunctionfun(ByVaimAsInteger)fun=1EndIf

5EndFunctionPrivateSubCommandIClickODimiAsInteger,sAsIntegers=0Fori=1To5s=s+fun(i)NextPrintsEndSub程序运行后，单击命令按钮，则窗体上显示的是：A)6B)7C)8D)9(30)阅读程序：OptionBase1Dimarr()AsIntegerPrivateSubFormClickODimiAsInteger,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)2531)在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序:OptionBase1PrivateSubCommandlClickODimcAsInteger,dAsIntegerd=0:c=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)设有如下程序:PrivateSubCommandlClickODimcAsInteger,dAsIntegerc=4d=InputBox("请输入一个整数”)DoWhiled>0Ifd>cThenc=c+1EndIfd-InputBox(“请输入一个整数”)LoopPrintc+dEndSub程序运行后,单击命令按钮如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0,则输出结果是：A)12B)11C)10D)9(33)在窗体上画一个名称为Command1的命令按钮和一个名称为Textl的文本框,在文本框中输入以下字符串：MicrosoftVisualBasicProgramming,然后编写如下事件过程：PrivateSubCommand1_C1ick()Open"d:\temp\outf.txt"ForOutputAs#1

6Fori=1ToLen(Textl.Text)c=Mid(Textl.Text,i,1)Ifc>=〃A"Andc<=〃Z"ThenPrint#1,LCase(c)；EndIfNextiCloseEndSub程序运行后,单击命令按钮,文件outf.txt中的内容是：A)MVBPB)mvbpC)MD)mVvBbPp(34)在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序：DimSWAsBooleanFunctionfunc(XAsInteger)AsIntegerIfX<20ThenY=XElseY=20+XEndIffunc=YEndFunctionPrivateSubCommandlClick()DimintNumAsIntegerintNum=InputBox("")IfSWThenPrintfunc(intNum)EndIfEndSubPrivateSubFormMouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)SW=FalseEndSubPrivateSubFormMouseUp(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_C1ick()Dimarr(5)AsInteger,nAsIntegerFori=1To5arr(i)=i+iNextfunarr,nTextl.Text=Str(n)EndSub程序运行后,单击命令按钮,则在文本框中显示的内容是A)30B)25C)20D)15二、填空题(每空2分，共30分)

7请将每一个空的正确答案写在答题卡［1】〜【15】序号的横线上，答在试卷上不得分。注意：以命令关键字填空的必须拼写完整。(1)某二叉树中度为2的结点有18个，则该二树中有【1】个叶子结点。(2)在面向对象方法中，类的实例称为【2】o(3)诊断和改正程序中错误的工作通常称为【3】o(4)在关系数据库中，把数据表示成二维表，每一个二维表称为【4】o(5)问题处理方案的正确而完整的描述称为【5】o(6)以下语句PrintInt(12345.6789*100+0.5)/100的输出结果是：［6］(7)在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程：PrivateSubFormClickOTextl.Text="VB程序设计”EndSubPrivateSubTextlChange()Picturel.Print“VBProgramming”EndSub程序运行后，单击窗体，在文本框中显示的内容是【7］，而在图片框中显示的内容是［8】(8)阅读下面的程序，程序运行后，单击窗体，输出结果是［9】PrivateSubFormClick()DimCheckAsBoolean,CounterAsIntegerCheck=TrueCounter=5DoDoWhileCounter<20Counter=Counter+1IfCounter=10ThenCheck=FalseExitDoEndIfLoopLoopUntilCheck=FalsePrintCounterEndSub(9)设有如下程序：PrivateSubFormClickODimaAsInteger,sAsIntegern=8s=0Dos=s+nn=n-1LoopWhilen>0PrintsEndSub以上程序的功能是【10】，程序运行后，单击窗体，输出结果为[111(10)设有如下程序：OptionBase1

8PrivateSubCommandIClickODimarrlDimMinAsInteger,iAsIntegerarrl:Array(12,435,76,-24,78,54,866,43)Min=[12]Fori=2To8Ifarrl(i)

92005年9月全国计算机等级考试二级VB笔试试卷一、选择题（每小题2分，共70分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。（1）下列叙述中正确的是A）程序设计就是编制程序B）程序的测试必须由程序员自己去完成C）程序经调试改错后还应进行再测试D）程序经调试改错后不必进行再测试（2）下列数据结构中，能用二分法进行查找的是C）二叉链表A）顺序存储的有序线性表B）线性链表D）有序线性链表（3）下列关于栈的描述正确的是A）在栈中只能插入元素而不能删除元素B）在栈中只能删除元素而不能插入元素C）栈是特殊的线性表，只能在一端插入或删除元素D）栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素（4）下列叙述中正确的是A）一个逻辑数据结构只能有一种存储结构B）数据的逻辑结构属于线性结构，存储结构属于非线性结构C）一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率D）一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率（5）下列描述中正确的是A）软件工程只是解决软件项目的管理问题B）软件工程主要解决软件产品的生产率问题C）软件工程的主要思想是强调在软件开发过程中需要应用工程化原则D）软件工程只是解决软件开发中的技术问题（6）在软件设计中，不属于过程设计工具的是C)N-S图D)DFDB）软件一旦交付使用就A）PDL（过程设计语言）B）PAD图图（7）下列叙述中正确的是A）软件交付使用后还需要进行维护不需要再进行维护C）软件交付使用后其生命周期就结束D）软件维护是指修复程序中

10被破坏的指令（8）数据库设计的根本目标是要解决A）数据共享问题B）数据安全问题C）大量数据存储问题D）简化数据维护

11(9)设有如下关系表:A)T=RASB)T=RUSC)T=RXSD)T=R/S(10)数据库系统的核心是A)数据模型B)数据库管理系统C)数据库D)数据库管理员(11)假定一个VisualBasic应用程序由一个窗体模块和一个标准模块构成。为保存该应用程序，以下正确的操作是A)只保存窗体模块文件C)只保存窗体模块和标准模块文B)分别保存窗体模块、标准件模块和工程文件D)只保存工程文件(12)为了清除窗体上的一个控件，下列正确的操作是A)按回车键B)按Esc键C)选择(单击)要清除(13)以下叙述中错误的是的控件，然后按Del键D)选择(单击)要清除的控件，然后按回车键A)打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B)当程序运行时，双击一个窗体，则触发该窗体的DblClick事件C)VisualBasic应用程序只能以解释方式执行D)事件可以由用户引发，也可以由系统引发(14)设a=2,b=3,c=4,d=5,下列表达式Nota<=cOr4*c=b-2Andb<〉a+c的值是A)-1B)1C)TrueD)False(15)设a=5,b=10,则执行c=Int((b-a)*Rnd+a)+1后，c值的范围为A)5-10B)6-9C)6-10D)5〜9(16)在窗体上画一个命令按钮，名称为Commands然后编写如下事件过程:PrivateSubCommandl_Click()a$=vsoftwareandhardware'"b$=Right(a$,8)

12c$=Mid(a$,1,8)MsgBoxa$,,b$,c$,1EndSub运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是A)softwareandhardwareB)softwareC)hardwareC)1(17)在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Textl,把文本框的Text属性设置为空白，然后编写如下事件过程：PrivateSubCommandIClickOa=InputBox("Enteraninteger")b=InputBox("Enteraninteger")Textl.Text=b+aEndSub程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10,则文本框中显示的内容是A)108B)18C)810D)出错(18)在窗体上画两个文本框，其名称分别为Textl和Text2,然后编写如下程序：PrivateSubFormLoad()ShowTextl.Text="":Text2.Text-"":Textl.SetFocusEndSubPrivateSubTextlChange()Text2.Text=Mid(Textl.Text,8)EndSub程序运行后，如果在文本框Textl中输入BeijingChina,则在文本框Text2中显示的内容是A)BeijingChinaB)ChinaC)BeijingD)BeijingC(19)在窗体上画一个列表框和一个命令按钮，其名称分别为Listl和Command1,然后编写如下事件过程：PrivateSubFormLoad()Listl.Additem"Item1”Listl.Additem"Item2”Listl.Additem"Item3”EndSubPrivateSubCommandIClickOListl.List(Listl.ListCount)="AAAA"EndSub程序运行后，单击命令按钮，其结果为A)把字符串“AAAA”添加到列表框中，但位置不能确定B)把字符串“AAAA”添加到列表框的最后(即“Item3”的后面)

13C)把列表框中原有的最后一项改为“AAAA”D)把字符串“AAAA”插入到列表框的最前面(即“Item1”的前面)(20)假定有如下事件过程：PrivateSubFormClickODimxAsInteger,nAsIntegerx-1n=0DoWhilex<28x=x*3n=n+1LoopPrintx,nEndSub程序运行后，单击窗体，输出结果是A)814B)563C)281D)2435(21)有如下程序：PrivateSubFormClickODimCheck,CounterCheck=TrueCounter=0DoDoWhileCounter<20Counter=Counter+1IfCounter=10ThenCheck=FalseExitDoEndIfLoopLoopUntilCheck=FalsePrintCounter,CheckEndSub程序运行后，单击窗体，输出结果为A)150B)20-1C)10TrueD)10False(22)有如下程序：PrivateSubFormClickODimiAsInteger,sumAsIntegersum=0Fori=2To10IfiMod200AndiMod3=0Thensum=sum+1EndIfNextiPrintsumEndSub程序运行后，单击窗体，输出结果为A)12B)30C)24D)18(23)在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：

14PrivateSubCommandIClickODimarrayl(10,10)AsIntegerDimiAsInteger,jAsIntegerFori=1To3Forj=2To4arrayl(i,j)=i+jNextjNextiTextl.Text=arrayl(2,3)+arrayl(3,4)EndSub程序运行后，单击命令按钮，在文本框中显示的值是A)12B)13C)14D)15(24)在窗体上画一个命令按钮，其名称为Commandl,然后编写如下事件过程：PrivateSubCommandIClickODimal(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程序运行后，单击命令按钮，在窗体上输出的是A)66B)105C)721D)612(25)有如下程序：OptionBase1PrivateSubFormClickODimarr,SumSum=0arr=Array(1,3,5,7,9,11,13,15,17,19)Fori=1To10Ifarr(i)/3=arr(i)\3ThenSum=Sum+arr(i)EndIfNextiPrintSumEndSub

15程序运行后，单击窗体，输出结果为A)25B)26C)27D)28(26)在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommandIClickODima(5)AsStringFori=1To5a(i)=Chr(Asc("A")+(i-1))NextiForEachbInaPrintb;NextEndSub程序运行后，单击命令按钮，输出结果是A)ABCDEB)12345C)abcdeD)出错信息(27)以下关于函数过程的叙述中，正确的是A)如果不指明函数过程参数的类型，则该参数没有数据类型B)函数过程的返回值可以有多个C)当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递D)函数过程形参的类型与函数返回值的类型没有关系(28)函数过程F1的功能是：如果参数b为奇数，则返回值为1,否则返回值为Oo以下能正确实现上述功能的代码是：A)FunctionFl(bAsInteger)B)FunctionFl(bAsInteger)IfbMod2=0ThenIfbMod2=0ThenReturn0Fl-0ElseElseReturn1Fl=1EndIfEndIfEndFunctionEndFunctionC)FunctionFl(bAsInteger)Fl=1IfbMod2=0ThenElse

16F1=0Return0EndIfElseEndFunctionReturn1C)FunctionFl(bAsInteger)EndIfIfbMod200ThenEndFunction(29)以下关于KeyPress事件过程中参数KeyAscii的叙述中正确的是A)KeyAscii参数是所按键的ASCII码B)KeyAscii参数的数据类型为字符串C)KeyAscii参数可以省略D)KeyAscii参数是所按键上标注的字符(30)设窗体上有一个名为Textl的文本框，并编写如下程序：PrivateSubFormLoad()ShowTextl.Text="":Textl.SetFocusEndSubPrivateSubFormMouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Print〃程序设计〃EndSubPrivateSubTextIKeyDown(KeyCodeAsInteger,ShiftAsInteger)Print“VisualBasic”;EndSub程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是A)VisualBasicB)程序设计C)VisualBasic程序设计D)a程序设计(31)假定有下表所列的菜单结构：标题名称层次显示appear1（主菜单）大图标bigicon2（子菜单）小图标smallicon2（子菜单）要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个“J。以下正确的事件过程是A)PrivateSubbigiconClick()bigicon.Checked=FalseEndSubB)PrivateSubbigiconClick()Me.appear,bigicon.Checked=TrueEndSub

17C)PrivateSubD)PrivateSubbigicon_Click()bigiconClick()appear,bigicon.Checked=bigicon.Checked=TrueTrueEndSubEndSub(32)假定通用对话框的名称为CommonDialogl,命令按钮的名称为Command1,则单击命令按钮后，能使打开的对话框的标题为“NewTitle”的事件过程是A)PrivateSubCommandlClick()CommonDialogl.DialogTitle="NewTitle"CommonDialogl.ShowPrinterEndSubB)PrivateSubCommandlClick()CommonDialogl.DialogTitle="NewTitle"CommonDialogl.ShowFontEndSubC)PrivateSubCommand1ClickOCommonDialogl.DialogTitle="NewTitle*CommonDialogl.ShowOpenEndSubD)PrivateSubCommand1ClickOCommonDialogl.DialogTitle="NewTitle”CommonDialogl.ShowColorEndSub（33）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是A）任何时刻最多只有一个窗体是活动窗体B）不能把标准模块设置为启动模块C）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体D）如果工程中含有SubMain过程，则程序一定首先执行该过程（34）假定在工程文件中有一个标准模块，其中定义了如下记录类型TypeBooksNameAsString*10TelNumAsString*20EndType要求当执行事件过程Commandl_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是A)PrivateSubCommandlClick()DimBAsBooksOpen"c:\Person.txt"ForOutputAs#1B.Name=InputBox("输入姓名“)B.TelNum=InputBox("输入电话号码〃)Write#1,B.Name,B.TelNumClose#1EndSubB)PrivateSubCommand1ClickODimBAsBooksOpen'c:\Person.txt'ForInputAs#1B.Name=InputBox("输入姓名")B.TelNum=InputBox("输入电

18话号码”)Print#1,B.Name,B.TelNumClose#1EndSubC)PrivateSubCommandlClick()DimBAsBooksOpen"c:\Person.txt"ForOutputAs#1Name=InputBox("输入姓名")TelNum=InputBox("输入电话号码”)Write#1,B(35)目录列表框的Path属性的作用是A)显示当前驱动器或指定驱动器上的某目录下的文件名B)显示当前驱动器或指定驱动器上二、填空题(每空2分，共30分)请将每空的正确答案写在答题卡Close#1EndSubD）PrivateSubCommand1_C1ick（）DimBAsBookOpen'c:\Person.txt'ForInputAs#1Name=InputBox（"输入姓名"）TelNum=InputBox（"输入电话号码“）Print#1,B.Name,B.TelNumClose#1EndSub的目录结构C）显示根目录下的文件名D）显示指定路径下的文件〜[15]序号的横线上，答在试[1]卷上不得分。(1)数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段,其中数据独立性最高的阶段是［1】O(2)算法复杂度主要包括时间复杂度和【2】复杂度。(3)在进行模块测试时，要为每个被测试的模块另外设计两类模块：驱动模块和承接模块(桩模块)。其中【3】的作用是将测试数据传送给被测试的模块，并显示被测试模块所产生的结果。(4)一棵二叉树第六层(根结点为第一层)的结点数最多为【4】个。(5)数据结构分为逻辑结构和存储结构，循环队列属于【5】结构。(6)设有以下函数过程：Functionfun（mAsInteger）AsIntegerDimkAsInteger,sumAsIntegersum=0Fork=mTo1Step-2sum=sum+kNextkfun=sumEndFunction若在程序中用语句s=fun(10)调用此函数，则s的值为【6】o(7)在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母(不区分大小写)，单击

19命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Textl中。例如，若在Textl中输入的是abDfdb,则单击Command1按钮后Textl中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。PrivateSubCommand1_C1ick()DimstrAsString,sAsString,cAsStringstr=UCase(Textl)c="Z"Whilec>="A"IfInStr(str,c)s=[7]EndIfc=Chr$(Asc(c)WendIfs<>""ThenTextl=sEndIfEndSub(8)在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，n\选法的个数可以用公式》(〃一「)!计算。下图窗体中3个文本框的名称依次是Textl>Text2>Text3o程序运行时在Textl、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中(见下图)。请填空。=0Then[8])PrivateSubCommand1Click()DimrAsInteger,nAsIntegern=Textlr=Text2Text3=fun(n)/fun([9])/fun(r)EndSubFunctionfun(nAsInteger)aslongDimtAsLong[10]Fork=1Tont=t*kNextfun=tEndFunction(9)以下是一个比赛评分程序。在窗体上建立一个名为Textl的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后的平均分即为最后得分)，如图所示。请填空。

20।Foral评委给分:-1□1x|计算得分最后得分：67PrivateSubCommand1C1ick()DimkAsIntegerDimsumAsSingle,maxAsSingle,minAsSinglesum=Textl(0)max=Textl(0)min=[11]Fork=[12]To6IfmaxTextl(k)Thenmin=Textl(k)EndIfsum=sum+Textl(k)NextkText2=([13])/5EndSub(10)如图所示,在列表框Listl中已经有若干人的简单信息,运行时在Textl文本框(即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。-Foral张李马李陈刘郝黄a成淮东方信克立声借兵女男男男女女男男查找对象：查找PrivateSubCommandlClick()DimkAsInteger,nAsInteger,foundAsBooleanfound=Falsen=Len([14])k=0Whilek

212006年4月全国计算机等级考试二级VB笔试试卷一、选择题（每小题2分，共70分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。（1）下列选项中不属于结构化程序设计方法的是。A）自顶向下B）逐步求精C）模块化D）可复用（2）两个或两个以上模块之间关联的紧密程度称为。A）耦合度B）内聚度C）复杂度D）数据传输特性（3）下列叙述中正确的是。A）软件测试应该由程序开发者来C）软件维护只包括对程序代码的维完成护B）程序经调试后一般不需要再测D）以上三种说法都不对试（4）按照“后进先出”原则组织数据的数据结构是。A）队列B）栈C）双向链表D）二叉树（5）下列叙述中正确的是。A）线性链表是线性表的链式存储C）双向链表是非线性结构结构D）只有根结点的二叉树是线性结构B）栈与队列是非线性结构（6）对如下二叉树D进行后序遍历的结果为。A)ABCDEFB)DBEAFCC)ABDECFD)DEBFCA⑺在深度为7的满二叉树中，叶子结点的个数为。A)32B)31C)64D)63(8)“商品”与“顾客”两个实体集之间的联系一般是。A)一对一B）一对多C）多对一D）多对多（9）在E-R图中，用来表示实体的图形是。A）矩形B）椭圆形C）菱形D）三角形（10）数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是。A）DB包含DBS和DBMSB）DBMS包含DB和DBSC）DBS包含DB和DBMSD）没有任何关系（11）以下关于VisualBasic特点的叙述中，错误的是。A）VisualBasic是采用事件驱动编程机制的语言B）VisualBasic程序既可以编译运行，也可以解释运行C）构成VisualBasic程序的多个过程没有固定的执行顺序D)VisualBasic程序不是结构化程序，不具备结构化程序的三种基本结构

22(12)以下叙述中，错误的是。A)一个VisualBasic应用程序可以含C)标准模块文件可以属于某个指有多个标准模块文件定的窗体文件B)一个VisualBasic工程可以含有多D)标准模块文件的扩展名是.bas个窗体文件(13)以下叙述中，错误的是。A)在VisualBasic中，对象所能响应的事件是由系统定义的B)对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定C)VisualBasic中允许不同对象使用相同名称的方法D)VisualBasic中的对象具有自己的属性和方法(14)设有如下语句：Dima,bAsIntegerc="VisualBasic”d=#7/20/2005#以下关于这段代码的叙述中，错误的是。A)a被定义为Integer类型变量C)c中的数据是字符串B)b被定义为Integer类型变量D)d中的数据是日期类型(15)以下能从字符串"VisualBasic”中直接取出子字符串"Basic”的函数是。A)LeftB)MidC)StringD)Instr(16)设a=4,b=3,c=2,d=l,下列表达式a>b+lOrc

23D)信息框中显示的是“输入的数(20)在窗体上画1个命令按钮(名称为Command1)和1个文本框(名称为Textl),然后编写如下事件过程：PrivateSubCommandlClick()x=Val(Textl.Text)SelectCasexCase1,3y=x*xCaseIs>=10,Is<=-10y=xCase-10To10y=-xEndSelectEndSub程序运行后，在文本框中输入3,然后单击命令按钮，则以下叙述中正确的是。A)执行y=x*xB)执行y=-xC)先执行y=x*x,再执行y=-xD)程序出错(21)设有命令按钮Commandl单击事件过程，代码如下：(22)设有命令按钮Commandl的单击事件过程，代码如下：PrivateSubCommandlClick()Dima(3,3)AsIntegerFori=lTo3Forj=lTo3a(i,j)=i*j+iNextjNextiSum=0Fori=lTo3Sum=Sum+a(i,4-i)NextiPrintSum据是：”PrivateSubCommand1_C1ick()Dima(30)AsIntegerFori=lTo30a(i)=Int(Rnd*100)NextForEacharrltemInaIfarrltemMod7=0ThenPrintarrltem；IfarrItem>90ThenExitForNextEndSub对于该事件过程，以下叙述中错误的是。A)a数组中的数据是30个100以内的整数B)语句ForEacharrltemIna有语法错误C)IfarrltemMod7=0语句的功能是输出数组中能够被7整除的数D)IfarrItem>90语句的作用是当数组元素的值大于90时退出For循环EndSub运行程序，单击命令按钮，输出结果是。A)20B)7C)16D)17(23)在窗体上画1个名称为Commandl的命令按钮，然后编写如下事件过程：PrivateSubCommandlClick()a=0Fori=lTo2Forj=lTo4IfjMod200Then

24a=aT

25EndIfa=a+lNextjNextiPrintaEndSub程序运行后，单击命令按钮，输出结果是A)0B)2C)3D)4号(？)处应填入的内容是。图1(24)窗体上有名称分别为Textl、Text2的2个文本框，有一个由3个单选按钮构成的控件数组。ptionl,如图1所示。程序运行后，如果单击某个单选按钮，则执行Textl中的数值与该单选按钮所对应的运算(乘以1、10或100),并将结果显示在Text2中，如图2所示。为了实现上述功能，在程序中的问图2PrivateSubOptionlClick(IndexAsInteger)IfTextl.Text<>'"ThenSelectCase?Case0Text2.Text=Val(Textl.Text)Case1Text2.Text=Val(Textl.Text)*10Case2Text2.Text=Val(Textl.Text)*100EndSelectEndIfEndSubA)IndexB)Optionl.IndexC)Optionl(Index)D)Optionl(Index).Value(25)在窗体上画1个命令按钮，其名称为Commandl,然后编写如下程序：PrivateSubCommandlClick()Dima(10)AsIntegerDimxAsIntegerFori=lTo10a(i)=8+iNextx=2Printa(f(x)+x)EndSubFunctionf(xAsInteger)x=x+3f=xEndFunction程序运行后，单击命令按钮，输出结果为。A)12B)15C)17D)18(26)以下关于过程的叙述中，错误的是。A)事件过程是由某个事件触发而C)可以在事件过程中调用通用过程执行的过程D)不能在事件过程中定义函数过程B)函数过程的返回值可以有多个(27)在窗体上画3个标签、3个文本框(名称分别为Textl、Text2和Text3)和1个命令按钮(名称为Commandl),外观如图所不。编写如下程序：

26PrivateSubFormLoad()Textl.Text="”Text2.Text="”Text3.Text="”EndSubPrivateSubCommandlClickOx=Val(Textl.Text)y=Val(Text2.Text)Text3.Text=f(x,y)EndSubFunctionf(ByVaixAsInteger,ByVaiyAsInteger)DoWhiley<>0tmp=xModyx=yy=tmpLoopf=xEndFunction运行程序，在Textl文本框中输入36,在Text2文本框中输入24,然后单击命令按钮，则在Text3文本框中显示的内容是。A)4B)6C)8D)12(28)窗体上有名称分别为TextkText2的2个文本框，要求文本框Textl中输入的数据小于500,文本框Text2中输入的数据小于1000,否则重新输入。为了实现上述功能，在以下程序中问号(？)处应填入的内容是PrivateSubTextlLostFocus()CallCheckinput(Textl,500)EndSubPrivateSubText2_LostFocus()CallCheckinput(Text2,1000)EndSubSubCheckinput(tAs?,xAsInteger)IfVai(t.Text)>xThenMsgBox”请重新输入！”EndIf

27EndSubA)TextB)SelTextC)ControlD)Form(29)在窗体上画1个文本框，其名称为Textl,然后编写如下过程：PrivateSubTextlKeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)EndSubPrivateSubTextlKeyUp(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode+2)EndSub程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为。A)AB)AC)AD)AABCD(30)为了使列表框中的项目呈多列显示，需要设置的属性为。A)ColumnsB)StyleC)ListD)MultiSelect(31)在窗体上画1个命令按钮，名称为Commandl,然后编写如下程序：DimFlagAsBooleanPrivateSubCommandlClickODimintNumAsIntegerintNum=InputBox(“请输入：”)IfFlagThenPrintf(intNum)EndSubFunctionf(XAsInteger)AsIntegerIfX<10ThenY=XElseY=X+10EndIff=YEndFunctionPrivateSubFormMouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Flag=TrueEndSub运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5,则程序的输出结果为。A)0B)5C)15D)无任何输出(32)在菜单编辑器中建立1个名称为MenuO的菜单项，将其“可见”属性设置为False,并建立其若干子菜单，然后编写如下过程：PrivateSubFormMouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,Y

28AsSingle)IfButton=lThenPopupMenuMenuOEndIfEndSub则以下叙述中错误的是。A)该过程的作用是弹出一个菜单B)单击鼠标右键时弹出菜单C)MenuO是在菜单编辑器中定义的弹出菜单的名称D)参数X、Y指明鼠标当前位置的坐标(33)窗体上有1个名称为CD1的通用对话框，1个名称为Command1的命令按钮。命令按钮的单击事件过程如下：PrivateSubCommandlClick()CDLFileName="〃CD1.Filter=，，AllFiles|*.*|(*.DoC)|*.Doc|(*.Txt)|*.txt”CD1.Filterlndex=2CD1.ActionalEndSub关于以上代码，错误的叙述是。A)执行以上事件过程，通用对话框被设置D)以上代码不对文件执行读写为“打开”文件对话框操作B)通用对话框的初始路径为当前路径C)通用对话框的默认文件类型为*.Txt(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的线性表进行冒泡排序，最坏情况下需要比较的次数为【1】。(2)在面向对象方法中，【2】描述的是具有相似属性与操作的一组对象。(3)在关系模型中，把数据看成是二维表，每一个二维表称为一个［3］o(4)程序测试分为静态分析和动态测试。其中【4】是指不执行程序，而只是对程序文本进行检查，通过阅读和讨论，分析和发现程序中的错误。(5)数据独立性分为逻辑独立性与物理独立性。当数据的存储结构改变时，其逻辑结构可以不变，因此，基于逻辑结构的应用程序不必修改，称为【5】。(6)下列语句的输出结果是［6］0PrintFormat(Int(12345.6789*100+0.5)/100,“0000,0.00")

29(7)在窗体上画1个命令按钮，其名称为Command1,然后编写如F事件过程：PrivateSubCommandIClickODimarr(1To100)AsIntegerFori=lTo100arr(i)=Int(Rnd*1000)NextiMax=arr(1)：Min=arr(1)Fori=lTo100If[7]ThenMax=arr(i)If[8]ThenMin=arr(i)NextiPrint"Max="；Max,"Min="；MinEndSub程序运行后，单击命令按钮，将产生100个1000以内的随机整数，放入数组arr中，然后查找并输出这100个数中的最大值Max和最小值Min,请填空。(8)在窗体上画1个名称为Command1的命令按钮和2个名称分别为Text1、Text2的文本框，如图所示，然后编写如下程序：FunctionFun(xAsInteger,ByVaiyAsInteger)AsIntegerx=x+yIfx<0ThenFun=xElseFun=yEndIfEndFunctionPrivateSubCommandIClickODimaAsInteger,bAsIntegera=T0：b=5Textl.Text=Fun(a,b)Text2.Text=Fun(a,b)EndSub程序运行后，单击命令按钮，Textl和Text2文本框显示的内容分别是[9]和【10】。

30(9)在窗体上画1个命令按钮和1个文本框,其名称分别为Commandl和Textl,然后编写如下代码：DimSaveAllAsStringPrivateSubCommandlClickOTextl.Text=Left(UCase(SaveAll),4)EndSubPrivateSubTextlKeyPress(KeyAsciiAsInteger)SaveAll=SaveAl1+Chr(KeyAscii)EndSub程序运行后，在文本框中输入abcdefg,单击命令按钮，则文本框中显示的内容是【11】。(10)在窗体上画1个命令按钮和1个通用对话框，其名称分别为Commandl和CommonDialogl,然后编写如下事件过程：PrivateSubCommandlClick()CommonDialogl.【12]="打开文件”CommonDialogl.Filter=/ZA11Files(*.*)|*.*"CommonDialogl.InitDir=，/C：\"CommonDialogl.ShowOpenEndSub该程序的功能是，程序运行后，单击命令按钮，将显示“打开”文件对话框,其标题是“打开文件”，在“文件类型”栏内显示“AHFiles(*.*)"，并显示C盘根目录下的所有文件，请填空。(11)在窗体上画1个文本框，名称为Textl,然后编写如下程序：PrivateSubFormLoad()Open'd：\temp\dat.txt^ForOutputAs#lTextl.Text="”EndSubPrivateSubTextlKeyPress(KeyAsciiAsInteger)If[13]=13ThenIfUCase(Textl.Text)=[14]ThenClose1EndElseWrite#l,[15]Textl.Text="”EndIfEndIfEndSub以上程序的功能是，在D盘temp目录下建立1个名为dat.txt的文件，在文本框中输入字符，每次按回车键(回车符的ASCII码是13)都把当前文本框中

31的内容写入文件dat.txt,并清除文本框中的内容；如果输入“END”，则结束程序。请填空。2006年9月全国计算机等级考试二级VB笔试试卷一、选择题（每小题2分，共70分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。下列选项不符合良好程序设计风格的是（）A、源程序要文档化C、避免滥用goto语句B、数据说明的次序要规范化D、模块设计要保证高耦合、高内聚从工程管理角度，软件设计一般分为两步完成，它们是（）A、概要设计与详细设计C、软件结构设计与数据设计B、数据设计与接口设计D、过程设计与数据设计下列选项中不属于软件生命周期开发阶段任务的是（）A、软件测试B、概要设计C、软件维护D、详细设计在数据库系统中，用户所见的数据模式为A、概念模式B、外模式C、内模式D、物理模式数据库设计的四个阶段是：需求分析、概念设计、逻辑设计和（）A、编码设计B、测试阶段C、运行阶段D、物理设计设有如下三个关系表，下列操作中正确的是（）RSTA、T=RASB、T=RUSC、T=RXSD、T=R/S下列叙述中正确的是（）A、一个算法的空间复杂度大，则其时间复杂度也必定大B、一个算法的空间复杂度大，则其时间复杂度必定小C、一个算法的时间复杂度大，则其空间复杂度必定小D、上述三种说法都不对在长度为64的有序线性表中进行顺序查找，最坏情况下需要比较的次数为（）A、63B、64C、6D、7

32数据库技术的根本目标是要解决数据的（）A、存储问题B、共享问题C、安全问题D、保护问题对下列二叉树口、E、AD/GB进行中序遍历的结果是（）A、ACBDFEGB、ACBDFGEC、ABDCGEFD、FCADBEG以下叙述中正确的是（）A、窗体的Name属性指定窗体的名称，用来标示一个窗体B、窗体的Name属性值是显示在窗体标题中的文本C、可以在运行期间改变窗体的Name属性的值D、窗体的Name属性值可以为空以下叙述中错误的是（）A、打开一个工程文件时，系统自动载入与该工程有关的窗体文件B、保存VisualBasic程序时，应分别保存窗体文件及工程文件C、VisualBasic应用程序只能以解释方式执行D、窗体文件包含该窗体及其控件的属性设a=2,b=3,c=4下列表达式的值是（）Nota<=cOr4*c=b-2And<>a+cA、-1B、1C、TrueD、False设有如下的用户定义类型：TypestudentNumberAsStringNameAsStringAgeAsIntegerEndType则以下正确引用该类型成员的代码是()A、student.Name="李明"s.Name="李明"B、DimsAsstudentC^DimsAsTypestudentD、DimsAsType5.Name="李明"s.Name="李明"设a=5,b=6,c=7,d=8,执行下列语句后，x的值为x=IIf((a>b)And(c>d),10,20)A、10B、20C^TrueD、False执行以下程序段后，变量c$的值为a$="VisualBasicProgrammingb$="Quick”c$=b$&Ucase(Mid$(a$,7,6))&Right$(a$,12)A、VisualBASICProgramming

33A、QuickBasicProgrammingB、QUICKBasicProgrammingC、QuickBASICPrograming在窗体上画一个文本框（其名称为Textl）和一个标签（其名称为Labell）,程序运行后，如果在文本框中输入指定的信息，则立刻在标签中显示相同的内容。以下可以实现上述操作的事件过程是（）A、PrivateSubTextlClickOLabel1.Caption=Textl.TextEndSubPrivateSubTextlChange()Label1.Caption=Textl.TextEndSub在窗体上画一个命令按钮和一个标签,如下事件过程：PrivateSubCommandlClickOCounter=0C、PrivateSubLabel1Change()Label1.Caption=Textl.TextEndSubD、PrivateSubLabell_Click()Label1.Caption=Textl.TextEndSub名称分别为Command1和Label1,编写Fori=1To4Forj=6To1Step-2Counter=Counter+1NextjNextiLabel1.Caption=Str(Counter)EndSub程序运行后，单击命令按钮，标签中显示的内容是（）A、11B、12C、16D、20在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮然后编写如下事件过程：DimiAsInteger,nAsIntegerFori=0To501=i+3n=n+1Ifi>10ThenExitForNextTextl.Text=Str（n）程序运行后，单击命令按钮，在文本框中显示的值是A、5B、4C、3D、2在窗体上画一个命令按钮和两个标签，其名称为Command1>Label1和Label2,然后编写如下事件过程：PrivateSubCommandlClick（）

34a=0

35Fori=1To10a=a+1b=0Forj=1To10a=a+1b=b+2NextjNextiLabel1.Caption=Str(a)Label2.Caption=Str(b)EndSubA、10和20B、20和110C、200和110D、110和20在窗体上画一个名称为Listl的列表框，一个名称为Lablel的标签，列表框中显示若干城市的名称。当单击列表框中的某个城市时，该城市从列表框中消失，并在标签中显示出来。下列能正确实现上述操作的程序是（）A、PrivateSubListlClickOLabel1.Caption=Listl.TextLabel1.Caption=Listl.RemoveitemListl.ListindexListl.ListindexListl.RemoveitemListl.TextEndSubB、PrivateSubListlClickOLabel1.Name=Listl.TextListl.RemoveitemListl.TextEndSubEndSubD、PrivateSubListlClickOLabel1.Name=Listl.TextListl.RemoveitemListl.ListindexEndSubC、PrivateSubListlClickO在窗体上画一个名称为Command1的命令按钮，然后编写如下程序:PrivateSubCommandIClickODimiAsInteger,jAsIntegerDima(10,10)AsIntegerFori=1To3Forj=1To3a(i,j)=(i-1)*3+jPrinta(i,j);NextjPrintNextiEndSub程序运行后，单击命令按钮，窗体上显示的是()

36A、123369345C>347246B、234456258369D.123456789在窗体上画一个命令按钮，名称为Command1的命令按钮，然后编写如下程序:PrivateSubCommandlClickODima(4)AsInteger,b(4)AsIntegerFork=0To2a(k+1)=InputBox(“请输入一个整数”)b(3-k)=a(k+1)NextkPrintb(k)EndSub程序运行后，单击命令按钮，在输入对话框中分别输入2、4、6,输出结果为()：A、0B、2C、3D、4有以下程序：OptionBase1Dimarr()AsIntegerPrivateSubFormClick()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、813B、013C、712D、00以下叙述中正确的是()A、一个Sub过程至少要有一个ExitSub语句一■个Sub过程必须有一■个EndSub语句

37C、可以在Sub过程中定义一个Function过程，但不能定义Sub过程D、调用一个Function过程可以获得多个返回值有以下程序：SubsubP(b()AsInteger)Fori=1To4

38b(i)=2*iNextiEndSubA、2B、5C、10461267148816EndSub运行上面的程序，单击命令按钮，输出结果为:D、出错PrivateSubCommandlClickODima(1To4)AsIntegera(l)=5a(2)=6a(3)=7a(4)=8subPa()Fori=1To4Printa(i)Nexti设有如下通用过程：PublicFunctionfun(xStrAsString)AsStringDimtStrAsString,strLAsIntegertStr=""strL=Len(xStr)1=1DoWhilei<=strL/2tStr=tStr&Mid(xStr,i,1)&Mid(xStr,strL-i+1,1)i=i+1Loopfun=tStrEndFunction在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮然后编写如下的事件过程：PrivateSubCommandlClick()DimsiAsStringsi="abcdef”Textl.Text=UCase(fun(si))EndSubA、ABCDEFB、abcdefC、AFBECDD、DEFABC在窗体上画一个命令按钮和两个文本框，然后编写如下的事件过程：PrivateSubTextlKeyPress(KeyAsciiAsInteger)EndSub假定焦点已经位于文本框中，则能够触发KeyPress事件的操作是()A、单击鼠标C、鼠标滑过文D、按下键盘上的

39B、双击文本框本框某个键在窗体上画一个命令按钮和两个文本框，其名称分别为CommandsTextl和Text2,然后编写如下程序：DimsiasString,s2asStringPrivateSubFormLoad()Textl.Text=Text2.Text=""EndSubPrivateSubText1KeyDown(KeyCodeAsInteger,ShiftAsInteger)s2=s2&Chr(KeyCode)EndSubPrivateSubTextlKeyPress(KeyAsciiAsInteger)si=si&Chr(KeyAscii)EndSubPrivateSubCommandlClickOTextl.Text=s2Text2.Text=sisi=〃〃s2=""EndSub程序运行后，在Textl中输入“abc”，然后单击命令按钮，在文本框Textl和Text2中显示的内容分别为()A、abc和ABCB、abc和abcC、ABC和abcD、ABC和ABC以下说法正确的是()A、任何时候都可以通过执行“工具”菜单中的“菜单编辑器”命令打开菜单编辑器B、只有当某个窗体为当前活动窗体时，才能打开菜单编辑器C、任何时候都可以通过单击标准工具栏的“菜单编辑器”按钮打开菜单编辑器D、只有当代码窗口为当前活动窗口时，才能打开菜单编辑器在窗体上画一个通用对话框，其名称为CommonDialogl,然后画一个命令按钮,并编写如下事件过程：PrivateSubCommandl_click()CommonDialogl.Filter="AllFiles(*.*)|*.*|TextFiles(*.txt)I*.txt|ExecutableFiles(*.exe)|*.exe”CommonDialogl.Filterlndex=3CommonDialogl.ShowOpenMsgBoxCommonDialogl.Filename

40EndSub程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是（）A、AllFiles（*.*）C、ExecutableFiles（*.exe）B、TextFiles（*.txt）D、不确定以下叙述中错误的是（）A、一个工程中可以包含多个窗体文件B、在一个窗体文件中用Public定义的通用过程不能被其他窗体调用C、窗体和标准模块需要分别保存为不同类型的磁盘文件D、用Dim定义的窗体层变量只能在该窗体中使用以下叙述中错误的是（）A、语句"Dima,bAsInteger^^声明了两个类型变量B、不能在标准模块中Static定义型变量C^窗体层变量必须先声明，后使用D、在事件过程或通用过程内定义的变量是局部变量设有语句。pen"d:\Test.txt"ForOutputAs#1,以下叙述中错误的是（）A、若d盘根目录下无Test,txt文件，则该语句创建此文件B、用该语句建立的文件的文件号为1C、该语句打开d盘根目录下一个已存在的文件Test,txt,之后就可以从文件中读取信息D、执行该语句后，就可以通过语句Pring#向文件Test,txt写入信息。以下叙述错误的是（）A、顺序文件中的数据只能按顺序读写B、对同一个文件，可以用不同的方式和不同的文件号打开C、执行Close语句，可将文件缓冲区中的数据写到文件中读取信息D、随机文件中各记录的长度是随机的二、填空题（每空2分，共30分）请将每一个正确答案在答题卡［1】〜【15】序号的横线上，答在试卷上不得分。注意：以命令关键字填空的必须拼写完整。（1）下列软件系统结构图的宽度为【1】BEF（2）［2］的任务是诊断和改正程序中的错误。（3）一个关系表的行称为【3】o（4）按“先进后出”原则组织数据的数据结构是【4】(5)数据结构分为线性结构和非线性结构，带链的队列属于[5L(6)描述“X是小于100的非负整数”的VisualBasic表达式是【6】(7)在窗体上有一个名称为Commandl的命令按钮和一个名称为Textl的文

41本框。程序运行后，Commandl为禁用(灰色)，此时如果在文本框中输入字符,则命令按钮Commandl变为可用。请填空。PrivateSubFormLoad()Commandl.Enabled=FalseEndSubPrivateSubTextl_[7]()Commandl.Enabled=TrueEndSub(8)在窗体上画一个名称为“Commandl”的命令按钮，然后编写如下事件过程：PrivateSubCommandlClick()DimaAsStringa="123456789"Fori=1To5PrintSpace(6-i);Mid$(a,[8],2*i-1)NextiEndSub程序运行后，单击命令按钮，窗体上输出结果是：5456345672345678123456789请填空。(9)以下程序的功能是：将一维数组A中的100个元素分别赋给二维数组B的每一个元素并打印出来，要求把A(1)到A(10)依次赋给B(1,1)到B(1,10),把A(11)到A(20)依次赋给B(2,1)到B(2,10),把A(91)到A(100)依次赋给B(10,1)到B(10,10),请填空；OptionBase1PrivateSubFormClickODimiAsInteger,jAsIntegerDimA(1To100)AsIntegerDimB(1To10,1To10)AsIntegerFori-1To100A(i)=iNextiFori=1To[9]Forj=1To[10]B(i,j)=[11]PrintB(i,j);NextjPrint

42NextiEndSub(10)在窗体上画一个名称为Combo1的组合框，然后画两个名称分别为LabelkLabe12,标题分别为“城市名称”和空白的标签。程序运行后，在组合框中输入一个新的项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加在组全框的列表中，并在Label2中给出提示“已成功添加新的输入项”，如下图所示。如果输入的项目已存，则在Labe12中给出提示“输入项目已在组合框中二请填空。PrivateSubCombolKeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenFori=0ToCombol.ListCount-1IfCombol.Text=[12]ThenLabel2.Caption="输入项已在组合框中。”ExitSubEndIfNextiLabel2.Caption=”已成功添加新输入项。”Combol.[13]Combol.TextEndIfEndSub(11)在窗体上画一个命令按钮和一个文本框，其名称分另为Command1和Textl,然后编写如下事件过程：PrivateSubCommand1_C1ick()DimindataAsStringTextl.Text=Open"d:\myfile.txt"For[14]As#1DoWhile[15]Input#1,indataTextl.Text=Textl.Text+indataLoopEndSub程序的功能是，打开D盘根目录下的文本文件myfile.txt,读取它的全部内容并显示在文本框中。请填空。

432007年4月全国计算机等级考试二级VB笔试试卷一、选择题(第小题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)进行前序遍历的结果为A)DYBEAFCZXB)YDEBFZXCAC)ABDYECFXZD)ABCDEFXYZ(7)某二叉树中有n个度为2的结点,则该二叉树中的叶子结点数为(A)A)n+1B)n-1C)2nD)n/2

44(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=0(13)设在名称为Myform的窗体上只有1个名称为Cl的命令按钮,下面叙述中正确的是(B)A)窗体的Click事件过程的过程名是Myform_ClickB)命令按钮的Click事件过程名是Cl_ClickC)命令按钮的Click事件过程的过程名是Commandl_ClickD)上述三种过程名都是错误的(14)设窗体上有1个滚动条,要求单击滚动条右端的,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(-lTo-4,-1To-3)ASIngeger(16)若设置了文本框的属性PasswordChar="$"，则运行程序时向文本框中输入8个任意字符后,文本框中显示的是(A)人)8个"$"8)1个"$"C)8个"*"D)无任何内容(17)设在窗体上有1个名称为Combo1的组合框，含有5个项目，要删除最后一项,正确的语句是(B)A)Combo1.RemoveItemCombol.TextB)Combo1.RemoveItem4C)Combol.RemoveitemCombol.ListCountD)Combol.RemoveItem5(18)工程中有2个窗体，名称分别为Forml,Form2,Forml为启动窗体，该窗体上有命令按钮Commandl,要求程序运行后单击该命令按钮时显示Form2,则按钮的Click事件过程应该是(A)

45A)PrivateSubCommandlClick()B)PrivateSubCommand1Click()Form2.ShowForm2.VisibleEndSubEndSubC)PrivateSubCommandl_Click()D)PrivateSubCommandlClick()LoadForm2Form2.LoadEndSubEndSub(19)若在某窗体模块中有如下事件过程(D)PrivateSubCommandlClick(IndexASInteger)EndSub则以下叙述中正确的是A)此事件过程与不带参数的事件过程没有区别B)有1个名称为Command1的窗体,单击此窗体则执行此事件过程C)有1个名称为Command1的控件数组,数组中有多个不同类型控件D)有1个名称为Command1的控件数组,数组中有多个相同类型控件(20)以下循环语句中在任何情况下都至少执行一次循环体的是(C)A)DoWhile＜条件＞循环体LoopC)Do循环体LoopUntil〈条件〉8)While〈条件〉循环体WendD)DoUntil〈条件＞循环体Loop(21)在窗体上有1个名为Cdl的通用对话框，为了在运行程序时打开保存文件对话框,则在程序中应使用的语句是(A)A)Cdl.Action=2B)Cdl.Action=lCdl.ShowSave=TureD)Cdl.ShowSave-0(22)下面关于菜单的叙述中错误的是(B)A)各级菜单中的所有菜单项的名称必须唯一B)同一子菜单中的菜单项名称必须唯一，但不同子菜单中的菜单项名称可以相同C)弹出式菜单用PopupMenu方法弹出D)弹出式菜单也用菜单编辑器编辑(23)已知有下面的过程(D)PrivateSubprod(aAsInteger,bAsString,OptionalxAsBoolean)EndSub正确调用此过程的语句是A)Callprod(5)B)Callprod5,"abcv,FalseC)prod(12,Mabc,True)D)proc15,"abc"

46(24)在窗体上有1个名称为Textl的文本框和1个名称为Command1的命令

47按钮，要求在程序执行时，每单击命令按钮一次，文本框向右移动一定距离。下面能够正确实现上述功能的程序是(C)A)PrivateSubCommand1_C1ick()Textl.Left=100EndSubC)PrivateSubCommand1Click()Textl.MoveText.Left+100EndSubB)PrivateSubCommandl_Click()Textl.Left=Textl.Left-100EndSubD)PrivateSubCommand1_C1ick()Textl.MoveText.LeftEndSub(25)某人创建了1个工程，其中的窗体名称为Forml;之后又添加了1个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是(A)A)在工程属性对话框中把“启动对象”设置为Form2B)在Forml的Load事件过程中加入语句LoadForm2C)在Form2的Load事件过程中加入语句Form2.ShowD)在Form2的Tabindex属性设置为1,把Forml的Tabindex属性设置为2(26)窗体上有1个名称为Textl的文本框和1个名称为Command1的命令按钮。要求程序运行时，单击命令按钮，就可以把文本框中的内容写到文件out.txt中，每次写入的内容附加到文件原有内容之后。下面能够实现上述功能的程序是(C)A)PrivateSubCommand1_Click()B)PrivateSubCommandIClickOOpen"out.txt"ForInputAs#lOpen"out.txt"ForOutputAs#lPrint#l,Textl.TextPrintftl,Textl.TextClosettlClosettlEndSubEndSubC)PrivateSubCommand1Click()D)PrivateSubCommandlClick()Open"out.txt"ForAppendAs#lOpen"out.txt"ForRandomAs#lPrint#l,Textl.TextPrintftl,Textl.TextClose#lClosettlEndSubEndSub(27)为计算1+3+5+……+99的值,某人编程如下k=ls=0Whilek<=99k=k+2:s=s+kWendPrints在调试时发现运行结果有错误，需要修改。下列错误原因和修改方案中正确的是(D)A)While…Wend循环语句错误，应改为Fork=lTo99,•,Nextk

48B)循环条件错误，应改为Whliek<99C)循环前的赋值语句k=l错误，应改为k=0D)循环中两条赋值语句的顺序错误，应改为s=s+k:k=k+2(28)下面程序在调试时出现了死循环PrivateSubCommandlClick()n=InputBox(“请输入一个整数”)DoIfnMod2=0Thenn=n+lElsen=n+2ElseIfLoopUntiln=1000EndSub下面关于死循环的叙述中正确的是(D)A)只有输入的n是偶数时才会出现死循环，否则不会B)只有输入的n是奇数时才会出现死循环，否则不会C)只有输入的n是大于1000的整数时才会出现死循环，否则不会D)输入任何整数都会出现死循环(29)在窗体上有1个名称为CommonDialogl的通用对话框和1个名称为Command1的命令按钮，以及其他一些控件。要求在程序运行时，单击Command1按钮，则显示打开文件对话框，并在选择或输入了1个文件名后，就可以打开该文件。以下是Commandl_Click事件过程的两种算法算法1：PrivateSubCommandIClickOCommonDialogl.ShowOpenOpenCommonDialogl.FileNameForInputAs#lEndSub算法2：PrivateSubCommand1_C1ick()CommonDialogl.ShowOpenIfCommonDialogl.FileName<>w"ThenOpenCommonDialogl.FileNameForInputAs#lEndIfEndSub下面关于这两种算法的叙述中正确的是(B)

49A)显示打开文件对话框后若未选择或输入任何文件名，则算法2会出错,算法1不会B)显示打开文件对话框后若未选择或输入任何文件名，则算法1会出错,算法2不会C)两种算法的执行结果完全一样D)算法1允许输入的文件名中含有空格，而算法2不允许(30)窗体上有1个名称为Listl的列表框，蔓K丝输入了若干个币日(加图所示)：还有2个文本框，名称分别为Text1cBs田乂的命令按钮，并有以下程序)±«PrivateSubCommand1_C1ick()：ISS.j广.DimstrAsString,sAsString,s=TextlFork=Listl.ListCount-1to0Step-1IfInStr(Listl.List(k),s)>0thenstr=str&Listl.List(k)&”"EndIfNextkIfstr=""ThenText2="没有匹配的项目”ElseText2=strEndIfEndSub程序运行时，在Textl中输入“京”，单击命令按钮，则在Text2中显示的内容是()A)京B)北京南京C)南京北京D)没有匹配的项目(31)在窗体上画1一个名称为Command1的命令按钮，并编写以下程序PrivateSubCommandlClickOPrintfun("ABCDEFG")EndSubFunctionfun(stAsString)AsStringstlen=Len(st)temp="”Fork=1Tostlen/2temp=temp+Mid(st,k,1)+Mid(st,stlen-k+1,1)Nextkfun=tempEndFunction程序运行时，单击命令按钮，则窗体上显示的是(B)A)ABCDEFGB)AGBFCEC)GFEDCBAD)AGBFCED(32)在窗体上先后画2个图片框，名称分别为Picturel和banana,banana中添加了香蕉图片(见图1),且将banana.DragMode属性设置为1。要求程序运行时，可以用鼠标把banana拖拽到Picturel中(见图2)。能实现此功能的事件过程是(C)

50PrivateSubFormDragDrop(SourceAsControl,XAsSingle,YAsSingle)banana.MovePicturel.Left+X,Picturel.Top+Y)EndSubA)PrivateSubbanana_DragDrop(SourceAsControl,XAsSingle,YAsSingle)Source.MovePicturel.Left+X,Picturel.Top+YEndSubB)B)PrivateSubPicturelDragDrop(SourceAsControl,XAsSingle,YAsSingle)Source.MovePicturel.Left+X,Picturel.Top+YEndSubC)B)PrivateSubPicturelDragDrop(SourceAsControl,XAsSingle,YAsSingle)banana.Movebanana.Left+X,banana.Top+YEndSub(33)在窗体上画1个名称为Commandl的命令按钮，然后编写如下事件过程OptionBase1PribateSubCommand1C1ick()Dima(5.5)AsIntegerFori=lTo5Forj=lto5a(i,j)=(i+j)*5\10NextjNextiS=0Fori=lTo5S=s+a(i,i)NextiPrintsEndSub程序运行后，单击命令按钮，输出结果是(A)A)15B)13C)11D)9(34)在窗体上从左到右有TextkText2两个文本框(见图)，要求程序运行时，在Textl中输入1个分数后按回车键，则判断分数的合法性，若分数为0〜100中的1个数，周围光标移到Text2中；否则光标不动，并弹出对话框显示“分数错”，下面程序中正确的是(D)A)PrivateSubTextl_KeyPress(KeyAsciiASInteger)IfKeyAscii=13Then，回车符的ACSH码是13

51Ifa>=0ora<=100ThenText2.SetFocus分数科目［ElseTextl.SetFocus:MsgBox("分数错”)EndIfEndIfEndSubA)PrivateSubTextl_KeyPress(KeyAsciiASInteger)IfKeyAscii-13Then，回车符的ACSII码是13a=Val(Textl)Ifa>=0Anda<=100ThenTextl.SetFocusElseText2.SetFocus:MsgBox("分数错”)EndIfEndIfEndSubC)PrivateSubEndSubTextl_KeyPress(KeyAsciiASInteger)D)PrivateSubIfKeyAscii=13Then'回车Textl_KeyPress(KeyAsciiAS符的ACSH码是13Integer)a=Val(Textl)IfKeyAscii=13Then响Ifa<0Anda>100Then车符的ACSII码是13Text2.SetFocusa=Val(Textl)ElseIfa>=0Anda<=100ThenTextl.SetFocus:Text2.SetFocusMsgBox("分数错”)ElseEndIfTextl.SetFocus.EndIfMsgBox(“分数错”)

52EndIfEndIf(35)在窗体上画2个命令按钮,如下程序Constn=5,m=4Dima(m,n)PrivateSubCommand1_C1ick()K=1Fori=lTomForj=lTona(i,j)=kk=k+lNextjNextiEndSubPrivateSubCommand2_Click()Summ=0EndSub名称分别为Command1>command2,并编写Fori=lTomForj=lTonIfi=lOri=mThenSumm=summ+a(i,j)ElseIfj=lOrj=nThenSumm=summ+a(i,j)EndIfEndIfNextjNextiPrintsummEndSub过程Command2_Click()的作用是(A)A)计算矩臃外围一圈元素的累加和B)计算矩阵除外一圈以外的所有元素的累加和二、填空题(每空2分，共30分)C)计算矩阵第1列和最后一列元素的累加和D)计算矩阵第1行和最后一行元素的累加和过程Command1_Click()的作用是二维数组a中存放1个m行n列的矩阵;请将每一个空的正确答案写在答题纸上序号的横线上，答在试卷上，答在试卷上不得分，注意：以命令关键字填空的必须写完整(1)在深度为7的满二叉树中，度为2的结点个数为o(2)软件测试分为白箱(盒)测试和黑箱(盒)测试，等价类划分法属于测试。(3)在数据库系统中，实现各种数据管理功能的核心软件称为。(4)软件生命周期可分为多个阶段，一般分为定义阶段、开发阶段和维护阶段。编码和测试属于阶段。(5)在结构化分析使用的数据流图(DFD)中，利用对其中的图形元素进行确切解释。(6)下面程序的功能是从键盘上请输入一个大于100的整数m,计算并输出满足不等式1+22+32+42+n2

53的最大的Ho请填空PrivateSubCommand1―Click()Dims,m,nASIntegerm=Val(InputBox(“请输入一个大于100的整数”))n=s=0DoWhiles

54EndIfprimesisprimeEndFunction在测试时发现有1个非素数也被判断为素数，这个错判的数是2007年9月全国计算机等级考试二级VB笔试试卷VisualBasic语言程序设计（考试时间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）数据的逻辑结构与存储结构必定是对应的B）由于计算机存储空间是向量式的存储结构，因此，数据的存储结构一定是线性结构C）程序设计语言中的数组一般是顺序存储结构，因此，利用数组只能处理线性结构D）以上三种说法都不对（7）冒泡排序在最坏情况下的比较次数是A）n（n+1）/2B）nlog2nC）n（n-l）/2D）n/2（8）一棵二叉树中共有70个叶子结点与80个度为1的结点，则该二叉树中的总结点数为A）219B）221C）229D）231（9）下列叙述中正确的是A）数据库系统是一个独立的系统，不需要操作系统的支持

55B）数据库技术的根本目标是要解决数据的共享问题C）数据库管理系统就是数据库系统

56D)以上三种说法都不对(10)下列叙述中正确的是A)B)C)D)为了建立一个关系，首先要构造数据的逻辑关系表示关系的二维表中各元组的每一个分量还可以分成若干数据项一个关系的属性名表称为关系模式一个关系可以包括多个二维表(11)要使一个文本框可以显示多行文本，应设置为True的属性是A)EnabledB)MultiLineC)MasLenfthD)WidthA)FormKeyPress()C)Textl_Click()B)TextlLostFocus()D)TestlChange()(13)设在窗体上有一个名称为Command1的命令按钮和一个名称为Textl的文本框。要求单击Commandl按钮时可把光标移到文本框中。下面正确的事件过程是A)PrivateSubCommand1_C1ick()Textl.GotFocusEndSubC)PrivateSubCommandl_Click()Textl.SetFocusEndSub(14)执行以下程序后输出的是PrivateSubCommandlClick()B)PrivateSubCommandl.GotFocusEndSubD)PrivateSubCommandl.SetFocusEndSubCh$="AABCDEFGH”PrintMid(Righ(ch$,6),Len(left(ch$,4)),2)EndSubA)CDEFGHB)ABCDC)FGD)AB(15)设在窗体Forml上有一个列表框Listl,其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程是A)PrvateSubListlClick()PrintListl.TextEndSubC)PrivateSubListl_Click()PrintForml.TextEndSubB)PrivateSubFormlClickOPrintListl.TextEndSubD)PrivateSubFormlClick()Listl.PrintListl.TextEndSub(12)在窗体上有一个名为Textl的文本框。当光标在文本框中时，如果按下字母键“A"，则被调用的事件过程是(16)若窗体上的图片框中有一个命令按钮，则此按钮的Left属性是指A)按钮左端到窗体左端的距离B)按钮左端到图片框左端的距离C)按钮中心点到窗体左端的距离D)按钮中心点到图片框左端的距离(17)为使程序运行时通用对话框CD1上显示的标题为“对话框窗口”，若

57通过程序设置该标题，则应使用的语句是A)CD1.DialogTitle="对话框窗口”B)CD1.Action-“对话框窗口”C)CDLFileName="对话框窗口”D)CD1.Filter-“对话框窗口”(18)在窗体上有如右图所示的控件,与其标题相同，并有如下程序：PrivateSubFormLoad()Command2.Enabled=FalseCheckl.Value=lEndSub各控件的名称D)C)刚运行程序时，看到的窗体外观是：(19)设在窗体中有一个名称为Listl的列表框，其中有若干个项目(如图)。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是A）PrivateSubCommandlClick()Listl.ClearEndSubB）PrivateSubCommand1_C1ick()

58Listl.ClearListl.ListindexEndSubA）PrivateSubCommandIClickOListl.RemoveitemListl.ListindexEndSubB）PrivateSubCommandIClickOListl.RemoveItemEndSub（20）某人设计了如下程序用来计算并输出7!（7的阶乘）PrivateSubCommandlClick（）t=0Fork=7To2Step-1t=t*kNextPrinttEndSub执行程序时，发现结果是错误的，下面的修改方案中能够得到正确结构的是A）把t=0改为t=lB）把Fork=7To2Step-1改为Fork=7To1Step-1C）把Fork=7To2Stip-1改为Fork=lTo7D）把Next改为Nexik（21）若窗体中已经有若干个不同的单选按钮，要把它们改为一个单选按钮数组，在属性窗口中需要且只需要进行的操作是A）把所有单选按钮的Index属性改为相同值B）把所有单选按钮的Index属性改为连续的不同值C）把所有单选按钮的Caption属性值改为相同D）把所有单选按钮的名称改为相同，且把它们的Index属性改为连续的不同值。（22）窗体上有文本框Textl和一个菜单，菜单标题、名称如表，结构见图。要求程序执行时单击“保存”菜单项，则把其标题显示在Textl文本框中。下面可实现此功能的事件过程是：标题名称文件file新建new保存saveA)PrivateSubsave_Click()B)PrivateSubsave_Click()Textl.Text=file.save.Caption

59Textl.Text=save.CaptionEndSubC)PrivateSubfile_Click()file_Click()Textl.Text=file.save.CaptionEndSubEndSubD)PrivateSubTextl.Text=save.CaptionEndSub(23)某人在窗体上画了一个名称为Timerl的计时器和一个名称为Lab的属性设置为Enabled=True,Interval：。,并编程如下。希望在每2秒在标签上显示一次系统当前时间。PrivateSubTimerlTimer()Labell.Caption=Time$EndSub在程序执行时发现未能实现上述目的，那么，他应做的修改是A)通过属性窗口把计时器的Interval属性设置为2000B)通过属性窗口把计时器的Enabled属生设置为FalseC)把事件过程中的Labell.Caption=Time$语句改为Timerl.Interval=Tims$D)把事件过程中的Labell.Caption=Time$语句改为Labell.Caption=Timerl.Time(24)形状控件的Shape属性有6种取值，分别代表6种几何图形。下列不属于这6种几何图形的是A)B)C)D)(25)下面关于文件的叙述中错误的是A)随机文件中各条记录的长度是相同的］B)打开随机文件时采用的文件存取方式应该是RandomC)向随机文件中写数据应使用语句Print#文件号D)打开随机文件与打开顺序文件一样，都使用Open语句(26)设窗体上有一个图片框Pictured要在程序运行期间装入当前文件夹下的图形文件Filel.jpg,能实现此功能的语句是A)Picturel.Picture—'Fliel.jpgB)Picturel.Picture=LoadPicture("Filel.jpg")C)LoadPicture("Filel.jpg")D)CallLoadPicture("Filel.jpg")(27)下面程序执行时，在窗体上显示的是PrivateSubCommandlClickODima(10)Fork=1To10a(k)=11-kNextkPrinta(a(3)\a(7)Moda(5))

60EndSubA)3B)5C)7D)9(28)为达到把a、b中的值交换后输出的目的，某人编程如下：PrivateSubCommandlClick()a%=10:b%=20Callswap(a,b)Printa,bEndSubPrivateSubswap(ByVaiaAsInteger,ByVaibAsInteger)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)下面程序的输出结果是PrivateSubCommandlClick()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=lFork=2To10Ifa(k)>a(max)Thenmax=kEndIfNextkMaxValue=maxEndFunction程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是A)语句max=1应改为max=a(l)B)语句Fork=2To10应改为Fork=1To10C)If语句中的条件a(k)>a(max)应改为a(k)>maxD)语句MaxValue=max应改为MaxValue=a(max)(32)在窗体上画一个名称为Commandl的命令按钮，并编写以下程序：PrivateSubCommandlClick()Dimn%,b,tt=1:b=1:n=2Dob=b*nt=t+bn=n+1LoopUntiln>9PrinttEndSub此程序计算并输出一个表达式的值，该表达式是

61A)9!B)10!011+2!+―+9!D)1!+2!+—+10!(33)有一个名称为Forml的窗体，上面没有控件，设有以下程序(其中方法Pset(X,Y)的功能是在坐标X,丫处画一个点)：DimcmdmaveAsBooleanPrivateSubFormMouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)cmdmave=TrueEndSubPrivateSubFormMouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfcmdmaveThenForml.Pset(X,Y)EndIfEndSubPrivateSubFormMouseUp(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)在窗体上有一个名称为Checkl的复选框数组(含4个复选框)，还有一个名称为Textl的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的方字罗列在文本框中(见图)。下面能实现此功能的事件过程是A)PrivateSubChecklClick(IndesAsInteger)Textl.TextFork=0To3IfCheckl(k).value=1ThenTextl.Text=Textl.Text&Checkl(k).Caption&"“'双引号中是空格EndIfNextkEndSubB)PrivateSubChecklClick(IndexAsInteger)Fork=0To3IfCheckl(k).Value=1ThenTextl.Text=Textl.Text&Checkl(k).Caption&""'双引号中是空格EndIfNextkEndSub

62A)PrivateSubChecklClick(IndexAsInteger)Textl.Text=Fork=0To3IfCheckl(k).Value=1ThenTextl.Text=Textl.Text&Checkl(Index).Caption&""'双引号中是空格EndIfNextkEndSubB)PrivateSubChecklClick(IndexAsInteger)Textl.Text=Fork=0To3IfCheckl(k).Value=1ThenTextl.Text=Textl.Text&Checkl(k).Caption&""'双引号中是空格ExitFor

63EndIfNextkEndSub二、填空题(每空2分，共30分)请将每空的正确答案写在答题卡序号的横线上，答在试卷上不得分。(1)软件需求规格说明书应具有完整性，无岐义性、正确性、可验证性、可修改性等特征，其中最重要的是【1】O(2)在两种基本测试方法中，【2】测试的原则之一是保证所测模块中每一个独立路径至少执行一次。(3)线性表的存储结构主要分为顺序存储结构和链式存储结构。队列是一种特殊的线性表，循环队列是队列的【3】存储结构。(4)对下列二叉树进行中序遍历的结果为【4】o(5)在E-R图中，矩形表示[5]o(6)窗体上有一个组合框，其中已输入了若干个项目。程序运行时，单击其中一项，即可把该项与最上面的一项交换。例如：单击图1中的“重庆”，则与“北京”交换，得到图2的结果。下面是可实现此功能的程序，请填空。PrivateSubCombolClick()Dimtemptemp=Combol.Text•F..百回区)[6]=Combol.List(0)Combol.List(0)=tempEndSub(7)设窗体上有一个名称为HScroIII的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离(即新位置与原位置的刻度值之差,向右移动为正数，向左移动为负数)。下面是可实现此功能的程序，请填写。

64Dim[7]AsIntegerPrivateSubFormLoad()pos=HScroIII.ValueEndSubPrivateSubHScroIIIChange()Print[8]-pospos=HScroIII.ValueEndSub(8)设窗体上有一个名称为CD1的通用对话框，一个名称为Textl的文本框和一个名称为Commandl的命令按钮。程序执行时，单击Commandl按钮,则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在Textl中。下面是实现此功能的事件过程，请填空。PrivateSubCommandlClick()CD1.Filter="文本文件1*.txt(Word文档)*.doc”CD1.Filterinder=1CD1.ShowOpenIfCD1.FileNameO"ThenOpen[9]ForInputAs#1LineInput#1,ch$Close#1Textl.Text=[10]EndIfEndSub(9)下面的程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。例如:输入7685,则输出5867,输入1000,则输出0001o请填空。PrivateSubCommandlClick()DimxAsIntegerx=InputBox(“请输入一个正整数”)Whilex>_[ll]—PrintxMod10;x=x\10WendPrint_[12]__EndSub(10)有如图所示的窗体。程序执行时先在Textl文本框中输入编号，当焦点试图离开Textl时，程序检查编号的合法性，若编号合法，则焦点可以离开Textl文本框；否则，显示相应错误信息，并自动选中错误的字符，且焦点不能离开Textl文本框(见图)。合法编号的组成是：前2个字符是大写英文字母，第3个字符是后面是数字字符(至少1个)。下面程序可实现此功能，请填空。PrivateSubTextlLostfocus()Dimk%,n%n=Len([13])Fork=ltoif(n>3,n,4)c=Mid(Textl.Text,k,1)

65SelectCasekCase1,2Ifc〈"A"Orc〉"Z"ThenMsgBox(〃第〃&k&"个字符必须是大写字母！〃)SetPositionkExitForEndIfCase3IfThenMsgBox("第"&k&"个字符必须是字符SetPositionkExitForEndIfCaseElseIfc<"0"Orc>"9"ThenMsgBox("第〃&k&"个字符必须是数字！”)SetPositionkExitForEndIfEndSelectNextkEndSubPrivateSubSetPosition(posAsInteger)Textl.SelStart=pos-lText.SelLength=[14]Textl.[15]EndSub

662008年4月全国计算机等级考试二级VB笔试试卷一、选择题1、程序流程图中带有箭头的线段表示的是A）图元关系B）数据流C）控制流D）调用关系2、结构化程序设计的基本原则不包括A）多态性B）自顶向下C）模块化D）逐步求精3、软件设计中模块划分应遵循的准则是A）低内聚低耦合B）高内聚低耦合C）低内聚高耦合D）高内聚高耦；在软件开发中，需求分析阶段产生的主要文档是A）可行性分析报告B）软件需求规格说明书C）概要设计说明书D）集成测试计划5、算法的有穷性是指A）算法程序的运行时间是有限的限的C）算法程序的长度是有限的B)D)6、对长度为n的线性表排序，在最坏的情况下,排序方法是A)7、A)C)8、A)快速排序B）冒泡排序下列关于栈的叙述正确的是栈按“先进先出”组织数据只能在栈底插入数据算法程序所处理的数据量是有算法只能被有限的用户使用比较次数不是n（n-1）/2的C）直接插入排序D）堆排序B）栈按“先进后出”组织数据D）不能删除数据在数据库设计中，将E-R图转换成关系数据模型的过程属于需求分析阶段B）概念设计阶段C)逻辑设计阶段D）物理设计阶段9、有三个关系R、S和T如下:BCDa0k1B1n1R由所A）10、设有表示年龄，身份证BcDf3h2a0k1n2X1S并则B）自然连接C）笛卡尔积D)交学生选课的三张表，学生S（学号，姓名，性别，号），课程（课号，课名），选课SC（学号，课号,成绩），则表SC的关键字（键或码）为D）学号，姓名,A）课号，成绩B）学号，成绩C）学号，课号成绩

6711、以下叙述中错误的是

68A)标准模块文件的扩展名是.basB)标准模块文件是纯代码文件C)在标准模块中声明的全局变量可以在整个工程中使用D)在标准模块中不能定义过程12、在VisualBasic中，表达式3*2\5Mod3的值是A)1B)0C)3D)出现错误提示13>以下选项中，不合法的VisualBasic变量名是A)a5bB)_xyzC)a_bD)andif14、以下数组定义语©中，错误的是A)Statica(10)AsIntegerB)Dimc(3,1to4)C)Dimd(-10)D)Dimb(0to5,1to3)AsInteger15、现有语句：y=IIf(x>0,xMod3,0),设x=10,则y的值是A)0B)1C)3D)语句有错16、为了使文本框同时具有垂直和水平滚动条，应先把MultiLine属性设置为True,然后再把Scrollbars属性设置为A)0B)1C)2D)317、文本框Textl的KeyDown事件过程如下：PrivateSubTextl_KeyDown(KeyCodeAsInteger,ShiftAsInteger)EndSub其中参数KeyCode的值表示的是发生此事件时A)是否按下了Alt键或Ctrl键B)按下的是哪个数字键C)所按的键盘键的键码D)按下的是哪个鼠标键18、窗体上有一个名称为Hscrolll的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是

69A)PrivateSubHscrol1IChangc()HsctrolllChange()PrintHScroll1.ValueHScroll1.SmallChangeEndSubC)PrivateSubHScrol1IScrol1()HScrolll_Scroll()PrintHScrolll.ValueHScroll1.SmallChangeEndSub19、若已把一个命令按钮的DefaultClick事件过程被调用的操作是A)用鼠标右键单击此按钮B)PrivateSubPrintEndSubD)PrivateSubPrintEndSub属性设置为True,则下面可导致按钮的B)按键盘上的Esc键

70C）按键盘上的回车键D）用鼠标右键双击此按钮20、要使两个单选按钮属于同一个框架，正确的操作是A）先画一个框架，再在框架中画两个单选按钮B）先画一个框架，再在框架外画两个单选按钮，然后把单远按钮拖到框架中C）先画两个单选按钮，再画框架将单选按钮框起来D）以上三种方法都正确21、能够存放组合框的所有项目内容的属性是A）CaptionB）TextC）ListD）Selected22>设窗体上有一标签Label1和一^计时器Timerl,Timerl的Interval属性被设置为1000,Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是A)PrivateSubTimerlTimer()Timerl_Timer()Label1.Caption=TrueLabel1.Caption=Time$EndSubC)PrivateSubTimerlTimer()TimerlTimer()Label1.Interval=l=1ToTimerl.IntervalEndLabel1.Caption=Timer23、设有如图所示窗体和以下程序:PrivateSubCommandlClickOTextl.Text=aVisualBasic”EndSubPrivateSubTextlLostFocus()IfTextl.Text<>“BASIC”ThenTextl.Text=""Textl.SetFocusB)PrivateSubEndSubD)PrivateSubForkSubNextkEndSubEndIfEndSub程序运行时，在Textl文件框中输入“Basic”（如图所示），然后单击Commandl按钮，则产生的结果是A）文本框中无内容，焦点在文本框中B）文本框中为“Basic”，焦点在文

71本框中C）文本框中为“Basic”，焦点的按钮上D）文本框中为“VisualBasic”，焦点的按钮上24、窗体上有一个名称为Commandl的命令按钮，其事件过程如下：PrivateSubCommancllClickOx=°VisualBasicProgrammingva=Right(x,11)b=Mid(x,7,5)C=Msgbox(a,,b)EndSub运行程序后单击命令按钮，以下叙述中错误的是A)信息框的标题是BasicB)信息框中的提示信息是ProgrammingC)C的值是函数的返回值D)MsgBox的使用格式有错25、设工程文件包含两个窗体文件Forml.frm、Form2.frm及一个标准模块文件Modulel.bas,两个窗体上分别只有一^名称Commandl的命令按钮。Forml的代码如下：PublicXAsIntegerPrivateSubFormload()x-1y=5EndSubPrivateSubCommandlClickOForm2.ShowEndSubForm2的代码如下：PrivateSubCommandlCiickOPrintForml.x,yEndSubModulel的代码如下：PublicyAsInteger运行以上程序，单击Forml的命令按钮Commandl,则显示Form2；再单击Form2上的命令按钮Commandl,则窗体上显示的是A)15B)05O00D)程序有错26、窗体上有一个名称Textl的文本框，一个名称为Commandl的命令按钮。窗体文件的程序如下：PrivateTypexaAsIntegerbASIntegerEndTypePrivateSubCommandlClickO

72DimyAsxy.a=InputBox("")Ify.a\2=y.a/2Theny.b=y.a*y.aElsey.b=Fix(y.a/2)EndIfTextl.Text=y.bEndSub对以上程序，下列叙述中错误的是A)x是用户定义的类型B)InputBox函数弹出的对话框中没有提示信息C)若输入的是偶数，y.b的值为该偶数的平方C)Fix(y.a/2)把y.a/2的小数部分四舍五入，转换为整数返回27、窗体上有一个名称为CD1的通用对话框控件和由四个命令按钮组成的控件数Commandl,其下标从左到右分别为0、1、2、3,窗体外观如图所示。命令按钮的事件过程如下：PrivateSubCommand1Click(IndexAsInteger)SelectCaseIndexCase0CD1.ActionalCase1CD1.ShowSaveCase2CD1.Action=5Case3EndEndSelectEndSub对上述程序，下列叙述中错误的是A)单击“打开”按钮，显示打开文件的对话框B)单击“保存”按钮，显示保存文件的对话框C)单击“打印”按钮，能够设置打印选项，并执行打印操作D)单击“退出”按钮，结束程序的运行28、窗体上有两个水平滚动条HV、HT,还有一个文本框Textl和一个标题为“计算”的命令按钮Commandl,并编写了以下程序：

73PrivateSubCommand1_C1ickOCallCale(HV.Value,HT.Value)EndSubPublicSubCale(xASInteger,yAS

74Integer）Textl.Text=x*yEndSub运行程序，单击“计算”按钮，可根据速度与时间计算出距离，并显示计算结果。对以上程序，下列叙述中正确的是A）过程调用语句不对，应为Cale（HV,HT）B）过程定义语句的形式参数不对，应为SubCale（xAsControl,yAsControl）C）计算结果在文本框中显示出来D）程序不能正确运行29、现有如下程序：PrivateSubCommand1ClickOS=0Fori=lto5S=S+f（5+i）NextPrintSEndSubPublicFunctionf（xAsInteger）Ifx>=10Thent=x+lElset=x+2EndIff=tEndFunction运行程序，则窗体上显示的是A）38B）49C）61D）7030、窗体上有一个用菜单编辑器设计的菜单（见上图）。运行程序，并在窗体上单击鼠标右键，则弹出一个快捷菜单，如图所示。以下叙述中错误的A）在设计“粘贴”菜单项时，在菜单编辑器窗口中设置了“有效”属性（有"J”）B）菜单中的横线是在该菜单项的标题输入框中输入了一个“一”（减号）字符C）在设计“选中”菜单项时，在菜单编辑器窗口中设置了“复选”属性（有"J”）D）在设计该弹出菜单的主菜单项时，在菜单编辑器窗口中去掉了“可见”前面的“J”31、窗体上有一个名称为Picturel图片框控件，一个名称Labell的标签控件。如图所示。现有如下程序：PublicSubdisplay（xAsControl）IfTypeOfxisLabelThen

75abell2008年4月全国计算机等级考试二级一VB笔试真题x.Caption="计算机等级考试”Elsex.PictureLoadpicture("pic.jpg")EndlfEndSubPrivateSubLabel1_C1ick()Calldisplay(Labell)EndSubPrivateSubPicturelClickOCalldisplay(Picturel)EndSub对以上程序，下列叙述中错误的是A)程序运行时会出错B)单击图片框，在图片框中显示一幅图片C)过程中的X是控件变量D)单击标签，在标签中显示一串文字32、窗体上有两个名称分别为Textl、Text2的文本框。Textl的KeyUp的事件过程如下：PrivateSubText1KeyUp(KeyCodeAsInteger,shiftASInteger)DimCASstringc=Textl.TextTcxt2.Text=Chr(Asc(c)+2)EndSub当向文本框Textl中输入小写字母a时，文本框Text2中显示的是A)AB)aC)CD)c33、设窗体上有一个文体框Textl和一个命令按钮Command1,并有以下事件过程:PrivateSubCommand1_C1ick()DimSAsString,chAsStringS="”Fork=lTOLen(Textl)ch=Mid(Textl,k,1)S=ch+SNextkTextl.Text=SEndSub程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Textl中显示的是A)BasicB)cisaBC)BASICD)CISAB34、某人编写了如下程序，用来求10个整数(整数从键盘输入)中的最大值：PrivateSubCommandlClickO

76Dima(10)AsInteger,maxAsIntegerFork=lTO10a(K)=InputBox(“输入一个整数”)NextkMax=0Fork=lTo10Ifa(k)>maxThenMax=a(k)EndIfNextkPrintmaxEndSub运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改，下面的修改中可以得到正确运行结果的是A)把Ifa(k)〉maxThen改为Ifa(k)

77(3)设某循环队列的容量为50,头指针Front=5(指向队头元素的前一位置),尾指针rear=29(指向队尾元素)，则该循环队列中共有[3]个元素。(4)在关系数据库中，用来表示实体之间联系的是[4]o(5)在数据库管理系统提供的数据定义语言、数据操纵语言和数据控制语言中,[5]负责数据的模式定义与数据的物理存取构建。(6)设有以下的循环：要求程序运行时执行3次循环体，请填空。x=lDOx=x+2PrintxLoopUntil[6](7)窗体上命令按钮Commandl的事件过程如下：PrivateSubCommandlClickODimtotalAsIntegertotal=s(l)+s(2)PrinttotalEndSubPrivateFunctions(mAsInteger)AsIntegerStaticxAsIntegerFori=1Tomx=x+lNextiS=xEndFunction运行程序，第3次单击命令按钮Commandl时，输出结果为[7](8)在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：OptionBase1PrivateSubCommandIClickODima(10)AsIntegerFori=lTo10a(i)=iNextCallswap([8])Fori=lTo10Printa(i)NextEndSubSubswap(b()AsInteger)n=[9]Fori=lTon/2t=b(i)b(i)=b(n)b(n)=t[10]NextEndSub上述程序的功能是，通过调用过程swap,调换数组中数值的存放位置，即a(l)与a(10)的值互换，a(2)与a(9)的值互换，请填空。(9)在窗体上面一个通用对话框，其名称为CommonDialogl,然后画一个命令

78按钮，并编写如下事件过程：PrivateSubCommandlClickOCommonDialogl.Filter=WA11Files(*.*)|*.*|TextFiles"_&"(*.txt)|*.txt|BatchFiles(*.bat)|*.bat”CommonDialoglFilterlndex=lCommondialogl.ShowOpenMsgBoxCommonDialogl.FileNameEndSub程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是[11];如果在对话框中选择d盘temp目录下的tel.txt文件，然后单击“确定”按钮，则在MsgBox信息框中显示的提示信息是[12]o(10)以下程序的功能是：把程序文件smtextl.txt的内容全部读入内存，并在文本框Textl中显示出来。请填空。PrivateSubCommandlClickODiminDataAsStringTextl.Text="”Open"smtextl.txt”[13]As[14]DoWhile[15]Input#2,inDataTextl.Text-Textl.Text&inDataLoopClose#2EndSub2008年9月全国计算机等级考试二级笔试试卷公共基础知识和VisualBasic语言程序设计(考试时间90分钟，满分100分)一、选择题(每小题2分，共70分)（1）一个栈的初始状态为空。现将元素1、2、3、4、5、A、B、C、D、E依次入栈，然后再依次出栈，则元素出栈的顺序是（）oA）12345ABCDEB）EDCBA54321C）ABCDE12345D）54321EDCBA（2）下列叙述中正确的是（）oA）循环队列有队头和队尾两个指针，因此，循环队列是非线性结构B）在循环队列中，只需要队头指针就能反映队列中元素的动态变化情况C）在循环队列中，只需要队尾指针就能反映队列中元素的动态变化情况D）循环队列中元素的个数是由队头指针和队尾指针共同决定（3）在长度为n的有序线性表中进行二分查找，最坏情况下需要比较的次数是（）。A）0（n）B）0（n2）C）0（log2n）D）0（nlog2n）（4）下列叙述中正确的是（）oA）顺序存储结构的存储一定是连续的，链式存储结构的存储空间不一定是连续的B）顺序存储结构只针对线性结构，链式存储结构只针对非线性结构C）顺序存储结构能存储有序表，链式存储结构不能存储有序表D）链式存储结构比顺序存储结构节省存储空间（5）数据流图中带有箭头的线段表示的是（）oA）控制流B）事件驱动C）模块调用D）数据流（6）在软件开发中，需求分析阶段可以使用的工具是（）oA）N-S图B）DFD图C）PAD图D）程序流程图（7）在面向对象方法中，不属于“对象”基本特点的是（）oA）一致性B）分类性C）多态性D）标识唯一性

79（8）一间宿舍可住多个学生，则实体宿舍和学生之间的联系是（）oA）一对一B）一对多C）多对一D）多对多（9）在数据管理技术发展的三个阶段中，数据共享最好的是（）0A）人工管理阶段B）文件系统阶段A）笛卡尔积B）交C）并D）自然连接（11）在设计窗体时双击窗体的任何地方，可以打开的窗口是（）oA）代码窗口B）属性窗口C）工程资源管理器窗口D）工具箱窗口（12）若变量a未事先定义而直接使用（例如：a=0）,则变量a的类型是()oA)IntegerB)StringC)BooleanD)Variant(13)为把圆周率的近似值3.14159存放在变量pi中，应该把变量pi定义为()oA)DimpiAsIntegerB)Dimpi(7)AsIntegerC)DimpiAsSingleD)DimpiAsLong(14)表达式2*3-2+4*2/2+3-2的值是()。A)30B)31C)49D)48(15)以下不能输出“Program"的语句是()。A)PrintMid(，，VBProgram，，,3,7)B)PrintRight("VBProgram”,7)C)PrintMid("VBProgram”,3)D)PrintLeft("VBProgram”,7)(16)窗体上有一个名称为Frame1的框架(如图)，若要把框架上显示的“Framel”改为汉字“框架”，下面正确的语句是()oFramelA)Framel.Name="框架"B)Framel.Caption="框架”C)Framel.Text="框架"D)Framel.Value="框架"

80(17)以下叙述中错误的是()oA)在通用过程中，多个形式参数之间可以用逗号作为分隔符B)在Print方法中，多个输出项之间可以用逗号作为分隔符C)在Dim语句中，所定义的多个变量可以用逗号作为分隔符D)当一行中有多个语句时，可以用逗号作为分隔符(18)设窗体上有一个列表框控件Listl,含有若干列表项。以下能表示当前被选中的列表项内容的是()oA)Listl.ListB)Listl.ListindexC)Listl.TextD)Listl.Index(19)设a=4,b=5,c=6,执行语句PrintaCommand2两个命令按钮。现编写以下程序：OptionBase0Dima()AsInteger,mAsIntegerPrivateSubCommandl_Click()m=InputBox("请输入一个正整数”)ReDima(m)EndSubPrivateSubCommand2_Click()m=InputBox("请输入一个正整数”)ReDima(m)EndSub运行程序时，单击Command1后输入整数10,再单击Command2后输入整数5,则数组a中元素的个数是()oA)5B)6C)10D)11(22)在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1,然后编写如下事件过程：PrivateSubCommand1Click()Counter=0Fori=lTo4Forj=6To1Step-2Counter=Counter+l

81NextjNextiLabel1.Caption=Str(Counter)EndSub程序运行后，单击命令按钮，标签中显示的内容是()oA)11B)12C)16D)20(23)在窗体上画一个名为Command1的命令按钮，然后编写以下程序：PrivateSubCommand1_Click()DimM(10)AsIntegerFork=lTo10M(k)=12-kNextkx=8PrintM(2+M(x))EndSub运行程序，单击命令按钮，在窗体上显示的是()oA)6B)5C)7D)8(24)以下关于过程及过程参数的描述中，错误的是()7A)调用过程时可以用控件名称作为实际参数B)用数组作为过程的参数时，使用的是“传地址”方式C)只有函数过程能够将过程中处理的信息传回到调用的程序中D)窗体(Form)可以作为过程的参数(25)在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1>Labe12的标签，然后编写如下程序代码：PrivateXAsIntegerPrivateSubCommandl_Click()X=5:Y=3Callproc(X,Y)Label1.Caption=XLabe12.Caption=YEndSubPrivateSubproc(aAsInteger,ByVaibAsInteger)X=a*aY=b+bEndSub

82程序运行后，单击命令按钮，则两个标签中显示的内容分别是()oA)25和3B)5和3C)25和6D)5和6(26)在窗体上有两个名称分别为Textl、Text2的文本框，一个名称为Command1的命令按钮。运行后的窗体外观如图所示。■Forml姓名睥专业I计算机科学与技术保存设有如下的类型和变量声明：PrivateTypePersonnameAsString*8majorAsString*20EndTypeDimpAsPerson设文本框中的数据已正确地赋值给Person类型的变量p,当单击“保存”按钮时，能够正确地把变量中的数据写入随机文件Test2.dat中的程序段是()。A)Open"c:\Test2.dat"ForOutputAs#1Put#1,1,pClose#1B)Open"c:\Test2.dat"ForRandomAs#1Get#1,1,pClose#1C)Open"c:\Test2.dat"ForRandomAs#1Len=Len(p)Put#1,1,pClose#1D)Open"c:\Test2.dat"ForRandomAs#1Len=Len(p)Get#1,1,pClose#1(27)在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommandl_Click()DimiAsInteger,nAsIntegerFori=0To50i=i+3n=n+lIfi>10ThenExitForNextTextl.Text=Str(n)EndSub程序运行后，单击命令按钮，在文本框中显示的值是()oA)2B)3C)4D)5(28)假定有以下循环结构

83DoUntil条件表达式循环体Loop则以下正确的描述是()oA)如果“条件表达式”的值是0,则一次循环体也不执行B)如果“条件表达式”的值不为0,则至少执行一次循环体C)不论“条件表达式”的值是否为“真。至少要执行一次循环体D)如果“条件表达式”的值恒为0,则无限次执行循环体(29)在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimI,NumRandomizeDoFor1=1To1000Num=Int(Rnd*100)PrintNum;SelectCaseNumCase12ExitForCase58ExitDoCase65,68,92EndEndSelectNextILoopEndSub上述事件过程执行后，下列描述中正确的是()oA)Do循环执行的次数为1000次B)在For循环中产生的随机数小于或等于100C)当所产生的随机数为12时结束所有循环D)当所产生的随机数为65、68或92时窗体关闭、程序结束(30)在窗体上画一个名为Command1的命令按钮，然后编写如下代码:OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4)j=lFori=4To1Step-1s=s+a(i)*jj=j*10NextiPrintsEndSub运行上面的程序，其输出结果是()oA)1234B)12C)34D)4321(31)设有如下通用过程:PublicFunctionFun(xStrAsString)AsString

84DimtStrAsString,strLAsIntegertStr="”strL=Len(xStr)i=lDoWhilei<=strL/2tStr=Tstr&Mid(xStr,i,1)&Mid(xStr,strL-i+1,1)i=i+lLoopFun=tStrEndFunction在窗体上画一个名称为Command1的命令按钮。然后编写如下的事件过程：PrivateSubCommandl_Click()DimSIAsStringSl="abcdef”PrintUCase(Fun(SI))EndSub程序运行后，单击命令按钮，输出结果是()oA)ABCDEFB)abcdefC)AFBECDD)DEFABC(32)某人为计算n!(0

85p=p*aNextkpower=pEndFunction在调试时发现是错误的，例如Printpower(5,4)的输出应该是625,但实际输出是3125。程序需要修改。下面的修改方案中有3个是正确的，错误的一个是()oA)把Fork=lTon改为Fork=2TonB)把p=p*a改为p=p'nC)把Fork=lTon改为Fork=lTon-1D)把p=a改为p=l(35)某人编写了下面的程序PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=InputBox("请输入整数”)b=InputBox("请输入整数”)proaprobCallpro(a+b)EndSubPrivateSubpro(nAsInteger)While(n>0)PrintnMod10;n=n\10WendPrintEndSub此程序功能是：输入2个正整数，反序输出这2个数的每一位数字，再反序输出这2个数之和的每一位数字。例如：若输入123和234,则应该输出：321432753但调试时发现只输出了前2行(即2个数的反序)，而未输出第3行(即2个数之和的反序)，程序需要修改。下面的修改方案中正确的是()oA)把过程pro的形式参数nAsInteger改为ByVainAsIntegerB)把Callpro(a+b)改为proa+bC)把n=n\10改为n=n/10D)在prob语句之后增加语句c%=a+b,再把Callpro(a+b)改为proc二、填空题(每空2分，共30分)(1)对下列二叉树进行中序遍历的结果【1】O

86(2)按照软件测试的一般步骤，集成测试应在【2】测试之后进行。(3)软件工程三要素包括方法、工具和过程，其中，【3】支持软件开发的各个环节的控制和管理。(4)数据库设计包括概念设计、【4】和物理设计。(5)在二维表中，元组的【5】不能再分成更小的数据项。(6)在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为TextKLabe11和Command1,然后编写如下两个事件过程：PrivateSubCommandl_Click()S$-InputBox(“请输入一个字符串”)Textl.Text=S$EndSubPrivateSubTextlChange()Label1.Caption=UCase(Mid(Text1.Text,7))EndSub程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“VisualBasic”,则在标签中显示的内容是[6]。(7)在窗体上画一个命令按钮，其名称为Command1,然后编写如下事件过程:PrivateSubCommandl_Click()a$=，，NationalComputerRankExamination”n=Len(a$)s=0Fori=lTonb$=Mid(a$,i,1)Ifb$="n"Thens=s+lEndIfNextiPrintsEndSub程序运行后，单击命令按钮，输出结果是[7】o(8)为了在运行时把d:\pic文件夹下的图形文件a.jpg装入图片框Picturel,所使用的语句为[8]o(9)设有如下程序：PrivateSubFormClick()

87Cisa$="ABCDFG”Fori=lTo6PrintTab(12-i);[9]NextiEndSub程序运行后，单击窗体,结果如图所示，请填空。・FormlGFGDFGCDFGBCDFGABCDFG(10)在窗体上画一个命令按钮，其名称为Command1,然后编写如下代码:OptionBase1PrivateSubCommand1_Click()DimArrArr-Array(43,68,-25,65,-78,12,-79,43,-94,72)pos=0neg=0Fork=lTo10IfArr(k)>0Then[10]Else[111EndIfNextkPrintpos,negEndSub以上程序的功能是，计算并输出数组Arr中10个数的正数之和pos与负数之和neg,请填空。(11)在窗体上画一个名为Command1的命令按钮，然后编写如下程序：PrivateSubCommand1Click()DimiAsIntegerSum=0n=InputBox("Enteranumber/z)n=Val(n)Fori=lTonSum=[12]NextiPrintSumEndSub

88Functionfun(tAsInteger)AsLongp=lFori=lTotp=p*iNexti[13]EndFunction以上程序的功能是，计算1!+2!+3!+…+n!,其中n从键盘输入，请填空。(12)在窗体上画一个文本框，名称为Textl,然后编写如下程序：PrivateSubForm_Load()Open"d:\temp\dat.txt"ForOutputAs#1Textl.Text="”EndSubPrivateSubTextlKeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenIfUCase(Textl.Text)=[14]ThenClose#1EndElseWrite#1,[15]Textl.Text="”EndIfEndIfEndSub以上程序的功能是：在D盘temp文件夹下建立一个名为dat.txt的文件，在文本框中输入字符，每次按回车键都把当前文本框中的内容写入文件dat.txt,并清除文本框中的内容：如果输入“END”，则不写入文件，直接结束程序。请填空

892009年3月全国计算机等级考试二级笔试试卷VisualBasic语言程序设计选择题（1）下列叙述中正确的是A）栈是“先进先出”的线性表B）队列是“先进先出”的线性表C）循环队列是非线性结构D）有序性表既可以采用顺序存储结构，也可以采用链式存储结构（2）支持子程序调用的数据结构是A）栈B）树C）队列D）二叉树（3）某二叉树有5个度为2的结点，则该二叉树中的叶子结点数是A）10B）8C）6D）4（4）下列排序方法中，最坏情况下比较次数最少的是A）冒泡排序B）简单姓择排序C）直接插入排序D）堆排序（5）软件按功能可以分为：应用软件、系统软件和支蝉软件A或工具软件）。下面属于应用软件的是A）编译软件B）操作系统C）教务管理系统D）汇编程序（6）下面叙述中错误的是A）软件测试的目的是发现错误并改正错误B）对被调试的程序进行“错误定位”是程序调试的必要步骤C）程序调试通常也称为DebugD）软件测试应严格执行测试计划，排除测试的随意性（7）耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是A）提高耦合性降低内聚性有利于提高模块的独立性B）降低耦合性提高内聚性有利于提高模块的独立性C）耦合性是指一个模块内部各个元素间彼此结合的紧密程度D）内聚性是指模块间互相连接的紧密程度（8）数据库应用系统中的核心问题是A）数据库设计B）数据库系统设计C）数据库维护D）数据库管理员培训（9）有两个关系R,S如下：RSABCABa32a3b01b0c21c2由关系R通过运算得到关系S,则所使用的运算为A）选择B）投影C）插入D）连接（10）将E-R图转换为关系模式时，实体和联系都可以表示为A)属性B)键C)关系D)域(11)执行语句DimX,YAsInteger后，A)X和Y均被定义为整型变量B)X和Y均被定义为变体类型变量C)X被定义为整型变量，Y被定义为变体类型变量

90A)X被定义为变体类型变量，Y被定义为整型变量(12)以下关系表达式中，其值为True的是A)"XYZ”〉"XYz”B)"VisualBasic”<>"visualbasic”C)"the"="there”D)“Integer"<"Int"(13)执行以下程序段a$="VisualBasicProgramming^^b$="C++”c$=UCase(Left(a$,7))&b$&Right(a$,12)后，变量c$的值为VisualBASICProgrammingVISUALC++ProgrammingVisualC++ProgrammingVISUALBASICProgramming(14)下列叙述中正确的是A)MsgBox语句的返回值是一个整数B)执行MsgBox语句并出现信息框后，不用关闭信息框即可执行其他操作C)MsgBox语句的第一个参数不能省略D)如果省略MsgBox语句的第三个参数(Title),则信息框的标题为空(15)在窗体上画一个文本框(名称为Textl)和一个标签(名称为Labell),程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是A)PrivateSubTextlChange()Label1.Caption=Str(Len(Textl.Text))EndSubB)PrivateSubTextlClickOLabel1.Caption=Str(Len(Textl.Text))C)PrivateSubTextlChange()Label1.Caption=Textl.TextEndSubPrivateSubLabe11Change()Label1.Caption=Str(Len(Textl.Text))EndSub(16)在窗体上画两个单选按钮(名称分别为OptionKOption2,标题分别为“宋体”和“黑体”)、1个复选框(名称为Checkl,标题为“粗体”)和1个文本框(名称为Textl,Text属性为“改变文字字体”)，窗体外观如图所示。程序运行后，要求“宋体”单选按钮和“粗体”复选框被选中，则以下能够实现上述操作的语句序列是

91A)Optionl.Value=FalseCheckl.Value=TrueB)Optionl.Value=TrueCheckl.Value=0C)Optionl.Value=FalseCheckl.Value=2D)Optionl.Value=TrueCheckl.Value=l(17)在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程:PrivateSubCommandlClickOc=1234cl=Trim(Str(c))Fori=lTo4PrintNextiEndSub程序运行后，单击命令按钮，要求在窗体上显示如下内容：1121231234则在横线处应填入的内容为Right(cl,i)Left(cl,i)Mid(cl,i,1)Mid(cl,i,i)(18)假定有以下程序段Fori=lTo3

92Forj=5To1Step-1Printi*jNextjNexti则语句Printi*j的执行次数是A)15B)16C)17D)18(19)在窗体上画两个文本框(名称分别为Textl和Text2)和一个命令按钮(名称为Commandl),然后编写如下事件过程：PrivateSubCommandlClickOx=0DoWhilex<50x=(x+2)*(x+3)n=n+lLoopTextl.Text=Str(n)Text2.Text=Str(x)EndSub程序运行后，单击命令按钮，在两个文本框中显示的值分别为A)1和0B)2和72C)3和50D)4和168(20)阅读程序：PrivateSubFormClickOa=0Forj=lTo15a=a+jMod3NextjPrintaEndSub程序运行后，单击窗体，输出结果是A)105B)1C)120D)15(21)以下说法中正确的是A)当焦点在某个控件上时，按下一个字母键，就会执行该控件的KeyPress事件过程B)因为窗体不接受焦点，所以窗体不存在自己的KeyPress事件过程C)若按下的键相同，KeyPress事件过程中的KeyAscii参数与KeyDown事件过程中的KeyCode参数的值也相同

93D)在KeyPress事件过程中，KeyAscii参数可以省略(22)语句Dima(-3To4,3To6)AsInteger定义的数组的元素个数是A)18B)28C)21D)32(23)在窗体上画一个命令按钮，其名称为Commandl,然后编写如下代码：OptionBase1PrivateSubCommandlClickODimaa=Array(1,2,3,4)j=lFori=4To1Step-1S=s+a(i)*jj=j*10NextiPrintsEndSub程序运行后，单击命令按钮，其输出结果是A)4321B)1234C)34D)12(24)假定通过复制、粘贴操作建立了一个命令按钮数组Command1,以下说法中错误的是A)数组中每个命令按钮的名称(Name属性)均为CommandlB)若未做修改，数组中每个命令按钮的大小都一样C)数组中各个命令按钮使用同一个Click事件过程D)数组中每个命令按钮的Index属性值都相同(25)在窗体上画一个命令按钮，名称为Commandl,然后编写如下代码：OptionBase0PrivateSubCommandlClickODimAl(4)AsInteger,A2(4)AsIntegerFork=0To2Al(k+l)=InputBox(“请输入一个整数”)A2(3-k)=Al(k+l)NextkPrintA2(k)

94EndSub程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6,则输出结果为A)0B)1C)2D)3(26)以下关于函数过程的叙述中，正确的是A)函数过程形参的类型与函数返回值的类型没有关系B)在函数过程中，过程的返回值可以有多个C)当数组作为函数过程的参数时一，既能以传值方式传递，也能以传址方式传递D)如果不指明函数过程参数的类型，则该参数没有数据类型(27)在窗体上画两个标签和一■个命令按钮，其名称分别为Labell、Labe12和Command1,然后编写如下程序：PrivateSubfunc(LAsLabel)L.Caption：”1234”EndSubPrivateSubFormLoad()LabelLCaption="ABCDE”Label2.Caption=10EndSubPrivateSubCommandlClickOa=Val(Label2.Caption)Callfunc(Label1)Label2.Caption=aEndSub程序运行后，单击命令按钮，则在两个标签中显示的内容分别为ABCD和101234和100ABCD和1001234和10(28)在窗体上画一个命令按钮(名称为Commandl),并编写如下代码：FunctionFunl(ByvalaAsInteger,bAsInteger)AsIntegerDimtAsIntegert=a-bb=t+aFunl=t+bEndFunction

95PrivateSubCommandlClickODimxasIntegerx=10PrintFunl(Funl(x,(Funl(x,x-1))),x-1)EndSub程序运行后，单击命令按钮，输出结果是A)10B)0C)11D)21(29)以下关于过程及过程参数的描述中，错误的是A)过程的参数可以是控件名称B)调用过程时使用的实参的个数应与过程形参的个数相同C)只有函数过程能够将过程中处理的信息返回到调用程序中D)窗体可以作为过程的参数(30)设有如下通用过程：PublicFunctionFun(xStrAsString)AsStringDimtStrAsString,strLAsIntegertStr="”strL=Len(xStr)i=strL/2DoWhilei<=strLtStr=tStr&Mid(xStr,i+1,1)i=i+lLoopFun=tStr&tStrEndFunction在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：PrivateSubCommandlClickODimSIAsStringS1=MABCDEF”Textl.Text=LCase(Fun(SI))EndSub程序运行后，单击命令按钮，文本框中显示的是ABCDEFabcdefdefdefdefabc(31)在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Textl),并把窗体的

96KeyPreview属性设置为True,然后编写如下代码：DimSaveAllAsStringPrivateSubFormLoad()ShowTextl.Text="”Textl.SetFocusEndSubPrivateSubCommandlClickOTextl.Text=LCase(SaveAl1)+SaveAl1EndSubPrivateSubFormKeyPress(KeyAsciiAsInteger)SaveAll=SaveAll+Chr(KeyAscii)EndSub程序运行后，直接用键盘输入：VB,再单击命令按钮，则文本框中显示的内容为vbVB不显示任何信息VB出错(32)设有以下程序：PrivateSubFormClick()x=50Fori=lTo4y=InputBox("请输入一个整数”)y=Val(y)IfyMod5=0Thena=a+yx=yElsea=a+xEndIfNextiPrintaEndSub程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46,输出结果为A）100B）50C）120D）70

97（33）以下关于菜单的叙述中，错误的是A）当窗体为活动窗体时，用Ctrl+E键可以打开菜单编辑器B）把菜单项的Enabled属性设置为False,则可删除该菜单项C）弹出式菜单在菜单编辑器中设计D）程序运行时，利用控件数组可以实现菜单项的增加或减少（34）以下叙述中错误的是A）在程序运行时，通用对话框控件是不可见的B）调用同一个通用对话框控件的不同方法（如ShowOpen或ShowSave）可以打开不同的对话框窗口C）调用通用对话框控件的ShowOpen方法，能够直接打开在该通用对话框中指定的文件D）调用通用对话框控件的ShowColor方法，可以打开颜色对话框窗口（35）设在工程文件中有一个标准模块，其中定义了如下记录类型：TypeBooksNameAsString*10TelNumAsString*20EndType在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时;在顺序文件Person.txt中写入一条Books类型的纪录。下列能够完成该操作的事件过程是PrivateSubCommandClickODimBAsBooksOpenuPerson,txtvForOutputAs#18.Name=InputBox（"输入姓名"）9.TelNum=InputBox（"输入电话号码”）Write#1,B.Name,B.TelNumClose#1EndSubPrivateSubCommandClickODimBAsBooksOpenuPerson,txtwForInputAs#110.Name=InputBox（"输入姓名"）11.TelNum=InputBox（"输入电话号码”）Print#1,B.Name,B.TelNumClose#1EndSubPrivateSubCommandClick（）DimBAsBooksOpen"Person.txt"ForOutputAs#112.Name=InputBox（"输入姓名"）

988.TelNum=InputBox（"输入电话号码"）Write#1,BClose#1EndSubPrivateSubCommandClickOOpen"Person.txt"ForInputAs#1Name=InputBox（"输入姓名"）TelNum=InputBox（"输入电话号码”）Print#1,Name,TelNumClose#1EndSub填空题(1)假设一个长度为50的数组(数组元素的下标从0到49)作为栈的存储空间，栈底指针bottom指向栈底元素，栈顶指针top指向栈顶元素,如果bottom=49,top=30(数组下标)，则栈中具有【1】个元素。(2)软件测试可分为白盒测试和黑盒测试。基本路径测试属于【2】测试。(3)符合结构化原则的三种基本控制结构是：选择结构、循环结构和【3】。(4)数据库系统的核心是【4】(5)在E-R图中，图形包括矩形框、菱形框、椭圆框。其中表示实体联系的是[5]框。(6)窗体如图所示，其中汽车是名称为Imagel的图像框，命令按钮的名称为Command1,计时器的名称为Timerl,直线的名称为Linel。程序运行后，单击命令按钮，则汽车每0.1秒向左移动100,车头到达左边的直线时停止移动。请填空完成下面的属性设置和程1）Timerl的Interval属性的值应事先设置为[6]2）PrivateSubCommand1_Click（）Timerl.Enabled=TrueEndSubPrivateSubTimerITimer()IfImage1.Left>[7]ThenImage1.Left=[8]-100EndIfEndSub(7)设窗体上有一个名称为Combol的组合框，并有以下程序：PrivateSubCombol_KeyPress(KeyAsciiAsInteger)If[9]=13Then，回车符的ASCH码是13Fork=0ToCombol.ListCount-1

99IfCombol.Text=Combol.List(k)ThenCombol.TextExitForEndIfNextkIfCombol.TextO”"ThenCombol.Additem[10]EndIfEndIfEndSub程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中文本添加到列表的尾部。请填空。(8)在当前目录下有一个名为“myfile.txt”的文本文件，其中有若干行文本。下面程序的功能是读入此文件中的所有文本行，按行计算每行字符的ASCII码之和，并显示在窗体上。请填空。PrivateSubCommand1_Click()DimCh$,asciiAsIntegerOpen"myfile.txt"For[11]As#1WhileNotEOF(l)LineInput#1,chAscii=toascii([12])PrintasciiWendClose#1EndSubPrivateFunctiontoascii(mystr$)AsIntegern=0Fork=lTo[13]n=n+Asc(Mid(mystr,k,1))NextkToascii=nEndFunction(9)本程序实现文本加密。先给定序列：al,a2,…,an,它们的取值范围是「n,且互不相同。加密算法是：把原文本中第k个字符放到加密后文本的第ak个位置处。若原文本长度大于n,则只对前n个字符加密，后面的字符不变；若原文本长度小于n,则在后面补字符“*”使文本长度为n后再加密。例如：若给定序列al,a2,…,a7分别为2,5,3,7,6,1,4当文本为“PROGRAM”时，加密后的文本为“APOMRRG”当文本为“PROGRAMMING”时，加密后的文本为“APOMRRGMING”当文本为“THANK”时，加密后的文本为“*TA*HKN”下面的过程code实现这一算法。其中参数数组a()中存放给定序列(个数与数组a的元素个数相等)al,a2,a3,…的值，要加密的文本放在参数变量mystr中。过程执行完毕，加密后的文本仍放在变量mystr中。请填空。OptionBase1PrivateSubcode(a()AsInteger,mystrAsString)DimchAsString,clAsStringn=UBound(a)-Len(mystr)Ifn>0Thenmystr=mystr&String$(n,)EndIfch=mystrFork=[14]ToUBound(a)

100cl=Mid(mystr,k,1)n=[15]Mid$(ch,n)=clNextkMystr=chEndSub2009年9月全国计算机等级考试二级VB真题一、选择题(1)下列数据结构中,属于非线性结构的是A)循环队列B)带链队列0二叉树D)带链栈(2)下列数据结果中，能够按照“先进后出”原则存取数据的是A）循环队列B）栈0队列D）二叉树（3）对于循环队列，下列叙述中正确的是A）队头指针是固定不变的B）队头指针一定大于队尾指针C）队头指针一定小于队尾指针D）队头指针可以大于队尾指针，也可以小于队尾指针（4）算法的空间复杂度是指A）算法在执行过程中所需要的计算机玄壁空间B）算法所处理的数据量C）算法程序中的语句或指令条数D）算法在执行过程中所需要的临时工作单元数（5）软件设计中划分模块的一个准则是A）低内聚低耦合B）高内聚低耦合C）低内聚高耦合D）高内聚高耦合（6）下列选项中不属于结构化程序设计原则的是

101A）可封装D）自顶向下0模块化D）逐步求精（7）软件详细设计产生的图如下：A）N-S图B）PAD图0程序流程图

102D)E-R图(8)数据库管理系统是A)操作系统的一部分B)在操作系统支持下的系统软件0一种编译系统D)一种操作系统(9)在E-R图中，用来表示实体联系的图形是A)椭圆图B)矩形0菱形D)三角形(10)有三个关系R,S和T如下:ABCd32其中关系T由关系R和S通过某种操作得到，该操作为择影选投交并A)B)C)D)(11)以下变量名中合法的是A)x2-lB)printC)str_nD)2x(12)把数学表达式图1表示为正确的VB表达式应该是A)(5x+3)/(2y-6)B)x*5+3/2*y-6C)(5*x+3)1图2(2*y-6)D)(x*5+3)/(y*2-6)

103(13)下面有关标准模块的叙述中,错误的是A)标准模块不完全由代码组成，还可以有窗体B)标准模块中的Private过程不能被工程中的其他模块调用C)标准模块的文件扩展名为.basD)标准模块中的全局变量可以被工程中的任何模块引用(14)下面控件中，没有Caption属性的是A)复选框B)单选按钮C)组合框D)框架(15)用来设置文字字体是否斜体的属性是A)FontUnderlineB)FontBoldC)FontSlopeD)Fontltalic(16)若看到程序中有以下事件过程，则可以肯定的是，当程序运行时PrivateSubClickMouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Print"VBProgramEndSubA)用鼠标左键单击名称为"Command1"的命令按钮时，执行此过程B)用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程C)用鼠标左键单击名称为“MouseDown”的控件时，执行此过程D)用鼠标左键或右键单击名称为“Click”的控件时，执行此过程(17)可以产生30-50(含30和50)之间的随机整数的表达式是A)Int(Rnd*21+30)B)Int(Rnd*20+30)C)Int(Rnd*50-Rnd*30)D)Int(Rnd*30+50)(18)在程序运行时，下面的叙述中正确的是A)用鼠标右键单击窗体中无控件的部分，会执行窗体的Form_Load事件过程B)用鼠标左键单击窗体的标题栏，会执行窗体的Form_Click事件过程C)只装入而不显示窗体，也会执行窗体的Form_Load事件过程D)装入窗体后，每次显示该窗体时，都会执行窗体的Form_Click事件过程

104(19)窗体上有名称为Commandl的命令按钮和名称为Textl的文本框PrivateSubCommand1_C1ick()Textl.Text="程序设计”Textl.SetFocusEndSubPrivateSubTextlGotFocus()Textl.Text="等级七试”EndSub运行以上程序，单击命令按钮后A)文本框中显示的是“程序设计”，且焦点在文本框中B)文本框中显示的是“等级考试”，且焦点在文本框中C)文本框中显示的是“程序设计”，且焦点在命令按钮上D)文本框中显示的是“等级考试”，且焦点在命令按钮上(20)设窗体上有名称为Optionl的单选按钮，且程序中有语句：IfOptions.Value=TrueThen下面语句中与该语句不等价的是A)IfOption.ValueThenB)IfOptionl=TrueThenC)IfValue=TrueThenD)IfOptionlThen(21)设窗体上有1个水平滚动条，已经通过属性窗口把它的Max属性设置为1,Min属性设置为100o下面叙述正确的是A)程序运行时，若使滚动块向左移动，滚动条的Value属性值就增加B)程序运行时，若使滚动块向左移动，滚动条的Value属性值就减少C)由于滚动条的Max属性值下于Min属性值，程序会出错D)由于滚动条的Max属性值下于Min属性值，程序运行时滚动条的长度会缩为一点,滚动块无法移动(22)有如下过程代码：SubvardimOStaticnumaAsIntegerDimnumbAsIntegernuma=numa+2numb=numb+lprintnuma;numbEndSub连续3次调用vajdim过程，第3次调用时的输出是A)21B)23C)61D)63(23)在窗体上画1个命令按钮，并编写如下事件过程:PrivateSubCommandlClick()Fori=5to1step-0.8PrintInt(i);NextiEndSub运行程序，单击命令按钮，窗体上显示的内容为A)543211B)54321

105043211D)443211(24)在窗体上画1个命令按钮，并编写如下事件过程：PrivateSubCommandlClick()Dima(3,3)Form=lTo3Forn=lTo3Ifn=mOrn=4-mThena(m,n)=0EndIfPrinta(m,n);NextnPrintNextmEndSub运行程序，单击命令按钮，窗体上显示的内容为A)200040006B)2040404060230340006D)200045056(25)设有以下函数过程Functionfun(aAsInteger,bAsInteger)DimcAsIntegerIfa

106A)a除以b的商的整数部分(26)窗体上有1个名称为Textl的文本框；1个名为Timerl的计时器控件，其Interval属性值为5000,Enable属性值是True。Timerl的事件过程如下：PrivateSubTimerl_Timer()StaticflagAsIntegerIfflag=0Thenflag=lflag=-flagIfflag=lThenTextl.ForeColor=&HFF&'&HFF&为红色ElseTextl.ForeColor=&HC000&'&HC000&为绿色EndIfEndSub以下叙述正确的是A)每次执行些事件过程时，flag的初始值为0B)flag的值只可能取0或1C)程序执行后，文本框的文字每5秒改变一次颜色D)程序有逻辑错误，Else分支总也不能被执行(27)为计算1+2+22+23+24+…+210的值，并把结果显示在文本框Textl中，若编写如下事件过程：PrivateSubCommand1_C1ick()Dima%,s%,k%S=1a=2Fork=2To10a=a*2s=s+aNextkTextl.Text=sEndSub执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是A)把s=l改为s=0B)把Fork=2To10改为Fork=lTo10C)交换语句s=s+句口a=a*2的顺序D)同时进行B)、C)两种修改(28)标准模块中有如下程序代码:PublicxAsInteger,yAsIntegerSubvarpub()x=10:y=20EndSub在窗体上有1个命令按钮，并有如下事件过程：PrivateSubCommandlClickODimxAsIntegerCallvar_pub

107x=x+100y=y+100Printx;yEndSub运行程序后单击命令按钮，窗体上显示的是A)100100B)100120C)110100D)110120(29)设a、b都是自然数，为求a除以b的余数，某人编写了以下函数：Functionfun(aAsInteger,bAsInteger)Whilea>ba=a-bWendfun=aEndFunction在调试时发现函数是错误的。为使函数能产生正确的返回值，应做的修改是A)把2=2-1)改为a=b-aB)把@=2-13改为a=a\bC)把Whilea>b改为Whileab改为Whilea>=b(30)下列关于通用对话框CommonDialogl的叙述中，错误的是A)只要在“打开”对话框中选择了文件，并单击“打开”按钮，就可以将选中的文件打开B)使用CommonDialogl.ShowColor方法，可以显示"颜色”对话框C)CancelError属性用于控制用户单击“取消”按钮关闭对话框时，是否显示出错误警告D)在显示"字体"对话框前，必须先设置CommonDialogl的flags属性，否则会出错(31)在利用菜单编辑器设计菜单时，为了把组合键“Alt+X”设置为“退出(X)”菜单项的访问键，可以将该菜单项的标题设置为A)退出(X&)B)退出(&X)C)退出(X#)D)退出(#X)(32)在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Textl,再编写如下程序：DimssAsStringPrivateSubTextlKeyPress(KeyAsciiAsinteger)Ifchr(KeyAscii)<>wvThenss=ss+chr(KeyAscii)EndSub

108PrivateSubCommand1_C1ick()DimmAsString,iAsIntegerFori=Len(ss)To1step-1m=m+Mid(ss,i,1)NextTextl.Text=Ucase(m)EndSub程序运行后，在文本框中输入“NumberlOO”，并单击命令按钮，则文本框中显示的是A)NUMBER100B)REBMUNC)REBMUN100D)001REBMUN(33)窗体的左右两端各有1条直线，名称分别为Linel、Line2；名称为Shapel的圆靠在左边的Linel直线上(见图)；另有1个名称为Timerl的计时器控件，其Enable属性值是True。要求程序运行后，圆每秒向右移动100,当圆遇到Line2时则停止移动。为实现上述功能，某人把计时器的Interval属性设置为1000,并编写了如下程序：PrivateSubTimerl_Timer（）Fork=Linel.XIToLine2.XIStep100IfShapel.Left+Shapel.Width

109D）把IfShapel.Left+Shapel.Width

110个结点。（2）程序流程图中的菱形框表示的是【2】o（3）软件开发过程主要分为需求分析、设计、编码与测试四个阶段，其中【3】阶段产生“软件需求规格说明书”。

111（4）在数据库技术中，实体集之间的联系可以是一对一或一对多或多对多的，那么“学生”和“可选课程”的联系为【4】o（5）人员基本信息一般包括：身份证号，姓名，性别，年龄等。其中可以作为主关键字的是【5】o（6）工程中有Forml、Form2两个窗体。Forml窗体外观如图1所示。程序运行时，在Forml中名称为Textl的文本框中输入一个数值（圆的半径），然后单击命令按钮“计算并显示”（其名称为Commandl）,则显示Form2窗体，且根据输入的圆的半径计算圆的面积，并在Form2的窗体上显示出来，如图2所示。如果单击命令按钮时，文本框中输入的不是数值，则用信息框显示“请输入数值数据！”请填空。图1图2PrivateSubCommandlClickOIfTextl.Text=""ThenMsgBox"请输入半径！”ElseIfNotIsNumeric([6])ThenMsgBox”请输入数值数据！”Elser=val([7])Form2.show[8].Print“圆的面积是"&3.14*r*rEndIfEndSub(7)设有整形变量s,取值范围为0~100,表示学生的成绩。有如下程序段:Ifs>=90ThenLevel="A"ElseIfs>=75ThenLevel="B"ElseIfs>=60ThenLevel="B”ElseLevel="D”EndIf下面用SelectCase结构改写上述程序，使两段程序所实现的功能完全相同。请填空。SelectCasesCase[9]>=90Level="A"Case75To89Level="B”Case60To74Level="B"Case[10]Level="D”[111(8)窗体上有名称为Commandl的命令按钮。事件过程及2个函数过程如下：PrivateSubCommand1_C1ick()DimxAsInteger,yAsInteger,zx=3y=5z=fy(y)printfx(fx(x)),yEndSub

112Functionfx(ByBalaAsInteger)a=a+afx=aEndFunctionFunctionfy(ByRefaAsInteger)a=a+afy=aEndFunction运行程序，并单击命令按钮，则窗体上显示的2个值依次是[12]和[13]o(9)窗体上有名称为Commandl的命令按钮及名称为Textl、能显示多行文本的文本框。程序运行后，如果单击命令按钮，则可打开磁盘文件c:\test.txt,并将文件中的内容(多行文本)显示在文本框中。下面是实现此功能的程序，请填空。PrivateSubCommandlClickOTextl="”Number=FreeFileOpen"c:\test.txt“ForInputAsNumberDoWhileNotEof（[14]）LineInput#Number,sTextl.Text=Textl.Text+[15]+Chr（13）+Chr（10）LoopCloseNumberEndSub2010年3月一、选择题（每小题2分，共70分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。（1）下列叙述中正确的是A）对长度为n的有序链表进行查找，最坏情况下需要的比较次数为nB）对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为（n/2）C）对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为（log2n）D）对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为（nlog2n）（2）算法的时间复杂度是指A）算法的执行时间B）算法所处理的数据量0算法程序中的语句或指令条数D）算法在执行过程中所需要的基本运算次数（3）软件按功能可以分为：应用软件、系统软件和支撑软件（或工具软件）。下面属于系统软件的是A）编辑软件B）操作系统C）教务管理系统D）浏览器（4）软件（程序）调试的任务是

113A）诊断和改正程序中的错误B）尽可能多地发现程序中的错误0发现并改正程序中的所有错误D）确定程序中错误的性质（5）数据流程图（DFD图）是A）软件概要设计的工具B）软件详细设计的工具C）结构化方法的需求分析工具D）面向对象方法的需求分析工具（6）软件生命周期可分为定义阶段，开发阶段和维护阶段。详细设计属于A）定义阶段B)开发阶段0维护阶段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集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个

114按钮是(12)设x是整型变量，与函数IIf(x>0,-x,x)有相同结果的代数式是A)|x|B)-1x|C)xD)-x(13)设窗体文件中有下面的事件过程：PrivateSubCommandlClick()Dimsa%=100PrintaEndSub其中变量a和s的数据类型分别是A)整型，整型B)变体型，变体型C)整型，变体型D)变体型，整型(14)下面哪个属性肯定不是框架控件的属性A)TextB)CaptionOLeftD)Enabled(15)下面不能在信息框中输出“VB”的是A)MsgBox"VB"B)x=MsgBox("VB")OMsgBox("VB")D)CallMsgBox"VB"(16)窗体上有一个名称为Optionl的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程PrivateSubOptionl_Click(IndexAsInteger)・・・EndSub下面关于此过程的参数Index的叙述中正确的是A)Index为1表示单选按钮被选中，为。表示未选中B)Index的值可正可负C)Index的值用来区分哪个单选按钮被选中D)Index表示数组中单选按钮的数量(17)设窗体中有一个文本框Textl,若在程序中执行了Textl.SetFocus,则触发A)Textl的SetFocus事件B)Textl的GotFocus事件C)Textl的LostFocus事件

115D)窗体的GotFocus事件(18)VB中有3个键盘事件：KeyPress、KeyDown、KeyUp,若光标在Textl文本框中，则每输入一个字母A)这3个事件都会触发B)只触发KeyPress事件C)只触发KeyDown^KeyUp事件D)不触发其中任何一个事件(19)下面关于标准模块的叙述中错误的是A)标准模块中可以声明全局变量B)标准模块中可以包含一个SubMain过程，但此过程不能被设置为启动过程C)标准模块中可以包含一些Public过程D)一个工程中可以含有多个标准模块(20)设窗体的名称为Forml,标题为Win,则窗体的MouseDown事件过程的过程名是A)FormlMouseDownB)WinMouseDownC)FormMouseDownD)MouseDownForml(21)下面正版使用动态数组的是A)Dimarr()AsIntegerReDimarr(3,5)B)Dimarr()AsIntegerReDimarr(50)AsStringC)Dimarr()ReDimarr(50)AsIntegerD)Dimarr(50)AsInteger•••ReDimarr(20)(22)下面是求最大公约数的函数的首部Functiongcd(ByVaixAsInteger,ByVaiyAsInteger)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)AsInteger

116Fori=lTo3Forj=lTo5A(i,j)=i+jPrinta(i,j);NextPrintNext若要按图2所示的规律继续输出数据，则接在上述程序段后面的程序段应该是A)Fori=lTo5Forj=lTo3Printa(j,i);NextPrintNextB)Fori=lTo3Forj=lTo5Printa(j,i);NextPrintNextC)Forj=lTo5Fori=lTo3Printa(j,i);NextPrintNextD)Fori=lTo5Forj=lTo3Printa(i,j);NextPrintNext(24)窗体上有一个Textl文本框，一个Command1命令按钮，并有以下程序PrivateSubCommandlClickODimnIfTextl.Text<>，，23456/，Thenn=n+l

117Print〃口令输入错误〃&n&〃次"EndIfEndSub希望程序运行时得到左图所示的效果，即：输入口令，单击“确认口令”命令按钮,若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是A)在Dimn语句的下面添加一句：n=0B)把Print〃口令输入错误〃&n&〃次”改为Print〃口令输入错误"+n+”次〃C)把Print〃口令输入错误〃&n&〃次"改为Print〃口令输入错误"&Str(n)&"次〃D)把Dimn改为Staticn(25)要求当鼠标在图片框Pl中移动时一，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是A)PrivateSubPlMouseMove(ButtonASInteger,ShiftAsInteger,XAsSingle,YAsSingle)PrintX,YEndSubB)PrivateSubPl_MouseDown(ButtonASInteger,ShiftAsInteger,XAsSingle,YAsSingle)Picture.PrintX,YEndSubC)PrivateSubPIMouseMove(ButtonASInteger,ShiftAsInteger,XAsSingle,YAsSingle)Pl.PrintX,YEndSubD)PrivateSubFormMouseMove(ButtonASInteger,ShiftAsInteger,XAsSingle,YAsSingle)Pl.PrintX,YEndSub(26)计算二的近似值的一个公式是。某人编写下面的程序用此公式计算并输出”的近似值：PrivateSubComandlClick()PI=1Signaln=20000Fork=3TonSign=-Sign/kPI=PI+Sign/kNextkPrintPI*4EndSub运行后发现结果为3.22751,显然，程序需要修改。下面修改方案中正确的是A)把Fork=3Ton改为Fork=lTonB)把n=20000改为n=20000000

118C)把Fork=3Ton改为Fork=3TonStep2D)把PI=1改为PI=0(27)下面程序计算并输出的是PrivateSubComandl_Click()a=10s=0Dos=s+a*a*aa=a-lLoopUntila<=0PrintsEndSubA)13+23+33+-+103的值B)10!+…+3!+2!+l!的值C)(1+2+3+…+10)3的值A)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,希望在执行下面程序时，打开如图所示的文件对话框PrivateSubComandlClick()CD1.DialogTitle="打开文件”CD1.InitDir="C:\"CD1.Filter="所有文件I*.*|Word文档|*.doc|文本文件I*.Txt”CDl.FileName=，，，/CD1.Action=lIfCD1.FileName=""ThenPrint”未打开文件”ElsePrint”要打开文件“&CD1.FileName

119EndIfEndSub但实际显示的对话框中列出了C:\下的所有文件和文件夹，“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是A)把CD1.Action=l改为CD1.Action=2B)把“CDLFilter="后面字符串中的“所有文件”改为“文本文件”C)在语句CD1.Action=l的前面添加：CD1.Filterlndex=3D)把CDLFileName=""改为CD1.FileName="文本文件”(30)下面程序运行时，若输入395,则输出结果是PrivateSubComandlClick()Dimx%x=InputBox("请输入一个3位整数”)PrintxMod10,x\100,(xMod100)\10EndSubA)395B)5390593D)359(31)窗体上有Listl、List2两个列表框，Listl中有若干列表项(见图)，并有下面的程序：PrivateSubComandlClick()Fork=Listl.ListCount_1To0Step-1IfListl.Selected(k)ThenList2.AdditemListl.List(k)Listl.RemoveitemkEndIfNextkEndSub程序运行时，按照图示在Listl中选中2个列表项，然后单击Commandl命令按钮，则产生的结果是A)在List2中插入了“外语”、“物理”两项B)在Listl中删除了“外语”、“物理”两项C)同时产生A)和B)的结果D)把Listl中最后1个列表项删除并插入到List2中(32)设工程中有2个窗体：Forml.Form2,Forml为启动窗体。Form2中有菜单。其结构如表。要求在程序运行时，在Forml的文本框Textl中输入口令并按回车键(回车键的ASCH码为13)后，隐藏Forml,显示Form2。若口令为“Teacher”，所有菜单项都可见;否则看不到“成绩录入”菜单项。为此，某人在Forml窗体文件中编写如下程序：PrivateSubTextlKeyPress(KeyAsciiAsInteger)

120IfKeyAscii=13ThenIfTextl.Text=/，Teacher，/ThenForm2.input.visible=TrueElseForm2.input.visible=FalseEndIfEndIfForml.HideForm2.ShowEndSub程序运行时发现刚输入口令时就隐藏了Forml,显示了Form2,程序需要修改。下面修改方案中正确的是A)把Forml中Textl文本框及相关程序放到Form2窗体中B)把Forml.Hide、Form2.Show两行移到2个EndIf之间C)把IfKeyAscii=13Then改为IfKeyAscii="Teaeher"ThenD)把2个Form2.input.Visible中的“Form2”删去(33)某人编写了下面的程序，希望能把Textl文本框中的内容写到out.txt文件中PrivateSubComandlClick()Open"out.txt"ForOutputAs#2Print"Textl”Close#2EndSub调试时发现没有达到目的，为实现上述目的，应做的修改是A)把Print"Textl”改为Print#2,TextlB)把Print"Textl”改为PrintTextlC)把Print"Textl”改为Write"Textl”D)把所有#2改为#1(34)窗体上有一个名为Commandl的命令按钮，并有下面的程序：PrivateSubComandlClick()Dimarr(5)AsIntegerFork=lTo5arr(k)=kNextkprogarr()Fork=lTo5Printarr(k)NextkEndSubSubprog(a()AsInteger)n=Ubound(a)Fori=nTo2step-1Forj=lTon-1ifa(j)t=a(j):a(j)=a(j+l):a(j+l)=tEndIfNextjNextiEndSub程序运行时，单击命令按钮后显示的是A)12345B)54321001234D)43210(35)下面程序运行时，若输入"VisualBasicProgramming,则在窗体上输出的是PrivateSubComandl_Click()Dimcount(25)AsInteger,chAsStringch=Ucase(InputBox("请输入字母字符串"))Fork=lToLen(ch)n=Asc(Mid(ch,k,1))-Asc("A")Ifn>=0ThenCount(n)=Count(n)+1EndIfNextkm=count(0)Fork=lTo25Ifmm=count(k)EndIfNextkPrintmEndSubA)0B)102D)3二、填空题(1)一个队列的初始状态为空。现将元素A,B,C,D,E,F,5,4,3,2,1依次入队，然后再依次退队，则元素退队的顺序为【1】o(2)设某循环队列的容量为50,如果头指针front=45(指向队头元素的前一位置)，尾指针rear=10(指向队尾元素)，则该循环队列中共有12】个元素。(3)设二叉树如下：对该二叉树进行后序遍历的结果为【3】o

121(4)软件是【4】、数据和文档的集合。(5)有一个学生选课的关系，其中学生的关系模式为：学生(学号，姓名，班级，年龄)，课程的关系模式为：课程(课号，课程名，学时)，其中两个关系模式的键分别是学号和课号，则关系模式选课可定义为：选课(学号，【5】，成绩)。(6)为了使复选框禁用(即呈现灰色)，应把它的Value属性设置为【6】。(7)在窗体上画一个标签、一个计时器和一个命令按钮，其名称分别为LablKTimerl和Commands如图1所示。程序运行后，如果单击命令按钮，则标签开始闪烁，每秒钟“欢迎”二字显示、消失各一次，如图2所示。以下是实现上述功能的程序，请填空。PrivateSubFormLoad()Label1.Caption="欢迎"Timerl.Enabled=FaIseTimerl.Interval=[7]EndSubPrivateSubTimerITimer()Labell.Visible=[8]EndSubPrivateSubcommandlClick()[9]EndSub(8)有如下程序：PrivateSubFormClick()n=10i=0Doi=i+nn=n-2LoopWhilen>2PrintiEndSub程序运行后，单击窗体，输出结果为[10]O(9)在窗体上画一个名称为Command1的命令按钮。然后编写如下程序：OptionBase1PrivateSubCommandlClick()Dima(10)AsIntegerFori=lTo10a(i)=iNextCallswap([11])

122Fori=lTo10Printa(i);NextEndSubSubswap(b()AsInteger)n=Ubound(b)Fori=lTon/2t=b⑴b(i)=b(n)b(n)=t[12]NextEndSub上述程序的功能是,通过调用过程swap,调换数组中数值的存放位置，即a(l)与a(10)的值互换，a(2)与a(9)的值互换，……。请填空。(10)在窗体上画一个文本框，其名称为Textl,在属性窗口中把该文本框的MultiLine属性设置为True,然后编写如下的事件过程：PrivateSubFormClickOOpen"d:\test\smtextl.Txt"ForInputAs#1DoWhileNot[13]LineInput#1,aspect$Whole$=whole$+aspect$+Chr$(13)+Chr$(10)LoopTextl.Text=whole$[14]Open"d:\test\smtext2.Txt"ForOutputAs#1Print#1,[15]Close#1EndSub运行程序，单击窗体，将把磁盘文件smtextl.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。2010年9月计算机二级VB笔试试题：文字版一、选择题(每小题2分，共70分)下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。(1)下列叙述中正确的是A)线性表的链式存储结构与顺序存储结构所需要的存储空间是相同的B）线性表的链式存储结构所需要的存储空间一般要多于顺序存储结构C）线性表的链式存储结构所需要的存储空间一般要少于顺序存储结构D）上述三种说法都不对（2）下列叙述中正确的是A）在栈中，栈中元素随栈底指针与栈顶指针的变化而动态变化B）在栈中，栈顶指针不变，栈中元素随栈底指针的变化而动态变化

123C）在栈中，栈底指针不变，栈中元素随栈顶指针的变化而动态变化D）上述三种说法都不对（3）软件测试的目的是A）评估软件可靠性B）发现并改正程序中的错误C）改正程序中的错误D）发现程序中的错误（4）下面描述中，不属于软件危机表现的是A）软件过程不规范B）软件开发生产率低C）软件质量难以控制D）软件成本不断提高（5）软件生命周期是指A）软件产品从提出、实现、使用维护到停止使用退役的过程B）软件从需求分析、设计、实现到测试完成的过程C）软件的开发过程D）软件的运行维护过程（6）面向对象方法中，继承是指A）一组对象所具有的相似性质B）一个对象具有另一个对象的性质C）各对象之间的共同性质D）类之间共享属性和操作的机制（7）层次型、网状型和关系型数据库划分原则是A）记录长度B）文件的大小C）联系的复杂程度D）数据之间的联系方式（8）一个工作人员可以使用多台计算机，而一台计算机可被多个人使用，则实体工作人员、与实体计算机之间的联系是A）一■对一B）一对多C）多对多D）多对一

124(9)数据库设计中反映用户对数据要求的模式是A)内模式B)概念模式C)外模式D)设计模式(10)有三个关系R、S和T如下：则由关系R和S得到关系T的操作是A)自然连接交投并\JZ\>zx—7BCD(11)在VisualBasic集成环境中，要添加一个窗体，可以单击工具栏上的一个按钮，这个按钮是A)匕B)的C)霓D)甯(12)在VisualBasic集成环境的设计模式下，用鼠标双击窗体上的某个控件打开的窗口是A)工程资源管理器窗口B)属性窗口C)工具箱窗口D)代码窗口(13)下列叙述中错误的是A)列表框与组合框都有List属性B)列表框有Selected属性，而组合框没有C)列表框和组合框都有Style属性D)组合框有Text属性、而列表框没有(14)设窗体上有一个命令按钮数组，能够区分数组中各个按钮的属性是A)NameB)IndexC)CaptionD)Left(15)滚动条可以响应的事件是A)LoadB)Scrol1C)ClickD)MouseDown(16)设a=5,b=6,c=7,d=8,执行语句X=Hf((a>b)And(c>d),10,20)后，x的值是A)10B)20C)30D)200(17)语句PrintSgn(-6⑵+Abs(-6⑵+Int(-6⑵的输出结果是A)-36B)1C)-1D)-72

125(18)在窗体上画一个图片框，在图片框中画一个命令按钮，位置如图所示。则命令按钮的Top属性值是A)200B)300C)500D)700(19)在窗体上画一个名称为Command1的命令按钮。单击命令按钮时执行如下事件过程：PrivateSubCommand1Click()a$="softwareandhardware”b$=Right(a$,8)c$=Mid(a$,1,8)MsgBoxa$,,b$,c$,1EndSub则在弹出的信息框标题栏中显示的标题是A)softwareandhardwareB)hardwareC)softwareD)1(20)在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运行后，如果在文本框中输入文本，则标签中立即显示相同的内容。以下可以实现上述操作的事件过程是A)PrivateSubTextlChange()Label1.Caption=Textl.TextEndSubB)PrivateSubLabelIChange()Label1.Caption=Textl.TextEndSubC)PrivateSubTextlClick()Label1.Caption=Textl.TextEndSubD)PrivateSubLabel1_Click()Label1.Caption=Textl.TextEndSub(21)以下说法中错误的是A)如果把一个命令按钮的Default属性设置为True,则按回车键与单击该命令按钮的作用相同B）可以用多个命令按钮组成命令按钮数组C）命令按钮只能识别单击（Click）事件D）通过设置命令按钮的Enabled属性，可以使该命令按钮有效或禁用（22）以下关于局部变量的叙述中错误的是A）在过程中用Dim语句或Static语句声明的变量是局部变量B）局部变量的作用域是它所在的过程C）在过程中用Static语句声明的变量是静态局部变量D）过程执行完毕，该过程中用Dim或Static语句声明的变量即被释放（23）以下程序段的输出结果是x=Iy=4DoUntily>4x=x*yY=y+ILoop

126PrintxA）1B）4C）8D）20（24）如果执行一个语句后弹出如图所示的窗口，则这个语句是A）InputBox（“输入框”,“请输入VB数据”）B）x=InputBox（"输入框"，"请输入VB数据”）C）InputBox（"请输入VB数据"，“输入框”）D）x-InputBox（"请输入VB数据"，“输入框”）（25）有如下事件过程：PrivateSubFormClick（）DimnAsIntegerx=0n=InputBox（"请输入一个整数”）Fori=lTonForj=lToix=x+INextjNextiPrintxEndSub程序运行后，单击窗体，女口果在输入对话框中输入：，则在窗体上显示的内容是A)13B)14C)15D)16(26)请阅读程序：SubsubP(b()AsInteger)Fori=lTo4b(i)=2*iNextiEndSubPrivateSubCommand1Click()Dima(1To4)AsIntegerA(1)=5：a(2)=6：a(3)=7：a(4)=8subPa()Fori=lTo4Printa(i)NextiEndSub运行上面的程序，单击命令按钮，则输出结果是A)2B)5C)10D)出错461267148816(27)Fibonacci数列的规律是：前2个数为1,从第3个数开始，每个数是它前2个数之和，BP：1,1,2,3,5,8,13,21,34,55,89,…。某人编写了下面的函数，判断大于1的整数x是否是Fibonacci数列中的某个数，若是,则返回True,否则返回False。FunctionIsfab(xAsInteger)AsBooleanDimaAsInteger,bAsInteger,cAsInteger,flagAsBooleanflag=Falsea=l：b=IDoWhilex

127EndFunction测试时发现对于所有正整数x,函数都返回False,程序需要修改。下面的修改方案中正确的是A)把a=b与b=c的位置互换B)把c=a+b移到b=c之后C)把DoWhilexVb改为DoWhilex>bD)把ifx=bThenflag=True改为Ifx=aThenflag=True(28)在窗体上画一个命令按钮，其名称为Commandl,然后编写如下事件过程：PrivateSubCommandlClick()Dima$,b$,c$,k%a="ABCD”b="123456”〃〃c=k=lDoWhilekV=Len(a)OrkV=Len(b)IfkV=Len(a)Thenc=c&Mid(a,k,1)EndIfIfkV=Len(b)Thenc=c&Mid(b,k,1)EndIfk=k+lLoopPrintcEndSub运行程序，单击命令按钮，输出结果是A)123456ABCDB)ABCD123456C)D6C5B4A321D)A1B2C3D456(29)请阅读程序：PrivateSubForm_Click()m=lFori=4To1Step-1PrintStr(m)；m=m+lForj=lToiPrint"*"；NextjPrintNextiEndSub程序运行后，单击窗体，则输出结果是A)1****B)4****C)****D)*2***3********3**2*******4*1******(30)在窗体上画一个命令按钮(其名称为Command])，然后编写如下代码:PrivateSubCommandl_Click()Dimaa=Array(1,2,3,4)1=3：j=lDoWhilei>=0s=s+a(i)*ji=i-lj=j*10oLoopPrintsEndSub运行上面的程序，单击命令按钮，则输出结果是A)4321B)123C)234D)1234(31)下列可以打开随机文件的语句是A)Open"file1.dat"Forlnpu，tAs#1B)Open"file1.dat"ForAppendAs#1C)Open"filel.dat"ForOutputAs#1D)Open"filel.dat"ForRandomAs#1Len=20（32）有弹出式菜单的结构如下表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是

128A)PrivateSubFormClick()PopupMenucutEndSubB)PrivateSubCommand1Click()PopupMenueditEndSubC)PrivateSubForm_Click()PopupMenueditEndSubEndSubD)PrivateSubFormlick()PopupMenucutPopupMenupaste(33)请阅读程序：OptionBaseIPrivateSubForm_Click()DimArr(4,4)AsIntegerFori=lTo4Forj=ITo4Arr(i,j)=(i-1)*2+jNextjNextiFori=3To4Forj=3To4PrintArr(j,i);NextjPrintNextiEndSub程序运行后，单击窗体，则输出结果是A)57B)68079D)8106879810811(34)一下面函数的功能应该是：删除字符串str中所有与变量ch相同的字符，并返回删除后的结果。例如：若str="ABCDABCD",返="B",则函数的返回值为："ACDACD”Functiondelchar(strAsString,chAsString)AsStringDimkAsInteger,tempAsString,retAsStringret=Fork=lToLen(str)temp=Mid(str,k,1)Iftemp=chThenret=ret&tempEndIfNextkdelchar=retEndFunction但实际上函数有错误，需要修改。下面的修改方案中正确的是A)把ret=ret&temp改为ret=tempB)把Iftemp=chThen改为Iftemp<>chThenC)把delchar=ret改为delchar=tempD)把ret改为temp=""(35)在窗体上画一个命令按钮和两个文本框，其名称分别为Commandl、TextI和Text2,在属性窗口中把窗体的KeyPreview属性设置为True,然后编写如下程序：

129DimSIAsString,S2AsStringPrivateSubFormLoad()Text1.Text="”Text2.Text="”Text1.Enabled=FalseText2.Enabled=FalseEndSubPrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)S2=S2&Chr(KeyCode)EndSubPrivateSubForin_KeyPress(KeyAsciiAsInteger)S1=S1&Chr(KeyAscii)EndSubPrivateSubCommand1ClickText1.Text=SlText2.Text=S2Sl=""S2="”EndSub程序运行后，先后按“a”、"b”、“c”键，然后单击命令按钮，在文本框Textl和Text2中显示的内容分别为A)abc和ABCB)空白C)ABC和abcD)出错二、填空题(每空2分，共30分)请将每空的正确答案写在答题卡【1】至【15】序号的横线上，答在试卷上不得分。（1）一个栈的初始状态为空。首先将元素5,4,3,2,1依次入栈，然后退栈一次,再将元素A,B,C,D依次入栈，之后将所有元素全部退栈，则所有元素退栈（包括中间退栈的元素）的顺序为—【1】（2）在长度为n的线性表中，寻找最大项至少需要比较—[2]—次。（3）一棵二叉树有10个度为1的结点，7个度为2的结点，则该二叉树共有_【3】个结点。（4）仅由顺序、选择（分支）和重复（循环）结构构成的程序是—【4】—程序。

130（5）数据库设计的四个阶段是：需求分析，概念设计，逻辑设计和一【5】（6）窗体上有一个名称为Combo1的组合框，其初始内容为空，有一个名称为Commandk标题为“添加项目”的命令按钮。程序运行后，如果单击命令按钮，会将给定数组中的项目添加到组合框中，如图所示。请填空。OptionBase1PrivateSubCommand1Click（DimcityAsVariantcity—【6】_（〃北京〃，〃天津“，〃上海"，〃武汉"重庆"西宁"）Fori=_[7]_ToUBound（citv）Combo1.Addltem_[8]_NextEndSub（7）窗体上有一个名称为Text1的文本框和一个名称为Command1、标题为“计算”的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。PrivateSubCommand1_Click()DimxAsIntegerx=Val(InputBOX("输入数据”))Textl=Str(fun(x)+fun(x)+fun(x))EndSubPrivateFunctionfun(ByRefnAsInteger)IfnMod3=0Thenn=n+nElsen=n*nEndIf_[9]_=nEndFunction当单击命令按钮，在输入对话框中输入2时，文本框中显示的是—【10】(8)窗体上有一个名称为Listl的列表框，一个名称为Picture1的图片框。Form_Load事件过程的作用是，把DataLtxt文件中的物品名称添加到列表框中。运行程序，当双击列表框中的物品名称时，可以把该物品对应的图片显示在图片框中如图所示。以下是类型定义及程序，请填空。

131PrivateTypePicgNameAsString*10，物品名称picFileAsString*20'物品图片的图片文件名EndTypeDimp(4)AsPic,pRecAsPicPrivateSubFormLoad()Open"Datal.txt"ForRandomAs#1_[11]_=Len(pRec)Fori=0To4Get#l,i+1,P(i)LIStl.Additemp(i).gNaineNextiClose#1EndSubPrivateSubListI-DbICIickOFori=0To4IfRTrim(List-List(i))=RTrim(_[12]_)ThenPicture1.,Picture=LoadPicture(p(i)._[13]_)ExitForEndIfNextEndSub(9)窗体上有一个名称为CD1的通用对话框。通过菜单编辑器建立如图1所示的菜单。程序运行时，如果单击“打开”菜单项，则执行打开文件的操作，当选定了文件(例如：G:\VB\2010-9\in.txt)并打开后，该文件的文件名会被添加到菜单中，如图2所示。各菜单项的名称和标题等定义如下表。

132DimmnuCounterAsIntegerPrivateSubtnnu0pen_Click()CDI.ShowOpenIfCDI.Fi1eName<>，z"ThenOpen[14]ForInputAs#1mnuCounter=mnuCounter+lLoadFName(mnuCounter)FName(mnuCounter).Caption=CDI.FileNameFName(mnuCounter)._[15]_=TrueClose#1EndIfEndSub2011年3月全国计算机二级VB考试真题一、选择题(每小题2分，共70分)下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。(1)下列叙述中正确的是

133A）对长度为n的有序链表进行查找，最坏情况下需要的比较次数为nB）对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为（n/2）C）对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为Uog2n）D）对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为（nlog2n）（2）算法的时间复杂度是指A）算法的执行时间B）算法所处理的数据量C）算法程序中的语司或指令条数⑶软件按功能可以分为：应用软件、软件的是A）编辑软件B）操作系统（4）软件（程序）调试的任务是A）诊断和改正程序中的错误C）发现并改正程序中的所有错误⑸数据流程图（DFD图）是A）软件概要设计的工具0结构化方法的需求分析工具D）算法在执行过程中所需要的基本运算次数系统软件和支撑软件（或工具软件）。下面属于系统C）教务管理系统D）浏览器B）尽可能多地发现程序中的错误D）确定程序中错误的性质B）软件详细设计的工具D）面向对象方法的需求分析工具（6）软件生命周期可分为定义阶段，开发阶段和维护阶段。详细设计属于A）定义阶段B）开发阶段C）维护阶段D）上述三个阶段（7）数据库管理系统中负责数据模式定义的语言是A）数据定义语言B）数据管理语言C）数据操纵语言D）数据控制语言（8）在学生管理的关系数据库中，存取一个学生信息的数据单位是A）文件B）数据库C）字段D）记录（9）数据库设计中，用E-R图来描述信息结构但不涉及信息在计算机中的表示，它属于数据库设计的A）需求分析阶段B）逻辑设计一阶段C）概念设计阶段D）物理设计阶段则由关系R（10）有两个关系R和T如下：A）选择B）投影C）交D）并（11）在VisualBasic集成环境中，可以列出工程中所有模块名称的窗口是—（A）工程资源管理器（B）窗体设计窗口

134（C）属性窗口（D）代码窗口（12）假定编写了如下4个窗体事件的事件过程，则运行应用程序并显示窗体后，已经执行的事件过程是一(A)Load(B)Click(C)LostFocus(D)KeyPress(13)为了使标签具有〃透明〃的显示效果，需要设置的属性是—(A)Caption(B)Alignment(C)BackStyle(D)AutoSize(14)下面可以产生20—30(含20和30)的随机整数的表达式是—(A)Int(Rnd*10+20)(B)Int(Rnd*ll+20)(C)Int(Rnd*20+30)(D)Int(Rnd*30+20)(15)设窗体上有一个名称为HS1的水平滚动条，如果执行了语句:HS1.Value-(HS1.Max*HSl.Min)/2+HSl.Min则：(A)滚动块处于最左端(B)滚动块处于最右端(C)滚动块处于中间位置(D)滚动块处于任何位置(16)窗体上有一个名称为Cbl的组合框，程序运行后，为了输出选中的列表项，应使用的语句是A)PrintCbl.SelectedB)PrintCbl.List(Cbl.Listindex)C)PrintCbl.Selected.TextD)PrintCbl.List(Listindex)(17)为了在窗体上建立2组单选按钮，并且当程序运行时，每组都可以有一个单选按钮被选中，则以下做法中正确的是A)把这2组单选按钮设置为名称不同的2个控件数组B)使2组单选按钮的Index属性分别相同C)使2组单选按钮的名称分别相同D)把2组单选按钮分别画到2个不同的框架中(18)如果一个直线控件在窗体上呈现为一条垂直线,则可以确定的是A)它的Yl、Y2属性的值相同B)它的XI、X2属性的值相等C)它的XI、Y1属性的值分别与X2、Y2属性的值相等D)它的XI、X2属性的值分别与Yl、Y2属性的值相等(19)设a=2,b=3,c=4,d=5,则下面语句的输出是Print3>2*bOra=cAndbOcorc>dA)FalseB)1C)TrueD)-l(20)窗体Forml上有一个名称为Command1的命令按钮，以下对应窗体单击事件的事件过程是—A)PrintSubFormIClick()EndSubB)PrintSubForm_Click()

135EndSubC)PrintSubCommandlClickOEndSubD)PrintSubCommandClickOEndSub(21)默认情况下,下面声明的数组的元素个数是—Dima(5,-2to2)A)20B)24C)25D)30(22)设有如下程序段Dima(10)ForEachxInaprintx：nextx在上面的程序段中，变量x必须是A)整型变量B)变体型变量C)动态数组D)静态数组(23)设有如下函数过程PrivateFunctionFun(a()asInteer,basstring)asIntegerEndFunction若已有变量声明：Dimx(5)asinteger,nasinteger,chasstring则下面正确的过程调用语句是—A)x(0)=Fun(x,"ch")B)n=Fun(n,ch)C)CallFunx,"ch"D)n=Fun(x(5),ch)(24)假定用下面的语句打开文件：Open"File.txt"ForInputAs#1则不能正确读文件的语句是A)Input#1,Ch$B)LineInput#1,ch$C)ch$=Input$(5,#1)D)Read#1,ch$(25)下面程序的执行结果是PrivateSubCommandlClick()a=10Fork=lTo5Step-1a=a-k

136NextkPrinta;kEndSubA)-56B)-5-5C)100D)101(26)设窗体上有一个名为Textl的文本框和一个名为Comamandl的命令按钮,并有以下事件过程PrivateSubCommand1_C1ick()x!=Val(textl.text)SelectCasexCaseIs=20Print〃输入错误〃CaseIs<0Print20-xCaseIs<10print20CaseIs<=20Printx+10EndSelectEndSub程序运行时,如果在文本框中输入-5,则单击命令按钮后输出结果是A)5B)20C)25D)输入错误(27)设有如下程序PrivateSubCommandlClick()x=10:y=0Fori=lto5Dox-x-2y=y+2LoopUntily>5Orx<-lNextEndSub运行程序,其中Do循环执行的次数是A)15B)10C)7D)3(28)阅读程序PrivateSubCommandICLIck()DimarrDimiasintegerarr=Array(0,1,2,3,4,5,6,7,8,9,10)Fori=0to2printarr(7-i);NextEndSub程序运行后，窗体上显示的是—A)876B)7650654D)543(29)在窗体上画一个名为Command1的命令按钮,然后编写以下程序PrivateSubCommandlClickODima(10)asintegerFork=10to1Step-1a(k)=20-2*kNextkk=k+7Printa(k-a(k))EndSub运行程序后,单击命令按钮,输出结果是—A)18B)12C)8D)6(30)窗体上有一个名为Command1的命令按钮,并有如下程序：PrivateCommand1_Click()

137Dima(10),x%Fork=lto10a(k)=Int(Rnd*90+10)x=x+a(k)Mod2NextkprintxEndSub程序运行后，单击命令按钮.输出结果是A)10个数中奇数的个数B)10个数中偶数的个数010个数中奇数的累加和D)10个数中偶数的累加和(31)窗体上有一个名为Command1的命令按钮和一个Timerl的计时器,并有下面的事件过程PrivateSubCommandlClickOTimerl.Enabled=TrueEndSubPrivateSubFormLoad()Timerl.Interval=10Timerl.Enabled=FalseEndSubPrivateSubTimerITimer()Command1.Left=Commancll.Left+10EndSub程序运行时,单击命令按钮,则产生的结果是—A)命令按钮每10秒向左移动一次B)命令按钮每10秒向右移动一次C)命令按钮每10毫秒向左移动一次D)命令按钮每10毫秒向右移动一次(32)设窗体上有一个名为Listl的列表框,并编写下面的事件过程PrivateSubListlClick()DimchasStringch=Listl.List(Listl.Listindex)Listl.RemoveitemListl.ListindexListl.AdditemchEndSub程序运行时,单击一个列表项,则产生的结果是—A)该列表项被移到列表的最前面B)该列表项被删除0该列表项被移到列表的最后面

138D)该列表项被删除后又在原位置插入(33)窗体上有一个名为Command1的命令按钮,并有如下程序：privateSubCommandlClickODimaasinteger,basintegera=8b=12PrintFun(a,b);a;bEndSubPrivateFunctionFun(ByvalaasInteger,basinteger)AsIntegera=aMod5b=b\5Fun=aEndFunction程序运行时,单击命令按钮,额输出结果是A)332B)382C)8812D)3812(34)为了从当前文件夹中读入文件File,txt,某人编写了下面的程序：PrivateSubCommandlClick()Open"FHel.txt"ForOutputAs#20DoWhileNotE0f(20)LineInput#20,ch$PrintchLoopClose#20EndSub程序调试时,发现有错误,下面的修改方案中正确的是—A)在Open语句中的文件名前添加路径B)把程序中各处的"20"改为"1〃C)把Printch语句改为Print#20,chD)把Open语句中的Output改为Input(35)以下程序运行后的窗体如图所示,其中组合框的名称是Combo1,已有列表框如图所示:命令按钮的名称是Command1PrivateSubCommand1_Click()ifnotCheck(Combol.Text)thenMsgBox("输入错误”)ExitSubEndIfFork=0toCombol.ListCount-1ifCombol.Text=Combol.List(k)ThenMsgBox("添加项目失败”)ExitSubEndIfnextkCombol.AddItemCombol.TextMsgBox("添加项目成功”)EnbSubPrivateFunctionCheck(chasstring)asBooleann=Len(ch)Fork=ltonc$=Ucase(Mid(ch,k,1))ifc〈"A"orC>"Z"thenCheck=FalseExitFunctionEndSubNextkCheck=TrueEndFunction程序运行时,如果在组合框的编辑区输入"Java”,则单击命令按钮后产生的结果是A)显示“输入错误〃B)显示"添加项目失败〃C)显示〃添加项目成功〃D)没有任何显示二、填空题(每空2分，共30分)

139请将每一个空的正确答案写在答题卡【1】〜【15】序号的横线上，答在试卷上不得分。注意：以命令关键字填空的必须拼写完整。(1)一个队列的初始状态为空。现将元素人5,(：］忑丁,5,4,3,2,1依次入队，然后再依次退队，则元素退队的顺序为【1】O⑵设某循环队列的容量为50,如果头指针front=45（指向队头元素的前一位置），尾指针rear=10（指向队尾元素），则该循环队列中共有12】个元素。⑶设二叉树如下：匹对该二叉树进住后存血照结果为【3】o（4）软件是【由、数据就包档的集合。学生选课的关系，其中学生的关系模式为：学生（学号,姓名，班修年龄），课程的关系模忖：课程（课号，课程名，学时），其中两个关系模式的键分龌笑亨和课号，则关弓腐翅卷可定义为：选课（学号，【5】，成绩）。（6）在窗体上有个鹏称为C靠用41的命辐1钮,并有如下事件过程和函数过程PrivateSubCommandICHckITDimpasintegerp=m(l)+m(2)+m(3)printpEndSubPrivateFunctionm(nasinteger)asintegerStaticsasintegerFork=ltons=s+lNextm=sEndFunction运行程序,单击命令按钮Command1后的输出结果为（7）在窗体上画1个名称为Command1的命令按钮,然后编写如下程序:privateSubCommand1_C1ick()Dimmasinteger,xasintegerDimflagasBooleanflag=Falsen=Val(InputBox("请输入任意1个正整数“))DoWhilenotflaga=2flag=_(7)DoWhileflagAnda〈=Int(Sqr(n))ifn/a=n\athenflag=FalseElse—(8)

140EndIfLoopIfNotFlagThenn=n+lLoopPrint(9)EndSub上述程序的功能是，当在键盘输入任意的1个正整数时,将输出不小于该整数的最小素数,(8)以下程序的功能是:先将随机产生的整数放入数组a中，再将这10个数按升序方式输出，请填空privateSubFormClickODima(10)asInteger,iasintegerRandomizei=0Donum=Int(Rnd*90)+10Forj=ltoiifnum=a(j)thenExitForEndIfNextjIfj>itheni=i+la(i)=(10)EndIfLoopWhilei<10Fori=lto9Forj=(11)to10ifa(i)>a(j)thenTemp=a(i):a(i)=a(j):(12)NextjNextiFori=lto10Printa(i)NextiEndSub(9)窗体上已有名称分别为Drivel、Dirl、Filel的驱动器列表框、目录框、和文件列表框,且有1个名称为Textl的文本框，以下程序的功能是:将指定位置中扩展名为〃.txt〃的文件显示在Filel中，如果双击Filel中的某个文件,则在Textl中显示该文件的内容，请填空PrivateSubFormLoad()Filel.Pattern=(13)EndSubPrivateSubDrivelChange（）Dirl.Path=Drivel.PathEndSubPrivateSubDirlChange（）

141Filel.Path=Dirl.PathEndSubPrivateSubFilelDblClickODimsasstring*1IfRight（Fill.Path,1）="\"Thenf_name=Filel.Path+Fill.FileNameElsef_name=Filel.Path+"\"+Filel.FileNameEndifOpenf_name（14）as#1Textl.text="”DoWhile—（15）._s=Input（1,#1）Textl.text=Textl.text+sLoopClose#1EndSub2011年9月全国计算机等级考试二级笔试试卷VisualBasic语言程序设计（考试时间90分钟，满分100分）一、选择题（每小题2分，共70分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。1）下列叙述中正确的是A）算法就是程序B）设计算法时只需要考虑数据结构的设计0设计算法时只需要考虑结果的可能性D）以上三种说法都不对2）下列关于线性链表的叙述只能够，正确的是A）各数据结点的存储空间可以不连续，但它们的存储顺序与逻辑顺序必须一致B）各数据结点的存储顺序与逻辑顺序可以不一致，但它们的存储空间必须连续C）进行插入与删除时，不需要移动表中的元素D）以上三种说法都不对3）下列关于二叉树的叙述中，正确的是A）叶子结点总是比度为2的结点少一个B）叶子结点总是比度为2的结点多以个C）叶子结点数是度为2的结点数的两倍D）度为2的结点数是度为1的结点数的两倍4）软件按功能可以分为应用软件，系统软件和支撑软件（或工具软件）下面属于应用软件的是

142A）学生成绩管理系统B）C语言编译程序0UNIX操作系统D）数据库管理系统5）某系统总体结构图如下图所示：XY系统功能2.1功能2.2功能2.3该系统总体结构图的深度是A）7B）6C）3D）26）程序调试的任务是A）设计测试用例B）验证程序的正确性C）发现程序中的错误D）诊断和改正程序中的错误7）下列关于数据库设计的叙述中，正确的是A）在需求分析阶段建立数据字典B）在概念设计阶段建立数据字典0在逻辑设计阶段建立数据字典D）在物理设计阶段建立数据字典8）数据库系统的三级模式不包括A）概念模式B）内模式C）外模式D）数据模式9）有三个关系R、S和T如下则由关系R和S得到关系T的操作是A）自然连接B）差C）交D）并10）下列选项中属于面向对象设计方法主要特征的是A）继承B）自顶向下C）模块化D）逐步求精11）以下描述中错误的是A）窗体的标题通过其Caption属性设置B）窗体的名称（Name属性）可以在运行期间修改0窗体的背景图形通过其Picture属性设置D）窗体最小化时的图标通过其Icon属性设置12）在设计阶段，当按Ctrl+R,所打开的窗口是A)代码窗口B)工具箱窗口C)工程资源管理器D)属性窗口13)设有如下变量声明语句：Dima,basBoolean

143则下面叙述中正确的是A)a和b都是布尔型变量B)a是变体型变量，b是布尔型变量C)a是整型变量，b是布尔型变量D)a和b都是变体型变量14)下列可作为VisualBasic变量名的是A)A#AB)4ABCC)?xyD)Print_Text15)假定一个滚动条的LargeChange属性值为100,则100表示A)单击滚动条箭头和滚动框之间某位置时滚动框位置的变化量B)滚动框位置的最大值0拖动滚动框时滚动框位置的变化量D)单击滚动条箭头时滚动框位置的变化量16)在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommandlClickOMsgBoxstr(123+321)EndSub程序运行后，单击命令按钮，则在信息框中显示的提示信息为A)字符串“123+321”B)字符串“444”C)数值“444"D)空白17)假定有以下程序：PrivateSubFormClickOa=l:b=aDoUntila>=5x=a*bPrintb;xa=a+bb=b+aLoopA)11B)11C)11D)112324383618)在窗体上画一个名称为Listl的列表框，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市消失。下列在Listl_Click事件过程中能正确实现上述功能的语句是A)Listl.RemoveitemListl.TextB)Listl.RemoveitemListl.ClearC)Listl.RemoveitemListl.ListCountD)Listl.RemoveitemListl.Listindex19)列表框中的项目保存在一个数组中，这个数组的名字是A)ColmnB)StyleC)ListD)MultiSelect20)有人编写了如下程序：PrivateSubFormClickO

144DimsAsInteger,xAsIntegers=0:x-0DoWhiles-10000x=x+ls=s+x'2LoopPrintsEndSub上述程序的功能是：计算s=l+22+32+…n2+…直到s>10000为止。程序运行后，发现得不到正确的结果，必须进行修改。下列修改中正确的是A)把x=0改为x=lB)把DoWhiles=10000改为DoWhiles<=10000C)把DoWhiles=10000改为DoWhiles>=10000D)交换x=x+l和s=s+x~2的位置21)设有如下程序：PrivatesubFormClickODimsaslong,faslongDimnasinteger,iasintegerf=l：n=4Fori=ltonf=f*is=s+fNextiPrintsEndsub程序运行后，单击窗体，输出结果是A)32B)33C)3422)阅读下面的程序段a=0Fori=lto3Forj=ltoiFork=jtoa-a+1NextkD)35a的值为D)21NextjNexti执行上面的程序段后，A)3B)9C)1423)设有如下程序：PrivateSubFormClickOCisa$="123456"Fori=lto6Printtab(12-i);NextiEndsub程序运行后，单击窗体，要求结果如图所示，则在—处应填入的内容为A)Left(a$,i)B)Mid(a$,8-i,i)C)Right(a$,i)D)Mid(a$,7,i)24)设有如下程序：PrivateSubFormClickODimiasinteger,xasstringDimyasstringx="ABCDEFG"Fori=4to1step-1y=Mid(x,i,i)+yNextiPrintyEndsub

145程序运行后，单击窗体，输出结果为A)ABCCDEDEFGB)AABBCDEFGC)ABCDEFGD)AABBCCDDEEFFGG25)设有如下程序：PrivateSubFormClickODimary(1to5)asintegerDimiasintegerDimsumasintegerFori=lto5ary(i)=i+lsum=sum+ary(i)nextiprintsumEndsub程序运行后，单击窗体，则在窗体上显示的是A)15B)16C)20D)2526)有一个数列，它的前3个数为0,1,1,此后的每个数都是其前面3个数之和，即0,1,1,2,4,7,13,24…要求编写程序输出该数列中所有不超过1000的数某人编写程序如下：PrivateSubFormClickODimiasinteger,aasinteger,basintegerDimcasinteger,dasintegera=0：b=l:c=ld=a+b+ci=5whiled<=1000printd;a=b:b=c:c=dd=a+b+ci=i+lwendEndsub运行上面的程序，发现输出的数列不完整，应进行修改。以下正确的修改是A）把whiled<=1000改为whiled>1000B）把i=5改为i=4C）把i=i+l移到whiled<=1000的下面D）在i=5的上面增加一个语句:printa;b;c;27）下面的语句用Array函数的数字变量a的各元素赋整数值：a=array（1,2,3,4,5,6,7,8,9）针对a的声明语句应该是A)DimaB)DimaasintegerC)Dima(9)asintegerD)Dima()asinteger28）下列描述中正确的是A）VisualBasic只能通过过程调用执行通用过程B）可以在Sub过程的代码中包含另一个Sub过程的代码C）可以像通用过程一样指定事件过程的名字

146D）Sub过程和Function过程都有返回值29）阅读程序：Functionfac(byvalnasinteger)asintegerDimtempasintegertemp=lFori=ltontemp=temp*iNextiFac=tempEndFunctionPrivatesubFormClickODimnsumasintegernsum=lfori%=2to4nsum=nsum+fac(i%)nextiprintnsumEndsub程序运行后，单击窗体，输出结果是A)35B)31C)33D)3730)在窗体上画一个命令按钮和一个标签，其名称分别为Commandl和Labell,然后编写如下代码：SubS(xasinteger,yasinteger)Staticzasintegery=x*x+zz=yEndSubPrivateSubCommandlClickODimiasinteger,zasintegerm=0:z=0Fori=lto3Si,zm=m+zNextiLabel1.caption=str(m)Endsub程序运行后，单击命令按钮，在标签中显示的内容是A)50B)20C)14D)731)以下说法中正确的是A)MouseUp事件是鼠标向上移动时触发的事件8)MouseUp事件过程中的x,y参数用于修改鼠标的位置C)在MouseUp事件过程中可以判断用户是否使用了组合键D)在MouseUp事件过程中不能判断鼠标的位置32)假定已经在菜单编辑器中建立了窗体的弹出式菜单，其顶级菜单项的名称为al,其“可见”属性为False,程序运行后，单击鼠标左键或右键都能弹出菜单的事件过程是A)PrivateSubFormMouseDown(ButtonasInteger,Shiftasinteger,XasSingle,YasSingle)IfButton=lAndButton=2ThenPopupMenualEndifEndSubB)PrivateSubFormMouseDown(ButtonasInteger,Shiftasinteger,XasSingle,YasSingle)PopupMenualEndSubC)PrivateSubFormMouseDown(ButtonasInteger,Shiftasinteger,XasSingle,YasSingle)IfButton=lThenPopupMenualEndifEndSubD)PrivateSubFormMouseDown(ButtonasInteger,Shiftasinteger,XasSingle,YasSingle)IfButton=2ThenPopupMenualEndifEndSub33)在窗体上画一个名称为CD1的通用对话框，并有如下程序：PrivateSubFormLoad()CD1.DefaultExt="doc"CD1.FileName="c:\filel.txt”CD1.Filter=”应用程序(*.exe)exe”EndSub程序运行时，如果显示了“打开”对话框，在“文件类型”下拉列表中的默认文件类

147型是A)应用程序(札exe)B)*.docC)*.txtD)不确定34)以下描述中错误的是A)在多窗体应用程序中，可以有多个当前窗体B)多窗体应用程序的启动窗体可以在设计时设定0多窗体应用程序中每个窗体作为一个磁盘文件保存D)多窗体应用程序可以编译生成一个EXE文件35)以下关于顺序文件的叙述中，正确的是A)可以用不同的文件号以不同的读写方式同时打开同一个文件B)文件中各记录的写入顺序与读出顺序是一致的C)可以用Input#或LineInput#语句向文件写记录D)如果用Append方式打开的文件，则既可以在文件末尾添加记录，也可以读取原有记录二、填空(每空2分，共30分)请将每空的正确答案写在答题卡【1】至【15】序号的横线上，答在试卷上不得分。数据结构分为线性结构与非线性结构，带链的栈属于—[11—o在长度为n的顺序存储的线性表中插入一个元素，最坏情况下需要移动表中【2】个元素。常见的软件开发方法有结构化方法和面向对象方法。对某应用系统经过需求分析建立数据流图(DFD),则应采用【3】方法。数据库系统的核心是14】o在进行关系数据库的逻辑设计时，E-R图中的属性常被转换为关系中的属性，联系通常被转换为【5】o为了使标签属性能自动调整大小以显示标题(Caption属性)的全部文本内容，应把该标签的【6】属性设置为True。在窗体上画一个命令按钮，其名称为Commandl,然后编写如下事件过程：PrivateSubCommadlClickOx=lResult=lWhilex<=10Result=[7]x=x+lWendPrintResultEndSub上述事件过程用来计算10的阶乘，请填空。在窗体上画一个命令按钮，其名称为Commandl,然后编写如下事件过程：PrivateSubCommadlClickOt=0:m=l:Sum=0Dot=t+[8]Sum=Sum+[9]m=m+2LoopWhile[10]PrintSumEndSub该程序的功能是，单击命令按钮，则计算冰输出以下表达式的值：1+(1+3)+(1+3+5)+,,,+(1+3+5+…99)请填空。9)在窗体上画一个命令按钮，其名称为Commandl,然后编写如下事件过程：PrivateSubCommadlClickODimM(10)asIntegerFork=lto10M（k）=12-kNextkx=6PrintM（2+M（x））EndSub程序运行后，单击命令按钮，输出结果是【11】10）在窗体上画一个命令按钮，其名称为Commandl,然后编写如下事件过程：PrivateSubCommadlClickODimnasIntegern=Val（InputBox（"请输入一个整数：〃））IfnMod3=0AndnMod2=0AndnMod5=0thenprintn+10

148EndIfEndSub程序运行后，单击命令按钮，在输入对话框中输入60,则输出结果是【12】11）在窗体上画一个命令按钮，其名称为Commandl,然后编写如下事件过程：PrivateSubCommadlClickODimctAsStringDimntAsIntegerOpen"e:\stud.txt”[13]DoWhileTruect=InputBox（”请输入姓名：“）Ifct=[14]ThenExitDont=Val（InputBox（"请输入总分：”））Writettl,[15]LoopClose#1以上程序的功能是：程序运行后，单击命令按钮，则向e盘根目录下的文件stud,txt中添加记录（保留已有记录），添加的记录由键盘输入：如果输入“end”，则结束输入。每条记录包含姓名（字符串型）和总分（整型）两个数据。请填空

149机密★君用前2012年3月全国计算机等级考试二级笔试试卷VisualBasic语言程序设计（考试封间90分钟，满分100分）一、选择超（制小睡2分，共70分）-下到各冠A>.B）.C）.D）四个选IJ5中,只有一个选项是正确的.谓将正*1选项填注在告股卡相应传置上，答在试卷上不得分.A"）I；如叙述中正炳的是2A）初环以列此队列的种然式。例结向B）独井队如此队列的抻瞰斤/可结构N蒯环队列足找性姑构D）蚀环队加肥一种退级结内%（2>卜例依述中正确的是47A）板是一种先也先搦的线性衣匕队列格是牛线终结构B）队列足一种螭班先⑴的线性也D）以上：神设法切不对（（3）一探二义一共025个结点.其中5个足“子姑N则收为I/椎代数为A>16B）10C）6D）4[/（4）在下网模式中，能鲂给别致现片物理存储结构与物理存取方泣的拈JA）外程式B）内模式C）概S模式D>逻料枚式而力在满足实体定密fl约束的条件卜7A）一个关系中同谈々一个成多个皎迭乂暧子R）•个x系中只能行个秋选矢sr字C）一个关系中必彼TT多个候选关城?D>一个大系中可以没。候选美使字即由美系R和S褥r关系T的读作是A>。然连检R）并C）交D）异.级VisuilDasic净才粗序支话试卷S!I英（共lOfi）

150(7)软件4：命阳期中的活动不包括A)市场谢研B)需求分析C)软司测讯D)软件除护C<8)卜而小属丁需求分析阶收任好的总A)确定软件系坎的功能笥求8)确定软件系及的件能需求C)需求双珞说也B评审D)制定软竹集成测欢比划、(9)在总盒测试方法中,设计测试川例的主要秋树是2A)拧中内部茂田B>杼不外斜功发C)/厅数据结构D)程序流汗图B)PAD图0)程序流程图Mio)在软竹没il中不归川的」一外赴yA)系统结构图C)■■泡图(DIDBI)j，6”以卜合法的VB变做名妓7A)cueB)name10C)t-namel»x*y0=0Andx=€OrX<-IO。13)以下关于曲体的叙述中，槌球的足.7A)出体的Name属性川丁林识一个窗体B)运行在序时,激变窗体大小.能好触发窗体的Rcixc小作C),而好的Enabled属性为Fake时，不帖响应单由身体的事件D)卷序运行册间,可以改变Name凰性值I2(14)下而定义由体级变ita的诒句中错状的是7A>Dim#%B)Privatea%C)PrivateaAsIntegerD)Statica%£2衰达式1nURnd(0)*50)所产生的Hi机效荒阳是/A)(0,50)B)(t.5O)C)(0,49)D)(L49)

151(16》Six-5.执疗话句Prints-x'10,WH：1：相〃:的兄A)ISB)5C)Truei>>r.ilsc117)设有如卜致力小明语句,3，1rDiman<-2To2.0,lb3)AsIntegervxA该数外所包含的数组元素个长是A)20B)SC>15D)12D5岭小*'以卜表示上述分段曲数的语句汴列中tH以的足A)Sclcc?ChscxCaseh<0y-SCaseK<=S,U>0y-2•xCaseEkey=*•x♦IEM-1C)y-I1f{x<0.5.Hfix<=S.2•x.x•x4|)>IOlfxirx<0Thcny=5lfx<=5Andx>=0Theny=2•xIfx>5Iheny-x*x+1D<20）设科序中心如卜法母：*/x-h甲ulRcw（,输入“「数据［100）Printx定行程序,执行上述诲句.输入S井/田摘入对话包上的“取消”技科,则窗体上愉出A)0B)5C)ICOD)纪内yen现布如下琐亮〕花'OplionBaseIPrivalcSubCommand】.Click。Dima二级WwalBaic酒力自》&让试卷笫3页。t10女）

152a-AirayU.5.7.9)x-IFori=4ToJS；cp-Is=s+“i)*xx=10NextPrimsEndSub执行—•—CsmMuH命令拉通执行上，事％过M愉;【闺果止A)9753B)3579C)350)79P)<22>设力.一个命令佞fHCsm惘Ml的事件封片以及个娘翅过拧."洋如卜;k.PrivateSubComnuixJI-ClkkOStaticxAsIntegerx♦♦5>CbPrimxEndSubPrivatelunction((xAshileger)AsIntegerI=x+xEiuiluiKlion连续小i"Q令按仇3次.第3次单出命令按谕体上&示的il党站见某A)10B)30C>60D)70。(2，)以下关丁茶垠设计的叔述中借识泊月7A)各菜单项可以构成归件数州B)林个柒常项可以A成足“'校件C)次讨菜单时.菜中项的“彳效”不通.即「田尊飞立，收本该菜单里小晶不D)菜小顼只响尺巾i小竹A(24)以FKT多窗体的软述中，小佛的记A)仔何时刻,只#一个窗前窗体B)向一个工F2*加多个岗休，石祗A；土咸一个贸仲文布C)打开-•个腐体时,M他窗体fl动火团Zk灯第个正立的想体才是修油窗体(X(25)❸体上有一•个幺称为ComnmDialogl的通用对i?i机，一个名称为Comsodl的电令y按铠，并再如卜平外出杆：「战VisTBwc说言/序仪请过卷貌4页(夬10我》

153PrivateSubCommandIClick。CoininonOiiiloglOcI-huUExI-°doc-CommonDialoglFilcNanic=''VB.txi"CommonPiahgl.Filler-"AII(,.>X**|W,ordp.Doc|"CommonDiidoglJ-ilierlndex=ICvmrnonDiaiogI.ShowSavcEndSubiatjtiSh/r.如卜叙述中正确的*・•.A)打开侑对话也中攵竹“保存类中”框中M不-AIKV)"B)实现仅在文H的操杳，一件名itVB.lxiC)1*—Exl园件与FileNiimc属件所正明的义钝类?不一彼,科存：1；伟D)对话把讷Filler烈性没夕指出R类甲，科序达竹;J：偌「(26)没那序中书如卜微织定义加过旧调用诩甸：匚/Dima(lO)AxIntegerCallp(a)M卜过丹定义中，正确的站A)PrivateSubB)PrivateSubC)PrivateSubD)l,rivaicSubp(aAsJiKegcf)p(^0AsImeger)p(a(lO)AsInteger)p(a(n)AsImeger)f>27)石要获得阻合处中输入的数据.可使川的显性是JA)LiiiliulcxB)CaptionC)HextD)Lisi|，28)八&体上祓两个由称分初为Textl,Text2的文本也.Texil的Text尾性为“DNaBase”,V如图所示.现有如卜事件过彩：PrivateSubTextl_Change()Tcxt2.Trxr9Mid(Tex1l,L5)EMSub让什捏J花在文本桥TcU中原《字符之前初入a・氏xt2中显示的是A)DataAB)(JataDC)aDaiaD)aBasegp9)tOplionBaseIPrivateSubCommand1_Cikk()Dimarr(IO)arr=Array(10t35.28,90,54,6&72.90)ForEachaInarrira>50ThcnSum*-Sum♦aEndIfNextatndSub运行I.述程存时出现41吸・错设之处足A)数第定义请句不对.月改为DimairB)没由加明For循讣的终值

154C)放在For语句之篇增加Sum=0D)Nexta杼改为NextA<30>要求产生10个烟机整数,〃放衣.数缄arT，.从说力招人要删弹的效第几震的I、机，B将核元次中的数索删除，后倒元素中的数据依次的移.笄淀示制像后第J余的数据.现仃如卜不7如OpcionBase1PrivateSubCommand1_Click()Dimarr(IO)AsIntegerl;ori=lTblO'MM：Ianti)-8ln((Rnd•100)Print川ifi);Next.x=InpuiBoxC输入1-10的一个标数：")Fori-x+ITolO•优珞2arrft-l)-an*(i)NextEori=lToUI*循环3Primanti)；NextEndSub柠序运行后发睨显示的必果不正确，应该避力的修改是A)产生Ki机数时不使用Im的数B)加年2的初ill应为i-xC)数如定义改为Dima(ll)As【mcgerD)循环3的狐环境值M.改为9COI)使用驻动器列发椎Drivch口录列表框5rl.文件列我国Fikl时.需要设2!控件的/向步.以卜,能蝶正确设置两个扑打同步粕命令是A)Dirl.Paih=Drivel.PathB)Filcl.Patti-DirI.PathC)Filel.Path*Drivel.PathD)DrivcI.Drivc35Dirl.Paih闺Bmk运货用序改“试用弟6虫(共10页)

155收32）以£大「•师出式英中的叙述中.错次的小QA）一个窗口只能打一•个冲;"犬第中B）J9H：式菜单.在柒小编犯涔中徒立C）弹H：式柒单曲集型名（上菜单项〉的』始"—性通话设置为卬=D）・弹出式架电通过窗体的PopupMenu方法&不曲）行如.卜H序：，rivmTypeshiXAsStringYAsIntegerEndT>pcPrivateSubCommand1Click（）DimaAss（ua.X="ABCD"xY»12345Print；1EndSub.界序运行时出境得演.借湿的原©是A）Type定义谁句没有放在标疝模映中B）变故声明谙句有错C>虻值电句不对D）检出语句Prim不对（（34）«,员体上过两个名称分别为Tcxtl、Tcxi2的文本柩，今名称为Labcll的尿筌.正（—1外观如图a所示.要求当改变任一个文本格的内容,就会将谟文△框的内容显示在k笑中，如图b所加.突现_L迷功然的程序如人PrivateSubTcxll_Changc()CallShowTcx((1cxtl)HodSubPrivaicSubTexi?ChangcOCallShowTcxtfllx⑵EndSub二线VizlMic语TUV序设汁X金弟7吏（）t10金）l^ivateSubShowTbxi(TAsTcxlBox)LabdLC绅lion三"攵木框中的内容/；"&T.TexrEndSub关丁上述程方以卜叙述中借以的是A)ShowTcxi过稣的参数类可以;士Contnol

156A)SIwwTcxt11H的参数类他可以是VariantC)两个过程明用用句有用,应分别改为CallShowTexKTcxd.似。、CallShOwTtwfrcxC.TwOD)ShouTex!过杵中的T是控f'l变"；X(35)设行打开文件的诲句如下：k\Open-icsidal"ForRandomAs#1公：未把交3a中的政掂保存网浅文书中，应该仙川的治号呆A〉Input41,aR)Wtiic*1.aC>PulWl..aD)GetVI..3二、填空IS(缶空2分，共30分)请将悠空的正碉答案写在答题卡(I)〜[15]序号的横纹上，若存试右上不得分.(I)在氏度为n的顺序,钻的或性表中期除一个元素.最从精况下片娈移动夫中的元本个数为.皿/[\(2)设辄环队列的存砧空间为0(1:303初始状态为firom=rcar=3(h观经过一系M入8、与双认运匏后,tiont=16.rcai-15,则他环队列中勺为【2】个兀东.(3)散椒备管理系统提供的数如语言中,负贡数据的增、删.改和咨询的是【3】.(4)在将E-R图转换到关系校大时.实体H联系脑"1以我示成(4J.(s)能姐的软?i1和方法奇结构化方法和面向对取方法，类.继承以及多方性等微念属了【5】.(6)下面的审付过W执行时，可以把Tuxtl文本枢中的内容写妁文件“filT.txl”中大.济城弋.PrivateSubCoiiimandl_Click()^^\"Open-fileI.txt"EorJL6j_As»1Print【7削3热席》Close*1EndSub'.»ViuulBuie语言45方税计述症公8女(共105c

157(7)设窗体上有一个名称为labdl的林先.朴序运行时•朝，LM次左谜，再也动就标.求林的较•置坐标会实时地@示件"bell麻签中：大储鼠标心供灼件J实时显示・H新标鸵中内容清除•下面的并存可实现这•功能，记康空•DimdownAsBooleanPrivateSubFonn_MoDScDown(ButtonAsInteger、ShillAsInlcgcr,XAsSingle,YAsSingle)SelectCase【81及」“♦CaseIdown-TrueCase2down-FalseEndSelectEndSubPrivateSubl-ormMouseMovc(BuctonAsIjueger.ShiftAsInteger,XAsSingle,YAsSingle)if(9j【10]=-X-"AX&"Y--4YEbeLabelI.Caplion£iidIfEMSub(8)窗体上有LM.LR2两个列表格，行序运行时•左两个列&他中分别选中I个】iiH.鼠图a所示,单击名称为Commaadl的“交换”技fll,则把选中的顶H红换，切换币的显置不限,如图b所示,下面的程序可实现这一功能,请填空.Prive依SubCommand1Click。IfListI.Text-"OrList2.TexiThenMsgBox”请图样交换的物rtf,l”ElseListl.AddltemList2,Tcxt工aI,List2.Removelt«m【11】1；$"，jg®r【12】LG.WlMm骨夕ListLRemos^eItemLisiLListIndex二倍viRagic正言联序役计试叁第9页(共io页)

158参考答案及解析一、选择题I（］循环队列昆一种弱序存，“答案】（］：口）【卬Q【1：4）【并案】构”和“情坏队则是书坦辑结杓•的设法都是传误的.I）-代和队列都是战性站他.A）根据公式B）H桧片后送先出,队列是先进以,“抽环队列是队列的种隹人存使“循环队列足H线性结法都不时.X.叶子结点个改为5・则此为2的结立数为，.¥丸收为1的靖口融nl=nW3=2545=16.【胖礼】故据氏系统介H内他具订吸根式।假意模式.内部模式〉分他搐式/中•内槿式《乂林物理槿式）给出了故楙昨物虔存储结构叼物虏存取方法-归数据存慵的文件结构、索引・单战及hash等“取方式与存取弗忖.内检式的物现特件I.要体现在讼作票筑及MF♦线匕它还未深人到送籥就也1碱能及碳小摊作）匕做色《大照—系统中全局数据理软结构的播魅,是全体用户［疫用）的公共施推军图.主耍蝇;玉敢招的啧合记录焚里以及它力之间的关系.它还也拈些数据间的韦文约束.外慢式（子模式或用户模式，足用户的依招视图,也就是用户所见到的敢出程式.它由假念嗯式推导而生的.在一段的DBMS中M偈供相关的外梭K狗述语才（外（5心生】（WW1械式DDL）.A）在关系R中如记录完全X7<⑹【蜂望】Hi①在一个关枭中.帔选关班字可以疔芯个u②任何四柒i一个阿件构或.也”ne市名个01性构限，④在任何关聚中箫件34关系中应D）个或名个候选犬键字.:标WL在满足实体完整件为取的X.明林X为关系R中的T帔字•候通关维字的性质E不相同的,③大域字可能由【*杨】自然注打比“金刃,其鳍唳是招到两个关系中公共・性N/L制'的丹仃兀蛆的蛆今i并足指将两个大杀中的兀本金晶合外到一个新的关条之中।交足桁将那"同时MF两个关系的兀大和他一个新的关系：个是拒将H『前个*分但不*于后介的兀点班成新的关系.由图中可以6出.关系T是由属fR但不Kfy的出抓损成的罐介,所以答案为《，17,【捽窠】A）【一】I'■<..I''言,软件生命摒期呵以划分为六个阶设3同图的定义及蛾0、需求分析、软件设计、编玛、软件博氏、运忏的护,所以.软科生命周明中的，他不包苗巾场战研.⑻【否案］|））【解析】*求分析的基本任务足的向“识业/W定时同踵的也会需求，必叫;：2评色能需求.性能需求.环备分析，话写出软件的理辑模型.£，ripdpi设q需求短格说明恨母耳机省用户使用手肠.询认测试市划.惶改完普软件开发il匕“M—tii经碑电计划网「幔要技计.（1牯白盒测出与黑食■建.白盒展辑整动物诔，它是按照程序内二境需求，用户界面需求的结构测试程序X启恻试也尔力口削状.它是通过洌试来检M候是否都能止常使用.畜禽般试苔眼］科印件都结悔r不考tg内傩龙归结构,尼杆侪片作个不能打开侑十愈孔卜utt盯软H界血和软件功能迸行MK.।io>”案】C)【仪析】十色括假要设计却作领次计,软件徵曹收计中,画可数据流的&计方法有变共里系统括构四和U务型敖梃”两种.软ft年地地计.”库波怦图（P1*）mPAD（同5!分析图）是过用设计的常用工具也砥湎图是结构化分析方法中使用的LR，它匕图形的方式娴绘数超任泰统中神叨和处理的过程,由f它只反映泰坎必须完成的逻辑功能.所以它是种动修愎型.是在时行性研允阶段用到的（IDI答案】8）（整析JVH更量的命售地则lbU仃小数点，空Mh③殳餐曲n•Z必现良？购匕字忏头.而不能使用rn’m0行开去“②,盘名不佬自你出过255个：④不能言行VB伍|专用q在VB中乂籽憔力:义的单词、字母的《1台,故本虺谷事透择B，（■［答案1C）

159属惟阳于确过窗体是否与取依多内的展性是Index100、退II中(K-N<*5的条fl仃位和千位・性亲设置菜单足西学小蜂C).，匚案的内容k改变窗体大小.财窗体可正常运行【存案】【解"】后为W.第二次为*L第次为力，故木的谷案母HDi21(】【稣析】侑近问,所以5并没忏讴回并M侑给、.冲以在窗怖I.输出房软(0的作用是使交■%的恒电加的作•用髭使”中的元素次喊为，的个会J具行相网的名杵,在林件仁纥中H电一”数加,所以数州元案个数陶该为5+20t在命令按MCumm1mdi的Chck事件中,调用Q函数.第次单由包34个，匚卡,357.9在fur牯坏种3579故本88答案选择B).加6的使用,只用单击低忸时,小£将输入1<19>(>«]【峭折J020》【答案】【州析】'只能用f本窗体,而后背可吸用但足不能用2WC来声明,故木本d『Select曲甸"居句"山错句的使用.不符合.故吾东选徉“£Andx・多个窗体时.存矗时番勺■动窗体；打开叶酬体<17>【音案】A)【…】I，<18>［齐泉］B)【解构】控件数组由组和同类Q伯.故本翅冷窠选择H)・个表达式.本W正确的表达应遗为<13>［>*］D)【州折】亩体的NimcK性用于伞本；要触发本体的Rc«/uUft-育体布Wtt.卜小/过""》用于指定在对话他的文件列表中显示文件的类型.谓法格式为“对象名hhcriMHJI文件廿一甘工在本■中由于FtkNec与Dcfa3t要求的doc不一被，不能止确保俘VBtxt文件.但是用序不报错.在文件类型中展出ALL——故本期裨案选择A)・(26)【弃案】B)【峭折】P0为被调用的函数.其多数为辞型的数组吴军，在P函教的定义过叫中使用的电彩叁.不若雯制定敖川・)的长度,所以选题RiE确.《27》［存案JC)【一折1在加合»i的属性中.LwdndcfiltWH东衣本冗拿号,CaptwnSni用来友豕出合幅的修MbTE艮性用】在示“i取俏为FohcM.而体不能则取任何室件故本38香巢选朴《m案】D)【一】!'，’.曳・叫以分为由体级文・4«.J同1M的所用《&次义窗体级变修可以用Dim倡句或

1601刈【存东】【解析】Mtdzrmn)衣示从字符创印的证m幡人/・・所以ial为二3nlitiBal:开始取n位字符作为着的字符用返k斤二号中.由f仔兀字苻之前从移I位开蛤取5个字希的结唳为RMUi”.故本虺答案选并C》・129)【答案】【好妍】A)A国中定义的数组mr片案】【的所】10.出期民彼却只ffg个.所以喊的可彳京配.作由疗法魔谏为将5设K为呐8成者自核为DinjaiT.将urr设置为殳体变・,崎KD)惕坏3的作用是*出副苗上教之后的d组,R数组个攻的131)〈芥案】(1gtrm当210时・由B>VJ数组个名为丸如果的环到141・1⑴已经不存在了・所以会随机除出t>MUS喜案选界DJ设同两个拄件同步的命令有F*lPrth-OirlP»ih和DirIPalh-DriwlDrivv,故木也选抨B).A)【附用】；*匚恭修物器中建*•通内.可见.♦性&置为F4,并通电育体的M、'方法案皂示.故木翘谷富造"a》.IB)I为亥】D)【耻】上行也体中•的信息时H要注明■出■1»一个用4・即pnoi京句有错误.应该仰改为PnmiLXjiY.故4J8答案送杼口。«34)【答案】O【解析】四T。SbuwTcxtO»#i-样变$故本的帘叁理中的泞的与教.C)选题中的•实二足八体的柠件发件.向不足泞(35)【存案1C)【解析1埴项A表豕谀取殳，u.选项BK向文件川中行入制定字才母顼D衣示MZW卜证收？灯故本地办案二.堵空题不麻纤殳密的数据写入磁er文件⑴【答案】【I】M【鲫折】线性用的构25储性衣，确、德小在长皮为02…性质中删除个元卡,最坏情况F能饕格动表中n・l1、般梃.(2)[>^][2129【解析】通过的：的描述可如此情坏队列共30个空间,另外队足指付mar的值小「队头指Hfmm的电.所以利用公AM>)%W-29.可如此箭坏队列的北秦个数为29.(3)【苔■案】「】敢喊畀燃诺方(MH)收期胤侑理京统猊供以下的数规诂百，(1>数楙定义谓不(DDIh贯成收招的模式定义。敢搦的构声仔取构建;(2>数擀接圾台各①Ml"他黄数幡的梅汉.如杏询与增加,剥除、修改华(3>数据控切信自，的9盘掘定整性，声藤的定义与依杏以及并发控Mh(4)t9«H4]关系【斛忻】七系数用片逻¥ii大的I耍L作是将H・R图M换极切定RD1Q1'中认，体与联系都可以东示成为系..%>一得【精机1面向白毂方法小1伞从f"象哽中的WF设H方法.包拈面肃如修作面向时阪dH,而向时*设行,$1的随用范映的&计方法.R中时*根型包赫六个婴本*封G*l&、然块化、层次结构•美.并发怜.持久.面向对象方法的主要特征是封装、堆承勾机6性,⑹【行案】[6]output[7]的【解新】Output偌句用于指定打开文件.时七件进行耳操力.井柏定打开的文件号为利•Pnnt的作用是向M号文件中写入文本板IgU中的内容•故任博7空由该黑人*1・⑺【年宴】（X]Kutkm【10】l.ahdlCufHuwi

161【解析】公也]I的是窗体的M<，u*Do，n和MozMo'c,在M['rtl(illUsl2LiMlmkx(12)I.KaAddltemLwltnw.否则设置为左M"zN3，\c事件中•通1工Butuxi竹票【解析】先就LM2中适中的沛力到Lwd中.何时删嫁LM2中4谈第入LZ2I：,仿照上面的电珞.祁1」。1中的内容添却以第12空陶谍健入L»«2AddlionL»HIcM.此时将标左的I.-H为M标的印杯值,所RonNEtcm方法.故第II2卢同时删除Lwil中选中的内容•所《9》【号案】1131ch[II]kmp(15]Irue【解析】本H的功他是实现・J除收复的字符1故found用于列》曲足否也4符申由之中.若存在明右阿E・I则说同fahe故第15空度逢埴入I扎中,icrnp用来存储新不单复则添加到temp体化CommandI的Click厚件中用F3找！0的字符,并“成薪的字狂中，M用HJhUIcxil中的字行.通过测川：，uml术故未”师ch足缶，h安・K，用Gnp的仪欢给tZL新的A.中乂内的手符由.