全国计算机等级考试二级VB真题模拟

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

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

1资料仅供参考－国二VB真题—唐海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=”计算机等级考试”EndSub资料仅供参考C）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$,5　EndSubA）MicrosoftVisual　　B）Microsoft　　C）Basic　　D）5(15）设a=”a”,b=”b”,c=”c”,d=”d”,执行语句x=IIf((a

2资料仅供参考　PrivateSubForm_Click(）　　x=InputBox("请输入一个整数"）　　Printx+Text1.Text　EndSubA）123　　B）456　　C）579　　D）123456（18）在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False,程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序，在______处应填入的内容是　　PrivateSubCommand1_Click(）　　Timer1._________　　EndSub　　PrivateSubTimer1_Timer(）　　Text1.Text=Time　　EndSubA）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）在窗体上画一个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,xAsInteger　　Fori=1To6　　Ifi=1Thenx=i　　Ifi<=4Then　　x=x+1　　Else　　x=x+2　　EndIf　　Nexti　　Printx　　EndSub程序运行后，单击命令按钮，其输出结果为A）9　　B）6　C）12　　D）15（22）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：　　PrivateSubCommand1_Click(）　　c="ABCD"　　Forn=1To4　　Print_________　Next　　EndSub程序运行后，单击命令按钮，要求在窗体上显示如下内容：　　D　　CD　　BCD　　ABCD则在________处应填入的内容为A）Left(c,n）B）Right(c,n）C）Mid(c,n,1）D）Mid(c,n,n）资料仅供参考(23）执行以下程序段后，x的值为　　DimxAsInteger,iAsInteger　　x=0　　Fori=20To1Step-2　　x=x+i\5　　NextIA）16　　B）17　　C）18　　D）19(24）在VisualBasic工程中，能够作为启动对象的程序是A）任何窗体或标准模块B）任何窗体或过程C）SubMain过程或其它任何模块D）SubMain过程或任何窗体(25）假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是A）数组中每个命令按钮的名称(名称属性）均为Command1B）数组中每个命令按钮的标题(Caption属性）都一样C）数组中所有命令按钮能够使用同一个事件过程D）用名称Command1(下标）能够访问数组中的每个命令按钮(26）把窗体的KeyPreview属性设置为True,然后编写如下事件过程:PrivateSubForm_KeyPress(KeyAsciiAsInteger）　　DimchAsString　　ch=Chr(KeyAscii）　　KeyAscii=Asc(UCase(ch））　　PrintChr(KeyAscii+2）EndSub程序运行后,按键盘上的”A”键,则在窗体上显示的内容是A）A　　B）B　　C）C　　D）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=t

3资料仅供参考EndSub程序运行后,如果从键盘输入16,则在文本框中显示的内容是:A）旅游景点：长城故宫B）旅游景点：长城颐和园C）旅游景点：颐和园D）旅游景点：故宫资料仅供参考(28）在窗体上画一个名称为Label1的标签,然后编写如下事件过程，程序运行后,单击窗体,在标签中显示的内容是PrivateSubForm_Click(）　　Dimarr(10,10）AsInteger　　DimiAsInteger,jAsInteger　　Fori=2To4　　Forj=2To4　　arr(i,j）=i*j　　Nextj　　Nexti　　Label1.Caption=Str(arr(2,2）+arr(3,3））　EndSubA）12　　B）13　　C）14　　D）15资料仅供参考(29）在窗体上画一个名称为Comamnd1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:　PrivateFunctionfun(ByValmAsInteger）　　IfmMod2=0Then　　fun=2　　Else　　fun=1　　EndIf　EndFunction　PrivateSubCommand1_Click(）　　DimiAsInteger,sAsInteger　　s=0　　Fori=1To5　　s=s+fun(i）　　Next　　Prints　EndSub程序运行后,单击命令按钮,则窗体上显示的是:A）6　B）7　　C）8　　D）9(30）阅读程序:OptionBase1Dimarr(）AsIntegerPrivateSubForm_Click(）　DimiAsInteger,jAsInteger　ReDimarr(3,2）　Fori=1To3　　Forj=1To2　　arr(i,j）=i*2+j　　Nextj　Nexti　ReDimPreservearr(3,4）　Forj=3To4　　arr(3,j）=j+9　Nextj　Printarr(3,2）+arr(3,4）EndSub程序运行后,单击窗体,输出结果为:A）21　　B）13　　C）8　D）25资料仅供参考资料仅供参考31）在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:OptionBase1PrivateSubCommand1_Click(）　DimcAsInteger,dAsInteger　d=0:c=6　x=Array(2,4,6,8,10,12）　Fori=1To6　　Ifx(i）>cThen　　d=d+x(i）:c=x(i）　　Else　　d=d-c　　EndIf　Nexti　PrintdEndSub程序运行后,如果单击命令按钮,则在窗体上输入的内容为　　A）10　B）16C）12　D）20(32）设有如下程序:　PrivateSubCommand1_Click(）　　DimcAsInteger,dAsInteger　　c=4　　d=InputBox("请输入一个整数"）　　DoWhiled>0　　Ifd>cThen　　c=c+1　　EndIf　　d=InputBox("请输入一个整数"）　　Loop　　Printc+d　EndSub程序运行后,单击命令按钮如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0,则输出结果是:A）12　　B）11C）10　　D）9(33）在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入以下字符串:MicrosoftVisualBasicProgramming，然后编写如下事件过程:　PrivateSubCommand1_Click(）　　Open"d:\temp\outf.txt"ForOutputAs#1　　Fori=1ToLen(Text1.Text）　　c=Mid(Text1.Text,i,1）

4资料仅供参考　　Ifc>="A"Andc<="Z"Then　　Print#1,LCase(c）；　　EndIf　　Nexti　　Close　EndSub程序运行后,单击命令按钮,文件outf.txt中的内容是:　A）MVBP　　B）mvbp　C）MD）mVvBbPp(34）在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:DimSWAsBooleanFunctionfunc(XAsInteger）AsInteger　IfX<20Then　　Y=X　Else　　Y=20+X　EndIf　func=YEndFunctionPrivateSubCommand1_Click(）　DimintNumAsInteger　intNum=InputBox(""）　IfSWThen　　Printfunc(intNum）　EndIfEndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）　SW=FalseEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）　SW=TrueEndSub程序运行后,单击命令按钮,将显示一个输入对话框,如果在对话框中输入25,则程序的执行结果是:A）输出0　　B）输出25C）输出45　　D）无任何输出(35）设有如下通用过程:PublicSubfun(a(）AsInteger,xAsInteger）　　Fori=1To5　　x=x+a(i）　　NextEndSub在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:　PrivateSubCommand1_Click(）　　Dimarr(5）AsInteger,nAsInteger　　Fori=1To5　　arr(i）=i+i　　Next　　funarr,n　　Text1.Text=Str(n）EndSub程序运行后,单击命令按钮,则在文本框中显示的内容是A）30　　B）25　C）20　　D）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程序设计"　　EndSub　　PrivateSubText1_Change(）　　Picture1.Print"VBProgramming"　　EndSub程序运行后,单击窗体,在文本框中显示的内容是【7】,而在图片框中显示的内容是【8】(8）阅读下面的程序，程序运行后,单击窗体,输出结果是【9】　　PrivateSubForm_Click(）　　DimCheckAsBoolean,CounterAsInteger　　Check=True　　Counter=5

5资料仅供参考　　Do　　DoWhileCounter<20　　Counter=Counter+1　IfCounter=10Then　　Check=False　　ExitDo　　EndIf　　Loop　　LoopUntilCheck=False　　PrintCounter　　EndSub(9）设有如下程序：　　PrivateSubForm_Click(）　　DimaAsInteger,sAsInteger　　n=8　　s=0　　Do　　s=s+n　　n=n-1　　LoopWhilen>0　　Prints　　EndSub以上程序的功能是【10】,程序运行后,单击窗体,输出结果为【11】(10）设有如下程序:OptionBase1PrivateSubCommand1_Click(）　Dimarr1　DimMinAsInteger,iAsInteger　arr1=Array(12,435,76,-24,78,54,866,43）　Min=【12】　Fori=2To8　Ifarr1(i）

6资料仅供参考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）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）在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：PrivateSubCommand1_Click(）a$="softwareandhardware"b$=Right(a$,8）c$=Mid(a$,1,8）MsgBoxa$,,b$,c$,1EndSub运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是A）softwareandhardwareB）softwareC）hardwareD）1（17）在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：PrivateSubCommand1_Click(）a=InputBox("Enteraninteger"）b=InputBox("Enteraninteger"）Text1.Text=b+aEndSub程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是A）108B）18C）810D）出错（18）在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：PrivateSubForm_Load(）ShowText1.Text="":Text2.Text="":Text1.SetFocusEndSubPrivateSubText1_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"EndSubPrivateSubCommand1_Click(）List1.List(List1.ListCount）="AAAA"EndSub程序运行后，单击命令按钮，其结果为A）把字符串“AAAA”添加到列表框中，但位置不能确定B）把字符串“AAAA”添加到列表框的最后（即“Item3”的后面）C）把列表框中原有的最后一项改为“AAAA”D）把字符串“AAAA”插入到列表框的最前面（即“Item1”的前面）

7资料仅供参考（20）假定有如下事件过程：PrivateSubForm_Click(）DimxAsInteger,nAsIntegerx=1n=0DoWhilex<28x=x*3n=n+1LoopPrintx,nEndSub程序运行后，单击窗体，输出结果是A）814B）563C）281D）2435（21）有如下程序：PrivateSubForm_Click(）DimCheck,CounterCheck=TrueCounter=0DoDoWhileCounter<20Counter=Counter+1IfCounter=10ThenCheck=FalseExitDoEndIfLoopLoopUntilCheck=FalsePrintCounter,CheckEndSub程序运行后，单击窗体，输出结果为A）150B）20-1C）10TrueD）10False（22）有如下程序：PrivateSubForm_Click(）DimiAsInteger,sumAsIntegersum=0Fori=2To10IfiMod2<>0AndiMod3=0Thensum=sum+iEndIfNextiPrintsumEndSub程序运行后，单击窗体，输出结果为A）12B）30C）24D）18（23）在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click(）Dimarray1(10,10）AsIntegerDimiAsInteger,jAsIntegerFori=1To3Forj=2To4array1(i,j）=i+jNextjNextiText1.Text=array1(2,3）+array1(3,4）EndSub程序运行后，单击命令按钮，在文本框中显示的值是A）12B）13C）14D）15（24）在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：PrivateSubCommand1_Click(）Dima1(4,4）,a2(4,4）Fori=1To4Forj=1To4a1(i,j）=i+ja2(i,j）=a1(i,j）+i+jNextjNextiPrinta1(3,3）;a2(3,3）EndSub程序运行后，单击命令按钮，在窗体上输出的是A）66B）105C）721D）612（25）有如下程序：OptionBase1PrivateSubForm_Click(）Dimarr,Sum

8资料仅供参考Sum=0arr=Array(1,3,5,7,9,11,13,15,17,19）Fori=1To10Ifarr(i）/3=arr(i）\3ThenSum=Sum+arr(i）EndIfNextiPrintSumEndSub程序运行后，单击窗体，输出结果为A）25B）26C）27D）28（26）在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click(）Dima(5）AsStringFori=1To5a(i）=Chr(Asc("A"）+(i-1））NextiForEachbInaPrintb;NextEndSub程序运行后，单击命令按钮，输出结果是A）ABCDEB）12345C）abcdeD）出错信息（27）以下关于函数过程的叙述中，正确的是资料仅供参考A）如果不指明函数过程参数的类型，则该参数没有数据类型B）函数过程的返回值能够有多个C）当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递D）函数过程形参的类型与函数返回值的类型没有关系（28）函数过程F1的功能是：如果参数b为奇数，则返回值为1，否则返回值为0。以下能正确实现上述功能的代码是：资料仅供参考A）FunctionF1(bAsInteger）IfbMod2=0ThenReturn0ElseReturn1EndIfEndFunctionB）FunctionF1(bAsInteger）IfbMod2=0ThenF1=0ElseF1=1EndIfEndFunction资料仅供参考C）FunctionF1(bAsInteger）IfbMod2=0ThenF1=1ElseF1=0EndIfEndFunctionD）FunctionF1(bAsInteger）IfbMod2<>0ThenReturn0ElseReturn1EndIfEndFunction资料仅供参考（29）以下关于KeyPress事件过程中参数KeyAscii的叙述中正确的是资料仅供参考A）KeyAscii参数是所按键的ASCII码B）KeyAscii参数的数据类型为字符串C）KeyAscii参数能够省略D）KeyAscii参数是所按键上标注的字符（30）设窗体上有一个名为Text1的文本框，并编写如下程序：PrivateSubForm_Load(）ShowText1.Text="":Text1.SetFocusEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）Print"程序设计"EndSubPrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger）Print"VisualBasic";EndSub程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是A）VisualBasicB）程序设计C）VisualBasic程序设计D）a程序设计（31）假定有下表所列的菜单结构：━━━━━━━━━━━━━━━━━━━━标题名称层次────────────────────显示appear1（主菜单）大图标bigicon2（子菜单）小图标smallicon2（子菜单）━━━━━━━━━━━━━━━━━━━━要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个“√”。以下正确的事件过程是资料仅供参考A）PrivateSubbigicon_Click(）bigicon.Checked=FalseEndSubB）PrivateSubbigicon_Click(）Me.appear.bigicon.Checked=TrueEndSub资料仅供参考C）PrivateSubbigicon_Click(）bigicon.Checked=TrueEndSubD）PrivateSubbigicon_Click(）

9资料仅供参考appear.bigicon.Checked=TrueEndSub资料仅供参考（32）假定通用对话框的名称为CommonDialog1，命令按钮的名称为Command1，则单击命令按钮后，能使打开的对话框的标题为“NewTitle”的事件过程是资料仅供参考A）PrivateSubCommand1_Click(）CommonDialog1.DialogTitle="NewTitle"CommonDialog1.ShowPrinterEndSubB）PrivateSubCommand1_Click(）CommonDialog1.DialogTitle="NewTitle"CommonDialog1.ShowFontEndSubC）PrivateSubCommand1_Click(）CommonDialog1.DialogTitle="NewTitle"CommonDialog1.ShowOpenEndSubD）PrivateSubCommand1_Click(）CommonDialog1.DialogTitle="NewTitle"CommonDialog1.ShowColorEndSub资料仅供参考（33）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是A）任何时刻最多只有一个窗体是活动窗体B）不能把标准模块设置为启动模块C）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体D）如果工程中含有SubMain过程，则程序一定首先执行该过程（34）假定在工程文件中有一个标准模块，其中定义了如下记录类型TypeBooksNameAsString*10TelNumAsString*20EndType要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是资料仅供参考A）PrivateSubCommand1_Click(）DimBAsBooksOpen"c:\Person.txt"ForOutputAs#1B.Name=InputBox("输入姓名"）B.TelNum=InputBox("输入电话号码"）Write#1,B.Name,B.TelNumClose#1EndSubB）PrivateSubCommand1_Click(）DimBAsBooksOpen"c:\Person.txt"ForInputAs#1B.Name=InputBox("输入姓名"）B.TelNum=InputBox("输入电话号码"）Print#1,B.Name,B.TelNumClose#1EndSubC）PrivateSubCommand1_Click(）DimBAsBooksOpen"c:\Person.txt"ForOutputAs#1Name=InputBox("输入姓名"）TelNum=InputBox("输入电话号码"）Write#1,BClose#1EndSubD）PrivateSubCommand1_Click(）DimBAsBookOpen"c:\Person.txt"ForInputAs#1Name=InputBox("输入姓名"）TelNum=InputBox("输入电话号码"）Print#1,B.Name,B.TelNumClose#1EndSub资料仅供参考（35）目录列表框的Path属性的作用是资料仅供参考A）显示当前驱动器或指定驱动器上的某目录下的文件名B）显示当前驱动器或指定驱动器上的目录结构C）显示根目录下的文件名D）显示指定路径下的文件资料仅供参考二、填空题（每空2分，共30分）请将每空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。（1）数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段，其中数据独立性最高的阶段是【1】。（2）算法复杂度主要包括时间复杂度和【2】复杂度。（3）在进行模块测试时，要为每个被测试的模块另外设计两类模块：驱动模块和承接模块（桩模块）。其中【3】的作用是将测试数据传送给被测试的模块，并显示被测试模块所产生的结果。（4）一棵二叉树第六层（根结点为第一层）的结点数最多为【4】个。（5）数据结构分为逻辑结构和存储结构，循环队列属于【5】结构。（6）设有以下函数过程：Functionfun(mAsInteger）AsIntegerDimkAsInteger,sumAsIntegersum=0Fork=mTo1Step-2sum=sum+kNextkfun=sumEndFunction若在程序中用语句s=fun(10）调用此函数，则s的值为【6】。（7）在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其它所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。PrivateSubCommand1_Click(）DimstrAsString,sAsString,cAsStringstr=UCase(Text1）s=""c="Z"Whilec>="A"IfInStr(str,c）=0Thens=【7】EndIfc=Chr$(Asc(c）【8】）WendIfs<>""ThenText1=sEndIf

10资料仅供参考EndSub资料仅供参考（8）在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数能够用公式计算。下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中(见下图）。请填空。PrivateSubCommand1_Click(）DimrAsInteger,nAsIntegern=Text1r=Text2Text3=fun(n）/fun(【9】）/fun(r）EndSubFunctionfun(nAsInteger）aslongDimtAsLong【10】Fork=1Tont=t*kNextfun=tEndFunction（9）以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），如图所示。请填空。PrivateSubCommand1_Click(）DimkAsIntegerDimsumAsSingle,maxAsSingle,minAsSinglesum=Text1(0）max=Text1(0）min=【11】Fork=【12】To6IfmaxText1(k）Thenmin=Text1(k）EndIfsum=sum+Text1(k）NextkText2=(【13】）/5EndSub资料仅供参考资料仅供参考（10）如图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框（即“查找对象”右边的文本框）输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。PrivateSubCommand1_Click(）DimkAsInteger,nAsInteger,foundAsBooleanfound=Falsen=Len(【14】）k=0Whilek

11资料仅供参考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）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和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／#以下关于这段代码的叙述中，错误的是。资料仅供参考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

12资料仅供参考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）7C）16D）17(23）在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click(）a=0Fori=1To2Forj=1To4IfjMod2<>0Thena=a-1EndIfa=a+1NextjNextiPrintaEndSub程序运行后，单击命令按钮，输出结果是A）0B）2C）3D）4资料仅供参考(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程序运行后，单击命令按钮，输出结果为。

13资料仅供参考A）12B）15C）17D）18(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）6C）8D）12(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=Y

14资料仅供参考EndFunctionPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）Flag=TrueEndSub运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5，则程序的输出结果为。A）0B）5C）15D）无任何输出(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=1To100arr(i）=Int(Rnd*1000）NextiMax=arr(1）：Min=arr（1）Fori=1To100If【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,ByValyAsInteger）AsIntegerx=x+yIfx<0ThenFun=xElseFun=yEndIfEndFunctionPrivateSubCommand1_Click(）DimaAsInteger,bAsIntegera=-10：b=5Text1.Text=Fun(a，b）Text2.Text=Fun(a，b）EndSub程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是【9】和【10】。

15资料仅供参考(9）在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编写如下代码：DimSaveAllAsStringPrivateSubCommand1_Click(）Text1.Text=Left(UCase(SaveAll），4）EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger）SaveAll=SaveAll+Chr(KeyAscii）EndSub程序运行后，在文本框中输入abcdefg，单击命令按钮，则文本框中显示的内容是【11】。(10）在窗体上画1个命令按钮和1个通用对话框，其名称分别为Command1和CommonDialog1，然后编写如下事件过程：PrivateSubCommand1_Click(）CommonDialog1.【12】="打开文件"CommonDialog1.Filter="AllFiles(*.*）|*.*"CommonDialog1.InitDir="C：＼"CommonDialog1.ShowOpenEndSub该程序的功能是，程序运行后，单击命令按钮，将显示“打开”文件对话框，其标题是“打开文件”，在“文件类型”栏内显示“AIlFiles(*.*）”，并显示C盘根目录下的所有文件，请填空。(11）在窗体上画1个文本框，名称为Text1，然后编写如下程序：PrivateSubForm_Load(）Open"d：＼temp＼dat.txt"ForOutputAs#1Text1.Text=""EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger）lf【13】=13ThenIfUCase(Text1.Text）=【14】ThenClose1EndElseWrite#1，【15】Text1.Text=""EndIfEndIfEndSub以上程序的功能是，在D盘temp目录下建立1个名为dat.txt的文件，在文本框中输入字符，每次按回车键(回车符的ASCII码是13）都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容；如果输入“END”，则结束程序。请填空。9月全国计算机等级考试二级VB笔试试卷一、选择题（每小题2分，共70分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。（1）下列选项不符合良好程序设计风格的是（）资料仅供参考A、源程序要文档化B、数据说明的次序要规范化C、避免滥用goto语句D、模块设计要保证高耦合、高内聚资料仅供参考（2）从工程管理角度，软件设计一般分为两步完成，它们是（）资料仅供参考A、概要设计与详细设计B、数据设计与接口设计C、软件结构设计与数据设计D、过程设计与数据设计资料仅供参考（3）下列选项中不属于软件生命周期开发阶段任务的是（）资料仅供参考A、软件测试B、概要设计C、软件维护D、详细设计资料仅供参考（4）在数据库系统中，用户所见的数据模式为A、概念模式B、外模式C、内模式D、物理模式（5）数据库设计的四个阶段是：需求分析、概念设计、逻辑设计和（）A、编码设计B、测试阶段C、运行阶段D、物理设计（6）设有如下三个关系表，下列操作中正确的是（）资料仅供参考RST资料仅供参考AmnBC13ABCm13n13资料仅供参考A、T=R∩SB、T=R∪SC、T=R×SD、T=R∕S资料仅供参考（7）下列叙述中正确的是（）A、一个算法的空间复杂度大，则其时间复杂度也必定大B、一个算法的空间复杂度大，则其时间复杂度必定小C、一个算法的时间复杂度大，则其空间复杂度必定小D、上述三种说法都不对（8）在长度为64的有序线性表中进行顺序查找，最坏情况下需要比较的次数为（）资料仅供参考A、63B、64C、6D、7（9）

16资料仅供参考（1）数据库技术的根本目标是要解决数据的（）资料仅供参考A、存储问题B、共享问题C、安全问题D、保护问题资料仅供参考（2）对下列二叉树FCEADGB进行中序遍历的结果是（）资料仅供参考A、ACBDFEGB、ACBDFGEC、ABDCGEFD、FCADBEG资料仅供参考（3）以下叙述中正确的是（）A、窗体的Name属性指定窗体的名称，用来标示一个窗体B、窗体的Name属性值是显示在窗体标题中的文本C、能够在运行期间改变窗体的Name属性的值D、窗体的Name属性值能够为空（4）以下叙述中错误的是（）A、打开一个工程文件时，系统自动载入与该工程有关的窗体文件B、保存VisualBasic程序时，应分别保存窗体文件及工程文件C、VisualBasic应用程序只能以解释方式执行D、窗体文件包含该窗体及其控件的属性（5）设a=2，b=3，c=4下列表示式的值是（）Nota<=cOr4*c=b^2And<>a+c资料仅供参考A、-1B、1C、TrueD、False资料仅供参考（6）设有如下的用户定义类型：TypestudentNumberAsStringNameAsStringAgeAsIntegerEndType则以下正确引用该类型成员的代码是（）资料仅供参考A、student.Name="李明"B、DimsAsstudents.Name="李明"资料仅供参考C、DimsAsTypestudents.Name="李明"D、DimsAsTypes.Name="李明"资料仅供参考（7）设a=5，b=6，c=7，d=8，执行下列语句后，x的值为x=IIf((a>b）And(c>d）,10,20）资料仅供参考A、10B、20C、TrueD、False资料仅供参考（8）执行以下程序段后，变量c$的值为a$=”VisualBasicProgramming”b$=”Quick”c$=b$&Ucase(Mid$(a$，7，6））&Right$(a$，12）A、VisualBASICProgrammingB、QuickBasicProgrammingC、QUICKBasicProgrammingD、QuickBASICPrograming（9）在窗体上画一个文本框（其名称为Text1）和一个标签（其名称为Label1），程序运行后，如果在文本框中输入指定的信息，则马上在标签中显示相同的内容。以下能够实现上述操作的事件过程是（）资料仅供参考A、PrivateSubText1_Click(）Label1.Caption=Text1.TextEndSubB、PrivateSubText1_Change(）Label1.Caption=Text1.TextEndSubC、PrivateSubLabel1_Change(）Label1.Caption=Text1.TextEndSubD、PrivateSubLabel1_Click(）Label1.Caption=Text1.TextEndSub资料仅供参考（10）在窗体上画一个命令按钮和一个标签，名称分别为Command1和Label1，编写如下事件过程：PrivateSubCommand1_Click(）Counter=0Fori=1To4Forj=6To1Step-2Counter=Counter+1NextjNextiLabel1.Caption=Str(Counter）EndSub程序运行后，单击命令按钮，标签中显示的内容是（）资料仅供参考A、11B、12C、16D、20资料仅供参考（11）在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：DimiAsInteger,nAsIntegerFori=0To50i=i+3n=n+1Ifi>10ThenExitForNextText1.Text=Str(n）程序运行后，单击命令按钮，在文本框中显示的值是资料仅供参考A、5B、4C、3D、2（12）

17资料仅供参考（1）在窗体上画一个命令按钮和两个标签，其名称为Command1、Label1和Label2，然后编写如下事件过程：PrivateSubCommand1_Click(）a=0Fori=1To10a=a+1b=0Forj=1To10a=a+1b=b+2NextjNextiLabel1.Caption=Str(a）Label2.Caption=Str(b）EndSub资料仅供参考A、10和20B、20和110C、200和110D、110和20资料仅供参考（2）在窗体上画一个名称为List1的列表框，一个名称为Lable1的标签，列表框中显示若干城市的名称。当单击列表框中的某个城市时，该城市从列表框中消失，并在标签中显示出来。下列能正确实现上述操作的程序是（）资料仅供参考A、PrivateSubList1_Click(）Label1.Caption=List1.ListIndexList1.RemoveItemList1.TextEndSubB、PrivateSubList1_Click(）Label1.Name=List1.TextList1.RemoveItemList1.TextEndSubC、PrivateSubList1_Click(）Label1.Caption=List1.TextList1.RemoveItemList1.ListIndexEndSubD、PrivateSubList1_Click(）Label1.Name=List1.TextList1.RemoveItemList1.ListIndexEndSub资料仅供参考（3）在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：PrivateSubCommand1_Click(）DimiAsInteger,jAsIntegerDima(10,10）AsIntegerFori=1To3Forj=1To3a(i,j）=(i-1）*3+jPrinta(i,j）;NextjPrintNextiEndSub程序运行后，单击命令按钮，窗体上显示的是（）资料仅供参考A、123246369B、234345456C、347258369D、123456789资料仅供参考（4）在窗体上画一个命令按钮，名称为Command1的命令按钮，然后编写如下程序：PrivateSubCommand1_Click(）Dima(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资料仅供参考（5）有以下程序：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、813B、013C、712D、00资料仅供参考（6）以下叙述中正确的是（）A、一个Sub过程至少要有一个ExitSub语句

18资料仅供参考B、一个Sub过程必须有一个EndSub语句C、能够在Sub过程中定义一个Function过程，但不能定义Sub过程D、调用一个Function过程能够获得多个返回值（1）有以下程序：SubsubP(b(）AsInteger）Fori=1To4b(i）=2*iNextiEndSubPrivateSubCommand1_Click(）Dima(1To4）AsIntegera(1）=5a(2）=6a(3）=7a(4）=8subPa(）Fori=1To4Printa(i）NextiEndSub运行上面的程序，单击命令按钮，输出结果为：资料仅供参考A、2468B、5678C、10121416D、出错资料仅供参考（2）设有如下通用过程：PublicFunctionfun(xStrAsString）AsStringDimtStrAsString,strLAsIntegertStr=""strL=Len(xStr）i=1DoWhilei<=strL/2tStr=tStr&Mid(xStr,i,1）&Mid(xStr,strL-i+1,1）i=i+1Loopfun=tStrEndFunction在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：PrivateSubCommand1_Click(）Dims1AsStrings1="abcdef"Text1.Text=UCase(fun(s1））EndSub资料仅供参考A、ABCDEFB、abcdefC、AFBECDD、DEFABC资料仅供参考（3）在窗体上画一个命令按钮和两个文本框，然后编写如下的事件过程：PrivateSubText1_KeyPress(KeyAsciiAsInteger）……EndSub假定焦点已经位于文本框中，则能够触发KeyPress事件的操作是（）资料仅供参考A、单击鼠标B、双击文本框C、鼠标滑过文本框D、按下键盘上的某个键资料仅供参考（4）在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，然后编写如下程序：Dims1asString,s2asStringPrivateSubForm_Load(）Text1.Text=""Text2.Text=""EndSubPrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger）s2=s2&Chr(KeyCode）EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger）s1=s1&Chr(KeyAscii）EndSubPrivateSubCommand1_Click(）Text1.Text=s2Text2.Text=s1s1=""s2=""EndSub程序运行后，在Text1中输入“abc”，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为（）资料仅供参考A、abc和ABCB、abc和abcC、ABC和abcD、ABC和ABC资料仅供参考（5）以下说法正确的是（）A、任何时候都能够经过执行“工具”菜单中的“菜单编辑器”命令打开菜单编辑器B、只有当某个窗体为当前活动窗体时，才能打开菜单编辑器C、任何时候都能够经过单击标准工具栏的“菜单编辑器”按钮打开菜单编辑器D、只有当代码窗口为当前活动窗口时，才能打开菜单编辑器（6）在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程:

19资料仅供参考PrivateSubCommandl_click(）CommonDialogl．Filter=“AllFiles(*.*）︱*.*︱TextFiles(*．txt）︱*.txt︱ExecutableFiles(*.exe）|*.exe”CommonDialog1．Filterlndex=3CommonDialogl．ShowOpenMsgBoxCommonDialogl．FilenameEndSub程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是（）资料仅供参考A、AllFiles(*.*）B、TextFiles(*．txt）C、ExecutableFiles(*.exe）D、不确定资料仅供参考（1）以下叙述中错误的是（）A、一个工程中能够包含多个窗体文件B、在一个窗体文件中用Public定义的通用过程不能被其它窗体调用C、窗体和标准模块需要分别保存为不同类型的磁盘文件D、用Dim定义的窗体层变量只能在该窗体中使用（2）以下叙述中错误的是（）A、语句”Dima，bAsInteger”声明了两个类型变量B、不能在标准模块中Static定义型变量C、窗体层变量必须先声明，后使用D、在事件过程或通用过程内定义的变量是局部变量（3）设有语句Open“d:\Test.txt”ForOutputAs#1,以下叙述中错误的是（）A、若d盘根目录下无Test.txt文件，则该语句创立此文件B、用该语句建立的文件的文件号为1C、该语句打开d盘根目录下一个已存在的文件Test.txt，之后就能够从文件中读取信息D、执行该语句后，就能够经过语句Pring#向文件Test.txt写入信息。（4）以下叙述错误的是（）A、顺序文件中的数据只能按顺序读写B、对同一个文件，能够用不同的方式和不同的文件号打开C、执行Close语句，可将文件缓冲区中的数据写到文件中读取信息D、随机文件中各记录的长度是随机的资料仅供参考二、填空题（每空2分，共30分）   请将每一个正确答案在答题卡【1】～【15】序号的横线上，答在试卷上不得分。   注意：以命令关键字填空的必须拼写完整。（1）下列软件系统结构图的宽度为【1】TBCDEF（2）【2】的任务是诊断和改正程序中的错误。（3）一个关系表的行称为【3】。（4）按“先进后出”原则组织数据的数据结构是【4】。（5）数据结构分为线性结构和非线性结构，带链的队列属于【5】。（6）描述“X是小于100的非负整数”的VisualBasic表示式是【6】（7）在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用（灰色），此时如果在文本框中输入字符，则命令按钮Command1变为可用。请填空。PrivateSubForm_Load(）Command1.Enabled=FalseEndSubPrivateSubText1_【7】(）Command1.Enabled=TrueEndSub（8）在窗体上画一个名称为“Command1”的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click(）DimaAsStringa=""Fori=1To5PrintSpace(6-i）;Mid$(a,【8】,2*i-1）NextiEndSub程序运行后，单击命令按钮，窗体上输出结果是：5456345672345678请填空。（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），请填空：OptionBase1PrivateSubForm_Click(）DimiAsInteger,jAsIntegerDimA(1To100）AsIntegerDimB(1To10,1To10）AsIntegerFori=1To100

20资料仅供参考A(i）=iNextiFori=1To【9】Forj=1To【10】B(i,j）=【11】PrintB(i,j）;NextjPrintNextiEndSub（10）在窗体上画一个名称为Combo1的组合框，然后画两个名称分别为Label1、Label2，标题分别为“城市名称”和空白的标签。程序运行后，在组合框中输入一个新的项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加在组全框的列表中，并在Label2中给出提示“已成功添加新的输入项”，如下图所示。如果输入的项目已存，则在Label2中给出提示“输入项目已在组合框中”。请填空。PrivateSubCombo1_KeyPress(KeyAsciiAsInteger）IfKeyAscii=13ThenFori=0ToCombo1.ListCount-1IfCombo1.Text=【12】ThenLabel2.Caption="输入项已在组合框中。"ExitSubEndIfNextiLabel2.Caption="已成功添加新输入项。"Combo1.【13】Combo1.TextEndIfEndSub（11）在窗体上画一个命令按钮和一个文本框，其名称分另为Command1和Text1，然后编写如下事件过程：PrivateSubCommand1_Click(）DimindataAsStringText1.Text=""Open"d:\myfile.txt"For【14】As#1DoWhile【15】Input#1,indataText1.Text=Text1.Text+indataLoopEndSub程序的功能是，打开D盘根目录下的文本文件myfile.txt，读取它的全部内容并显示在文本框中。请填空。

21资料仅供参考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）ABCDEFXYZ进行前序遍历的结果为A）DYBEAFCZXB）YDEBFZXCAC）ABDYECFXZD）ABCDEFXYZ(7）某二叉树中有n个度为2的结点,则该二叉树中的叶子结点数为(A）A）n+1B）n-1C）2nD）n/2(8）在下列关系运算中,不改变关系表中的属性个数但能减少元组个数的是(B）A）并B）交C）投影D）笛卡儿乘积(9）在E—R图中,用来表示实体之间联系的图形是(C）A）矩形B）椭圆形C）菱形D）平行四边形(10）下列叙述中错误的是(A）A）在数据库系统中,数据的物理结构必须与逻辑结构一致B）数据库技术的根本目标是解决数据共享问题C）数据库技术是指己有数据管理系统的基础上建立数据库D）数据库系统需要操作系统的支持(11）下面能够正确定义2个整形变量和1个字符串变量的语句的是(D）资料仅供参考A）Dimn,mASInterger,sASStringB）Dima%,b$,cASStringC）DimaASInteger,b,cASStringD）Dimx%,yASInteger,zASString资料仅供参考(12）下列表述中不能判断x是否为偶数的是(D）A）x/2=Int(x/2）B）xMod2=0C）Fix(x/2）=x/2D）x\2=0(13）设在名称为Myform的窗体上只有1个名称为C1的命令按钮,下面叙述中正确的是(B）A）窗体的Click事件过程的过程名是Myform_ClickB）命令按钮的Click事件过程名是C1_ClickC）命令按钮的Click事件过程的过程名是Command1_ClickD）上述三种过程名都是错误的(14）设窗体上有1个滚动条,要求单击滚动条右端的按钮一次,滚动条移动一定的刻度值,决定此刻度的属性是(C）A）MaxB）MinC）SmallChangeD）LargeChang(15）1个二维数组能够存放1个矩阵。在程序开始有语句OptionBase0,则下面定义的数组中正好能够存放1个4*3矩阵(即只有12个元素）的是(B）A）Dima(-2To0,2）ASIntegerB）Dima(3,2）ASIngegerC）Dima(4,3）ASIngegerD）Dima(-1To-4,-1To-3）ASIngeger(16）若设置了文本框的属性PasswordChar=”$”,则运行程序时向文本框中输入8个任意字符后,文本框中显示的是(A）A）8个”$”B）1个”$”C）8个”*”D）无任何内容(17）设在窗体上有1个名称为Combo1的组合框,含有5个项目,要删除最后一项,正确的语句是(B）A）Combo1.RemoveItemCombo1.TextB）Combo1.RemoveItem4C）Combo1.RemoveItemCombo1.ListCountD）Combo1.RemoveItem5(18）工程中有2个窗体,名称分别为Form1，Form2，Form1为启动窗体,该窗体上有命令按钮Command1,要求程序运行后单击该命令按钮时显示

22资料仅供参考Form2,则按钮的Click事件过程应该是(A）A）PrivateSubCommand1_Click(）B）PrivateSubCommand1_Click(）Form2.ShowForm2.VisibleEndSubEndSubC）PrivateSubCommand1_Click(）D）PrivateSubCommand1_Click(）LoadForm2Form2.LoadEndSubEndSub(19）若在某窗体模块中有如下事件过程(D）PrivateSubCommand1_Click(IndexASInteger）……EndSub则以下叙述中正确的是A）此事件过程与不带参数的事件过程没有区别B）有1个名称为Command1的窗体,单击此窗体则执行此事件过程C）有1个名称为Command1的控件数组,数组中有多个不同类型控件D）有1个名称为Command1的控件数组,数组中有多个相同类型控件(20）以下循环语句中在任何情况下都至少执行一次循环体的是(C）A）DoWhile<条件>B）While<条件>循环体循环体LoopWendC）DoD）DoUntil<条件>循环体循环体LoopUntil<条件>Loop(21）在窗体上有1个名为Cd1的通用对话框,为了在运行程序时打开保存文件对话框,则在程序中应使用的语句是(A）A）Cd1.Action=2B）Cd1.Action=1C）Cd1.ShowSave=TureD）Cd1.ShowSave=0(22）下面关于菜单的叙述中错误的是(B）A）各级菜单中的所有菜单项的名称必须唯一B）同一子菜单中的菜单项名称必须唯一,但不同子菜单中的菜单项名称能够相同C）弹出式菜单用PopupMenu方法弹出D）弹出式菜单也用菜单编辑器编辑(23）已知有下面的过程(D）PrivateSubproc1(aAsInteger,bAsString,OptionalxAsBoolean）……EndSub正确调用此过程的语句是A）Callprocl(5）B）Callproc15,”abc”,FalseC）proc1(12,”abc”,True）D）proc15,“abc”(24）在窗体上有1个名称为Text1的文本框和1个名称为Command1的命令按钮，要求在程序执行时，每单击命令按钮一次，文本框向右移动一定距离。下面能够正确实现上述功能的程序是(C）A）PrivateSubCommand1_Click(）B）PrivateSubCommand1_Click(）Text1.Left=100Text1.Left=Text1.Left-100EndSubEndSubC）PrivateSubCommand1_Click(）D）PrivateSubCommand1_Click(）Text1.MoveText.Left+100Text1.MoveText.LeftEndSubEndSub(25）某人创立了1个工程，其中的窗体名称为Form1;之后又添加了1个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，她需要做的工作是(A）A）在工程属性对话框中把“启动对象”设置为Form2B）在Form1的Load事件过程中加入语句LoadForm2C）在Form2的Load事件过程中加入语句Form2.Show　D）在Form2的TabIndex属性设置为１，把Form1的TabIndex属性设置为２（26）窗体上有１个名称为Text1的文本框和１个名称为Command1的命令按钮。要求程序运行时，单击命令按钮，就能够把文本框中的内容写到文件out.txt中，每次写入的内容附加到文件原有内容之后。下面能够实现上述功能的程序是(C）　　A）PrivateSubCommand1_Click(）B）PrivateSubCommand1_Click(）Open“out.txt”ForInputAs#1Open“out.txt”ForOutputAs#1Print#1,Text1.TextPrint#1,Text1.TextClose#1Close#1EndSubEndSubC）PrivateSubCommand1_Click(）D）PrivateSubCommand1_Click(）Open“out.txt”ForAppendAs#1Open“out.txt”ForRandomAs#1Print#1,Text1.TextPrint#1,Text1.TextClose#1　　　　　　　　　　　　　Close#1EndSubEndSub(27）为计算1+3+5+……+99的值，某人编程如下k=1s=0Whilek<=99k=k+2:s=s+kWendPrints在调试时发现运行结果有错误，需要修改。下列错误原因和修改方案中正确的是(D）A）While…Wend循环语句错误，应改为Fork=1To99…NextkB）循环条件错误，应改为Whliek<99C）循环前的赋值语句k=1错误，应改为k=0D）循环中两条赋值语句的顺序错误，应改为s=s+k:k=k+2(28）下面程序在调试时出现了死循环PrivateSubCommand1_Click(）

23资料仅供参考n=InputBox(“请输入一个整数”）DoIfnMod2=0Thenn=n+1Elsen=n+2ElseIfLoopUntiln=1000EndSub下面关于死循环的叙述中正确的是(D）A）只有输入的n是偶数时才会出现死循环，否则不会B）只有输入的n是奇数时才会出现死循环，否则不会C）只有输入的n是大于1000的整数时才会出现死循环，否则不会D）输入任何整数都会出现死循环（29）在窗体上有1个名称为CommonDialog1的通用对话框和1个名称为Command1的命令按钮，以及其它一些控件。要求在程序运行时，单击Command1按钮，则显示打开文件对话框，并在选择或输入了1个文件名后，就能够打开该文件。以下是Command1_Click事件过程的两种算法算法1：PrivateSubCommand1_Click(）CommonDialog1.ShowOpenOpenCommonDialog1.FileNameForInputAs#1EndSub算法2：PrivateSubCommand1_Click(）CommonDialog1.ShowOpenIfCommonDialog1.FileName<>””ThenOpenCommonDialog1.FileNameForInputAs#1EndIfEndSub下面关于这两种算法的叙述中正确的是(B）A）  显示打开文件对话框后若未选择或输入任何文件名，则算法2会出错，算法1不会B）  显示打开文件对话框后若未选择或输入任何文件名，则算法1会出错，算法2不会C）  两种算法的执行结果完全一样D）  算法1允许输入的文件名中含有空格，而算法2不允许（30）窗体上有1个名称为List1的列表框，其中已经输入了若干个项目（如图所示）：还有2个文本框，名称分别为Text1、Text2,1个名称为Command1的命令按钮，并有以下程序PrivateSubCommand1_Click(）DimstrAsString,sAsString,kAsIntegers=Text1Str=””Fork=List1.ListCount-1to0Step-1IfInStr(List1.List(k）,s）>0thenstr=str&List1.List(k）&””EndIfNextkIfstr=””ThenText2=”没有匹配的项目”ElseText2=strEndIfEndSub程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是(）A）京B）北京南京C）南京北京D）没有匹配的项目（31）在窗体上画1一个名称为Command1的命令按钮，并编写以下程序PrivateSubCommand1_Click(）Printfun(“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个图片框，名称分别为Picture1和banana,banana中添加了香蕉图片（见图1），且将banana.DragMode属性设置为1。要求程序运行时，能够用鼠标把banana拖拽到Picture1中（见图2）。能实现此功能的事件过程是(C）

24资料仅供参考A）PrivateSubForm_DragDrop(SourceAsControl,XAsSingle,YAsSingle)banana.MovePicture1.Left+X,Picture1.Top+Y）EndSubB）PrivateSubbanana_DragDrop(SourceAsControl,XAsSingle,YAsSingle）Source.MovePicture1.Left+X,Picture1.Top+YEndSubC）B）PrivateSubPicture1_DragDrop(SourceAsControl,XAsSingle,YAsSingle）Source.MovePicture1.Left+X,Picture1.Top+YEndSubD）B）PrivateSubPicture1_DragDrop(SourceAsControl,XAsSingle,YAsSingle）banana.Movebanana.Left+X,banana.Top+YEndSub(33）在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程OptionBase1PribateSubCommand1_Click(）Dima(5.5）AsIntegerFori=1To5Forj=1to5a(i,j）=(i+j）*5\10NextjNextiS=0Fori=1To5S=s+a(i,i）NextiPrintsEndSub程序运行后，单击命令按钮，输出结果是(A）A）15B）13C）11D）9(34）在窗体上从左到右有Text1、Text2两个文本框（见图），要求程序运行时，在Text1中输入1个分数后按回车键，则判断分数的合法性，若分数为0~100中的1个数，周围光标移到Text2中；否则光标不动，并弹出对话框显示“分数错”，下面程序中正确的是(D）A）PrivateSubText1__KeyPress(KeyAsciiASInteger）IfKeyAscii=13Then‘回车符的ACSII码是13a=Val(Text1）Ifa>=0ora<=100ThenText2.SetFocusElseText1.SetFocus:MsgBox(“分数错”）EndIfEndIfEndSubB）PrivateSubText1__KeyPress(KeyAsciiASInteger）IfKeyAscii=13Then‘回车符的ACSII码是13a=Val(Text1）Ifa>=0Anda<=100ThenText1.SetFocusElseText2.SetFocus:MsgBox(“分数错”）EndIfEndIfEndSub资料仅供参考C）PrivateSubText1__KeyPress(KeyAsciiASInteger）IfKeyAscii=13Then‘回车符的ACSII码是13a=Val(Text1）Ifa<0Anda>100ThenText2.SetFocusElseText1.SetFocus:MsgBox(“分数错”）EndIfEndIfEndSubD）PrivateSubText1__KeyPress(KeyAsciiASInteger）IfKeyAscii=13Then‘回车符的ACSII码是13a=Val(Text1）Ifa>=0Anda<=100ThenText2.SetFocusElseText1.SetFocus:MsgBox(“分数错”）EndIfEndIfEndSub资料仅供参考(35）在窗体上画2个命令按钮，名称分别为Command1、command2，并编写如下程序资料仅供参考Constn=5,m=4Dima(m,n）PrivateSubCommand1_Click(）K=1Fori=1Tom

25资料仅供参考Forj=1Tona(i,j）=kk=k+1NextjNextiEndSubPrivateSubCommand2_Click(）Summ=0Fori=1TomForj=1TonIfi=1Ori=mThenSumm=summ+a(i,j）ElseIfj=1Orj=nThenSumm=summ+a(i,j）EndIfEndIfNextjNextiPrintsummEndSub资料仅供参考过程Command1_Click(）的作用是二维数组a中存放1个m行n列的矩阵；过程Command2_Click(）的作用是(A）资料仅供参考A）  计算矩阵外围一圈元素的累加和B）  计算矩阵除外一圈以外的所有元素的累加和C）  计算矩阵第1列和最后一列元素的累加和D）  计算矩阵第1行和最后一行元素的累加和资料仅供参考二、填空题（每空2分，共30分）请将每一个空的正确答案写在答题纸上[1]~[15]序号的横线上，答在试卷上，答在试卷上不得分，注意：以命令关键字填空的必须写完整（1）在深度为7的满二叉树中，度为2的结点个数为________。（2）软件测试分为白箱（盒）测试和黑箱（盒）测试，等价类划分法属于测试。（3）在数据库系统中，实现各种数据管理功能的核心软件称为。（4）软件生命周期可分为多个阶段，一般分为定义阶段、开发阶段和维护阶段。编码和测试属于阶段。（5）在结构化分析使用的数据流图（DFD）中，利用对其中的图形元素进行确切解释。（6）下面程序的功能是从键盘上请输入一个大于100的整数m，计算并输出满足不等式1+22+32+42+…….n2

26资料仅供参考FunctionPrime(aAsInteger）ASBooleanDimkAsInterger,isprimeASBooleanIfa<2Thenisprime=FalseElseisprime=Truek=2DoWhilek

27资料仅供参考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＋1）/2B）nlog2nC）n(n－1）/2D）ｎ/2（8）一棵二叉树中共有70个叶子结点与80个度为1的结点，则该二叉树中的总结点数为A）219B）221C）229D）231（9）下列叙述中正确的是A）数据库系统是一个独立的系统，不需要操作系统的支持B）数据库技术的根本目标是要解决数据的共享问题C）数据库管理系统就是数据库系统D）以上三种说法都不对（10）下列叙述中正确的是A）为了建立一个关系，首先要构造数据的逻辑关系B）表示关系的二维表中各元组的每一个分量还能够分成若干数据项C）一个关系的属性名表称为关系模式D）一个关系能够包括多个二维表（11）要使一个文本框能够显示多行文本，应设置为True的属性是A）EnabledB）MultiLineC）MasLenfthD）Width（12）在窗体上有一个名为Text1的文本框。当光标在文本框中时，如果按下字母键“A”，则被调用的事件过程是A）Form_KeyPress(）B）Text1_LostFocus(）C）Text1_Click(）D）Test1_Change(）（13）设在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。要求单击Command1按钮时可把光标移到文本框中。下面正确的事件过程是A）PrivateSubCommand1_Click(）B）PrivateSubText1.GotFocusCommand1.GotFocusEndSubEndSubC）PrivateSubCommand1_Click(）D）PrivateSubText1.SetFocusCommand1.SetFocusEndSubEndSub（14）执行以下程序后输出的是PrivateSubCommand1_Click(）Ch$=”AABCDEFGH”PrintMid(Righ(ch$,6）,Len(left(ch$,4））,2）EndSubA）CDEFGHB）ABCDC）FGD）AB（15）设在窗体Form1上有一个列表框List1，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程是A）PrvateSubList1_Click(）B）PrivateSubForm1_Click(）PrintList1.TextPrintList1.TextEndSubEndSubC）PrivateSubList1_Click(）D）PrivateSubForm1_Click(）PrintForm1.TextList1.PrintList1.TextEndSubEndSub（16）若窗体上的图片框中有一个命令按钮，则此按钮的Left属性是指A）按钮左端到窗体左端的距离B）按钮左端到图片框左端的距离C）按钮中心点到窗体左端的距离D）按钮中心点到图片框左端的距离

28资料仅供参考（17）为使程序运行时通用对话框CD1上显示的标题为“对话框窗口”，若经过程序设置该标题，则应使用的语句是A）CD1.DialogTitle=“对话框窗口”B）CD1.Action=“对话框窗口”C）CD1.FileName=“对话框窗口”D）CD1.Filter=“对话框窗口”（18）在窗体上有如右图所示的控件，各控件的名称与其标题相同，并有如下程序：PrivateSubForm_Load(）Command2.Enabled=FalseCheck1.Value=1EndSub刚运行程序时，看到的窗体外观是：（19）设在窗体中有一个名称为List1的列表框，其中有若干个项目（如图）。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是A）PrivateSubCommand1_Click(）List1.ClearEndSubB）PrivateSubCommand1_Click(）List1.ClearList1.ListIndexEndSubC）PrivateSubCommand1_Click(）List1.RemoveltemList1.ListIndexEndSubD）PrivateSubCommand1_Click(）List1.RemoveltemEndSub（20）某人设计了如下程序用来计算并输出7!（7的阶乘）PrivateSubCommand1_Click(）t=0Fork=7To2Step-1t=t*kNextPrinttEndSub执行程序时，发现结果是错误的，下面的修改方案中能够得到正确结构的是A）把t=0改为t=1B）把Fork=7To2Step-1改为Fork=7To1Step-1C）把Fork=7To2Stip-1改为Fork=1To7

29资料仅供参考D）把Next改为Nexik（21）若窗体中已经有若干个不同的单选按钮，要把它们改为一个单选按钮数组，在属性窗口中需要且只需要进行的操作是A）把所有单选按钮的Index属性改为相同值B）把所有单选按钮的Index属性改为连续的不同值C）把所有单选按钮的Caption属性值改为相同D）把所有单选按钮的名称改为相同，且把它们的Index属性改为连续的不同值。（22）窗体上有文本框Text1和一个菜单，菜单标题、名称如表，结构见图。要求程序执行时单击“保存”菜单项，则把其标题显示在Text1文本框中。下面可实现此功能的事件过程是：标题名称文件file新建new保存saveA）PrivateSubsave_Click(）B）PrivateSubsave_Click(）Text1.Text=file.save.CaptionText1.Text=save.CaptionEndSubEndSubC）PrivateSubfile_Click(）D）PrivateSubfile_Click(）Text1.Text=file.save.CaptionText1.Text=save.CaptionEndSubEndSub（23）某人在窗体上画了一个名称为Timer1的计时器和一个名称为Lab的属性设置为Enabled=True,Interval=0,并编程如下。希望在每2秒在标签上显示一次系统当前时间。PrivateSubTimer1_Timer(）Label1.Caption=Time$EndSub在程序执行时发现未能实现上述目的，那么，她应做的修改是A）经过属性窗口把计时器的Interval属性设置为B）经过属性窗口把计时器的Enabled属生设置为FalseC）把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Tims$D）把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time（24）形状控件的Shape属性有6种取值，分别代表6种几何图形。下列不属于这6种几何图形的是（25）下面关于文件的叙述中错误的是A）随机文件中各条记录的长度是相同的]B）打开随机文件时采用的文件存取方式应该是RandomC）向随机文件中写数据应使用语句Print#文件号D）打开随机文件与打开顺序文件一样，都使用Open语句（26）设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下的图形文件File1.jpg，能实现此功能的语句是A）Picture1.Picture=”Flie1.jpgB）Picture1.Picture=LoadPicture(“File1.jpg”）C）LoadPicture(“File1.jpg”）D）CallLoadPicture(“File1.jpg”）（27）下面程序执行时，在窗体上显示的是PrivateSubCommand1_Click(）Dima(10）Fork=1To10a(k）=11–kNextkPrinta(a(3）\a(7）Moda(5））EndSubA）3B）5C）7D)9（28）为达到把a、b中的值交换后输出的目的，某人编程如下：PrivateSubCommand1_Click(）a%=10:b%=20Callswap(a,b）Printa,bEndSubPrivateSubswap(ByValaAsInteger,ByValbAsInteger）c=a:a=b:b=cEndSub在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是A）调用swap过程的语句错误，应改为Callswapa,bB）输出语句错误，应改为：Print”a”,”b”C）过程的形式参数有错，应改为：swap(ByRefaAsInteger,ByRefbAsInteger）D）swap中3条赋值语句的顺序是错误的，应改为a=b:b=c:c=a（29）有如下函数：Functionfun(aAsInteger,nAsInteger）AsIntegerDimmAsIntegerWhilea>=na=a-n

30资料仅供参考m=m+1Wendfun=mEndFunction该函数的返回值是A）a乘以n的乘积B）a加n的和C）a减n的差D）a除以n的商（不含小数部分）（30）下面程序的输出结果是PrivateSubCommand1_Click(）ch$=”ABCDEF”procchPrintchEndSubPrivateSubproc(chAsString）S=””Fork=Len(ch）To1Step-1s=s&Mid(ch,k,1）Nextkch=sEndSubA）ABCDEFB）FEDCBAC）AD）F（31）某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码如下：FunctionMaxValue(a(）AsInteger）AsIntegerDimmax%max=1Fork=2To10Ifa(k）>a(max）Thenmax=kEndIfNextkMaxValue=maxEndFunction程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是A）语句max=1应改为max=a(1）B）语句Fork=2To10应改为Fork=1To10C）If语句中的条件a(k）>a(max）应改为a(k）>maxD）语句MaxValue=max应改为MaxValue=a(max）（32）在窗体上画一个名称为Command1的命令按钮，并编写以下程序：PrivateSubCommand1_Click(）Dimn%,b,tt=1:b=1:n=2Dob=b*nt=t+bn=n+1LoopUntiln>9PrinttEndSub此程序计算并输出一个表示式的值，该表示式是A）9！B）10！C）1！+2！+…+9！D）1！+2！+…+10！（33）有一个名称为Form1的窗体，上面没有控件，设有以下程序（其中方法Pset(X,Y）的功能是在坐标X，Y处画一个点）：DimcmdmaveAsBooleanPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）cmdmave=TrueEndSubPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）IfcmdmaveThenForm1.Pset(X,Y）EndIfEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）cmdmave=FalseEndSub此程序的功能是A）每按下鼠标键一次，在鼠标所指位置画一个点B）按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失C）不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线D）按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线（34）某人设计了下面的函数fun，功能是返回参数a中数值的位数Functionfun(aAsInteger）AsIntegerDimn%n=1Whilea\10>=0n=n+1

31资料仅供参考a=a\10Wendfun=nEndFunction在调用该函数时发现返回的结果不正确，函数需要修改，下面的修改方案中正确的是A）把语句n=1改为n=0B）把循环条件a\10>=0改为a\10>0C）把语句a=a\10改为a=aMod10D）把语句fun=n改为fun=a（35）在窗体上有一个名称为Check1的复选框数组（含4个复选框），还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的方字罗列在文本框中（见图）。下面能实现此功能的事件过程是A）PrivateSubCheck1_Click(IndesAsInteger）Text1.Text=""Fork=0To3IfCheck1(k）.value=1ThenText1.Text=Text1.Text&Check1(k）.Caption&""'双引号中是空格EndIfNextkEndSubB）PrivateSubCheck1_Click(IndexAsInteger）Fork=0To3IfCheck1(k）.Value=1ThenText1.Text=Text1.Text&Check1(k）.Caption&""'双引号中是空格EndIfNextkEndSubC）PrivateSubCheck1_Click(IndexAsInteger）Text1.Text=""Fork=0To3IfCheck1(k）.Value=1ThenText1.Text=Text1.Text&Check1(Index）.Caption&""'双引号中是空格EndIfNextkEndSubD）PrivateSubCheck1_Click(IndexAsInteger）Text1.Text=""Fork=0To3IfCheck1(k）.Value=1ThenText1.Text=Text1.Text&Check1(k）.Caption&""'双引号中是空格ExitForEndIfNextkEndSub二、填空题（每空2分，共30分）请将每空的正确答案写在答题卡[1]~[15]序号的横线上，答在试卷上不得分。(1）软件需求规格说明书应具有完整性，无岐义性、正确性、可验证性、可修改性等特征，其中最重要的是【1】。(2）在两种基本测试方法中，【2】测试的原则之一是保证所测模块中每一个独立路径至少执行一次。(3）线性表的存储结构主要分为顺序存储结构和链式存储结构。队列是一种特殊的线性表，循环队列是队列的【3】存储结构。(4）对下列二叉树进行中序遍历的结果为【4】。（5）在E-R图中，矩形表示【5】。（6）窗体上有一个组合框，其中已输入了若干个项目。程序运行时，单击其中一项，即可把该项与最上面的一项交换。

32资料仅供参考例如：单击图1中的“重庆”，则与“北京”交换，得到图2的结果。下面是可实现此功能的程序，请填空。PrivateSubCombo1_Click(）Dimtemptemp=Combo1.Text[6]=Combo1.List(0）Combo1.List(0）=tempEndSub（7）设窗体上有一个名称为HScroIII的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离（即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数）。下面是可实现此功能的程序，请填写。Dim[7]AsIntegerPrivateSubForm_Load(）pos=HScroIII.ValueEndSubPrivateSubHScroIII_Change(）Print[8]-pospos=HScroIII.ValueEndSub（8）设窗体上有一个名称为CD1的通用对话框，一个名称为Text1的文本框和一个名称为Command1的命令按钮。程序执行时，单击Command1按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在Text1中。下面是实现此功能的事件过程，请填空。PrivateSubCommand1_Click(）CD1.Filter="文本文件1*.txt(Word文档）*.doc"CD1.Filterinder=1CD1.ShowOpenIfCD1.FileName<>""ThenOpen[9]ForInputAs#1LineInput#1,ch$Close#1Text1.Text=[10]EndIfEndSub（9）下面的程序执行时，能够从键盘输入一个正整数，然后把该数的每位数字按逆序输出。例如：输入7685，则输出5867，输入1000，则输出0001。请填空。PrivateSubCommand1_Click(）DimxAsIntegerx=InputBox(“请输入一个正整数”）Whilex>__[11]___PrintxMod10;x=x\10WendPrint__[12]__EndSub（10）有如图所示的窗体。程序执行时先在Text1文本框中输入编号，当焦点试图离开Text1时，程序检查编号的合法性，若编号合法，则焦点能够离开Text1文本框；否则，显示相应错误信息，并自动选中错误的字符，且焦点不能离开Text1文本框（见图）。合法编号的组成是：前2个字符是大写英文字母，第3个字符是“-”，后面是数字字符（至少1个）。下面程序可实现此功能，请填空。PrivateSubText1_Lostfocus(）Dimk%,n%n=Len([13]）Fork=1toif(n>3,n,4）c=Mid(Text1.Text,k,1）SelectCasekCase1,2Ifc<"A"Orc>"Z"ThenMsgBox("第"&k&"个字符必须是大写字母！"）SetPositionkExitForEndIfCase3Ifc<>"-"ThenMsgBox("第"&k&"个字符必须是字符"'"-"'"）SetPositionkExitForEndIfCaseElseIfc<"0"Orc>"9"ThenMsgBox("第"&k&"个字符必须是数字！"）SetPositionkExitFor

33资料仅供参考EndIfEndSelectNextkEndSubPrivateSubSetPosition(posAsInteger）Text1.SelStart=pos-1Text.SelLength=[14]Text1.[15]EndSub资料仅供参考4月全国计算机等级考试二级VB笔试试卷一、选择题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、对长度为n的线性表排序，在最坏的情况下，比较次数不是n(n-1）/2的排序方法是A）快速排序B）冒泡排序　C）直接插入排序　D）堆排序7、下列关于栈的叙述正确的是A）栈按“先进先出”组织数据　　B）栈按“先进后出”组织数据C）只能在栈底插入数据　　　　D）不能删除数据8、在数据库设计中，将E—R图转换成关系数据模型的过程属于A）需求分析阶段B）概念设计阶段C）逻辑设计阶段D）物理设计阶段9、有三个关系R、S和T如下：BCDa0k1B1n1R　　　　　　　　　　　STBCDf3h2a0k1n2x1BCDa0k1由关系R和S经过运算得到关系T，则所使用的运算为A）并　B）自然连接　C）笛卡尔积　　D）交10、设有表示学生选课的三张表，学生S（学号，姓名，性别，年龄，身份证号），课程（课号，课名），选课SC（学号，课号，成绩），则表SC的关键字（键或码）为A）课号，成绩　B）学号，成绩C）学号，课号　　D）学号，姓名，成绩11、以下叙述中错误的是A）标准模块文件的扩展名是.basB）标准模块文件是纯代码文件C）在标准模块中声明的全局变量能够在整个工程中使用D）在标准模块中不能定义过程12、在VisualBasic中，表示式3*2\5Mod3的值是A）1　　　　B）0　　　　C）3　　　　　D）出现错误提示

34资料仅供参考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）0　　　B）1　　　C）3　　　　D）语句有错16、为了使文本框同时具有垂直和水平滚动条，应先把MultiLine属性设置为True，然后再把Scrollbars属性设置为A）0　　　B）1　　　C）2　　　　D）317、文本框Text1的KeyDown事件过程如下：PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger）EndSub其中参数KeyCode的值表示的是发生此事件时A）是否按下了Alt键或Ctrl键　　　　　　　B）按下的是哪个数字键C）所按的键盘键的键码　　　　　　　　　　D）按下的是哪个鼠标键18、窗体上有一个名称为Hscroll1的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置（即刻度值）。下面能够实现上述操作的事件过程是A）PrivateSubHscroll1_Changc(）B）PrivateSubHsctroll1_Change(）PrintHScroll1.ValuePrintHScroll1.SmallChangeEndSubEndSubC）PrivateSubHScroll1_Scroll(）D）PrivateSubHScroll1_Scroll(）PrintHScroll1.ValuePrintHScroll1.SmallChangeEndSubEndSub19、若已把一个命令按钮的Default属性设置为True，则下面可导致按钮的Click事件过程被调用的操作是A）用鼠标右键单击此按钮　　　　　　　　B）按键盘上的Esc键C）按键盘上的回车键　　　　　　　　　　　D）用鼠标右键双击此按钮20、要使两个单选按钮属于同一个框架，正确的操作是A）先画一个框架，再在框架中画两个单选按钮B）先画一个框架，再在框架外画两个单选按钮，然后把单远按钮拖到框架中C）先画两个单选按钮，再画框架将单选按钮框起来D）以上三种方法都正确21、能够存放组合框的所有项目内容的属性是A）CaptionB）TextC）ListD）Selected22、设窗体上有一个标签Labell和一个计时器Timer1，Timer1的Interval属性被设置为1000，Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下能够实现上述要求的事件过程是A）PrivateSubTimer1_Timer(）B）PrivateSubTimer1_Timer(）Label1.Caption=TrueLabel1.Caption=Time$EndSubEndSubC）PrivateSubTimer1_Timer(）D）PrivateSubTimer1_Timer(）Label1.Interval=1Fork=lToTimer1.IntervalEndSubLabel1.Caption=TimerNextk

35资料仅供参考EndSub23、设有如图所示窗体和以下程序：PrivateSubCommand1_Click(）Textl.Text=“VisualBasic”EndSubPrivateSubText1_LostFocus(）IfText1.Text<>“BASIC”ThenText1.Text=””Text1.SetFocusEndIfEndSub程序运行时，在Text1文件框中输入“Basic”(如图所示），然后单击Command1按钮，则产生的结果是A）文本框中无内容，焦点在文本框中B）文本框中为“Basic”,焦点在文本框中C）文本框中为“Basic”,焦点的按钮上D）文本框中为“VisualBasic”,焦点的按钮上24、窗体上有一个名称为Command1的命令按钮，其事件过程如下：PrivateSubCommand1_Click(）x=“VisualBasicProgramming”a=Right(x,11）b=Mid(x,7,5）C=Msgbox(a,,b）EndSub运行程序后单击命令按钮，以下叙述中错误的是A）信息框的标题是BasicB）信息框中的提示信息是ProgrammingC）C的值是函数的返回值　　　　　　D）MsgBox的使用格式有错25、设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas，两个窗体上分别只有一个名称Command1的命令按钮。Form1的代码如下：PublicXAsIntegerPrivateSubForm_load(）x=1y=5EndSubPrivateSubCommand1_Click(）Form2.ShowEndSubForm2的代码如下：PrivateSubCommand1_Ciick(）PrintForm1.x,yEndSubModule1的代码如下：PublicyAsInteger运行以上程序，单击Form1的命令按钮Command1，则显示Form2；再单击Form2上的命令按钮Command1，则窗体上显示的是A）1　　5　　B）0　　5　C）0　　0　　　D）程序有错

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

37资料仅供参考PublicSubCale(xASInteger,yASInteger）Text1.Text=x*yEndSub运行程序，单击“计算”按钮，可根据速度与时间计算出距离，并显示计算结果。对以上程序，下列叙述中正确的是A）过程调用语句不对，应为Cale(HV,HT）B）过程定义语句的形式参数不对，应为SubCale(xAsControl,yAsControl）C）计算结果在文本框中显示出来D）程序不能正确运行29、现有如下程序：PrivateSubCommand1_Click(）S=0Fori=1to5S=S+f(5+i）NextPrintSEndSubPublicFunctionf(xAsInteger）Ifx>=10Thent=x+1Elset=x+2EndIff=tEndFunction运行程序，则窗体上显示的是A）38　　　B）49　　　　C）61　　　　D）7030、窗体上有一个用菜单编辑器设计的菜单（见上图）。运行程序，并在窗体上单击鼠标右键，则弹出一个快捷菜单，如图所示。以下叙述中错误的A）在设计“粘贴”菜单项时，在菜单编辑器窗口中设置了“有效”属性（有“√”）B）菜单中的横线是在该菜单项的标题输入框中输入了一个“－”（减号）字符C）在设计“选中”菜单项时，在菜单编辑器窗口中设置了“复选”属性（有“√”）D）在设计该弹出菜单的主菜单项时，在菜单编辑器窗口中去掉了“可见”前面的“√”31、窗体上有一个名称为Picture1图片框控件，一个名称Label1的标签控件。如图所示。现有如下程序：PublicSubdisplay(xAsControl）IfTypeOfxisLabelThenx.Caption=“计算机等级考试”Elsex.Picture=Loadpicture(“pic.jpg”）EndIfEndSubPrivateSubLabel1_Click(）

38资料仅供参考Calldisplay(Label1）EndSubPrivateSubPicture1_Click(）Calldisplay(Picture1）EndSub对以上程序，下列叙述中错误的是A）程序运行时会出错　　　　　B）单击图片框，在图片框中显示一幅图片C）过程中的X是控件变量　　　D）单击标签，在标签中显示一串文字32、窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp的事件过程如下：PrivateSubText1_KeyUp(KeyCodeAsInteger,shiftASInteger）DimCASstringc=Text1.TextTcxt2.Text=Chr(Asc(c）+2）EndSub当向文本框Text1中输入小写字母a时，文本框Text2中显示的是A）A　　　　　　B）aC）CD）c33、设窗体上有一个文体框Text1和一个命令按钮Command1,并有以下事件过程：PrivateSubCommand1_Click(）DimSAsString,chAsStringS=“”Fork=1TOLen(Text1）ch=Mid(Text1,k,l）S=ch+SNextkText1.Text=SEndSub程序执行时，在文本框中输入“Basic”,然后单击命令按钮，则Text1中显示的是A）BasicB）cisaBC）BASICD）CISAB34、某人编写了如下程序，用来求10个整数（整数从键盘输入）中的最大值：PrivateSubCommand1_Click(）Dima(10）AsInteger,maxAsIntegerFork=1TO10a(K）=InputBox(“输入一个整数”）NextkMax=0Fork=1To10Ifa(k）＞maxThenMax=a(k）EndIfNextkPrintmaxEndSub

39资料仅供参考运行程序时发现，当输入10个正数时，能够得到正确结果，但输入10个负数时结果是错误的，程序需要修改，下面的修改中能够得到正确运行结果的是A）把Ifa(k）>maxThen改为Ifa(k）

40资料仅供参考StaticxAsIntegerFori=1Tomx=x+1NextiS=xEndFunction运行程序，第3次单击命令按钮Command1时，输出结果为[7]（8）在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：OptionBaselPrivateSubCommand1_Click(）Dima(10）AsIntegerFori=1To10a(i）=iNextCallswap([8]）Fori=1To10Printa(i）NextEndSubSubswap(b(）AsInteger）n=[9]Fori=1Ton/2t=b(i）b(i）=b(n）b(n）=t[10]NextEndSub上述程序的功能是，经过调用过程swap，调换数组中数值的存放位置，即a(1）与a(10）的值互换，a(2）与a(9）的值互换，请填空。（9）在窗体上面一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮，并编写如下事件过程：PrivateSubCommand1_Click(）CommonDialog1.Filter=“AllFiles(*.*）|*.*|TextFiles”_&”(*.txt）|*.txt|BatchFiles(*.bat）|*.bat”CommonDialog1Filterlndex=1Commondialog1.ShowOpenMsgBoxCommonDialog1.FileNameEndSub程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是[11]；如果在对话框中选择d盘temp目录下的tel.txt文件，然后单击“确定”按钮，则在MsgBox信息框中显示的提示信息是[12]。（10）以下程序的功能是：把程序文件smtext1.txt的内容全部读入内存，并在文本框Text1中显示出来。请填空。PrivateSubCommand1_Click(）DiminDataAsString

41资料仅供参考Text1.Text=“”Open“smtext1.txt”[13]As[14]DoWhile[15]Input#2,inDataText1.Text=Text1.Text&inDataLoopClose#2EndSub9月全国计算机等级考试二级笔试试卷公共基础知识和VisualBasic语言程序设计（考试时间90分钟，满分100分）一、选择题（每小题2分，共70分）（1）一个栈的初始状态为空。现将元素1、2、3、4、5、A、B、C、D、E依次入栈，然后再依次出栈，则元素出栈的顺序是（）。A）12345ABCDEB）EDCBA54321C）ABCDE12345D）54321EDCBA（2）下列叙述中正确的是（）。A）循环队列有队头和队尾两个指针，因此，循环队列是非线性结构B）在循环队列中，只需要队头指针就能反映队列中元素的动态变化情况C）在循环队列中，只需要队尾指针就能反映队列中元素的动态变化情况D）循环队列中元素的个数是由队头指针和队尾指针共同决定（3）在长度为n的有序线性表中进行二分查找，最坏情况下需要比较的次数是（）。A）O(n)B）O(n2)C）O(log2n)D）O(nlog2n)（4）下列叙述中正确的是（）。A）顺序存储结构的存储一定是连续的，链式存储结构的存储空间不一定是连续的B）顺序存储结构只针对线性结构，链式存储结构只针对非线性结构C）顺序存储结构能存储有序表，链式存储结构不能存储有序表D）链式存储结构比顺序存储结构节省存储空间（5）数据流图中带有箭头的线段表示的是（）。A）控制流B）事件驱动C）模块调用D）数据流（6）在软件开发中，需求分析阶段能够使用的工具是（）。A）N-S图B）DFD图C）PAD图D）程序流程图（7）在面向对象方法中，不属于“对象”基本特点的是（）。A）一致性B）分类性C）多态性D）标识唯一性（8）一间宿舍可住多个学生，则实体宿舍和学生之间的联系是（）。A）一对一B）一对多C）多对一D）多对多（9）在数据管理技术发展的三个阶段中，数据共享最好的是（）。A）人工管理阶段B）文件系统阶段C）数据库系统阶段D）三个阶段相同（10）有三个关系R、S和T如下：由关系R和S经过运算得到关系T，则所使用的运算为（）。A）笛卡尔积B）交C）并D）自然连接（11）在设计窗体时双击窗体的任何地方，能够打开的窗口是（）。A）代码窗口B）属性窗口C）工程资源管理器窗口D）工具箱窗口（12）若变量a未事先定义而直接使用（例如：a=0），则变量a的类型是（）。A）IntegerB）StringC）BooleanD）Variant（13）为把圆周率的近似值3.14159存放在变量pi中，应该把变量pi定义为（）。A）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的框架（如图），若要把框架上显示的“Frame1”改为汉字“框架”，下面正确的语句是（）。

42资料仅供参考A）Frame1.Name="框架"B）Frame1.Caption="框架"C）Frame1.Text="框架"D）Frame1.Value="框架"（17）以下叙述中错误的是（）。A）在通用过程中，多个形式参数之间能够用逗号作为分隔符B）在Print方法中，多个输出项之间能够用逗号作为分隔符C）在Dim语句中，所定义的多个变量能够用逗号作为分隔符D）当一行中有多个语句时，能够用逗号作为分隔符（18）设窗体上有一个列表框控件List1，含有若干列表项。以下能表示当前被选中的列表项内容的是（）。A）List1.ListB）List1.ListIndexC）List1.TextD）List1.Index（19）设a=4，b=5，c=6，执行语句Printa

43资料仅供参考EndSubPrivateSubproc(aAsInteger,ByValbAsInteger)X=a*aY=b+bEndSub程序运行后，单击命令按钮，则两个标签中显示的内容分别是（）。A）25和3B）5和3C）25和6D）5和6（26）在窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。运行后的窗体外观如图所示。设有如下的类型和变量声明：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）在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerFori=0To50i=i+3n=n+1Ifi>10ThenExitForNextText1.Text=Str(n)EndSub程序运行后，单击命令按钮，在文本框中显示的值是（）。A）2B）3C）4D）5（28）假定有以下循环结构DoUntil条件表示式循环体Loop则以下正确的描述是（）。A）如果“条件表示式”的值是0，则一次循环体也不执行B）如果“条件表示式”的值不为0，则至少执行一次循环体C）不论“条件表示式”的值是否为“真”，至少要执行一次循环体D）如果“条件表示式”的值恒为0，则无限次执行循环体（29）在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimI,NumRandomizeDoForI=1To1000Num=Int(Rnd*100)PrintNum;SelectCaseNumCase12ExitForCase58ExitDoCase65,68,92EndEndSelectNextILoop

44资料仅供参考EndSub上述事件过程执行后，下列描述中正确的是（）。A）Do循环执行的次数为1000次B）在For循环中产生的随机数小于或等于100C）当所产生的随机数为12时结束所有循环D）当所产生的随机数为65、68或92时窗体关闭、程序结束（30）在窗体上画一个名为Command1的命令按钮，然后编写如下代码：OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4)j=1Fori=4To1Step-1s=s+a(i)*jj=j*10NextiPrintsEndSub运行上面的程序，其输出结果是（）。A）1234B）12C）34D）4321（31）设有如下通用过程：PublicFunctionFun(xStrAsString)AsStringDimtStrAsString,strLAsIntegertStr=""strL=Len(xStr)i=1DoWhilei<=strL/2tStr=Tstr&Mid(xStr,i,1)&Mid(xStr,strL-i+1,1)i=i+1LoopFun=tStrEndFunction在窗体上画一个名称为Command1的命令按钮。然后编写如下的事件过程：PrivateSubCommand1_Click()DimS1AsStringS1="abcdef"PrintUCase(Fun(S1))EndSub程序运行后，单击命令按钮，输出结果是（）。A）ABCDEFB）abcdefC）AFBECDD）DEFABC（32）某人为计算n!(0

45资料仅供参考power=pEndFunction在调试时发现是错误的，例如Printpower(5,4)的输出应该是625，但实际输出是3125。程序需要修改。下面的修改方案中有3个是正确的，错误的一个是（）。A）把Fork=1Ton改为Fork=2TonB）把p=p*a改为p=p^nC）把Fork=1Ton改为Fork=1Ton-1D）把p=a改为p=1（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个数之和的反序），程序需要修改。下面的修改方案中正确的是（）。A）把过程pro的形式参数nAsInteger改为ByValnAsIntegerB）把Callpro(a+b)改为proa+bC）把n=n\10改为n=n/10D）在prob语句之后增加语句c%=a+b，再把Callpro(a+b)改为proc二、填空题（每空2分，共30分）（1）对下列二叉树进行中序遍历的结果【1】。（2）按照软件测试的一般步骤，集成测试应在【2】测试之后进行。（3）软件工程三要素包括方法、工具和过程，其中，【3】支持软件开发的各个环节的控制和管理。（4）数据库设计包括概念设计、【4】和物理设计。（5）在二维表中，元组的【5】不能再分成更小的数据项。（6）在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：PrivateSubCommand1_Click()S$=InputBox("请输入一个字符串")Text1.Text=S$EndSubPrivateSubText1_Change()Label1.Caption=UCase(Mid(Text1.Text,7))EndSub程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“VisualBasic”，则在标签中显示的内容是【6】。（7）在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：PrivateSubCommand1_Click()a$="NationalComputerRankExamination"n=Len(a$)s=0Fori=1Tonb$=Mid(a$,i,1)Ifb$="n"Thens=s+1EndIfNextiPrintsEndSub程序运行后，单击命令按钮，输出结果是【7】。

46资料仅供参考（8）为了在运行时把d:\pic文件夹下的图形文件a.jpg装入图片框Picture1，所使用的语句为【8】。（9）设有如下程序：PrivateSubForm_Click()Clsa$="ABCDFG"Fori=1To6PrintTab(12-i);【9】NextiEndSub程序运行后，单击窗体，结果如图所示，请填空。（10）在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：OptionBase1PrivateSubCommand1_Click()DimArrArr=Array(43,68,-25,65,-78,12,-79,43,-94,72)pos=0neg=0Fork=1To10IfArr(k)>0Then【10】Else【11】EndIfNextkPrintpos,negEndSub以上程序的功能是，计算并输出数组Arr中10个数的正数之和pos与负数之和neg，请填空。（11）在窗体上画一个名为Command1的命令按钮，然后编写如下程序：PrivateSubCommand1_Click()DimiAsIntegerSum=0n=InputBox("Enteranumber")n=Val(n)Fori=1TonSum=【12】NextiPrintSumEndSubFunctionfun(tAsInteger)AsLongp=1Fori=1Totp=p*iNexti【13】EndFunction以上程序的功能是，计算1!+2!+3!+…+n!，其中n从键盘输入，请填空。（12）在窗体上画一个文本框，名称为Text1，然后编写如下程序：PrivateSubForm_Load()Open"d:\temp\dat.txt"ForOutputAs#1Text1.Text=""EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenIfUCase(Text1.Text)=【14】ThenClose#1EndElseWrite#1,【15】Text1.Text=""EndIfEndIfEndSub以上程序的功能是：在D盘temp文件夹下建立一个名为dat.txt的文件，在文本框中输入字符，每次按回车键都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容：如果输入“END”，则不写入文件，直接结束程序。请填空

47资料仅供参考13月全国计算机等级考试二级笔试试卷VisualBasic语言程序设计一、选择题（1）下列叙述中正确的是       A） 栈是“先进先出”的线性表B） 队列是“先进先出”的线性表C） 循环队列是非线性结构D） 有序性表既能够采用顺序存储结构，也能够采用链式存储结构（2）支持子程序调用的数据结构是                            A） 栈            B） 树            C） 队列       D）二叉树（3）某二叉树有5个度为2的结点，则该二叉树中的叶子结点数是     A）10            B）8            C）6           D）4（4）下列排序方法中，最坏情况下比较次数最少的是 A）冒泡排序   B）简单选择排序   C）直接插入排序   D）堆排序（5）软件按功能能够分为：应用软件、系统软件和支撑软件（或工具软件）。下面属于应用软件的是 A）编译软件   B）操作系统  C）教务管理系统  D）汇编程序（6）下面叙述中错误的是A）软件测试的目的是发现错误并改正错误B）对被调试的程序进行“错误定位”是程序调试的必要步骤C）程序调试一般也称为DebugD）软件测试应严格执行测试计划，排除测试的随意性（7）耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是 A）提高耦合性降低内聚性有利于提高模块的独立性B）降低耦合性提高内聚性有利于提高模块的独立性C）耦合性是指一个模块内部各个元素间彼此结合的紧密程度D）内聚性是指模块间互相连接的紧密程度（8）数据库应用系统中的核心问题是A）数据库设计      B）数据库系统设计C）数据库维护       D） 数据库管理员培训（9）有两个关系R，S如下：R                     SA B C  A Ba 3 2  a 3b 0 1  b 0c 2 1  c 2 由关系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被定义为变体类型变量D）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$的值为A）VisualBASICProgrammingB）VISUALC++ProgrammingC）VisualC++ProgrammingD）VISUALBASICProgramming（14）下列叙述中正确的是A）MsgBox语句的返回值是一个整数B）执行MsgBox语句并出现信息框后，不用关闭信息框即可执行其它操作C）MsgBox语句的第一个参数不能省略D）如果省略MsgBox语句的第三个参数（Title），则信息框的标题为空（15）在窗体上画一个文本框（名称为Text1）和一个标签（名称为Label1），程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以下能够实现上述操作的事件过程是A）PrivateSubText1_Change()Label1.Caption=Str(Len(Text1.Text))EndSubB）PrivateSubText1_Click()Label1.Caption=Str(Len(Text1.Text))C）PrivateSubText1_Change()Label1.Caption=Text1.TextEndSubD）PrivateSubLabel1_Change()Label1.Caption=Str(Len(Text1.Text))EndSub

48资料仅供参考（16）在窗体上画两个单选按钮（名称分别为Option1、Option2，标题分别为“宋体”和“黑体”）、1个复选框（名称为Check1，标题为“粗体”）和1个文本框（名称为Text1，Text属性为“改变文字字体”），窗体外观如图所示。程序运行后，要求“宋体”单选按钮和“粗体”复选框被选中，则以下能够实现上述操作的语句序列是A）Option1.Value=FalseCheck1.Value=TrueB）Option1.Value=TrueCheck1.Value=0C）Option1.Value=FalseCheck1.Value=2D）Option1.Value=TrueCheck1.Value=1（17）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()c=1234c1=Trim(Str(c))Fori=1To4PrintNextiEndSub程序运行后，单击命令按钮，要求在窗体上显示如下内容：1121231234则在横线处应填入的内容为A）Right(c1,i)B）Left(c1,i)C）Mid(c1,i,1)D）Mid(c1,i,i)（18）假定有以下程序段Fori=1To3Forj=5To1Step-1Printi*jNextjNexti则语句Printi*j的执行次数是A）15B）16C）17D）18（19）在窗体上画两个文本框（名称分别为Text1和Text2）和一个命令按钮（名称为Command1），然后编写如下事件过程：PrivateSubCommand1_Click()x=0DoWhilex<50x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)EndSub程序运行后，单击命令按钮，在两个文本框中显示的值分别为A）1和0B）2和72C）3和50D）4和168（20）阅读程序：PrivateSubForm_Click()a=0Forj=1To15a=a+jMod3

49资料仅供参考NextjPrintaEndSub程序运行后，单击窗体，输出结果是A）105B）1C）120D）15（21）以下说法中正确的是A）当焦点在某个控件上时，按下一个字母键，就会执行该控件的KeyPress事件过程B）因为窗体不接受焦点，因此窗体不存在自己的KeyPress事件过程C）若按下的键相同，KeyPress事件过程中的KeyAscii参数与KeyDown事件过程中的KeyCode参数的值也相同D）在KeyPress事件过程中，KeyAscii参数能够省略（22）语句Dima(-3To4,3To6)AsInteger定义的数组的元素个数是A）18B）28C）21D）32（23）在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4)j=1Fori=4To1Step-1S=s+a(i)*jj=j*10NextiPrintsEndSub程序运行后，单击命令按钮，其输出结果是A）4321B）1234C）34D）12（24）假定经过复制、粘贴操作建立了一个命令按钮数组Command1，以下说法中错误的是A）数组中每个命令按钮的名称（Name属性）均为Command1B）若未做修改，数组中每个命令按钮的大小都一样C）数组中各个命令按钮使用同一个Click事件过程D）数组中每个命令按钮的Index属性值都相同（25）在窗体上画一个命令按钮，名称为Command1，然后编写如下代码：OptionBase0PrivateSubCommand1_Click()DimA1(4)AsInteger,A2(4)AsIntegerFork=0To2A1(k+1)=InputBox(“请输入一个整数”)A2(3-k)=A1(k+1)NextkPrintA2(k)EndSub程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为A）0B）1C）2D）3（26）以下关于函数过程的叙述中，正确的是A）函数过程形参的类型与函数返回值的类型没有关系B）在函数过程中，过程的返回值能够有多个C）当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D）如果不指明函数过程参数的类型，则该参数没有数据类型（27）在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序：PrivateSubfunc(LAsLabel)L.Caption=”1234”EndSubPrivateSubForm_Load()Label1.Caption=”ABCDE”Label2.Caption=10EndSubPrivateSubCommand1_Click()a=Val(Label2.Caption)Callfunc(Label1)Label2.Caption=aEndSub程序运行后，单击命令按钮，则在两个标签中显示的内容分别为A）ABCD和10B）1234和100C）ABCD和100D）1234和10

50资料仅供参考（28）在窗体上画一个命令按钮（名称为Command1），并编写如下代码：FunctionFun1(ByvalaAsInteger,bAsInteger)AsIntegerDimtAsIntegert=a-bb=t+aFun1=t+bEndFunctionPrivateSubCommand1_Click()DimxasIntegerx=10PrintFun1(Fun1(x,(Fun1(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+1LoopFun=tStr&tStrEndFunction在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：PrivateSubCommand1_Click()DimS1AsStringS1=”ABCDEF”Text1.Text=LCase(Fun(S1))EndSub程序运行后，单击命令按钮，文本框中显示的是A）ABCDEFB）abcdefC）defdefD）defabc（31）在窗体上画一个命令按钮和一个文本框（名称分别为Command1和Text1），并把窗体的KeyPreview属性设置为True，然后编写如下代码：DimSaveAllAsStringPrivateSubForm_Load()ShowText1.Text=””Text1.SetFocusEndSubPrivateSubCommand1_Click()Text1.Text=LCase(SaveAll)+SaveAllEndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)SaveAll=SaveAll+Chr(KeyAscii)EndSub程序运行后，直接用键盘输入：VB，再单击命令按钮，则文本框中显示的内容为A）vbVBB）不显示任何信息C）VBD）出错（32）设有以下程序：PrivateSubForm_Click()x=50Fori=1To4y=InputBox(“请输入一个整数”)y=Val(y)IfyMod5=0Thena=a+yx=yElsea=a+xEndIfNextiPrintaEndSub程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为A）100B）50

51资料仅供参考C）120D）70（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类型的纪录。下列能够完成该操作的事件过程是A）PrivateSubCommand_Click()DimBAsBooksOpen“Person.txt”ForOutputAs#1B.Name=InputBox(“输入姓名”)B.TelNum=InputBox(“输入电话号码”)Write#1,B.Name,B.TelNumClose#1EndSubB）PrivateSubCommand_Click()DimBAsBooksOpen“Person.txt”ForInputAs#1B.Name=InputBox(“输入姓名”)B.TelNum=InputBox(“输入电话号码”)Print#1,B.Name,B.TelNumClose#1EndSubC）PrivateSubCommand_Click()DimBAsBooksOpen“Person.txt”ForOutputAs#1B.Name=InputBox(“输入姓名”)B.TelNum=InputBox(“输入电话号码”)Write#1,BClose#1EndSubD）PrivateSubCommand_Click()Open“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）窗体如图所示，其中汽车是名称为Image1的图像框，命令按钮的名称为Command1，计时器的名称为Timer1，直线的名称为Line1。程序运行后，单击命令按钮，则汽车每0.1秒向左移动100，车头到达左边的直线时停止移动。请填空完成下面的属性设置和程序，以便实现上述功能。

52资料仅供参考1）Timer1的Interval属性的值应事先设置为【6】2）PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()IfImage1.Left>【7】ThenImage1.Left=【8】-100EndIfEndSub（7）设窗体上有一个名称为Combo1的组合框，并有以下程序：PrivateSubCombo1_KeyPress(KeyAsciiAsInteger)If【9】=13Then‘回车符的ASCII码是13Fork=0ToCombo1.ListCount-1IfCombo1.Text=Combo1.List(k)ThenCombo1.Text=””ExitForEndIfNextkIfCombo1.Text<>””ThenCombo1.AddItem【10】EndIfEndIfEndSub程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中文本添加到列表的尾部。请填空。（8）在当前目录下有一个名为“myfile.txt”的文本文件，其中有若干行文本。下面程序的功能是读入此文件中的所有文本行，按行计算每行字符的ASCII码之和，并显示在窗体上。请填空。PrivateSubCommand1_Click()DimCh$,asciiAsIntegerOpen“myfile.txt”For【11】As#1WhileNotEOF(1)LineInput#1,chAscii=toascii(【12】)PrintasciiWendClose#1EndSubPrivateFunctiontoascii(mystr$)AsIntegern=0Fork=1To【13】n=n+Asc(Mid(mystr,k,1))NextkToascii=nEndFunction（9）本程序实现文本加密。先给定序列：a1,a2,…,an,它们的取值范围是1~n,且互不相同。加密算法是：把原文本中第k个字符放到加密后文本的第ak个位置处。若原文本长度大于n，则只对前n个字符加密，后面的字符不变；若原文本长度小于n，则在后面补字符“*”使文本长度为n后再加密。例如：若给定序列a1，a2，…，a7分别为2，5，3，7，6，1，4当文本为“PROGRAM”时，加密后的文本为“APOMRRG”当文本为“PROGRAMMING”时，加密后的文本为“APOMRRGMING”当文本为“THANK”时，加密后的文本为“*TA*HKN”下面的过程code实现这一算法。其中参数数组a()中存放给定序列（个数与数组a的元素个数相等）a1，a2，a3，…的值，要加密的文本放在参数变量mystr中。过程执行完毕，加密后的文本仍放在变量mystr中。请填空。OptionBase1PrivateSubcode(a()AsInteger,mystrAsString)DimchAsString,c1AsStringn=UBound(a)-Len(mystr)Ifn>0Thenmystr=mystr&String$(n,“*”)EndIfch=mystrFork=【14】ToUBound(a)c1=Mid(mystr,k,1)n=【15】Mid$(ch,n)=c1NextkMystr=chEndSub9月全国计算机等级考试二级VB真题一、选择题

53资料仅供参考　　（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)可封装　　D)自顶向下　　C)模块化　　D)逐步求精（7）软件详细设计产生的图如下：　　　　该图是　　A)N-S图　　B)PAD图

54资料仅供参考　　C)程序流程图　　D)E-R图　　　　（8）数据库管理系统是　　A）操作系统的一部分　　B)在操作系统支持下的系统软件　　C)一种编译系统　　D)一种操作系统　　（9）在E-R图中，用来表示实体联系的图形是　　A)椭圆图　　B)矩形　　C)菱形　　D)三角形　　　　（10）有三个关系R，S和T如下：　　　　其中关系T由关系R和S经过某种操作得到，该操作为　　A）选择　　B）投影　　C）交　　D）并（11）以下变量名中合法的是　　A）x2-1　　B）print　　C）str_n　　D）2x　　　　（12）把数学表示式图1表示为正确的VB表示式应该是　　A）(5x+3)/(2y-6)　　B）x*5+3/2*y-6　　C）(5*x+3)l图2(2*y-6)　　D）(x*5+3)/(y*2-6)　　　　（13）下面有关标准模块的叙述中，错误的是　　A）标准模块不完全由代码组成，还能够有窗体　　B）标准模块中的Private过程不能被工程中的其它模块调用　　C）标准模块的文件扩展名为.bas　　D）标准模块中的全局变量能够被工程中的任何模块引用　　　　（14）下面控件中，没有Caption属性的是　　A）复选框　　B）单选按钮　　C）组合框　　D）框架　　　　（15）用来设置文字字体是否斜体的属性是　　A）FontUnderline　　B）FontBold　　C）FontSlope　　D）FontItalic

55资料仅供参考（16）若看到程序中有以下事件过程，则能够肯定的是，当程序运行时　　PrivateSubClick_MouseDown(ButtonAsInteger,_ShiftAsInteger,XAsSingle,YAsSingle)　　Print“VBProgram”　　EndSub　　A）用鼠标左键单击名称为“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事件过程　　　　（19）窗体上有名称为Command1的命令按钮和名称为Text1的文本框　　PrivateSubCommand1_Click()　　Text1.Text=”程序设计”　　Text1.SetFocus　　EndSub　　PrivateSubText1_GotFocus()　　Text1.Text=”等级考试”　　EndSub　　运行以上程序，单击命令按钮后　　A）文本框中显示的是“程序设计”，且焦点在文本框中　　B）文本框中显示的是“等级考试”，且焦点在文本框中　　C）文本框中显示的是“程序设计”，且焦点在命令按钮上　　D）文本框中显示的是“等级考试”，且焦点在命令按钮上（20）设窗体上有名称为Option1的单选按钮，且程序中有语句：　　IfOptions.Value=TrueThen　　下面语句中与该语句不等价的是　　A）IfOption.ValueThen　　B）IfOption1=TrueThen　　C）IfValue=TrueThen　　D）IfOption1Then　　　　（21）设窗体上有1个水平滚动条，已经经过属性窗口把它的Max属性设置为1，Min属性设置为100。下面叙述正确的是　　A）程序运行时，若使滚动块向左移动，滚动条的Value属性值就增加　　B）程序运行时，若使滚动块向左移动，滚动条的Value属性值就减少　　C）由于滚动条的Max属性值下于Min属性值，程序会出错　　D）由于滚动条的Max属性值下于Min属性值，程序运行时滚动条的长度会缩为一点，滚动块无法移动　　　　（22）有如下过程代码：　　Subvar_dim()　　StaticnumaAsInteger　　DimnumbAsInteger　　numa=numa+2　　numb=numb+1　　printnuma;numb　　EndSub　　连续3次调用var_dim过程，第3次调用时的输出是　　A）21　　B）23

56资料仅供参考　　C）61　　D）63　　（23）在窗体上画1个命令按钮，并编写如下事件过程：　　PrivateSubCommand1_Click()　　Fori=5to1step-0.8　　PrintInt(i);　　Nexti　　EndSub　　运行程序，单击命令按钮，窗体上显示的内容为　　A）543211　　B）54321　　C）43211　　D）443211（24）在窗体上画1个命令按钮，并编写如下事件过程：　　PrivateSubCommand1_Click()　　Dima(3,3)　　Form=1To3　　Forn=1To3　　Ifn=mOrn=4-mThen　　a(m,n)=0　　EndIf　　Printa(m,n);　　Nextn　　Print　　Nextm　　EndSub　　运行程序，单击命令按钮，窗体上显示的内容为　　A）200　　040　　006　　B）204　　040　　406　　C）230　　340　　006　　D）200　　045　　056　　　　（25）设有以下函数过程　　Functionfun(aAsInteger,bAsInteger)　　DimcAsInteger　　Ifa

57资料仅供参考　　A）每次执行些事件过程时，flag的初始值为0　　B）flag的值只可能取0或1　　C）程序执行后，文本框的文字每5秒改变一次颜色　　D）程序有逻辑错误，Else分支总也不能被执行　　　　（27）为计算1+2+22+23+24+…+210的值，并把结果显示在文本框Text1中，若编写如下事件过程：　　PrivateSubCommand1_Click()　　Dima%,s%,k%　　s=1　　a=2　　Fork=2To10　　a=a*2　　s=s+a　　Nextk　　Text1.Text=s　　EndSub　　执行此事件过程后发现结果是错误的，为能够得到正确结果，应做的修改是　　A）把s=1改为s=0　　B）把Fork=2To10改为Fork=1To10　　C）交换语句s=s+a和a=a*2的顺序　　D）同时进行B）、C）两种修改（28）标准模块中有如下程序代码：　　PublicxAsInteger,yAsInteger　　Subvar_pub()　　x=10:y=20　　EndSub　　　　在窗体上有1个命令按钮，并有如下事件过程：　　PrivateSubCommand1_Click()　　DimxAsInteger　　Callvar_pub　　x=x+100　　y=y+100　　Printx;y　　EndSub　　运行程序后单击命令按钮，窗体上显示的是　　A）100100　　B）100120　　C）110100　　D）110120　　　　（29）设a、b都是自然数，为求a除以b的余数，某人编写了以下函数：　　Functionfun(aAsInteger,bAsInteger)　　Whilea>b　　a=a-b　　Wend　　fun=a　　EndFunction　　在调试时发现函数是错误的。为使函数能产生正确的返回值，应做的修改是　　A）把a=a-b改为a=b-a　　B）把a=a-b改为a=a\b　　C）把Whilea>b改为Whileab改为Whilea>=b（30）下列关于通用对话框CommonDialog1的叙述中，错误的是　　A）只要在“打开”对话框中选择了文件，并单击“打开”按钮，就能够将选中的文件打开　　B）使用CommonDialog1.ShowColor方法，能够显示“颜色”对话框　　C）CancelError属性用于控制用户单击“取消”按钮关闭对话框时，是否显示出错误警告　　D）在显示“字体”对话框前，必须先设置CommonDialog1的flags属性，否则会出错　　　　（31）在利用菜单编辑器设计菜单时，为了把组合键“Alt+X”设置为“退出（X）”菜单项的访问键，能够将该菜单项的标题设置为　　A）退出(X&)　　B）退出(&X)　　C）退出(X#)　　D）退出(#X)　　　　（32）在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，再编写如下程序：　　DimssAsString　　PrivateSubText1_KeyPress(KeyAsciiAsinteger)　　Ifchr(KeyAscii)<>””Thenss=ss+chr(KeyAscii)　　EndSub　　　　PrivateSubCommand1_Click()　　DimmAsString,iAsInteger　　Fori=Len(ss)To1step-1　　m=m+Mid(ss,i,1)　　Next　　Text1.Text=Ucase(m)　　EndSub　　程序运行后，在文本框中输入“Number100”，并单击命令按钮，则文本框中显示的是

58资料仅供参考　　A）NUMBER100　　B）REBMUN　　C）REBMUN100　　D）001REBMUN（33）窗体的左右两端各有1条直线，名称分别为Line1、Line2；名称为Shape1的圆靠在左边的Line1直线上（见图）；另有1个名称为Timer1的计时器控件，其Enable属性值是True。要求程序运行后，圆每秒向右移动100，当圆遇到Line2时则停止移动。　　　　为实现上述功能，某人把计时器的Interval属性设置为1000，并编写了如下程序：　　PrivateSubTimer1_Timer()　　Fork=Line1.X1ToLine2.X1Step100　　IfShape1.Left+Shape1.Width

59资料仅供参考　　PrivateSubCommand1_Click()　　Dimn%,k%　　n=Len(Text1.Text)　　Fork=0ToList1.ListCount-1　　IfLeft(List1.List(k),n)=Text1.TextThen　　List1.RemoveItemk　　EndIf　　Nextk　　EndSub　　在调试时发现，如输入“陈”，能够正确删除所有姓“陈”的项目，但输入“刘”，则只删除了“刘邦”、“刘备”2项，结果如图2所示。这说明程序不能适应所有情况，需要修改。正确的修改方案是把Fork=0ToList1.ListCount-1改为　　A）Fork=List1.ListCount-1To0Step-1　　B）Fork=0ToList1.ListCount　　C）Fork=1ToList1.ListCount-1　　D）Fork=1ToList1.ListCount二、填空题（每空2分，共30分）　　　　（1）某二叉树有5个度为2的结点以及3个度为1的结点为，则该二叉树共有【1】个结点。　　　　（2）程序流程图中的菱形框表示的是【2】。　　　　（3）软件开发过程主要分为需求分析、设计、编码与测试四个阶段，其中【3】阶段产生“软件需求规格说明书”。　　　　（4）在数据库技术中，实体集之间的联系能够是一对一或一对多或多对多的，那么“学生”和“可选课程”的联系为【4】。　　　　（5）人员基本信息一般包括：身份证号，姓名，性别，年龄等。其中能够作为主关键字的是【5】。　　　　（6）工程中有Form1、Form2两个窗体。Form1窗体外观如图1所示。程序运行时，在Form1中名称为Text1的文本框中输入一个数值（圆的半径），然后单击命令按钮“计算并显示”（其名称为Command1），则显示Form2窗体，且根据输入的圆的半径计算圆的面积，并在Form2的窗体上显示出来，如图2所示。如果单击命令按钮时，文本框中输入的不是数值，则用信息框显示“请输入数值数据！”请填空。　　

60资料仅供参考　　PrivateSubCommand1_Click()　　IfText1.Text=””Then　　MsgBox“请输入半径！”　　ElseIfNotIsNumeric(【6】)Then　　MsgBox“请输入数值数据！”Else　　r=val(【7】)　　Form2.show　　【8】.Print“圆的面积是”&3.14*r*r　　EndIf　　EndSub   （7）设有整形变量s，取值范围为0~100，表示学生的成绩。有如下程序段：　　Ifs>=90Then　　Level=”A”　　ElseIfs>=75Then　　Level=”B”　　ElseIfs>=60Then　　Level=”B”　　Else　　Level=”D”　　EndIf　　下面用SelectCase结构改写上述程序，使两段程序所实现的功能完全相同。请填空。　　SelectCases　　Case 【9】>=90　　Level=”A”　　Case75To89　　Level=”B”　　Case60To74　　Level=”B”　　Case 【10】　　Level=”D”　　【11】　（8）窗体上有名称为Command1的命令按钮。事件过程及2个函数过程如下：　　PrivateSubCommand1_Click()　　DimxAsInteger,yAsInteger,z

61资料仅供参考　　x=3　　y=5　　z=fy(y)　　printfx(fx(x)),y　　EndSubFunctionfx(ByBalaAsInteger)　　a=a+a　　fx=a　　EndFunction　　　　Functionfy(ByRefaAsInteger)　　a=a+a　　fy=a　　EndFunction　　运行程序，并单击命令按钮，则窗体上显示的2个值依次是【12】和【13】。　　　　（9）窗体上有名称为Command1的命令按钮及名称为Text1、能显示多行文本的文本框。程序运行后，如果单击命令按钮，则可打开磁盘文件c:\test.txt，并将文件中的内容（多行文本）显示在文本框中。下面是实现此功能的程序，请填空。　　PrivateSubCommand1_Click()　　Text1=””　　Number=FreeFile　　Open“c:\test.txt”ForInputAsNumber　　DoWhileNotEof(【14】)　　LineInput#Number,s　　Text1.Text=Text1.Text+【15】+Chr(13)+Chr(10)　　Loop　　CloseNumber　　EndSub3月一、选择题(每小题2分，共70分)　　下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。　　(1)下列叙述中正确的是　　A)对长度为n的有序链表进行查找，最坏情况下需要的比较次数为n　　B)对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(n/2)　　C)对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(log2n)　　D)对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(nlog2n)　　(2)算法的时间复杂度是指

62资料仅供参考　　A)算法的执行时间　　B)算法所处理的数据量　　C)算法程序中的语句或指令条数　　D)算法在执行过程中所需要的基本运算次数　　(3)软件按功能能够分为：应用软件、系统软件和支撑软件(或工具软件)。下面属于系统软件的是　　A)编辑软件　　B)操作系统　　C)教务管理系统　　D)浏览器　　(4)软件(程序)调试的任务是　　A)诊断和改正程序中的错误　　B)尽可能多地发现程序中的错误　　C)发现并改正程序中的所有错误　　D)确定程序中错误的性质　　(5)数据流程图(DFD图)是　　A)软件概要设计的工具　　B)软件详细设计的工具　　C)结构化方法的需求分析工具　　D)面向对象方法的需求分析工具　　(6)软件生命周期可分为定义阶段，开发阶段和维护阶段。详细设计属于A)定义阶段　　B)开发阶段

63资料仅供参考　　C)维护阶段　　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)投影

64资料仅供参考　　C)交　　D)并　(11)在VB集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是   　　(12)设x是整型变量，与函数Ⅱf(x>0,-x,x)有相同结果的代数式是　　A)|x|　　B)-|x|　　C)xD)-x(13)设窗体文件中有下面的事件过程：　　PrivateSubCommand1_Click()　　Dims　　a%=100　　Printa　　EndSub　　其中变量a和s的数据类型分别是　　A)整型，整型　　B)变体型，变体型　　C)整型，变体型　　D)变体型，整型　　(14)下面哪个属性肯定不是框架控件的属性　　A)Text　　B)Caption

65资料仅供参考　　C)Left　　D)Enabled　　(15)下面不能在信息框中输出“VB”的是　　A)MsgBox"VB"　　B)x=MsgBox("VB")　　C)MsgBox("VB")　　D)CallMsgBox"VB"　　(16)窗体上有一个名称为Option1的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程　　PrivateSubOption1_C1ick(IndexAsInteger)　　…　　EndSub　　下面关于此过程的参数Index的叙述中正确的是　　A)Index为1表示单选按钮被选中，为O表示未选中　　B)Index的值可正可负　　C)Index的值用来区分哪个单选按钮被选中　　D)Index表示数组中单选按钮的数量　　(17)设窗体中有一个文本框Text1，若在程序中执行了Text1.SetFocus，则触发　　A)Text1的SetFocus事件　　B)Text1的GotFocus事件C)Text1的LostFocus事件　　D)窗体的GotFocus事件　　(18)VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母

66资料仅供参考　　A)这3个事件都会触发　　B)只触发KeyPress事件　　C)只触发KeyDown、KeyUp事件　　D)不触发其中任何一个事件　　(19)下面关于标准模块的叙述中错误的是　　A)标准模块中能够声明全局变量　　B)标准模块中能够包含一个SubMain过程，但此过程不能被设置为启动过程　　C)标准模块中能够包含一些Public过程　　D)一个工程中能够含有多个标准模块　　(20)设窗体的名称为Form1，标题为Win，则窗体的MouseDown事件过程的过程名是　　A)Form1_MouseDown　　B)Win_MouseDown　　C)Form_MouseDown　　D)MouseDown_Form1　　(21)下面正确使用动态数组的是　　A)Dimarr()AsInteger　　…　　ReDimarr(3,5)　　B)Dimarr()AsInteger　　…　　ReDimarr(50)AsString　　C)Dimarr()

67资料仅供参考　　…　　ReDimarr(50)AsInteger　　D)Dimarr(50)AsInteger　　…　　ReDimarr(20)　　(22)下面是求最大公约数的函数的首部　　Functiongcd(ByValxAsInteger,ByValyAsInteger)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　　Fori=1To3　　Forj=1To5　　A(i,j)=i+j　　Printa(i,j);　　Next　　Print　　Next　　

68资料仅供参考　　若要按图2所示的规律继续输出数据，则接在上述程序段后面的程序段应该是　　A)Fori=1To5　　Forj=1To3　　Printa(j,i);　　Next　　Print　　Next　　B)Fori=1To3　　Forj=1To5　　Printa(j,i);　　Next　　Print　　Next　　C)Forj=1To5　　Fori=1To3　　Printa(j,i);　　Next　　Print　　Next　　D)Fori=1To5　　Forj=1To3　　Printa(i,j);

69资料仅供参考　　Next　　Print　　Next　　(24)窗体上有一个Text1文本框，一个Command1命令按钮，并有以下程序　　PrivateSubCommandl_Click()　　Dimn　　IfText1.Text<>"23456"Then　　n=n+1　　Print"口令输入错误"&n&"次"　　EndIf　　EndSub  　　希望程序运行时得到左图所示的效果，即：输入口令，单击“确认口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是　　A)在Dimn语句的下面添加一句：n=O　　B)把Print"口令输入错误"&n&"次"改为Print"口令输入错误"+n+"次"　　C)把Print"口令输入错误"&n&"次"改为Print"口令输入错误"&Str(n)&"次"　　D)把Dimn改为Staticn　　(25)要求当鼠标在图片框P1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是　　A)PrivateSubP1_MouseMove(ButtonASInteger,ShiftAsInteger,XAsSingle,YAsSingle)　　PrintX,Y　　EndSub

70资料仅供参考　　B)PrivateSubP1_MouseDown(ButtonASInteger,ShiftAsInteger,XAsSingle,YAsSingle)　　Picture.PrintX,Y　　EndSub　　C)PrivateSubP1_MouseMove(ButtonASInteger,ShiftAsInteger,XAsSingle,YAsSingle)　　P1.PrintX,Y　　EndSub　　D)PrivateSubForm_MouseMove(ButtonASInteger,ShiftAsInteger,XAsSingle,YAsSingle)　　P1.PrintX,Y　　EndSub　　(26)计算二的近似值的一个公式是。　　某人编写下面的程序用此公式计算并输出π的近似值：　　PrivateSubComand1_Click()　　PI=1　　Sign=1　　n=0　　Fork=3Ton　　Sign=-Sign/k　　PI=PI+Sign/k　　Nextk　　PrintPI*4　　EndSub　　运行后发现结果为3.22751，显然，程序需要修改。下面修改方案中正确的是

71资料仅供参考　　A)把Fork=3Ton改为Fork=1Ton　　B)把n=0改为n=0000　　C)把Fork=3Ton改为Fork=3TonStep2　　D)把PI=1改为PI=0　　(27)下面程序计算并输出的是　　PrivateSubComand1_Click()　　a=10　　s=0　　Do　　s=s+a*a*a　　a=a-1　　LoopUntila<=0　　Prints　　EndSub　　A)13+23+33+…+103的值　　B)10!+…+3!+2!+1!的值　　C)(1+2+3+…+10)3的值　　D)10个103的和　　(28)若在窗体模块的声明部分声明了如下自定义类型和数组　　PrivateTyperec　　CodeAsInteger　　CaptionAsString

72资料仅供参考　　EndType　　Dimarr(5)Asrec　　则下面的输出语句中正确的是　　A)Printarr.Code(2),arr.Caption(2)　　B)Printarr.Code,arr.Caption　　C)Printarr(2).Code,arr(2).Caption　　D)PrintCode(2),Caption(2)　　(29)设窗体上有一个通用对话框控件CD1，希望在执行下面程序时，打开如图所示的文件对话框　　PrivateSubComand1_Click()　　CD1.DialogTitle="打开文件"　　CD1.InitDir="C:\"　　CD1.Filter="所有文件|*.*|Word文档|*.doc|文本文件|*.Txt"　　CD1.FileName=""　　CD1.Action=1　　IfCD1.FileName=""Then　　Print"未打开文件"　　Else　　Print"要打开文件"&CD1.FileName　　EndIf　　EndSub　　但实际显示的对话框中列出了C:\下的所有文件和文件夹，“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是　　A)把CD1.Action=1改为CD1.Action=2　　B)把“CD1.Filter=”后面字符串中的“所有文件”改为“文本文件”

73资料仅供参考　　C)在语句CD1.Action=1的前面添加：CD1.FilterIndex=3　　D)把CD1.FileName=""改为CD1.FileName="文本文件"　　(30)下面程序运行时，若输入395，则输出结果是　　PrivateSubComand1_Click()　　Dimx%　　x=InputBox("请输入一个3位整数")　　PrintxMod10,x\100,(xMod100)\10　　EndSub　　A)395　　B)539　　C)593　　D)359　(31)窗体上有List1、List2两个列表框，List1中有若干列表项(见图)，并有下面的程序：　　PrivateSubComand1_Click()　　Fork=List1.ListCount-1To0Step-1　　IfList1.Selected(k)Then　　List2.AddItemList1.List(k)　　List1.RemoveItemk　　EndIfNextk　EndSub　　程序运行时，按照图示在List1中选中2个列表项，然后单击Commandl命令按钮，则产生的结果是

74资料仅供参考　　A)在List2中插入了“外语”、“物理”两项　　B)在List1中删除了“外语”、“物理”两项　　C)同时产生A)和B)的结果　　D)把List1中最后1个列表项删除并插入到List2中　　(32)设工程中有2个窗体：Form1、Form2，Form1为启动窗体。Form2中有菜单。其结构如表。要求在程序运行时，在Form1的文本框Text1中输入口令并按回车键(回车键的ASCII码为13)后，隐藏Form1，显示Form2。若口令为“Teacher”，所有菜单项都可见;否则看不到“成绩录入”菜单项。为此，某人在Form1窗体文件中编写如下程序：　　PrivateSubText1_KeyPress(KeyAsciiAsInteger)　　IfKeyAscii=13Then　　IfText1.Text="Teacher"Then　　Form2.input.visible=True　　Else　　Form2.input.visible=False　　EndIf　　EndIf　　Form1.Hide　　Form2.Show　　EndSub　　程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2，程序需要修改。下面修改方案中正确的是　　A)把Form1中Text1文本框及相关程序放到Form2窗体中　　B)把Form1.Hide、Form2.Show两行移到2个EndIf之间　　C)把IfKeyAscii=13Then改为IfKeyAscii="Teaeher"Then　　D)把2个Form2.input.Visible中的“Form2”删去

75资料仅供参考　　(33)某人编写了下面的程序，希望能把Text1文本框中的内容写到out.txt文件中　　PrivateSubComand1_Click()　　Open"out.txt"ForOutputAs#2　　Print"Text1"　　Close#2　　EndSub　　调试时发现没有达到目的，为实现上述目的，应做的修改是　　A)把Print"Text1"改为Print#2,Text1　　B)把Print"Text1"改为PrintText1　　C)把Print"Text1"改为Write"Text1"　　D)把所有#2改为#1　　(34)窗体上有一个名为Command1的命令按钮，并有下面的程序：　　PrivateSubComand1_Click()　　Dimarr(5)AsInteger　　Fork=1To5　　arr(k)=k　　Nextk　　progarr()　　Fork=1To5　　Printarr(k)　　Nextk　　EndSub

76资料仅供参考　　Subprog(a()AsInteger)　　n=Ubound(a)　　Fori=nTo2step-1　　Forj=1Ton-1　　ifa(j)　　t=a(j):a(j)=a(j+1):a(j+1)=t　　EndIf　　Nextj　　Nexti　　EndSub　　程序运行时，单击命令按钮后显示的是　　A)12345　　B)54321　　C)01234　　D)43210　　(35)下面程序运行时，若输入“VisualBasicProgramming”，则在窗体上输出的是　　PrivateSubComand1_Click()　　Dimcount(25)AsInteger,chAsString　　ch=Ucase(InputBox("请输入字母字符串"))　　Fork=1ToLen(ch)　　n=Asc(Mid(ch,k,1))-Asc("A")　　Ifn>=0Then

77资料仅供参考　　Count(n)=Count(n)+1　　EndIf　　Nextk　　m=count(0)　　Fork=1To25　　Ifm　　m=count(k)　　EndIf　　Nextk　　Printm　　EndSub　　A)0　　B)1　　C)2　　D)3　二、填空题　　(1)一个队列的初始状态为空。现将元素A,B,C,D,E,F,5,4,3,2,1依次入队，然后再依次退队，则元素退队的顺序为【1】。　　(2)设某循环队列的容量为50，如果头指针front=45(指向队头元素的前一位置)，尾指针rear=10(指向队尾元素)，则该循环队列中共有【2】个元素。　　(3)设二叉树如下： 　　对该二叉树进行后序遍历的结果为【3】。　　(4)软件是【4】、数据和文档的集合。

78资料仅供参考　　(5)有一个学生选课的关系，其中学生的关系模式为：学生(学号，姓名，班级，年龄)，课程的关系模式为：课程(课号，课程名，学时)，其中两个关系模式的键分别是学号和课号，则关系模式选课可定义为：选课(学号，【5】，成绩)。　　(6)为了使复选框禁用(即呈现灰色)，应把它的Value属性设置为【6】。　　(7)在窗体上画一个标签、一个计时器和一个命令按钮，其名称分别为Labl1、Timer1和Command1，如图1所示。程序运行后，如果单击命令按钮，则标签开始闪烁，每秒钟“欢迎”二字显示、消失各一次，如图2所示。以下是实现上述功能的程序，请填空。　　PrivateSubForm_Load()　　Label1.Caption="欢迎"　　Timer1.Enabled=False　　Timer1.Interval=【7】　　EndSub　　PrivateSubTimer1_Timer()　　Label1.Visible=【8】　　EndSub　　PrivateSubcommand1_Click()　　【9】　　EndSub 　　(8)有如下程序：　　PrivateSubForm_Click()　　n=10　　i=0　　Do　　i=i+n

79资料仅供参考　　n=n-2　　LoopWhilen>2　　Printi　　EndSub　　程序运行后，单击窗体，输出结果为【10】。　　(9)在窗体上画一个名称为Command1的命令按钮。然后编写如下程序：　　OptionBase1　　PrivateSubCommand1_Click()　　Dima(10)AsInteger　　Fori=1To10　　a(i)=i　　Next　　Callswap(【11】)　　Fori=1To10　　Printa(i);　　Next　　EndSub　　Subswap(b()AsInteger)　　n=Ubound(b)　　Fori=1Ton/2　　t=b(i)　　b(i)=b(n)

80资料仅供参考　　b(n)=t　　【12】　　Next　　EndSub　　上述程序的功能是，经过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……。请填空。　　(10)在窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：　　PrivateSubForm_Click()　　Open"d:\test\smtext1.Txt"ForInputAs#1　　DoWhileNot【13】　　LineInput#1,aspect$　　Whole$=whole$+aspect$+Chr$(13)+Chr$(10)　　Loop　　Text1.Text=whole$　　【14】　　Open"d:\test\smtext2.Txt"ForOutputAs#1　　Print#1,【15】　　Close#1　　EndSub运行程序，单击窗体，将把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。9月计算机二级VB笔试试题：文字版　　一、选择题（每小题2分，共70分）

81资料仅供参考　　下列各题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）记录长度　　B）文件的大小　　C）联系的复杂程度　　D）数据之间的联系方式　　（8）一个工作人员能够使用多台计算机，而一台计算机可被多个人使用，则实体工作人员、与实体计算机之间的联系是　　A）一对一　　B）一对多　　C）多对多　　D）多对一　　（9）数据库设计中反映用户对数据要求的模式是　　A）内模式　　B）概念模式　　C）外模式　　D）设计模式　　（10）有三个关系R、S和T如下：

82资料仅供参考　　则由关系R和S得到关系T的操作是　　A）自然连接　　B）交　　C）投影　　D）并（11）在VisualBasic集成环境中，要添加一个窗体，能够单击工具栏上的一个按钮，这个按钮是　　A）      B）　　C）       D）　　（12）在VisualBasic集成环境的设计模式下，用鼠标双击窗体上的某个控件打开的窗口是　　A）工程资源管理器窗口　　B）属性窗口　　C）工具箱窗口　　D）代码窗口　　（13）下列叙述中错误的是　　A）列表框与组合框都有List属性　　B）列表框有Selected属性，而组合框没有　　C）列表框和组合框都有Style属性　　D）组合框有Text属性、而列表框没有　　（14）设窗体上有一个命令按钮数组，能够区分数组中各个按钮的属性是　　A）Name       B）Index      C）Caption    D）Left　　（15）滚动条能够响应的事件是　　A）Load       B）Scroll     C）Click      D）MouseDown　　（16）设a=5,b=6,c=7,d=8，执行语句X=Ilf（（a＞b）And（c＞d）,10,20）后，x的值是　　A）10         B）20         C）30         D）200　　（17）语句PrintSgn（-6^2）+Abs（-6^2）+Int（-6^2）的输出结果是　　A）-36        B）1          C）-1         D）-72　　（18）在窗体上画一个图片框，在图片框中画一个命令按钮，位置如图所示。　　则命令按钮的Top属性值是　　A）200        B）300        C）500        D）700

83资料仅供参考　　（19）在窗体上画一个名称为Commandl的命令按钮。单击命令按钮时执行如下事件过程：　　PrivateSubCommand1_Click（）　　a$=”softwareandhardware"　　b$=Right（a$，8）　　c$=Mid（a$,1，8）　　MsgBoxa$,，b$，c$,1　　EndSub　　则在弹出的信息框标题栏中显示的标题是　　A）softwareandhardware　　B）hardware　　C）software　　D）1　　（20）在窗体上画一个文本框（名称为Text1）和一个标签（名称为Label1），程序运行后，如果在文本框中输入文本，则标签中立即显示相同的内容。以下能够实现上述操作的事件过程是　　A）PrivateSubText1_Change（）　  　Label1.Caption=Text1.Text　　  EndSub　　B）PrivateSubLabel1_Change（）　　  Label1.Caption=Text1.Text　　  EndSub　　C）PrivateSubText1_Click（）　  　Label1.Caption=Text1.Text　  　EndSub　　D）PrivateSubLabel1_Click（）　  　Label1.Caption=Text1.Text　　  EndSub　　（21）以下说法中错误的是　　A）如果把一个命令按钮的Default属性设置为True，则按回车键与单击该命令按钮的作用相同　　B）能够用多个命令按钮组成命令按钮数组　　C）命令按钮只能识别单击（Click）事件　　D）经过设置命令按钮的Enabled属性，能够使该命令按钮有效或禁用（22）以下关于局部变量的叙述中错误的是　　A）在过程中用Dim语句或Static语句声明的变量是局部变量　　B）局部变量的作用域是它所在的过程　　C）在过程中用Static语句声明的变量是静态局部变量　　D）过程执行完毕，该过程中用Dim或Static语句声明的变量即被释放　　　　（23）以下程序段的输出结果是　　x=I　　y=4　　DoUntil

84资料仅供参考y＞4　　x=x*y　　Y=y＋I　　Loop　　Printx　　A）1       B）4       C）8       D）20　　　　（24）如果执行一个语句后弹出如图所示的窗口，则这个语句是　　A）InputBox（"输入框”，”请输入VB数据”）　　B）x=InputBox（"输入框”，”请输入VB数据”）　　C）InputBox（"请输入VB数据”，”输入框”）　　D）x=InputBox（"请输入VB数据”，”输入框”）　　（25）有如下事件过程：　　PrivateSubFormClick（）　　DimnAsInteger　　x=0　　n=InputBox（"请输入一个整数”）　　Fori=1Ton　　Forj=1Toi　　x=x＋I　　Nextj　　Nexti　　Printx　　EndSub　　程序运行后，单击窗体，女口果在输入对话框中输入：，则在窗体上显示的内容是　　A）13      B）14       C）15       D）16　　　　（26）请阅读程序：　　SubsubP（b（）AsInteger）　　Fori=1To4　　b（i）=2＊i　　Nexti　　EndSub　　　　PrivateSubCommand1_Click（）　　Dima（l To 4）AsInteger　　A（l）=5：a（2）=6：a（3）=7：a（4）=8　　subPa（）　　Fori=1To4　　Print

85资料仅供参考a（i）　　Nexti　　EndSub　　运行上面的程序，单击命令按钮，则输出结果是　　A）2     B）5     C）10     D）出错　  　4        6        12　  　6        7        14　  　8        8        16（27）Fibonacci数列的规律是：前2个数为1，从第3个数开始，每个数是它前2个数之和，即：1，1，2,3,5,8,13,21，34,55,89,…。某人编写了下面的函数，判断大于1的整数x是否是Fibonacci数列中的某个数，若是，则返回True,否则返回False。　　FunctionIsfab（xAsInteger）AsBoolean　　DimaAsInteger,bAsInteger,cAsInteger,flagAsBoolean　　flag=False　　a=1：b=I　　DoWhilex＜b　　c=a＋b　　a=b　　b=c　　Ifx=bThenflag=True　　Loop　　Isfab=flag　　EndFunction　　测试时发现对于所有正整数x,函数都返回False,程序需要修改。下面的修改方案中正确的是　　A）把a=b与b=c的位置互换　　B）把c=a+b移到b=c之后　　C）把DoWhilex＜b改为DoWhilex＞b　　D）把ifx=bThen  flag=True改为Ifx=aThen  flag=True　　　　（28）在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：　　PrivateSubCommand1_Click（）　　Dima$,b$，c$,k%　　a="ABCD”　　b=”123456”　　c=""　　k=1　　DoWhilek＜=Len（a）Ork＜=Len（b）　　Ifk＜=Len（a）Then　　c=c＆Mid（a,k,1）　　EndIf　　Ifk＜=Len（b）Then　　c=c＆Mid（b,k,1）　　End

86资料仅供参考If　　k=k＋1　　Loop　　Printc　　EndSub　　运行程序，单击命令按钮，输出结果是　　A）123456ABCD   B）ABCD123456   C）D6C5B4A321   D）AlB2C3D456　　（29）请阅读程序：　　PrivateSubForm_Click（）　　m=1　　Fori=4To1Step-1　　PrintStr（m）；　　m=m＋1　　Forj=1Toi　　Print”＊”；　　Nextj　　Print　　Nexti　　EndSub　　程序运行后，单击窗体，则输出结果是　　A）1****         B）4****          C）****         D）*　　  2***             3***              ***             **　　  3**              2**               **              ***　  　4*               1*                *               ****　　　　（30）在窗体上画一个命令按钮（其名称为Commandl），然后编写如下代码：　　PrivateSubCommandl_Click（）　　Dima　　a=Array（1,2,3,4）　　I=3：j=1　　DoWhilei＞=0　　s=s＋a（i）*j　　i=i-1　　j=j*10。　　Loop　　Prints　　EndSub　　运行上面的程序，单击命令按钮，则输出结果是　　A）4321       B）123        C）234        D）1234（31）下列能够打开随机文件的语句是　　A）Open"filel.dat"Forlnpu'tAs＃1　　B）Open”filel.dat"ForAppendAs＃1　　C）Open”file1.dat"ForOutputAs＃1　　D）Open”file1.dat"ForRandomAs＃1

87资料仅供参考Len=20　　　　（32）有弹出式菜单的结构如下表，程序运行时，单击窗体则弹出如下图所示的菜单。下面的事件过程中能正确实现这一功能的是　　A）PrivateSubForm_Click（）　　PopupMenucut　　EndSub　　B）PrivateSubCommandlClick（）　　PopupMenuedit　　EndSub　　C）PrivateSubForm_Click（）　　PopupMenuedit　　EndSub　　EndSub　　D）PrivateSubForm_lick（）　　PopupMenucut　　PopupMenupaste　　（33）请阅读程序：　　OptionBaseI　　PrivateSubForm_Click（）　　DimArr（4,4）AsInteger　　Fori=1To4　　Forj=ITo4　　Arr（i,j）=（i-1）*2＋j　　Nextj　　Nexti　　　　Fori=3To4　　Forj=3To4　　PrintArr（j,i）;　　Nextj　　Print　　Nexti　　EndSub　　程序运行后，单击窗体，则输出结果是　　A）57   B）68   C）79   D）810  　　68      79      810     8

88资料仅供参考11　　　　（34）一下面函数的功能应该是：删除字符串str中所有与变量ch相同的字符，并返回删除后的结果。例如：若str="ABCDABCD",ch="B",则函数的返回值为："ACDACD"　　Functiondelchar（strAsString,chAsString）AsString　　DimkAsInteger,tempAsString,retAsString　　ret=""　　Fork=1ToLen（str）　　temp=Mid（str,k,1）　　Iftemp=chThen　　ret=ret＆temp　　EndIf　　Nextk　　delchar=ret　　EndFunction　　但实际上函数有错误，需要修改。下面的修改方案中正确的是　　A）把ret=ret＆temp改为ret=temp　　B）把Iftemp=chThen改为Iftemp＜＞chThen　　C）把delchar=ret改为delchar=temp　　D）把ret=""改为temp=""　　（35）在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、TextI和Text2,在属性窗口中把窗体的KeyPreview属性设置为True，然后编写如下程序：　　DimSIAsString,S2AsString　　PrivateSubFormLoad（）　　Text1.Text=""　　Text2.Text=""　　Text1．Enabled=False　　Text2．Enabled=False　　EndSub　　PrivateSubForm_KeyDown（KeyCodeAsInteger,ShiftAsInteger）　　S2=S2＆Chr（KeyCode）　　EndSub　　　　PrivateSubForin_KeyPress（KeyAsciiAsInteger）　　S1=S1＆Chr（KeyAscii）　　EndSub　　PrivateSubCommandlClick　　Textl.Text=Sl　　Text2.Text=S2　　S1=""　　S2=""　　End

89资料仅供参考Sub　　程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Textl和Text2中显示的内容分别为　　A）abc和ABC　　B）空白　　C）ABC和abc　　D）出错二、填空题（每空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】__程序。　　　　（5）数据库设计的四个阶段是：需求分析，概念设计，逻辑设计和_【5】_。　　　　（6）窗体上有一个名称为Combo1的组合框， 其初始内容为空，有一个名称为Command1、标题为“添加项目”的命令按钮。程序运行后，如果单击命令按钮，会将给定数组中的项目添加到组合框中，如图所示。请填空。　　OptionBase1　　PrivateSubCommand1_Click（　　DimcityAsVariant　　city=_【6】_（"北京"，"天津"，"上海"，"武汉"，"重庆"，"西宁"）　　Fori=_【7】_ToUBound（citv）　　Combo1.Addltem_【8】_　　Next　　EndSub　　（7）窗体上有一个名称为Text1的文本框和一个名称为Commandl、标题为“计算”的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。

90资料仅供参考　　PrivateSubCommand1_Click（）　　DimxAsInteger　　x=Val（InputBOX（"输入数据"））　　Text1=Str（fun（x）+fun（x）+fun（x））　　EndSub　　　　PrivateFunctionfun（ByRefnAsInteger）　　IfnMod3=0Then　　n=n+n　　Else　　n=n*n　　EndIf　　_【9】_=n　　EndFunction　　当单击命令按钮，在输入对话框中输入2时，文本框中显示的是_【10】_　　（8）窗体上有一个名称为List1的列表框，一个名称为Picture1的图片框。Form_Load事件过程的作用是，把Datal.txt文件中的物品名称添加到列表框中。运行程序，当双击列表框中的物品名称时，能够把该物品对应的图片显示在图片框中如图所示。以下是类型定义及程序，请填空。　　PrivateTypePic　　gNameAsString*10   ‘物品名称　　picFileAsString*20 ‘物品图片的图片文件名　　EndType　　Dimp（4）AsPic，pRecAsPic　　PrivateSubFormLoad（）　　Open”Datal.txt"ForRandomAs＃1_【11】_=Len（pRec）　　Fori=0To4　　Get＃1，i+l，P（i）　　LIStI.AddItemp（i）.gNaine　　Nexti　　Close＃1　　EndSub　　　　PrivateSubListI-DbICIickO　　Fori=OTo4　　IfRTrim（List一List（i））=RTrim（_【12】_）Then　　Picturel.，Picture=LoadPicture（p（i）．_【13】_）　　Exit

91资料仅供参考For　　EndIf　　Next　　EndSub　　（9）窗体上有一个名称为CD1的通用对话框。经过菜单编辑器建立如图1所示的菜单。程序运行时，如果单击“打开”菜单项，则执行打开文件的操作，当选定了文件（例如：G:\VB\-9\in.txt）并打开后，该文件的文件名会被添加到菜单中，如图2所示。各菜单项的名称和标题等定义如下表。　　以一下是单击“打开”菜单项的事件过程，请填空。　　DimmnuCounterAsInteger　　PrivateSubtnnuOpen_Click（）　　CDI．Show0pen　　IfCDI．FileName＜＞""Then　　Open_【14】_ForInputAs＃1　　mnuCounter=mnuCounter+1　　LoadFName（mnuCounter）　　FName（mnuCounter）.Caption=CDI.FileName　　FName（mnuCounter）._【15】_=True　　Close＃1　　EndIf　　EndSub3月全国计算机二级VB考试真题一、选择题(每小题2分，共70分)下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。(1)下列叙述中正确的是A)对长度为n的有序链表进行查找，最坏情况下需要的比较次数为nB)对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(n/2)C)对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(log2n)D)对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(nlog2n)(2)算法的时间复杂度是指A)算法的执行时间B)算法所处理的数据量C)算法程序中的语司或指令条数D)算法在执行过程中所需要的基本运算次数(3)软件按功能能够分为：应用软件、系统软件和支撑软件(或工具软件)。下面属于系统软件的是A)编辑软件B)操作系统C)教务管理系统D)浏览器

92资料仅供参考(4)软件(程序)调试的任务是A)诊断和改正程序中的错误B)尽可能多地发现程序中的错误C)发现并改正程序中的所有错误D)确定程序中错误的性质(5)数据流程图(DFD图)是A)软件概要设计的工具B)软件详细设计的工具C)结构化方法的需求分析工具D)面向对象方法的需求分析工具(6)软件生命周期可分为定义阶段，开发阶段和维护阶段。详细设计属于A)定义阶段B)开发阶段C)维护阶段D)上述三个阶段(7)数据库管理系统中负责数据模式定义的语言是A)数据定义语言B)数据管理语言C)数据操纵语言D)数据控制语言(8)在学生管理的关系数据库中，存取一个学生信息的数据单位是A)文件B)数据库C)字段D)记录(9)数据库设计中，用E-R图来描述信息结构但不涉及信息在计算机中的表示，它属于数据库设计的A)需求分析阶段B)逻辑设计一阶段C)概念设计阶段D)物理设计阶段(10)有两个关系R和T如下：RTABCABCa12c32b22d32c32d32则由关系R得到关系T的操作是A)选择B)投影C)交D)并(11)在VisualBasic集成环境中,能够列出工程中所有模块名称的窗口是_________(A)工程资源管理器(B)窗体设计窗口(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*11+20)(C)Int(Rnd*20+30)(D)Int(Rnd*30+20)(15)设窗体上有一个名称为HS1的水平滚动条,如果执行了语句:HS1.Value=(HS1.Max*HS1.Min)/2+HS1.Min则:(A)滚动块处于最左端(B)滚动块处于最右端(C)滚动块处于中间位置(D)滚动块处于任何位置(16)窗体上有一个名称为Cb1的组合框,程序运行后,为了输出选中的列表项,应使用的语句是A)PrintCb1.SelectedB)PrintCb1.List(Cb1.ListIndex)C)PrintCb1.Selected.TextD)PrintCb1.List(ListIndex)(17)为了在窗体上建立2组单选按钮,而且当程序运行时,每组都能够有一个单选按钮被选中,则以下做法中正确的是_____A)把这2组单选按钮设置为名称不同的2个控件数组B)使2组单选按钮的Index属性分别相同C)使2组单选按钮的名称分别相同D)把2组单选按钮分别画到2个不同的框架中(18)如果一个直线控件在窗体上呈现为一条垂直线,则能够确定的是______A)它的Y1、Y2属性的值相同B)它的X1、X2属性的值相等C)它的X1、Y1属性的值分别与X2、Y2属性的值相等D)它的X1、X2属性的值分别与Y1、Y2属性的值相等(19)设a=2,b=3,c=4,d=5,则下面语句的输出是___Print3>2*bOra=cAndb<>corc>dA)FalseB)1C)TrueD)-1(20)窗体Form1上有一个名称为Command1的命令按钮,以下对应窗体单击事件的事件过程是___A)PrintSubForm1_Click()...EndSubB)PrintSubForm_Click()...EndSubC)PrintSubCommand1_Click()...EndSubD)PrintSubCommand_Click()...EndSub(21)默认情况下,下面声明的数组的元素个数是___Dima(5,-2to2)A)20B)24C)25D)30(22)设有如下程序段Dima(10)...ForEachxInaprintx;nextx在上面的程序段中,变量x必须是___A)整型变量B)变体型变量C)动态数组D)静态数组(23)设有如下函数过程PrivateFunctionFun(a()asInteer,basstring)asInteger

93资料仅供参考...EndFunction若已有变量声明: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)下面程序的执行结果是PrivateSubCommand1_Click()a=10Fork=1To5Step-1a=a-kNextkPrinta;kEndSubA)-56B)-5-5C)100D)101(26)设窗体上有一个名为Text1的文本框和一个名为Comamand1的命令按钮,并有以下事件过程PrivateSubCommand1_Click()x!=Val(text1.text)SelectCasexCaseIs<-10,Is>=20Print"输入错误"CaseIs<0Print20-xCaseIs<10print20CaseIs<=20Printx+10EndSelectEndSub程序运行时,如果在文本框中输入-5,则单击命令按钮后输出结果是___A)5B)20C)25D)输入错误(27)设有如下程序PrivateSubCommand1_Click()x=10:y=0Fori=1to5Dox=x-2y=y+2LoopUntily>5Orx<-1NextEndSub运行程序,其中Do循环执行的次数是___A)15B)10C)7D)3(28)阅读程序PrivateSubCommand1_CLIck()DimarrDimiasintegerarr=Array(0,1,2,3,4,5,6,7,8,9,10)Fori=0to2printarr(7-i);NextEndSub程序运行后,窗体上显示的是___A)876B)765C)654D)543(29)在窗体上画一个名为Command1的命令按钮,然后编写以下程序PrivateSubCommand1_Click()Dima(10)asintegerFork=10to1Step-1a(k)=20-2*kNextkk=k+7Printa(k-a(k))EndSub运行程序后,单击命令按钮,输出结果是___A)18B)12C)8D)6

94资料仅供参考(30)窗体上有一个名为Command1的命令按钮,并有如下程序:PrivateCommand1_Click()Dima(10),x%Fork=1to10a(k)=Int(Rnd*90+10)x=x+a(k)Mod2NextkprintxEndSub程序运行后，单击命令按钮．输出结果是A)10个数中奇数的个数B)10个数中偶数的个数C)10个数中奇数的累加和D)10个数中偶数的累加和(31)窗体上有一个名为Command1的命令按钮和一个Timer1的计时器,并有下面的事件过程PrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubForm_Load()Timer1.Interval=10Timer1.Enabled=FalseEndSubPrivateSubTimer1_Timer()Command1.Left=Command1.Left+10EndSub程序运行时,单击命令按钮,则产生的结果是___A)命令按钮每10秒向左移动一次B)命令按钮每10秒向右移动一次C)命令按钮每10毫秒向左移动一次D)命令按钮每10毫秒向右移动一次(32)设窗体上有一个名为List1的列表框,并编写下面的事件过程PrivateSubList1_Click()DimchasStringch=List1.List(List1.ListIndex)List1.RemoveItemList1.ListIndexList1.AddItemchEndSub程序运行时,单击一个列表项,则产生的结果是___A)该列表项被移到列表的最前面B)该列表项被删除C)该列表项被移到列表的最后面D)该列表项被删除后又在原位置插入(33)窗体上有一个名为Command1的命令按钮,并有如下程序:privateSubCommand1_Click()Dimaasinteger,basintegera=8b=12PrintFun(a,b);a;bEndSubPrivateFunctionFun(ByvalaasInteger,basinteger)AsIntegera=aMod5b=b\5Fun=aEndFunction程序运行时,单击命令按钮,额输出结果是A)332B)382C)8812D)3812(34)为了从当前文件夹中读入文件File.txt,某人编写了下面的程序:PrivateSubCommand1_Click()Open"FIle1.txt"ForOutputAs#20DoWhileNotEOf(20)LineInput#20,ch$PrintchLoopClose#20EndSub程序调试时,发现有错误,下面的修改方案中正确的是___A)在Open语句中的文件名前添加路径B)把程序中各处的"20"改为"1"C)把Printch语句改为Print#20,chD)把Open语句中的Output改为Input(35)以下程序运行后的窗体如图所示,其中组合框的名称是Combo1,已有列表框如图所示:命令按钮的名称是Command1PrivateSubCommand1_Click()ifnotCheck(Combo1.Text)thenMsgBox("输入错误")ExitSub

95资料仅供参考EndIfFork=0toCombo1.ListCount-1ifCombo1.Text=Combo1.List(k)ThenMsgBox("添加项目失败")ExitSubEndIfnextkCombo1.AddItemCombo1.TextMsgBox("添加项目成功")EnbSubPrivateFunctionCheck(chasstring)asBooleann=Len(ch)Fork=1tonc$=Ucase(Mid(ch,k,1))ifc<"A"orC>"Z"thenCheck=FalseExitFunctionEndSubNextkCheck=TrueEndFunction程序运行时,如果在组合框的编辑区输入"Java",则单击命令按钮后产生的结果是A)显示"输入错误"B)显示"添加项目失败"C)显示"添加项目成功"D)没有任何显示二、填空题（每空2分,共30分）请将每一个空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。 注意:以命令关键字填空的必须拼写完整。(1)一个队列的初始状态为空。现将元素A,B,C,D,E,F,5,4,3,2,1依次入队，然后再依次退队，则元素退队的顺序为  【1】  。(2)设某循环队列的容量为50，如果头指针front=45（指向队头元素的前一位置），尾指针rear=10（指向队尾元素），则该循环队列中共有  【2】  个元素。ABCDEFGH(3)设二叉树如下：对该二叉树进行后序遍历的结果为  【3】  。(4)软件是  【4】 、数据和文档的集合。(5)有一个学生选课的关系，其中学生的关系模式为：学生(学号，姓名，班级，年龄)，课程的关系模式为：课程(课号，课程名，学时)，其中两个关系模式的键分别是学号和课号，则关系模式选课可定义为：选课(学号，  【5】  ，成绩)。(6)在窗体上有1个名称为Command1的命令按钮,并有如下事件过程和函数过程___PrivateSubCommand1_Click()Dimpasintegerp=m(1)+m(2)+m(3)printpEndSubPrivateFunctionm(nasinteger)asintegerStaticsasintegerFork=1tons=s+1Nextm=sEndFunction运行程序,单击命令按钮Command1后的输出结果为___(7)在窗体上画1个名称为Command1的命令按钮,然后编写如下程序:privateSubCommand1_Click()Dimmasinteger,xasintegerDimflagasBooleanflag=Falsen=Val(InputBox("请输入任意1个正整数"))DoWhilenotflaga=2flag=__(7)___DoWhileflagAnda<=Int(Sqr(n))ifn/a=n\athenflag=FalseElse___(8)___EndIfLoopIfNotFlagThenn=n+1LoopPrint___(9)___EndSub上述程序的功能是,当在键盘输入任意的1个正整数时,将输出不小于该整数的最小素数,(8)以下程序的功能是:先将随机产生的整数放入数组a中,再将这10个数按升序方式输出,请填空privateSubForm_Click()Dima(10)asInteger,iasinteger

96资料仅供参考Randomizei=0Donum=Int(Rnd*90)+10Forj=1toiifnum=a(j)thenExitForEndIfNextjIfj>itheni=i+1a(i)=___(10)___EndIfLoopWhilei<10Fori=1to9Forj=___(11)___to10ifa(i)>a(j)thenTemp=a(i):a(i)=a(j):___(12)___NextjNextiFori=1to10Printa(i)NextiEndSub(9)窗体上已有名称分别为Drive1、Dir1、File1的驱动器列表框、目录框、和文件列表框,且有1个名称为Text1的文本框,以下程序的功能是:将指定位置中扩展名为".txt"的文件显示在File1中,如果双击File1中的某个文件,则在Text1中显示该文件的内容,请填空PrivateSubForm_Load()File1.Pattern=___(13)___EndSubPrivateSubDrive1_Change()Dir1.Path=Drive1.PathEndSubPrivateSubDir1_Change()File1.Path=Dir1.PathEndSubPrivateSubFile1_DblClick()Dimsasstring*1IfRight(FIl1.Path,1)="\"Thenf_name=File1.Path+Fil1.FileNameElsef_name=File1.Path+"\"+File1.FileNameEndifOpenf_name___(14)___as#1Text1.text=""DoWhile___(15)___s=Input(1,#1)Text1.text=Text1.text+sLoopClose#1EndSub9月全国计算机等级考试二级笔试试卷VisualBasic语言程序设计(考试时间90分钟，满分100分)一、选择题(每小题2分，共70分)下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。1)下列叙述中正确的是A)算法就是程序B)设计算法时只需要考虑数据结构的设计C)设计算法时只需要考虑结果的可能性D)以上三种说法都不对2)下列关于线性链表的叙述只能够，正确的是A)各数据结点的存储空间能够不连续，但它们的存储顺序与逻辑顺序必须一致B)各数据结点的存储顺序与逻辑顺序能够不一致，但它们的存储空间必须连续C)进行插入与删除时，不需要移动表中的元素D)以上三种说法都不对3)下列关于二叉树的叙述中，正确的是A)叶子结点总是比度为2的结点少一个B)叶子结点总是比度为2的结点多以个C)叶子结点数是度为2的结点数的两倍D)度为2的结点数是度为1的结点数的两倍4)软件按功能能够分为应用软件，系统软件和支撑软件(或工具软件)下面属于应用软件的是A)学生成绩管理系统B)C语言编译程序C)UNIX操作系统D)数据库管理系统5)某系统总体结构图如下图所示：

97资料仅供参考该系统总体结构图的深度是A)7B)6C)3D)26)程序调试的任务是A)设计测试用例B)验证程序的正确性C)发现程序中的错误D)诊断和改正程序中的错误7)下列关于数据库设计的叙述中，正确的是A)在需求分析阶段建立数据字典B)在概念设计阶段建立数据字典C)在逻辑设计阶段建立数据字典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属性)能够在运行期间修改C)窗体的背景图形经过其Picture属性设置D)窗体最小化时的图标经过其Icon属性设置12)在设计阶段，当按Ctrl+R，所打开的窗口是A)代码窗口B)工具箱窗口C)工程资源管理器D)属性窗口13)设有如下变量声明语句：Dima,basBoolean则下面叙述中正确的是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)滚动框位置的最大值C)拖动滚动框时滚动框位置的变化量D)单击滚动条箭头时滚动框位置的变化量16)在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()MsgBoxstr(123+321)EndSub程序运行后，单击命令按钮，则在信息框中显示的提示信息为A)字符串“123+321”B)字符串“444”C)数值“444”D)空白17)假定有以下程序：PrivateSubForm_Click()a=1:b=aDoUntila>=5x=a*bPrintb;xa=a+bb=b+aLoopA)11B)11C)11D)112324383618)在窗体上画一个名称为List1的列表框，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市消失。下列在List1_Click事件过程中能正确实现上述功能的语句是A)List1.RemoveItemList1.TextB)List1.RemoveItemList1.ClearC)List1.RemoveItemList1.ListCountD)List1.RemoveItemList1.ListIndex

98资料仅供参考19)列表框中的项目保存在一个数组中，这个数组的名字是A)ColmnB)StyleC)ListD)MultiSelect20)有人编写了如下程序：PrivateSubForm_Click()DimsAsInteger,xAsIntegers=0:x=0DoWhiles=10000x=x+1s=s+x^2LoopPrintsEndSub上述程序的功能是：计算s=1+22+32+…n2+…直到s>10000为止。程序运行后，发现得不到正确的结果，必须进行修改。下列修改中正确的是A)把x=0改为x=1B)把DoWhiles=10000改为DoWhiles<=10000C)把DoWhiles=10000改为DoWhiles>=10000D)交换x=x+1和s=s+x^2的位置21)设有如下程序：PrivatesubForm_Click()Dimsaslong,faslongDimnasinteger,iasintegerf=1：n=4Fori=1tonf=f*is=s+fNextiPrintsEndsub程序运行后，单击窗体，输出结果是A)32B)33C)34D)3522)阅读下面的程序段a=0Fori=1to3Forj=1toiFork=jto3a=a+1NextkNextjNexti执行上面的程序段后，a的值为A)3B)9C)14D)2123)设有如下程序：PrivateSubForm_Click()Clsa$="123456"Fori=1to6Printtab(12-i);_____NextiEndsub程序运行后，单击窗体，要求结果如图所示，则在____处应填入的内容为A)Left(a$,i)B)Mid(a$,8-i,i)C)Right(a$,i)D)Mid(a$,7,i)24)设有如下程序：PrivateSubForm_Click()Dimiasinteger,xasstringDimyasstringx="ABCDEFG"Fori=4to1step-1y=Mid(x,i,i)+yNextiPrintyEndsub程序运行后，单击窗体，输出结果为A)ABCCDEDEFGB)AABBCDEFGC)ABCDEFGD)AABBCCDDEEFFGG25)设有如下程序：PrivateSubForm_Click()Dimary(1to5)asintegerDimiasintegerDimsumasintegerFori=1to5ary(i)=i+1sum=sum+ary(i)nextiprintsumEndsub程序运行后，单击窗体，则在窗体上显示的是A)15B)16C)20D)2526)有一个数列，它的前3个数为0，1，1，此后的每个数都是其前面3个数之和，即

99资料仅供参考0，1，1，2，4，7，13，24…要求编写程序输出该数列中所有不超过1000的数某人编写程序如下：PrivateSubForm_Click()Dimiasinteger,aasinteger,basintegerDimcasinteger,dasintegera=0：b=1:c=1d=a+b+ci=5whiled<=1000printd;a=b:b=c:c=dd=a+b+ci=i+1wendEndsub运行上面的程序，发现输出的数列不完整，应进行修改。以下正确的修改是A)把whiled<=1000改为whiled>1000B)把i=5改为i=4C)把i=i+1移到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)能够像通用过程一样指定事件过程的名字D)Sub过程和Function过程都有返回值29)阅读程序：Functionfac(byvalnasinteger)asintegerDimtempasintegertemp=1Fori=1tontemp=temp*iNextiFac=tempEndFunctionPrivatesubForm_Click()Dimnsumasintegernsum=1fori%=2to4nsum=nsum+fac(i%)nextiprintnsumEndsub程序运行后，单击窗体，输出结果是A)35B)31C)33D)3730）在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下代码：SubS(xasinteger,yasinteger)Staticzasintegery=x*x+zz=yEndSubPrivateSubCommand1_Click()Dimiasinteger,zasintegerm=0:z=0Fori=1to3Si,zm=m+zNextiLabel1.caption=str(m)Endsub程序运行后，单击命令按钮，在标签中显示的内容是A)50B)20C)14D)731）以下说法中正确的是A)MouseUp事件是鼠标向上移动时触发的事件B)MouseUp事件过程中的x,y参数用于修改鼠标的位置C)在MouseUp事件过程中能够判断用户是否使用了组合键D)在MouseUp事件过程中不能判断鼠标的位置32）假定已经在菜单编辑器中建立了窗体的弹出式菜单，其顶级菜单项的名称为a1，其“可见”属性为False，程序运行后，单击鼠标左键或右键都能弹出菜单的事件过程是A)PrivateSubForm_MouseDown(ButtonasInteger,Shiftasinteger，XasSingle,YasSingle)IfButton=1AndButton=2ThenPopupMenua1Endif

100资料仅供参考EndSubB)PrivateSubForm_MouseDown(ButtonasInteger,Shiftasinteger，XasSingle,YasSingle)PopupMenua1EndSubC)PrivateSubForm_MouseDown(ButtonasInteger,Shiftasinteger，XasSingle,YasSingle)IfButton=1ThenPopupMenua1EndifEndSubD)PrivateSubForm_MouseDown(ButtonasInteger,Shiftasinteger，XasSingle,YasSingle)IfButton=2ThenPopupMenua1EndifEndSub33)在窗体上画一个名称为CD1的通用对话框，并有如下程序：PrivateSubForm_Load()CD1.DefaultExt="doc"CD1.FileName="c:\file1.txt"CD1.Filter="应用程序(*.exe)|*.exe"EndSub程序运行时，如果显示了“打开”对话框，在“文件类型”下拉列表中的默认文件类型是A)应用程序(*.exe)B)*.docC)*.txtD)不确定34)以下描述中错误的是A)在多窗体应用程序中，能够有多个当前窗体B)多窗体应用程序的启动窗体能够在设计时设定C)多窗体应用程序中每个窗体作为一个磁盘文件保存D)多窗体应用程序能够编译生成一个EXE文件35)以下关于顺序文件的叙述中，正确的是A)能够用不同的文件号以不同的读写方式同时打开同一个文件B)文件中各记录的写入顺序与读出顺序是一致的C)能够用Input#或LineInput#语句向文件写记录D)如果用Append方式打开的文件，则既能够在文件末尾添加记录，也能够读取原有记录二、填空(每空2分，共30分)请将每空的正确答案写在答题卡【1】至【15】序号的横线上，答在试卷上不得分。1)数据结构分为线性结构与非线性结构，带链的栈属于___【1】____。2)在长度为n的顺序存储的线性表中插入一个元素，最坏情况下需要移动表中【2】个元素。3)常见的软件开发方法有结构化方法和面向对象方法。对某应用系统经过需求分析建立数据流图(DFD),则应采用【3】方法。4)数据库系统的核心是【4】。5)在进行关系数据库的逻辑设计时，E-R图中的属性常被转换为关系中的属性，联系一般被转换为【5】。6)为了使标签属性能自动调整大小以显示标题(Caption属性)的全部文本内容，应把该标签的【6】属性设置为True。7)在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：PrivateSubCommad1_Click()x=1Result=1Whilex<=10Result=【7】x=x+1WendPrintResultEndSub上述事件过程用来计算10的阶乘，请填空。8)在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：PrivateSubCommad1_Click()t=0:m=1:Sum=0Dot=t+【8】Sum=Sum+【9】m=m+2LoopWhile【10】PrintSumEndSub该程序的功能是，单击命令按钮，则计算冰输出以下表示式的值：1+（1+3）+（1+3+5）+…+（1+3+5+…99）请填空。9)在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：PrivateSubCommad1_Click()DimM(10)asIntegerFork=1to10M(k)=12-kNextkx=6PrintM(2+M(x))EndSub程序运行后，单击命令按钮，输出结果是【11】10)在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：PrivateSubCommad1_Click()DimnasIntegern=Val(InputBox("请输入一个整数："))IfnMod3=0AndnMod2=0AndnMod5=0thenprintn+10

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

102资料仅供参考

103资料仅供参考

104资料仅供参考

105资料仅供参考

106资料仅供参考

107资料仅供参考

108资料仅供参考

109资料仅供参考

110资料仅供参考

111资料仅供参考

112资料仅供参考

113资料仅供参考

114资料仅供参考