VB资料之家计算机二级考试

2005-2011全国计算机二级考试VB历年真题及答案2005年4月全国计算机等级考试二级VB笔试试卷ー、选择题（（1）〜（35）每小题2分,共70分）（1）数据的存储结构是指A）存储在外存中的数据 B）数据所占的存储空间量〇数据在计算机中的顺序存储方式 D）数据的逻辑结构在计算机中的表示（2）下列关于栈的描述中错误的是A）栈是先进后出的线性表 B）栈只能顺序存储〇栈具有记忆作用 D）对栈的插入与删除操作中,不需要改变栈底指针（3）对于长度为n的线性表，在最坏情况下,下列各排序法所对应的比较次数中正确的是A）冒泡排序为n/2B）冒泡排序为n C）快速排序为n D）快速排序为n（n-l）/2（4）对于长度为n的线性表进行顺序査找,在最坏情况下所需要的比较次数为A）log2n B）n/2 C）n D）n+1（5）下列对于线性链表的描述中正确的是A）存储空间不一定是连续，且各元素的存储顺序是任意的B）存储空间不一定是连续,且前件元素一定存储在后件元素的前面〇存储空间必须连续,且前件元素一定存储在后件元素的前面D）存储空间必须连续,且各元素的存储顺序是任意的（6）下列对于软件测试的描述中正确的是A）软件测试的目的是证明程序是否正确 B）软件测试的目的是使程序运行结果正确C）软件测试的冃的是尽可能多地发现程序中 D）软件测试的目的是使程序符合结构化原则的错误（7）为了使模块尽可能独立,要求A）模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强B）模块的内聚程度要尽量高,且各模块间的耦合程度要尽量弱〇模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱D）模块的内聚程度要尽量低,且各模块间的耦合程度要尽量强（8）下列描述中正确的是A）程序就是软件 〇软件既是逻辑实体,又是物理实体B）软件开发不受计算机系统的限制 D）软件是程序、数据与相关文档的集合（9）数据独立性是数据库技术的重要特点之一。所谓数据独立性是指A）数据与程序独立存放 用B）不同的数据被存放在不同的文件中 D）以上三种说法都不对〇不同的数据只能被对应的应用程序所使（10）用树形结构表示实体之间联系的模型是A）关系模型 B）网状模型 〇层次模型 D）以上三个都是（11）在窗体（名称为Forml）上画・个名称为Textl的文本框和・个名称为Commandl的命令按钮,然后编写ー个事件过程。程序运行以后，如果在文本框中输入ー个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是:PrivateSubTextl_Change()PrivateSubTextl_Change()Commandl.Caption="计算机等级考试EndSubPrivateSubCommandl_Click()Caption二”计算机等级考试”EndSubC)C)PrivateSubForml_Click()Textl.Caption=M计算机等级考试”EndSub Textl.Text=>>计算机等级考试”D)PrivateSubCommandl_Click() EndSub(12)设a=5,b=4,c=3,d=2,下列表达式的值是3>2*bOra=cAndb<>cOrc>dA)1 B)True C)False D)2(13)设a二"MicrosoftVisualBasicw»则以下使变量b的值为“VisualBasicw的语句是A)b=Left(a,10) B)b=Mid(a,10) C)b=Right(a,10) D)b=Mid(a,11,10)(14)假定有如下的窗体事件过程,程序运行后单击窗体,则在弹出的信息框中的标题栏中显示的信息是:PrivateSubForm_Click()a$="MicrosoftVisualBasic"b$=Right(a$,5)c=Mid(a$,1,9)MsgBoxa$,34,b$,c$,5EndSubA)MicrosoftVisual B)Microsoft C)Basic D)5(15)设a="a“，b二"b”，c二”c”，d二”d”,执行语句x二Uf((avd),”A“JB”)后,x的值为:A)“a” B)”b” C)”B“ D)"A”(16)为了使命令按钮(名称为Command1)右移200,应使用的语句是A)Command1.Move-200 B)Command1.Move200C)Command1.Left二Command1.Left+200 D)Command1.Left二Command1.Left-200(17)在窗体上画一个文本框,然后编写如下事件过程,程序运行时,在文本框中输入456,然后单击窗体,在输入对话框中输入123,单击“确定”按钮后,在窗体上显示的内容是:PrivateSubForm_Click()x二InputBox("请输入ー个整数”)Printx+Text1.TextEndSubA)123 B)456 C)579 D)123456(18)在窗体上画一个文本框和一个计时器控件,名称分别为Text!和Timer1,在属性窗口中把计时器的Interval属性设置为100〇,Enabled属性设置为False,程序运行后,如果单击命令按钮,则每隔・秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序,在 处应填入的内容是PrivateSubCommand1_Click()Timer1. EndSubPrivateSubTimerl_Timer()Text1.Text二TimeEndSubA)Enabled二True B)Enabled二False C)Visible二True D)Visible二False(19)假定在图片框Picture1中装入了一个图形,为了清除该图形(不删除图片框),应采用的正确方法是:A)选择图片框，然后按Del键B)执行语句Picture1.Picture二LoadPicture("”)C)执行语句Picture1.Picture="”D)选择图片框,在属性窗口中选择Picture属性,然后按回车键(20)在窗体上画一个Listl的列表框,ー个名称为しabell的标签,列表框中显示若干个项目,当单击列表框中的某个项目时,在标签中显示被选中的项目的名称,下列能正确实现上述操作的程序是

(21)在窗体上画一个命令按钮,名称为Commandl»然后编写如下事件过程:(22)在窗体上画一个名称为Commandl的命令PrivateSubCommand1_Click()按钮,然后编写如下事件过程:DimiAsInteger,xAsIntegerPrivateSubCommand1_Click()Fori=1To6c="ABCD”Ifi=1Thenx=iForn=1To4Ifi<=4ThenPrint x=x+1NextElseEndSubx=x+2程序运行后,单击命令按钮,要求在窗体EndIf上显示如下内容:NextiDPrintxCDEndSubBCD程序运行后,单击命令按钮,其输出结果ABCD为则在 处应填入的内容为A)9 B)6A)Left(c,n) B)Right(c,n)C)12 D)15C)Mid(c,n,l) D)Mid(c,n,n)(23)执行以下程序段后,x的值为DimxAsInteger,iAsIntegerx=0Fori=20To1Step-2x=x+i\5NextIA)16 B)17C)18 D)19PrivateSubListl_Click()Label1.Caption=PrivateSubListl_Click()Label1.Caption=List1.ListindexEndSubPrivateSubListl_Click()Label1.Name=List1.ListindexEndSubPrivateSubListl_Click()Label1.Name=Listl.TextEndSubPrivateSubListl_Click()Label1.C叩tion=Listl.TextEndSub(24)在VisualBasic工程中,可以作为启动对象的程序是A)任何窗体或标准模块 B)任何窗体或过程C)SubMain过程或其他任何模块 D)SubMain过程或任何窗体(25)假定建立了一个名为Commandl的命令按钮数组,则以下说法中错误的是A)数组中毎个命令按钮的名称(名称属性)均为CommandlB)数组中每个命令按钮的标题(Caption属性)都一样〇数组中所有命令按钮可以使用同一个事件过程D)用名称Commandl(下标)可以访问数组中的每个命令按钮(26)把窗体的KeyPreview属性设置为True,然后编写如下事件过程:PrivateSubForm_KeyPress(KeyAsciiAsInteger)DimchAsStringch=Chr(KeyAscii)KeyAscii=Asc(UCase(ch))

PrintChr(KeyAscii+2)EndSub程序运行后,按键盘上的“A”键,则在窗体上显示的内容是A)A B)B C)C D)D(27)在窗体上画一个命令按钮和一个文本框,名称分别为Commandl和Textl,然后编写如下程序:PrivateSubCommand1_Click()a=Inpu出ox(”请输入日期(1〜31)りt=”旅游景点:"&IIf(a>OAnda<=10,“长城","“)&IIf(a>10Anda<=20,”故宫”，”り_&IIf(a>20Anda<=30,”颐和园”,””)Text1.Text=tEndSub程序运行后,如果从键盘输入16,则在文本框中显示的内容是：A)旅游景点:长城故宫 B)旅游景点:长城颐和园C)旅游景点:颐和园D)旅游景点:故宫(28)在窗体上画一个名称为Label1的标签,然后编写如ド事件过程,程序运行后,单击窗体,在标签中显示的内容是PrivateSubForm_Click()Dimarr(10,10)AsIntegerDimiAsInteger,jAsIntegerFori=2To4Forj=2Forj=2To4arr(i,j)=i*jNextjNextiLabel1.Caption=Str(arr(2,2)+arr(3,3))EndSubA)12 B)13 C)14(29)在窗体上画一个名称为Comamndl的命令按钮,然后编写如下通用过程和命令按钮的事件过程:PrivateFunctionfun(ByValmAsInteger)IfmMod2=0Thenfun=2Elsefun=1EndIfEndFunctionPrivateSubCommandl_Click()DimiAsInteger,sAsIntegers=0Fori=1To5s=s+fun(i)NextPrintsEndSub程序运行后,单击命令按钮,则窗体上显示D)15的是:A)6B)7C)8D)9(30)阅读程序:OptionBase1Dimarr()AsIntegerPrivateSubForm_Click()DimiAsInteger,jAsIntegerReDimarr(3,2)Fori=1To3Forj=1To2arr(i,j)=i*2+jNextjNextiReDimPreservearr(3,4)Forj=3To4arr(3,j)=j+9NextjPrintarr(3,2)+arr(3,4)EndSub A)21B)13C)8D)25程序运行后,单击窗体,输出结果为:31)在窗体上画一个名称为Commandl的命令按钮,然后编写如下程序:OptionBase1PrivateSubCommand1_Click()DimcAsInteger,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)10 B)16C)12 D)20(32)设有如下程序:PrivateSubCommand1_Click()DimcAsInteger,dAsIntegerc=4d=InputBox("请输入ー个整数”)DoWhiled>0Ifd>cThenc=c+1EndIfd=InputBox("请输入ー个整数”)LoopPrintc+dEndSub程序运行后,单击命令按钮如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0,则输出结果是:A)12 B)11C)10 D)9(33)在窗体上画一个名称为Commandl的命令按钮和一个名称为Textl的文本框,在文本框中输入以ド字符串:MicrosoftVisualBasicProgramming,然后编写如ド事件过程:PrivateSubCommandl_Click()Open"d:\temp\outf.txt"ForOutputAs#1Fori=1ToLen(Textl.Text)c=Mid(Textl.Text,i,1)Ifc>="A"Andcv=”Z”ThenPrint#1,LCase(c)；EndIfNextiCloseEndSub程序运行后,单击命令按钮,文件outf.txt中的内容是:A)MVBP B)mvbpTOC\o"1-5"\h\zC)M D)mV vB bP P(34)在窗体上画一个名称为Command)的命令按钮,然后编写如下程序:DimSWAsBooleanFunctionfunc(XAsInteger)AsIntegerIfX<20ThenY=XElseY=20+XEndIffunc=YEndFunctionPrivateSubCommand1_Click()DimintNumAsIntegerintNum=InputBox(,,H)IfSWThenPrintfunc(intNum)EndIfEndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)SW=FalseEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)SW=TrueEndSub程序运行后,单击命令按钮,将显示ー个输入对话框,如果在对话框中输入25,则程序的执行结果是:A)输出〇 B)输出25C)输出45 D)无任何输出(35)设有如下通用过程:PublicSubfun(a()AsInteger,xAsInteger)Fori=1To5x=x+a(i)NextEndSub在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮,然后编写如ド事件过程:PrivateSubCommandI_Click()Dimarr(5)AsInteger,nAsIntegerFori=1To5arr(i)=i+iNextfunarr,nText1.Text=Str(n)EndSub程序运行后,单击命令按钮,则在文本框中显示的内容是A)30B)25C)20 D)15二、填空题(每空2分,共30分)请将每一个空的正确答案写在答题卡【1】〜【15】序号的横线上,答在试卷上不得分。注意:以命令关键字填空的必须拼写完整。(1)某ニ叉树中度为2的结点有18个，则该二树中有【1】个叶子结点。(2)在面向对象方法中，类的实例称为【2】。(3)诊断和改正程序中错误的工作通常称为【3】。(4)在关系数据库中，把数据表示成二维表,每ー个二维表称为【4】〇(5)问题处理方案的正确而完整的描述称为［5］。(6)以下语句Printlnt(12345.6789*100+0.5)/100的输出结果是:【6】(7)在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:PrivateSubForm_Click()Textl.Text="VB程序设计"EndSubPrivateSubTextl_Change()Picture1.Print"VBProgramminguEndSub程序运行后,单击窗体,在文本框中显示的内容是【7】,而在图片框中显示的内容是［8】(8)阅读下面的程序,程序运行后,单击窗体,输出结果是［9］PrivateSubForm_Click()DimCheckAsBoolean,CounterAsIntegerCheck=TrueCounter=5DoDoWhileCounter<20Counter=Counter+1IfCounter=10ThenCheck=FalseExitDoEndIfLoopLoopUntilCheck=FalsePrintCounterEndSub(9)设有如下程序:PrivateSubForm_Click()DimaAsInteger,sAsIntegern=8s=0Dos=s+nn=n-1LoopWhilen>0PrintsEndSub以上程序的功能是【10】,程序运行后,单击窗体,输出结果为[11](10)设有如下程序:OptionBase1PrivateSubCommand1_Click()DimarrlDimMinAsInteger,iAsIntegerarrl=Array(12,435,76,-24,78,54,866,43)Min=[12]Fori=2To8Ifarrl(i)<MinThen[13]NextiPrint”最小值是:";MinEndSub以上程序的功能是用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中的最小值,请填空(11)在名称为Forml的窗体上画一个文本框,其名称为Textl,在属性窗口中把文本框的MultiLine属性设置为True,然后编写如下事件过程:PrivateSubForm_Click()Open"d:\test\smtext1.txt"ForInputAs#1DoWhileNot[14]LineInput#1,aspectswhole$=wholeS+aspects+Chr(13)+Chr(l0)LoopText1.Text=wholeSClose#1Open"d:\test\smtext2.txt”ForOutputAs#1Print#1,[15]Close#1EndSub上述程序的功能是,把磁盘文件smtextl.txt的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件smtext2.txt.请填空。2005年4月全国计算机等级为试二级VB笔试参考答案选择题:1—5DBDCA6—10CBDDC11-15ABBCD16-20CDABD21-25ABCDB26-30CDBBA31-35CDBDA填空题:[1]19[9]10[2]对象[10]求!-8的和[3]程序调试[II]36[4]关系[12]arrl(l)[5I算法[13]min=arrl(i)[6]12345.68[14]EOF(l)[7]VB程序设计[15]text1.text(或whole$)[8]VBProgramming2005年9月全国计算机等级考试二级VB笔试试卷ー、选择题（每小题2分,共70分）下列各题A）、B）、C）、D）四个选项中,只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。（1）下列叙述中正确的是A）程序设计就是编制程序 B）程序的测试必须由程序员自己去完成〇程序经调试改错后还应进行再测试 D）程序经调试改错后不必进行再测试（2）下列数据结构中,能用二分法进行查找的是A）顺序存储的有序线性表 B）线性链表 C）ニ叉链表 D）有序线性链表（3）下列关于栈的描述正确的是A）在栈中只能插入元素而不能删除元素B）在栈中只能删除元素而不能插入元素〇栈是特殊的线性表，只能在一端插入或删除元素D）栈是特殊的线性表，只能在一端插入元素,而在另一端删除元素（4）下列叙述中1E确的是A）ー个逻辑数据结构只能有一种存储结构B）数据的逻辑结构属于线性结构,存储结构属于非线性结构Oー个逻辑数据结构可以有多种存储结构,且各种存储结构不影响数据处理的效率D）ー个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率（5）下列描述中正确的是A）软件工程只是解决软件项目的管理问题B）软件工程主要解决软件产品的生产率问题〇软件工程的主要思想是强调在软件开发过程中需要应用工程化原则D）软件工程只是解决软件开发中的技术问题（6）在软件设计中，不属于过程设计工具的是A）PDL（过程设计语言） B）PAD图C）N-S图 D）DFD图（7）下列叙述中正确的是A）软件交付使用后还需要进行维护 B）软件一旦交付使用就不需要再进行维护〇软件交付使用后其生命周期就结束 D）软件维护是指修复程序中被破坏的指令

(8)数据库设计的根本目标是要解决D)筒化数据维护A)数据共享问题 B)数据安全问题 〇D)筒化数据维护(9)设有如下关系表:D)T=R/SD)数据库管理员A)T=RCSD)T=R/SD)数据库管理员(10)数据库系统的核心是A)数据模型B)数据库管理系统 〇数据库(11)假定一个VisualBasic应用程序由一个窗体模块和一个标准模块构成。为保存该应用程序,以下正确的操作是A)只保存窗体模块文件 〇只保存窗体模块和标准模块文件B)分别保存窗体模块、标准模块和工 D)只保存工程文件程文件(12)为了清除窗体上的ー个控件,下列正确的操作是A)按回车键 〇选择(单击)要清除的控件,然后按Del键B)按Esc键 D)选择(单击)要清除的控件,然后按回车键(13)以下叙述中错误的是A)打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B)当程序运行时,双击ー个窗体,则触发该窗体的DblClick事件〇VisualBasic应用程序只能以解释方式执行D)事件可以由用户引发，也可以由系统引发(14)设a=2,b=3,c=4,d=5,下列表达式Nota<=cOr4*c=bA2Andboa+c的值是A)-1B)1(15)设a=5,bA)-1B)1(15)设a=5,b=10,则执行A)5~10 B)6~9C)Truec=Int((b-a)*Rnd+a)+1C)6~10D)False后，c值的范围为D)5~9(16)在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程:PrivateSubCommandl_Click()a$="softwareandhardware"b$=Right(a$,8)c$=Mid(a$,1,8)MsgBoxa$,,b$,c$,1EndSub运行程序,单击命令按钮,则在弹出的信息框的标题栏中显示的是A)softwareandhardwareB)software C)hardware D)1(17)在窗体上画一个命令按钮和一ー个文本框，其名称分别为Command)和Textl,把文本框的Text属性设置为空白,然后编写如下事件过程:PrivateSubCommand1_Click()a=InputBox("Enteraninteger")b=InputBox("Enteraninteger")Textl.Text=b+aEndSub程序运行后,单击命令按钮,如果在输入对话框中分别输入8和10,则文本框中显示的内容是A)108B)18 C)810 D)出错(18)在窗体上画两个文本框,其名称分别为Textl和Text2,然后编写如下程序:PrivateSubForm_Load()ShowText1.Text""“：Text2.Text"”"：Textl.SetFocusEndSubPrivateSubTextl_Change()Text2.Text二Mid(Textl.Text,8)EndSub程序运行后,如果在文本框Textl中输入BeijingChina,则在文本框Text2中显示的内容是A)BeijingChinaB)ChinaC)BeijingD)BeijingC(19)在窗体上画一个列表框和一个命令按钮，其名称分别为Listl和Commandl,然后编写如下事件过程:PrivateSubForm_Load()List1.Additem"Item1”List1.Additem"Item2"List1.Additem"Item3"EndSubPrivateSubCommand1_Click()Listl.List(Listl.ListCount)二“AAAA”EndSub程序运行后,单击命令按钮,其结果为A)把字符串“AAAA”添加到列表框中,但位置不能确定B)把字符串“AAAA”添加到列表框的最后(即“Item3”的后面)〇把列表框中原有的最后ー项改为“AAAA”D)把字符串“AAAA”插入到列表框的最前面(即“Itemド的前面)(20)假定有如下事件过程:PrivateSubForm_Click()DimxAsInteger,nAsIntegerx二1n二〇DoWhilex<28x=x*3n二n+1LoopPrintx,nEndSub程序运行后,单击窗体,输出结果是A)814 B)563C)281 D)2435(21)有如下程序：PrivateSubForm_Click()DimCheck,CounterCheck二TrueCounter二0DoDoWhileCounter<20Counter=Counter+1IfCounter=10ThenCheck=FalseExitDoEndIfLoopLoopUntilCheck=FalsePrintCounter,CheckEndSub程序运行后,单击窗体,输出结果为A)150 B)20-1C)10True D)10False(22)有如下程序:PrivateSubForm_Click()DimiAsInteger,sumAsIntegersum=0Fori=2To10IfiMod2<>0AndiMod3=0Thensum=sum+iEndIfNextiPrintsumEndSub程序运行后,单击窗体,输出结果为A)12B)30C)24D)18(23)在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Dimarrayl(10,10)AsIntegerDimiAsInteger,jAsIntegerFori=1To3Forj=2To4arrayl(i,j)=i+jNextjNextiTextl.Text=array1(2,3)+array1(3,4)EndSub程序运行后,单击命令按钮,在文本框中显示的值是A)12B)13C)14D)15(24)在窗体上画一个命令按钮,其名称为Commandl,然后编写如下事件过程:PrivateSubCommand1_Click()Dimal(4,4),a2(4,4)Fori=1To4Forj=1To4al(i,j)=i+ja2(i,j)=al(i,j)+i+jNextjNextiPrinta1(3,3);a2(3,3)EndSub程序运行后,单击命令按钮,在窗体上输出的是A)66 B)105 C)721 D)612(25)有如下程序:OptionBase1PrivateSubForm_Click()Dimarr,SumSum=0arr=Array(l,3,5,7,9,11,13,15,17,19)Fori=1To10Ifarr(i)/3=arr(i)\3ThenSum=Sum+arr(i)EndIfNextiPrintSumEndSub程序运行后,単击窗体,输出结果为A)25B)26027D)28(26)在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()Dima(5)AsStringFori=1To5a(i)=Chr(Asc(HAn)+(i-1))NextiForEachbInaPrintb;NextEndSub程序运行后,单击命令按钮,输出结果是A)ABCDE B)12345C)abcde D)出错信息(27)以下关于函数过程的叙述中,正确的是A)如果不指明函数过程参数的类型，则该参数没有数据类型B)函数过程的返回值可以有多个〇当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递D)函数过程形参的类型与函数返回值的类型没有关系(28)函数过程F1的功能是:如果参数b为奇数,则返回值为1,否则返回值为0。以下能正确实现上述功能的代码是:A)FunctionFl(bAsInteger) ElseIfbMod2=0Then Return1EndIfReturn0EndIfFunctionFl(bAsInteger)IfbMod2=FunctionFl(bAsInteger)IfbMod2=0ThenFl=0FunctionFl(bAsInteger)IfbMod2=0ThenFl=1ElseFl=0EndIfEndFunctionFl=1EndIfEndFunctionFunctionFl(bAsInteger)IfbMod200ThenReturn0ElseReturn1EndIfEndFunctionElseEndFunctionElse(29)以下关于KeyPress事件过程中参数KeyAscii的叙述中正确的是KeyAscii参数是所按键的ASCII码KeyAscii参数的数据类型为字符串KeyAscii参数可以省略KeyAscii参数是所按键上标注的字符(30)设窗体上有一个名为Textl的文本框,并编写如下程序:PrivateSubForm_Load()ShowTextl.Text=""： Textl.SetFocusEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Print”程序设计”EndSubPrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintnVisualBasic**;EndSub程序运行后,如果在文本框中输入字母“a”,然后单击窗体,则在窗体上显示的内容是A)VisualBasicB)程序设计 C)VisualBasic程序设计D)a程序设计(31)假定有下表所列的菜单结构:标题名称层次显示appear1(主菜单)大图标bigicon2(子菜单)小图标smallicon2(子菜单)要求程序运行后,如果单击菜单项“大图标”,程是PrivateSubbigicon_Click()要求程序运行后,如果单击菜单项“大图标”,程是PrivateSubbigicon_Click()bigicon.Checked=FalseEndSubC)PrivateSubbigicon_Click()bigicon.Checked=TrueEndSub(32)假定通用对话框的名称为CommonDialogl,则在该菜单项前添加一个“ノ 以下正确的事件过PrivateSubbigicon_Click()Me.appear.bigicon.Checked=TrueEndSubD)PrivateSubbigicon_Click()appear.bigicon.Checked=TrueEndSub命令按钮的名称为Commandl,则单击命令按钮后,能使打开的对话框的标题为“NewTitle”的事件过程是A)PrivateSubCommandl_Click()C)PrivateSubCommand1_Click()CommonDialogl.DialogTitle="NewTitle"CommonDialog1.DialogTitle="NewTitle1'CommonDialog1.ShowPrinterCommonDialog1.ShowOpenEndSubEndSubB)PrivateSubCommandl_Click()D)PrivateSubCommandl_Click()CommonDialog1.DialogTitle="NewTitle'1CommonDialog1.DialogTitle="NewTitle"CommonDialog1.ShowFontCommonDialog1.ShowColorEndSubEndSub（33）如果ー个工程含有多个窗体及标准模块,则以下叙述中错误的是A）任何时刻最多只有一个窗体是活动窗体B）不能把标准模块设置为启动模块C）用Hide方法只是隐藏•个窗体,不能从内存中清除该窗体D）如果工程中含有SubMain过程,则程序一定首先执行该过程（34）假定在工程文件中有一个标准模块,其中定义了如下记录类型TypeBooksNameAsString*10TelNumAsString*20EndType要求当执行事件过程Commandl_Click时,在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是A)PrivateSubCommandl_Click()DimBAsBooksOpen"c:\Person.txr,ForOutputAs#1B.Name=InputBox("输入姓名”)B.TelNum=InputBox("输入电话号码”)Write#1,B.Name,B.TelNumClose#1EndSubPrivateSubCommandl_Click（）DimBAsBooksOpen"c:\Person.txt”ForInputAs#1B.Name=InputBox（"输入姓名”）B.TelNum=InputBox（"输入电话号码”）Print#1,B.Name,B.TelNumClose#1EndSub（35）目录列表框的Path属性的作用是A）显示当前驱动器或指定驱动器上的某目录下的文件名B）显示当前驱动器或指定驱动器上的目录结构〇显示根目录下的文件名二、填空题（每空2分,共30分）【15】序号的横线上,答在试卷上不得分。请将每空的正确答案写在答题卡【【15】序号的横线上,答在试卷上不得分。PrivateSubCommand1_Click()DimBAsBooksOpen"c:\Person.txt”ForOutputAs#1Name=InputBox("输入姓名”)PrivateSubCommand1_Click()DimBAsBooksOpen"c:\Person.txt”ForOutputAs#1Name=InputBox("输入姓名”)TelNum=InputBox("输入电话号码”)Write#1,BClose#1EndSubPrivateSubCommand1_Click()DimBAsBookOpen"c:\Person.txt1'ForInputAs#1Name=InputBox(”输入姓名”)TelNum=InputBox("输入电话号码”)Print#1,B.Name,B.TelNumClose#1EndSubD)显示指定路径下的文件(2)算法复杂度主要包括时间复杂度和【2】复杂度。(3)在进行模块测试时,要为每个被测试的模块另外设计两类模块:驱动模块和承接模块(桩模块)。其中【3】的作用是将测试数据传送给被测试的模块,并显示被测试模块所产生的结果。(4)一棵ニ叉树第六层(根结点为第一层)的结点数最多为【4】个。(5)数据结构分为逻辑结构和存储结构,循环队列属于[5]结构。(6)设有以下函数过程:Functionfun(mAsInteger)AsIntegerDimkAsInteger,sumAsIntegersum=0Fork=mTo1Step-2sum=sum+kNextkfun=sumEndFunction若在程序中用语句s=fun(10)调用此函数,则s的值为【6】〇(7)在窗体上画一个命令按钮和一个文本框,然后编写命令按钮的Click事件过程。程序运行后,在文本框中输入ー串英文字母(不区分大小写),单击命令按钮,程序可找出未在文本框中输入的其他所有英文字母,并以大写方式降序显示到Text!中。例如,若在Textl中输入的是abDfdb,则单击Command1按钮后Textl中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。PrivateSubCommandl_Click()DimstrAsString,sAsString,cAsStringstr=UCase(Textl)s=心c=Whilec>="AnIfInStr(str,c)=0Thens=[7]EndIfc=Chr$(Asc(c)[8])WendIfsonnThenTextl=sEndIfEndSubPrivateSubCommandl_Click()DimrAsInteger,nAsIntegern=Textlr=Text2Text3=fun(n)/fun(PrivateSubCommandl_Click()DimrAsInteger,nAsIntegern=Textlr=Text2Text3=fun(n)/fun([9])/fun(r)か---计算。下图窗体中3个文本框的名称依r!(n-r)!次是Textl、Text2、Text3。程序运行时在Textl、Text2中分别输入n和r的值,单击Command!按钮即可求出选法的个数,并显示在Text3文本框中(见下图)。请填空。

EndSubFunctionfun(nAsInteger)aslongDimtAsLong[10]EndSubFunctionfun(nAsInteger)aslongDimtAsLong[10]Fork=1Tont=t*kNextfun=tEndFunction（9）以下是ー个比赛评分程序。在窗体上建立一个名为Textl的文本框数组,然后画一个名为Text2的文本框和名为Command）的命令按钮。运行时在文本框数组中输入7个分数,单击“计算得分”命令按钮,则最后得分显示在Text2文本框中（去掉ー个最高分和一个最低分后的平均分即为最后得分）,如图所示。请填空。PrivateSubCommand1_Click()DimkAsIntegerDimsumAsSingle,maxAsSingle,minAsSinglesum=Text1(0)max=Text1(0)min=[11]Fork=[12]To6Ifmax<Textl(k)Thenmax=Textl(k)EndIfIfmin>Textl(k)Thenmin=Textl(k)EndIfsum=sum+Text1(k)NextkText2=([13])/5EndSub（10）如图所示,在列表框Listl中已经有若干人的简单信息,运行时在Textl文本框（即“查找对象”右边的文本框）输入ー个姓或姓名,单击“查找”按钮,则在列表框中进行査找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第1个匹配项;若未找到,则在Text2中显示“查无此人”。请填空。*For«l张李马李陈刘郝黄张李马李陈刘郝黄红成淮东方借壳立女男男男女女男男查找对象:李成 男PrivateSubCommand1_Click()DimkAsInteger,nAsInteger,foundAsBooleanfound=Falsen=Len([14])k=0Whilek<Listl.ListCountAndNotfoundIfTextl=Left$(Listl.List(k),n)ThenText2=[15]found=TrueEndIfk=k+1WendIfNotfoundThenText2="查无此人"EndIfEndSub2005年9月全国计算机等级考试二级VB笔试参考答案选择题[1-5]CACDC[6-10]DAABB[11-15]BCCDC[16-20]CABBA[21-251DAADC[26-30]ADBAC[31-351CCDAB填空题[11数据库系统[21空间[31驱动模块[4]32[5l存储结构[6130[71s&c[81-1[91n-r[101t=l[111Textl(O)[12]1[13](sum-max-min) [14]textl.text[15]listl.list(k)D)数据传输特性软件维护只包括对程序代码的维护以上D)数据传输特性软件维护只包括对程序代码的维护以上三种说法都不对A)队列B)栈 C)(5)下列叙述中正确的是。A)线性链表是线性表的链式存储结构B)栈与队列是非线性结构双向链表 D)二叉树C)双向链表是非线性结构D)只有根结点的ニ叉树是线性结构2006年4月全国计算机等级考试二级VB笔试试卷ー、选择题(每小题2分,共70分)下列各题A)、B)、C)、D)四个选项中,只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上,答在试卷上不得分。(1)下列选项中不属于结构化程序设计方法的是。A)自顶向下 B)逐步求精 〇模块化D)可复用(2)两个或两个以上模块之间关联的紧密程度称为。A)耦合度 B)内聚度 C)复杂度(3)下列叙述中正确的是。A)软件测试应该由程序开发者来完成 〇B)程序经调试后ー一般不需要再测试 D)(4)按照“后进先出”原则组织数据的数据结构是。(6)对如下ニ叉树进行后序遍历的结果为。A)ABCDEFB)DBEAFCA)ABCDEFB)DBEAFCC)ABDECFD)DEBFCA(7)在深度为7的满ニ叉树中,叶子结点的个数为。A)32 B)31C)64 D)63“商品”与“顾客”两个实体集之间的联系一般是。A) ー对ー B) ー对多 C)多对ー D)多对多(9)在E-R图中，用来表示实体的图形是。A)矩形 B)椭圆形 〇菱形 D)三角形(10)数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是。A)DB包含DBS和DBMS B)DBMS包含DB和DBSC)DBS包含DB和DBMSD)没有任何关系(11)以下关于VisualBasic特点的叙述中,错误的是。VisualBasic是采用事件驱动编程机制的语言VisualBasic程序既可以编译运行，也可以解释运行C)构成VisualBasic程序的多个过程没有固定的执行顺序D)VisualBasic程序不是结构化程序，不具备结构化程序的三种基本结构(12)以下叙述中，错误的是。ー个VisualBasic应用程序可以含有多个标准模块D)标准模块文件的扩展名是.bas文件ー个VisualBasic工程可以含有多个窗体文件〇标准模块文件可以属于某个指定的窗体文件(13)以下叙述中,错误的是。A)在VisualBasic中，对象所能响应的事件是由系统定义的B)对象的任何属性既可以通过属性窗口设定,也可以通过程序语句设定VisualBasic中允许不同对象使用相同名称的方法VisualBasic中的对象具有自己的属性和方法

(14)设有如下语句:Dima,bAsIntegerc=MVisualBasicMd=#7/20/2005#以下关于这段代码的叙述中,错误的是。a被定义为Integer类型变量 〇c中的数据是字符串b被定义为Integer类型变量 D)d中的数据是日期类型(15)以下能从字符串"VisualBasic”中直接取出子字符串"Basic"的函数是。A)Left B)MidC)StringD)Instr(16)设a=4,b=3,c=2,d=l,下歹リ表达式a>b+lOrcvdAndbMode的值是。A)True B)1C)-1D)0(17)以下可以作为VisualBasic变量名的是。A)A#A B)counstAC)3AD)?AA(18)设x=4,y=6.则以下不能在窗体上显示出“A=10”的语句是。A)PrintA=x+yB)Print"A=";x+yC)Print"A="+Str(x+y) D)Print"A="&x+y(19)假定有如下的命令按钮(名称为Commandl)事件过程:PrivateSubCommandl_Click()x=InputBox("输入:","输入整数")MsgBox"输入的数据是：”,，”输入数据："+xEndSub程序运行后,单击命令按钮,如果从键盘上输入整数10,则以下叙述中错误的是。A)x的值是数值10 〇信息框的标题是“输入数据:10”B)输入对话框的标题是“输入整数” D)信息框中显示的是“输入的数据是:”(20)在窗体上画(20)在窗体上画1个命令按钮(名称为Commandl)和1个文本框(名称为Textl),然后编写如下事件过程:PrivateSubCommandl_Click()x=Val(Textl.Text)SelectCasexCase1,3y=x*xCaseIs>=10,Is<=-10y=xCase-10To10y=-xEndSelectEndSub程序运行后,在文本框中输入3,然后单击命令按钮,则以下叙述中正确的是。A)执行y=x*x B)执行y=・x〇先执行y=x*x,再执行y=・xD)程序出错(21)设有命令按钮Commandl单击事件过程,代码如下：PrivateSubCommand1_Click()Dima(30)AsIntegerFori=lTo30a(i)=Int(Rnd*100)NextForEacharrltemInaIfarrltemMod7=0ThenPrintarrltem；IfarrItem>90ThenExitForNextEndSub对于该事件过程,以下叙述中错误的是。A)a数组中的数据是30个100以内的整数B)语句ForEacharrltemIna有语法错误IfarrltemMod7=0 语句的功能是输出数组中能够被7整除的数IfarrItem>90 语句的作用是当数组元素的值大于90时退出For循环(22)设有命令按钮Commandl的单击事件过程，|代码如下:PrivateSubCommand1_Click()钮,然后编写如下事件过程:Dima(3,3)AsIntegerPrivateSubCommand1_Click()Fori=lTo3a=0Forj=lTo3Fori=lTo2a(i,j)=i*j+iForj=lTo4NextjIfjMod2<>0ThenNextia=a-lSum=0EndIfFori=lTo3a=a+lSum=Sum+a(i,4-i)NextjNextiNextiPrintSumPrintaEndSubEndSub运行程序,单击命令按钮,输出结果是。程序运行后,单击命令按钮,输出结果是A)20 B)7 C)16 D)A)0 B)2 C)3 D)174(23)在窗体上画1个名称为Command)的命令按(24)窗体上有名称分别为TextKText2的2个文本框,有一个由3个单选按钮构成的控件数组Oplionl,如图1所示。程序运行后,如果单击某个单选按钮,则执行Textl中的数值与该单选按钮所对应的运算(乘以1、10或100),并将结果显示在Texl2中,如图2所示。为了实现上述功能,在程序中的问号。)处应填入的内容是。图1图2图1图2PrivateSubOptionl_Click(IndexAsInteger)IfTextl.Textou'ThenSelectCase?CaseOText2.Text=Val(Text1.Text)Text2.Text=Val(Text1.Text)*10Text2.Text=Val(Text1.Text)*100EndSelectEndIfEndSubC)Option1(Index)D)A)Index C)Option1(Index)D)Option1(Index).Value(25)在窗体上画I个命令按钮,其名称为Commandl,然后编写如ド程序:PrivateSubCommandl_Click()Dima(10)AsIntegerDimxAsIntegerFori=lTo10a(i)=8+iNextx=2Printa(f(x)+x)EndSubFunctionf(xAsInteger)x=x+3f=xEndFunction程序运行后,单击命令按钮,输出结果为。A)12 B)15 C)17 D)18(26)以下关于过程的叙述中,错误的是。A)事件过程是由某个事件触发而执行的过程 C)可以在事件过程中调用通用过程B)函数过程的返回值可以有多个 D)不能在事件过程中定义函数过程(27)在窗体上画3个标签、3个文本框(名称分别为Textl、Text2和Text3)和1个命令按钮(名称为Command1)»外观如图所示。编写如卜程序:PrivateSubForm_Load()Text1.Textゴ"Text2.Text=,H,Text3.Text=H"EndSubPrivateSubCommand1_Click()x=Val(Text1.Text)y=Val(Text2.Text)Text3.Text=f(x,y)EndSubFunctionf(ByValxAsInteger,ByVaiyAsInteger)DoWhiley<>0tmp=xModyx=yy=tmpLoopf=xEndFunction运行程序,在Text1文本框中输入36,在Text2文本框中输入24,然后单击命令按钮,则在Text3文本框中显示的内容是。

A)4B)6C)8D)12A)4B)6C)8D)12(28)窗体上有名称分别为Textl、Text2的2个文本框,要求文本框Textl中输入的数据小于500,文木框Text2中输入的数据小于100〇,否则重新输入。为了实现上述功能,在以下程序中问号(?)处应填入的内容是PrivateSubTextl_LostFocus()CallCheckInput(Textl,500)EndSubPrivateSubText2_LostFocus()CallCheckInput(Text2,1000)EndSubSubChecklnput(tAs?,xAsInteger)IfVal(t.Text)>xThenMsgBox”请重新输入!”EndIfEndSubA)Text B)SelText C)Control D)Form(29)在窗体上画1个文本框,其名称为Textl,然后编写如下过程:PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)EndSubPrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode+2)EndSub程序运行后,把焦点移到文本框中,此时如果敲击“A”键,则输出结果为。A)A B)A C)A D)AA B C D(30)为了使列表框中的项目呈多列显示,需要设置的属性为。A)Columns B)Style C)List D)MultiSelect(31)在窗体上画1个命令按钮，名称为Commandl,然后编写如下程序:DimFlagAsBooleanPrivateSubCommand1_Click()DimintNumAsIntegerintNum=InputBox("请输入:*')IfFlagThenPrintf(intNum)EndSubFunctionf(XAsInteger)AsIntegerIfX<10ThenY=XElseY=X+10EndIff=YEndFunctionPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Flag=TrueEndSub运行程序,首先单击窗体,然后单击命令按钮,在输入对话框中输入5,则程序的输出结果为。A)0 B)5 C)15 D)无任何输出(32)在菜单编辑器中建立1个名称为MenuO的菜单项，将其“可见”属性设置为False,并建立其若干子菜单，然后编写如下过程:PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1ThenPopupMenuMenuOEndIfEndSub则以下叙述中错误的是。A)该过程的作用是弹出ー个菜单B)单击鼠标右键时弹出菜单C)MenuO是在菜单编辑器中定义的弹出菜单的名称D)参数X、丫指明鼠标当前位置的坐标(33)窗体上有1个名称为CD1的通用对话框，1个名称为Commandl的命令按钮。命令按钮的单击事件过程如下:PrivateSubCommandl_Click()CDl.FileName=""CDl.Filter="AUFilesl*.*l(*.DoC)l*.Docl(*.Txt)l*.txt"CDl.FilterIndex=2CDl.Action=lEndSub关于以上代码，错误的叙述是。A)执行以上事件过程，通用对话框被设置为“打开”文D)以上代码不对文件执行读写操作件对话框B)通用对话框的初始路径为当前路径〇通用对话框的默认文件类型为・.Txt(34)以下叙述中错误的是。A)用Shell函数可以执行扩展名为.exe的应用程序B)若用Static定义通用过程，则该过程中的局部变量都被默认为Static类型〇Static类型的变量可以在标准模块的声明部分定义D)全局变量必须在标准模块中用Public或Global声明(35)以下关于文件的叙述中,错误的是。A)使用Append方式打开文件时，文件指针被定位于文件尾B)当以输入方式(Input)打开文件时，如果文件不存在，则建立一个新文件C)顺序文件各记录的长度可以不同D)随机文件打开后，既可以进行读操作，也可以进行写操作二、填空题(每空2分,共30分)请将每空的正确答案写在答题卡［1】〜【15】序号的横线上,答在试卷上不得分。(1)对长度为10的线性表进行冒泡排序，最坏情况下需要比较的次数为［1L(2)在面向对象方法中，【2】描述的是具有相似属性与操作的一组对象。(3)在关系模型中，把数据看成是二维表，每ー个二维表称为ー个［31(4)程序测试分为静态分析和动态测试。其中【4】是指不执行程序，而只是对程序文本进行检査，通过阅读和讨论,分析和发现程序中的错误。(5)数据独立性分为逻辑独立性与物理独立性。当数据的存储结构改变时，其逻辑结构可以不变，因此,基于逻辑结构的应用程序不必修改,称为【5】。(6)下列语句的输出结果是[6LPrintFormat(Int(12345.6789*100+0.5)/100,"0000,0.00”)(7)在窗体上画(7)在窗体上画1个命令按钮,其名称为Command1»然后编写如下事件过程:PrivateSubCommandl_Click()Dimarr(lTo100)AsIntegerFori=lTo100arr(i)=Int(Rnd*1000)NextiMax=arr(l)：Min=arr(1)Fori=lTo100If[7]Then Max=arr(i)If[8]Then Min=arr(i)NextiPrinf'Maxゴ;Max,"Minゴ:MinEndSub程序运行后,单击命令按钮,将产生100个1000以内的随机整数,放入数组arr中,然后查找并输出这100个数中的最大值Max和最小值Min,请填空。(8)在窗体上画1个名称为Command1的命令按钮和2个名称分别为Textl、Text2的文本框,如图所示,然后编写如下程序:FunctionFun(xAsInteger,ByVaiyAsInteger)AsIntegerx=x+yIfx<0ThenFun=xElseFun=yEndIfEndFunctionPrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=-10：b=5Textl.Text=Fun(a,b)Text2.Text=Fun(a,b)EndSub程序运行后,单击命令按钮,Textl和Text2文本框显示的内容分别是[9]和【10】。(9)在窗体上画1个命令按钮和1个文本框,其名称分别为Commandl和Textl,然后编写如下代码:DimSaveAllAsStringPrivateSubCommandl_Click()Text1.Text=Left(UCase(SaveAll),4)EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)SaveAll=SaveAll+Chr(KeyAscii)EndSub程序运行后,在文本框中输入abcdefg,单击命令按钮,则文本框中显示的内容是【11】。(10)在窗体上画1个命令按钮和1个通用对话框,其名称分别为Commandl和CommonDialogl,然后编写如下事件过程:PrivateSubCommand1_Click()CommonDialogl.【12】ゴ打开文件”CommonDialog1.Filter='fAllFiles(*.*)1*.*"CommonDialog1.InitDirゴC：\CommonDialog1.ShowOpenEndSub该程序的功能是,程序运行后,单击命令按钮,将显示“打开”文件对话框,其标题是“打开文件”，在，，文件类型，，栏内显示，，ARFiles(*.*)”,并显示C盘根目录下的所有文件,请填空。(11)在窗体上画1个文本框,名称为Textl,然后编写如下程序:PrivateSubForm_Load()Opened：\temp\dat.txtMForOutputAs#lTextl.Textゴ"

EndSubPrivateSubTextl_KeyPress(KeyAsciiAsInteger)If[13]=13ThenIfUCase(Textl.Text)=[14]ThenClose1EndElseWrite#),[15]Text1.Textゴ"EndIfEndIfEndSub以上程序的功能是,在D盘temp目录下建立1个名为dat.txt的文件,在文本框中输入字符,每次按回车键(回车符的ASCH码是13)都把当前文本框中的内容写入文件dat.txt,并清除文本框中的内容;如果输入“END”,则结束程序。请填空。2006年4月全国计算机等级考试二级VB笔试参考答案2006年4月全国计算机等级考试二级VB笔试参考答案ー、选择题(1)…(5)DADBA (6)—(10)DCDAC(16)…(20)DBAAA(31)-(35)BBCCB二、填空题(1)45(2)类(3)关系(4)静态分析(静态测试)(5)物理独立性(21)…(25)BCDAD(11