全国计算机等级考试二级VB真题(2023-2023完整版)

2005－2023年国二VB真题—唐海2005年4月全国计算机等级考试二级VB笔试试卷一、选择题((1）~(35）每小题2分，共70分）(1）数据的存储结构是指A）存储在外存中的数据B）数据所占的存储空间量C）数据在计算机中的顺序存储方式D）数据的逻辑结构在计算机中的表示(2）下列关于栈的描述中错误的是A）栈是先进后出的线性表B）栈只能顺序存储C）栈具有记忆作用D）对栈的插入与删除操作中，不需要改变栈底指针(3）对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是A）冒泡排序为n/2B）冒泡排序为nC）快速排序为nD）快速排序为n(n-1）/2(4）对于长度为n的线性表进行顺序查找，在最坏情况下所需要的比较次数为A）log2nB）n/2C）nD）n+1(5）下列对于线性链表的描述中正确的是A）存储空间不一定是连续，且各元素的存储顺序是任意的B）存储空间不一定是连续，且前件元素一定存储在后件元素的前面C）存储空间必须连续，且前件元素一定存储在后件元素的前面D）存储空间必须连续，且各元素的存储顺序是任意的(6）下列对于软件测试的描述中正确的是A）软件测试的目的是证明程序是否正确B）软件测试的目的是使程序运行结果正确C）软件测试的目的是尽可能多地发现程序中的错误D）软件测试的目的是使程序符合结构化原则(7）为了使模块尽可能独立，要求A）模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强B）模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱C）模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱D）模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强(8）下列描述中正确的是A）程序就是软件B）软件开发不受计算机系统的限制C）软件既是逻辑实体，又是物理实体D）软件是程序、数据与相关文档的集合(9）数据独立性是数据库技术的重要特点之一。所谓数据独立性是指A）数据与程序独立存放B）不同的数据被存放在不同的文件中C）不同的数据只能被对应的应用程序所使用D）以上三种说法都不对(10）用树形结构表示实体之间联系的模型是A）关系模型B）网状模型C）层次模型D）以上三个都是(11）在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是：A）PrivateSubText1_Change(）Command1.Caption=”计算机等级考试”EndSubB）PrivateSubCommand1_Click(）Caption=”计算机等级考试”EndSubC）PrivateSubForm1_Click(）Text1.Caption=”计算机等级考试”EndSubD）PrivateSubCommand1_Click(）Text1.Text=”计算机等级考试”EndSub(12）设a=5,b=4,c=3,d=2，下列表达式的值是3>2*bOra=cAndb<>cOrc>dA）1B）TrueC）FalseD）2(13）设a=”MicrosoftVisualBasic”,则以下使变量b的值为”VisualBasic”的语句是A）b=Left(a,10）B）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）MicrosoftVisualB）MicrosoftC）BasicD）5(15）设a=”a”,b=”b”,c=”c”,d=”d”,执行语句x=IIf((a<d）,”A”,”B”）后，x的值为：A）”a”B）”b”C）”B”D）”A”(16）为了使命令按钮(名称为Command1）右移200，应使用的语句是A）Command1.Move-200B）Command1.Move200C）Command1.Left=Command1.Left+200D）Command1.Left=Command1.Left-200(17）在窗体上画一个文本框，然后编写如下事件过程，程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容是：PrivateSubForm_Click(）x=InputBox("请输入一个整数"）Printx+Text1.TextEndSubA）123B）456C）579D）123456（18）在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False,程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序，在______处应填入的内容是PrivateSubCommand1_Click(）Timer1._________EndSubPrivateSubTimer1_Timer(）Text1.Text=TimeEndSubA）Enabled=TrueB）Enabled=FalseC）Visible=TrueD）Visible=False(19）假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是：A）选择图片框，然后按Del键B）执行语句Picture1.Picture=LoadPicture(“”）C）执行语句Picture1.Picture=””D）选择图片框，在属性窗口中选择Picture属性，然后按回车键（20）在窗体上画一个List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列能正确实现上述操作的程序是A）PrivateSubList1_Click(）Label1.Caption=List1.ListIndexEndSubB）PrivateSubList1_Click(）Label1.Name=List1.ListIndexEndSubC）PrivateSubList1_Click(）Label1.Name=List1.TextEndSubD）PrivateSubList1_Click(）Label1.Caption=List1.TextEndSub（21）在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：PrivateSubCommand1_Click(）DimiAsInteger,xAsIntegerFori=1To6Ifi=1Thenx=iIfi<=4Thenx=x+1Elsex=x+2EndIfNextiPrintxEndSub程序运行后，单击命令按钮，其输出结果为A）9B）6C）12D）15（22）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click(）c="ABCD"Forn=1To4Print_________NextEndSub程序运行后，单击命令按钮，要求在窗体上显示如下内容：DCDBCDABCD则在________处应填入的内容为A）Left(c,n）B）Right(c,n）C）Mid(c,n,1）D）Mid(c,n,n）(23）执行以下程序段后，x的值为DimxAsInteger,iAsIntegerx=0Fori=20To1Step-2x=x+i\5NextIA）16B）17C）18D）19(24）在VisualBasic工程中，可以作为启动对象的程序是A）任何窗体或标准模块B）任何窗体或过程C）SubMain过程或其他任何模块D）SubMain过程或任何窗体(25）假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是A）数组中每个命令按钮的名称(名称属性）均为Command1B）数组中每个命令按钮的标题(Caption属性）都一样C）数组中所有命令按钮可以使用同一个事件过程D）用名称Command1(下标）可以访问数组中的每个命令按钮(26）把窗体的KeyPreview属性设置为True,然后编写如下事件过程:PrivateSubForm_KeyPress(KeyAsciiAsInteger）DimchAsStringch=Chr(KeyAscii）KeyAscii=Asc(UCase(ch））PrintChr(KeyAscii+2）EndSub程序运行后,按键盘上的”A”键,则在窗体上显示的内容是A）AB）BC）CD）D(27）在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:PrivateSubCommand1_Click(）a=InputBox("请输入日期(1~31）"）t="旅游景点:"&IIf(a>0Anda<=10,"长城",""）&IIf(a>10Anda<=20,"故宫",""）_&IIf(a>20Anda<=30,"颐和园",""）Text1.Text=tEndSub程序运行后,如果从键盘输入16,则在文本框中显示的内容是:A）旅游景点：长城故宫B）旅游景点：长城颐和园C）旅游景点：颐和园D）旅游景点：故宫(28）在窗体上画一个名称为Label1的标签,然后编写如下事件过程，程序运行后,单击窗体,在标签中显示的内容是PrivateSubForm_Click(）Dimarr(10,10）AsIntegerDimiAsInteger,jAsIntegerFori=2To4Forj=2To4arr(i,j）=i*jNextjNextiLabel1.Caption=Str(arr(2,2）+arr(3,3））EndSubA）12B）13C）14D）15(29）在窗体上画一个名称为Comamnd1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:PrivateFunctionfun(ByValmAsInteger）IfmMod2=0Thenfun=2Elsefun=1EndIfEndFunctionPrivateSubCommand1_Click(）DimiAsInteger,sAsIntegers=0Fori=1To5s=s+fun(i）NextPrintsEndSub程序运行后,单击命令按钮,则窗体上显示的是:A）6B）7C）8D）9(30）阅读程序:OptionBase1Dimarr(）AsIntegerPrivateSubForm_Click(）DimiAsInteger,jAsIntegerReDimarr(3,2）Fori=1To3Forj=1To2arr(i,j）=i*2+jNextjNextiReDimPreservearr(3,4）Forj=3To4arr(3,j）=j+9NextjPrintarr(3,2）+arr(3,4）EndSub程序运行后,单击窗体,输出结果为:A）21B）13C）8D）2531）在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: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）10B）16C）12D）20(32）设有如下程序:PrivateSubCommand1_Click(）DimcAsInteger,dAsIntegerc=4d=InputBox("请输入一个整数"）DoWhiled>0Ifd>cThenc=c+1EndIfd=InputBox("请输入一个整数"）LoopPrintc+dEndSub程序运行后,单击命令按钮如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0,则输出结果是:A）12B）11C）10D）9(33）在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入以下字符串:MicrosoftVisualBasicProgramming，然后编写如下事件过程:PrivateSubCommand1_Click(）Open"d:\temp\outf.txt"ForOutputAs#1Fori=1ToLen(Text1.Text）c=Mid(Text1.Text,i,1）Ifc>="A"Andc<="Z"ThenPrint#1,LCase(c）；EndIfNextiCloseEndSub程序运行后,单击命令按钮,文件outf.txt中的内容是:A）MVBPB）mvbpC）MD）mVvBbPp(34）在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:DimSWAsBooleanFunctionfunc(XAsInteger）AsIntegerIfX<20ThenY=XElseY=20+XEndIffunc=YEndFunctionPrivateSubCommand1_Click(）DimintNumAsIntegerintNum=InputBox(""）IfSWThenPrintfunc(intNum）EndIfEndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）SW=FalseEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）SW=TrueEndSub程序运行后,单击命令按钮,将显示一个输入对话框,如果在对话框中输入25,则程序的执行结果是:A）输出0B）输出25C）输出45D）无任何输出(35）设有如下通用过程:PublicSubfun(a(）AsInteger,xAsInteger）Fori=1To5x=x+a(i）NextEndSub在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click(）Dimarr(5）AsInteger,nAsIntegerFori=1To5arr(i）=i+iNextfunarr,nText1.Text=Str(n）EndSub程序运行后,单击命令按钮,则在文本框中显示的内容是A）30B）25C）20D）15二、填空题(每空2分，共30分）请将每一个空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。注意：以命令关键字填空的必须拼写完整。(1）某二叉树中度为2的结点有18个，则该二树中有【1】个叶子结点。(2）在面向对象方法中，类的实例称为【2】。(3）诊断和改正程序中错误的工作通常称为【3】。(4）在关系数据库中，把数据表示成二维表，每一个二维表称为【4】。(5）问题处理方案的正确而完整的描述称为【5】。(6）以下语句PrintInt(12345.6789*100+0.5）/100的输出结果是:【6】(7）在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:PrivateSubForm_Click(）Text1.Text="VB程序设计"EndSubPrivateSubText1_Change(）Picture1.Print"VBProgramming"EndSub程序运行后,单击窗体,在文本框中显示的内容是【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(）Dimarr1DimMinAsInteger,iAsIntegerarr1=Array(12,435,76,-24,78,54,866,43）Min=【12】Fori=2To8Ifarr1(i）<MinThen【13】NextiPrint"最小值是:";MinEndSub以上程序的功能是用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中的最小值,请填空(11）在名称为Form1的窗体上画一个文本框,其名称为Text1,在属性窗口中把文本框的MultiLine属性设置为True,然后编写如下事件过程:PrivateSubForm_Click(）Open"d:\test\smtext1.txt"ForInputAs#1DoWhileNot【14】LineInput#1,aspect$whole$=whole$+aspect$+Chr(13）+Chr(10）LoopText1.Text=whole$Close#1Open"d:\test\smtext2.txt"ForOutputAs#1Print#1,【15】Close#1EndSub上述程序的功能是,把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件smtext2.txt.请填空。2005年9月全国计算机等级考试二级VB笔试试卷一、选择题（每小题2分，共70分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。（1）下列叙述中正确的是A）程序设计就是编制程序B）程序的测试必须由程序员自己去完成C）程序经调试改错后还应进行再测试D）程序经调试改错后不必进行再测试（2）下列数据结构中，能用二分法进行查找的是A）顺序存储的有序线性表B）线性链表C）二叉链表D）有序线性链表（3）下列关于栈的描述正确的是A）在栈中只能插入元素而不能删除元素B）在栈中只能删除元素而不能插入元素C）栈是特殊的线性表，只能在一端插入或删除元素D）栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素（4）下列叙述中正确的是A）一个逻辑数据结构只能有一种存储结构B）数据的逻辑结构属于线性结构，存储结构属于非线性结构C）一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率D）一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率（5）下列描述中正确的是A）软件工程只是解决软件项目的管理问题B）软件工程主要解决软件产品的生产率问题C）软件工程的主要思想是强调在软件开发过程中需要应用工程化原则D）软件工程只是解决软件开发中的技术问题（6）在软件设计中，不属于过程设计工具的是A）PDL(过程设计语言）B）PAD图C）N-S图D）DFD图（7）下列叙述中正确的是A）软件交付使用后还需要进行维护B）软件一旦交付使用就不需要再进行维护C）软件交付使用后其生命周期就结束D）软件维护是指修复程序中被破坏的指令（8）数据库设计的根本目标是要解决A）数据共享问题B）数据安全问题C）大量数据存储问题D）简化数据维护（9）设有如下关系表:RSTABCABCABC112313112223223313则下列操作中正确的是A）T＝R∩SB）T＝R∪SC）T＝R×SD）T＝R/S（10）数据库系统的核心是A）数据模型B）数据库管理系统C）数据库D）数据库管理员（11）假定一个VisualBasic应用程序由一个窗体模块和一个标准模块构成。为保存该应用程序，以下正确的操作是A）只保存窗体模块文件B）分别保存窗体模块、标准模块和工程文件C）只保存窗体模块和标准模块文件D）只保存工程文件（12）为了清除窗体上的一个控件，下列正确的操作是A）按回车键B）按Esc键C）选择（单击）要清除的控件，然后按Del键D）选择（单击）要清除的控件，然后按回车键（13）以下叙述中错误的是A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B）当程序运行时，双击一个窗体，则触发该窗体的DblClick事件C）VisualBasic应用程序只能以解释方式执行D）事件可以由用户引发，也可以由系统引发（14）设a=2,b=3,c=4,d=5,下列表达式Nota<=cOr4*c=b^2Andb<>a+c的值是A）-1B）1（15）设a=5，b=10，则执行c=Int((b-a）*Rnd+a）+1后，c值的范围为A）5～10B）6～9（16）在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：PrivateSubCommand1_Click(）a$="softwareandhardware"b$=Right(a$,8）c$=Mid(a$,1,8）MsgBoxa$,,b$,c$,1EndSub运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是A）softwareandhardwareB）softwareC）hardwareD）1（17）在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：PrivateSubCommand1_Click(）a=InputBox("Enteraninteger"）b=InputBox("Enteraninteger"）Text1.Text=b+aEndSub程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是A）108B）18（18）在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：PrivateSubForm_Load(）ShowText1.Text="":Text2.Text="":Text1.SetFocusEndSubPrivateSubText1_Change(）Text2.Text=Mid(Text1.Text,8）EndSub程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的内容是A）BeijingChinaB）ChinaC）BeijingD）BeijingC（19）在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程：PrivateSubForm_Load(）List1.AddItem"Item1"List1.AddItem"Item2"List1.AddItem"Item3"EndSubPrivateSubCommand1_Click(）List1.List(List1.ListCount）="AAAA"EndSub程序运行后，单击命令按钮，其结果为A）把字符串“AAAA”添加到列表框中，但位置不能确定B）把字符串“AAAA”添加到列表框的最后（即“Item3”的后面）C）把列表框中原有的最后一项改为“AAAA”D）把字符串“AAAA”插入到列表框的最前面（即“Item1”的前面）（20）假定有如下事件过程：PrivateSubForm_Click(）DimxAsInteger,nAsIntegerx=1n=0DoWhilex<28x=x*3n=n+1LoopPrintx,nEndSub程序运行后，单击窗体，输出结果是A）814B）563C）281D）2435（21）有如下程序：PrivateSubForm_Click(）DimCheck,CounterCheck=TrueCounter=0DoDoWhileCounter<20Counter=Counter+1IfCounter=10ThenCheck=FalseExitDoEndIfLoopLoopUntilCheck=FalsePrintCounter,CheckEndSub程序运行后，单击窗体，输出结果为A）150B）20-1C）10TrueD）10False（22）有如下程序：PrivateSubForm_Click(）DimiAsInteger,sumAsIntegersum=0Fori=2To10IfiMod2<>0AndiMod3=0Thensum=sum+iEndIfNextiPrintsumEndSub程序运行后，单击窗体，输出结果为A）12B）30（23）在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click(）Dimarray1(10,10）AsIntegerDimiAsInteger,jAsIntegerFori=1To3Forj=2To4array1(i,j）=i+jNextjNextiText1.Text=array1(2,3）+array1(3,4）EndSub程序运行后，单击命令按钮，在文本框中显示的值是A）12B）13C）14D）15（24）在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：PrivateSubCommand1_Click(）Dima1(4,4）,a2(4,4）Fori=1To4Forj=1To4a1(i,j）=i+ja2(i,j）=a1(i,j）+i+jNextjNextiPrinta1(3,3）;a2(3,3）EndSub程序运行后，单击命令按钮，在窗体上输出的是A）66B）105（25）有如下程序：OptionBase1PrivateSubForm_Click(）Dimarr,SumSum=0arr=Array(1,3,5,7,9,11,13,15,17,19）Fori=1To10Ifarr(i）/3=arr(i）\3ThenSum=Sum+arr(i）EndIfNextiPrintSumEndSub程序运行后，单击窗体，输出结果为A）25B）26C）27D）28（26）在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click(）Dima(5）AsStringFori=1To5a(i）=Chr(Asc("A"）+(i-1））NextiForEachbInaPrintb;NextEndSub程序运行后，单击命令按钮，输出结果是A）ABCDEB）12345C）abcdeD）出错信息（27）以下关于函数过程的叙述中，正确的是A）如果不指明函数过程参数的类型，则该参数没有数据类型B）函数过程的返回值可以有多个C）当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递D）函数过程形参的类型与函数返回值的类型没有关系（28）函数过程F1的功能是：如果参数b为奇数，则返回值为1，否则返回值为0。以下能正确实现上述功能的代码是：A）FunctionF1(bAsInteger）IfbMod2=0ThenReturn0ElseReturn1EndIfEndFunctionB）FunctionF1(bAsInteger）IfbMod2=0ThenF1=0ElseF1=1EndIfEndFunctionC）FunctionF1(bAsInteger）IfbMod2=0ThenF1=1ElseF1=0EndIfEndFunctionD）FunctionF1(bAsInteger）IfbMod2<>0ThenReturn0ElseReturn1EndIfEndFunction（29）以下关于KeyPress事件过程中参数KeyAscii的叙述中正确的是A）KeyAscii参数是所按键的ASCII码B）KeyAscii参数的数据类型为字符串C）KeyAscii参数可以省略D）KeyAscii参数是所按键上标注的字符（30）设窗体上有一个名为Text1的文本框，并编写如下程序：PrivateSubForm_Load(）ShowText1.Text="":Text1.SetFocusEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）Print"程序设计"EndSubPrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger）Print"VisualBasic";EndSub程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是A）VisualBasicB）程序设计C）VisualBasic程序设计D）a程序设计（31）假定有下表所列的菜单结构：━━━━━━━━━━━━━━━━━━━━标题名称层次────────────────────显示appear1（主菜单）大图标bigicon2（子菜单）小图标smallicon2（子菜单）━━━━━━━━━━━━━━━━━━━━要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个“√”。以下正确的事件过程是A）PrivateSubbigicon_Click(）bigicon.Checked=FalseEndSubB）PrivateSubbigicon_Click(）Me.appear.bigicon.Checked=TrueEndSubC）PrivateSubbigicon_Click(）bigicon.Checked=TrueEndSubD）PrivateSubbigicon_Click(）appear.bigicon.Checked=TrueEndSub（32）假定通用对话框的名称为CommonDialog1，命令按钮的名称为Command1，则单击命令按钮后，能使打开的对话框的标题为“NewTitle”的事件过程是A）PrivateSubCommand1_Click(）CommonDialog1.DialogTitle="NewTitle"CommonDialog1.ShowPrinterEndSubB）PrivateSubCommand1_Click(）CommonDialog1.DialogTitle="NewTitle"CommonDialog1.ShowFontEndSubC）PrivateSubCommand1_Click(）CommonDialog1.DialogTitle="NewTitle"CommonDialog1.ShowOpenEndSubD）PrivateSubCommand1_Click(）CommonDialog1.DialogTitle="NewTitle"CommonDialog1.ShowColorEndSub（33）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是A）任何时刻最多只有一个窗体是活动窗体B）不能把标准模块设置为启动模块C）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体D）如果工程中含有SubMain过程，则程序一定首先执行该过程（34）假定在工程文件中有一个标准模块，其中定义了如下记录类型TypeBooksNameAsString*10TelNumAsString*20EndType要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是A）PrivateSubCommand1_Click(）DimBAsBooksOpen"c:\Person.txt"ForOutputAs#1B.Name=InputBox("输入姓名"）B.TelNum=InputBox("输入号码"）Write#1,B.Name,B.TelNumClose#1EndSubB）PrivateSubCommand1_Click(）DimBAsBooksOpen"c:\Person.txt"ForInputAs#1B.Name=InputBox("输入姓名"）B.TelNum=InputBox("输入号码"）Print#1,B.Name,B.TelNumClose#1EndSubC）PrivateSubCommand1_Click(）DimBAsBooksOpen"c:\Person.txt"ForOutputAs#1Name=InputBox("输入姓名"）TelNum=InputBox("输入号码"）Write#1,BClose#1EndSubD）PrivateSubCommand1_Click(）DimBAsBookOpen"c:\Person.txt"ForInputAs#1Name=InputBox("输入姓名"）TelNum=InputBox("输入号码"）Print#1,B.Name,B.TelNumClose#1EndSub（35）目录列表框的Path属性的作用是A）显示当前驱动器或指定驱动器上的某目录下的文件名B）显示当前驱动器或指定驱动器上的目录结构C）显示根目录下的文件名D）显示指定路径下的文件二、填空题（每空2分，共30分）请将每空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。（1）数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段，其中数据独立性最高的阶段是【1】。（2）算法复杂度主要包括时间复杂度和【2】复杂度。（3）在进行模块测试时，要为每个被测试的模块另外设计两类模块：驱动模块和承接模块（桩模块）。其中【3】的作用是将测试数据传送给被测试的模块，并显示被测试模块所产生的结果。（4）一棵二叉树第六层（根结点为第一层）的结点数最多为【4】个。（5）数据结构分为逻辑结构和存储结构，循环队列属于【5】结构。（6）设有以下函数过程：Functionfun(mAsInteger）AsIntegerDimkAsInteger,sumAsIntegersum=0Fork=mTo1Step-2sum=sum+kNextkfun=sumEndFunction若在程序中用语句s=fun(10）调用此函数，则s的值为【6】。（7）在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。PrivateSubCommand1_Click(）DimstrAsString,sAsString,cAsStringstr=UCase(Text1）s=""c="Z"Whilec>="A"IfInStr(str,c）=0Thens=【7】EndIfc=Chr$(Asc(c）【8】）WendIfs<>""ThenText1=sEndIfEndSub（8）在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式计算。下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中(见下图）。请填空。PrivateSubCommand1_Click(）DimrAsInteger,nAsIntegern=Text1r=Text2Text3=fun(n）/fun(【9】）/fun(r）EndSubFunctionfun(nAsInteger）aslongDimtAsLong【10】Fork=1Tont=t*kNextfun=tEndFunction（9）以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），如图所示。请填空。PrivateSubCommand1_Click(）DimkAsIntegerDimsumAsSingle,maxAsSingle,minAsSinglesum=Text1(0）max=Text1(0）min=【11】Fork=【12】To6Ifmax<Text1(k）Thenmax=Text1(k）EndIfIfmin>Text1(k）Thenmin=Text1(k）EndIfsum=sum+Text1(k）NextkText2=(【13】）/5EndSub（10）如图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框（即“查找对象”右边的文本框）输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。PrivateSubCommand1_Click(）DimkAsInteger,nAsInteger,foundAsBooleanfound=Falsen=Len(【14】）k=0Whilek<List1.ListCountAndNotfoundIfText1=Left$(List1.List(k）,n）ThenText2=【15】found=TrueEndIfk=k+1WendIfNotfoundThenText2="查无此人"EndIfEndSub2006年4月全国计算机等级考试二级VB笔试试卷一、选择题(每小题2分，共70分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。(1）下列选项中不属于结构化程序设计方法的是。A）自顶向下B）逐步求精C）模块化D）可复用(2）两个或两个以上模块之间关联的紧密程度称为。A）耦合度B）内聚度C）复杂度

D）数据传输特性(3）下列叙述中正确的是。A）软件测试应该由程序开发者来完成B）程序经调试后一般不需要再测试C）软件维护只包括对程序代码的维护D）以上三种说法都不对(4）按照“后进先出”原则组织数据的数据结构是。A）队列B）栈C）双向链表D）二叉树(5）下列叙述中正确的是。A）线性链表是线性表的链式存储结构B）栈与队列是非线性结构C）双向链表是非线性结构D）只有根结点的二叉树是线性结构(6）对如下二叉树ABCDEF进行后序遍历的结果为。A）ABCDEFB）DBEAFCC）ABDECFD）DEBFCA(7）在深度为7的满二叉树中，叶子结点的个数为。A）32B）31(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和DBMS

D）没有任何关系(11）以下关于VisualBasic特点的叙述中，错误的是。A）VisualBasic是采用事件驱动编程机制的语言B）VisualBasic程序既可以编译运行，也可以解释运行C）构成VisualBasic程序的多个过程没有固定的执行顺序D）VisualBasic程序不是结构化程序，不具备结构化程序的三种基本结构(12）以下叙述中，错误的是。A）一个VisualBasic应用程序可以含有多个标准模块文件B）一个VisualBasic工程可以含有多个窗体文件C）标准模块文件可以属于某个指定的窗体文件D）标准模块文件的扩展名是.bas(13）以下叙述中，错误的是。A）在VisualBasic中，对象所能响应的事件是由系统定义的B）对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定C）VisualBasic中允许不同对象使用相同名称的方法D）VisualBasic中的对象具有自己的属性和方法(14）设有如下语句：Dima，bAsIntegerc="VisualBasic"d=#7／20／2005#以下关于这段代码的叙述中，错误的是。A）a被定义为Integer类型变量B）b被定义为Integer类型变量C）c中的数据是字符串D）d中的数据是日期类型(15）以下能从字符串"VisualBasic"中直接取出子字符串"Basic"的函数是。A）LeftB）MidC）StringD）Instr(16）设a=4，b=3，c=2，d=1，下列表达式a>b+1Orc<dAndbModc的值是。A）TrueB）1(17）以下可以作为VisualBasic变量名的是。A）A#AB）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）假定有如下的命令按钮(名称为Command1）事件过程：PrivateSubCommand1_Click(）x=InputBox("输入："，"输入整数"）MsgBox"输入的数据是：”，，”输入数据："+xEndSub程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是。A）x的值是数值10B）输入对话框的标题是“输入整数”C）信息框的标题是“输入数据：10”D）信息框中显示的是“输入的数据是：”(20）在窗体上画1个命令按钮(名称为Command1）和1个文本框(名称为Text1），然后编写如下事件过程：PrivateSubCommand1_Click(）x=Val(Text1.Text）SelectCasexCase1，3y=x*xCaseIs>=10，Is<=-10y=xCase-10To10y=-xEndSelectEndSub程序运行后，在文本框中输入3，然后单击命令按钮，则以下叙述中正确的是。A）执行y=x*xB）执行y=-xC）先执行y=x*x，再执行y=-xD）程序出错(21）设有命令按钮Command1单击事件过程，代码如下：PrivateSubCommand1_Click(）Dima(30）AsIntegerFori=1To30a(i）=Int(Rnd*100）NextForEacharrItemInaIfarrItemMod7=0ThenPrintarrItem；IfarrItem>90ThenExitForNextEndSub对于该事件过程，以下叙述中错误的是。A）a数组中的数据是30个100以内的整数B）语句ForEacharrItemIna有语法错误C）IfarrItemMod7=0……语句的功能是输出数组中能够被7整除的数D）IfarrItem>90……语句的作用是当数组元素的值大于90时退出For循环(22）设有命令按钮Command1的单击事件过程，代码如下：PrivateSubCommand1_Click(）Dima(3，3）AsIntegerFori=1To3Forj=1To3a(i，j）=i*j+iNextjNextiSum=0Fori=1To3Sum=Sum+a(i，4-i）NextiPrintSumEndSub

运行程序，单击命令按钮，输出结果是。A）20B）7(23）在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click(）a=0Fori=1To2Forj=1To4IfjMod2<>0Thena=a-1EndIfa=a+1NextjNextiPrintaEndSub程序运行后，单击命令按钮，输出结果是A）0B）2(24）窗体上有名称分别为Text1、Text2的2个文本框，有一个由3个单选按钮构成的控件数组Option1，如图1所示。程序运行后，如果单击某个单选按钮，则执行Text1中的数值与该单选按钮所对应的运算(乘以1、10或100），并将结果显示在Text2中，如图2所示。为了实现上述功能，在程序中的问号(?）处应填入的内容是。图1图2

PrivateSubOption1_Click(IndexAsInteger）IfText1.Text<>""ThenSelectCase

?Case0Text2.Text=Val(Text1.Text）Case1Text2.Text=Val(Text1.Text）*10Case2Text2.Text=Val(Text1.Text）*100EndSelectEndIfEndSubA）IndexB）Option1.IndexC）Option1(Index）

D）Option1(Index）.Value(25）在窗体上画1个命令按钮，其名称为Command1，然后编写如下程序：PrivateSubCommand1_Click(）Dima(10）AsIntegerDimxAsInteger

Fori=1To10a(i）=8+iNextx=2Printa(f(x）+x）EndSubFunctionf(xAsInteger）x=x+3f=xEndFunction程序运行后，单击命令按钮，输出结果为。A）12B）15(26）以下关于过程的叙述中，错误的是。A）事件过程是由某个事件触发而执行的过程B）函数过程的返回值可以有多个C）可以在事件过程中调用通用过程D）不能在事件过程中定义函数过程(27）在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3）和1个命令按钮(名称为Command1），外观如图所示。编写如下程序：PrivateSubForm_Load(）Text1.Text=""Text2.Text=""Text3.Text=""EndSubPrivateSubCommand1_Click(）x=Val(Text1.Text）y=Val(Text2.Text）Text3.Text=f(x，y）EndSubFunctionf(ByValxAsInteger,ByValyAsInteger）DoWhiley<>0tmp=xModyx=yy=tmpLoopf=xEndFunction运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是。A）4B）6(28）窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号(?）处应填入的内容是PrivateSubText1_LostFocus(）CallCheckInput(Text1，500）EndSubPrivateSubText2_LostFocus(）CallCheckInput(Text2，1000）EndSubSubCheckInput(tAs?，xAsInteger）IfVal(t.Text）>xThenMsgBox"请重新输入!"EndIfEndSubA）TextB）SelTextC）ControlD）Form(29）在窗体上画1个文本框，其名称为Text1，然后编写如下过程：PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger）PrintChr(KeyCode）EndSubPrivateSubText1_KeyUp(KeyCodeAsInteger，ShiftAsInteger）PrintChr(KeyCode+2）EndSub程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为。A）AAB）ABC）ACD）AD(30）为了使列表框中的项目呈多列显示，需要设置的属性为。A）ColumnsB）StyleC）ListD）MultiSelect(31）在窗体上画1个命令按钮，名称为Command1，然后编写如下程序：DimFlagAsBooleanPrivateSubCommand1_Click(）DimintNumAsIntegerintNum=InputBox("请输入："）IfFlagThenPrintf(intNum）EndSubFunctionf(XAsInteger）AsIntegerIfX<10ThenY=XElseY=X+10EndIff=YEndFunctionPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）Flag=TrueEndSub运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为。A）0B）5(32）在菜单编辑器中建立1个名称为Menu0的菜单项，将其“可见”属性设置为False，并建立其若干子菜单，然后编写如下过程：PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）IfButton=1ThenPopupMenuMenu0EndIfEndSub则以下叙述中错误的是。A）该过程的作用是弹出一个菜单B）单击鼠标右键时弹出菜单C）Menu0是在菜单编辑器中定义的弹出菜单的名称D）参数X、Y指明鼠标当前位置的坐标(33）窗体上有1个名称为CD1的通用对话框，1个名称为Command1的命令按钮。命令按钮的单击事件过程如下：PrivateSubCommand1_Click(）CD1.FileName=""CD1.Filter="AllFiles|*.*|(*.DoC）|*.Doc|(*.Txt）|*.txt"CD1.FilterIndex=2CD1.Action=1EndSub关于以上代码，错误的叙述是。A）执行以上事件过程，通用对话框被设置为“打开”文件对话框B）通用对话框的初始路径为当前路径C）通用对话框的默认文件类型为*.TxtD）以上代码不对文件执行读写操作(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】。(4）程序测试分为静态分析和动态测试。其中【4】是指不执行程序，而只是对程序文本进行检查，通过阅读和讨论，分析和发现程序中的错误。(5）数据独立性分为逻辑独立性与物理独立性。当数据的存储结构改变时，其逻辑结构可以不变，因此，基于逻辑结构的应用程序不必修改，称为【5】。(6）下列语句的输出结果是【6】。PrintFormat(Int(12345.6789*100+0.5）／100，"0000，0.00"）(7）在窗体上画1个命令按钮，其名称为Command1，然后编写如下事件过程：PrivateSubCommand1_Click(）Dimarr(1To100）AsIntegerFori=