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

2005年4月全国计算机等级考试二级VB笔试试卷一、选择题((1)-(35)每小题2分，共70分)(1)数据的存储结构是指TOC\o"1-5"\h\zA)存储在外存中的数据 B)C)数据在计算机中的顺序存储方式 D)(2)下列关于栈的描述中错误的是A)栈是先进后出的线性表 B)C)栈具有记忆作用 D)数据所占的存储空间量数据的逻辑结构在计算机中的表示栈只能顺序存储对栈的插入与删除操作中，不需要改变栈底指针(3)对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是A)冒泡排序为n/2B)冒泡排序为nC)快速排序为n D)快速排序为n(n-D/2(4)对了长度为n的线性表进行顺序查找，在最坏情况下所需耍的比较次数为D)n+1A)log2n B)n/2 C)nD)n+1(5)下列对于线性链表的描述中正确的是A)存储空间不•定是连续，且各元素的存储顺序是任意的B)存储空间不一定是连续，且前件元素一定存储在后件元素的前面C)存储空间必须连续，且前件元素一定存储在后件元素的前面D)存储空间必须连续，且各元素的存储顺序是任意的(6)(6)下列对于软件测试的描述中正确的是A)软件测试的目的是证明程序是否正确B)软件测试的目的是使程序运行结果正确C)软件测试的C)软件测试的目的是尽可能多地发现程序中的错误D)软件测试的目的是使程序符合结构化原则(7)为了使模块尽可能独立，要求A)模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强B)模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱C)模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱D)模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强(8)卜.列描述中正确的是A)程序就是软件 C)软件既是逻辑实体，又是物理实体软件是程序、数据与相关文档的集合不同的数据只能被对应的应用程序所使用以上三种说法都不对D)以上三个都是TOC\o"1-5"\h\zB)软件是程序、数据与相关文档的集合不同的数据只能被对应的应用程序所使用以上三种说法都不对D)以上三个都是(9)数据独立性是数据库技术的重耍特点之一。所谓数据独立性是指A)数据与程序独立存放 C)B)不同的数据被存放在不同的文件中 D)(10)用树形结构表示实体之间联系的模型是A)关系模型 B)网状模型 C)层次模型(11)在窗体(名称为Forml)上画一个名称为Tbxtl的文本框和一个名称为Commandl的命令按钮，然后编写•个事件过程。程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是：PrivateSubCommandl_Click()Caption』'PrivateSubCommandl_Click()Caption』'计算机等级考试”EndSubD)PrivateSubCommandl_Click()Textl.lbxt="计宣机等级考试”EndSubAndb<>cOrc>dFalse D)2Commandl.Caption="计算机等级考试”EndSubC)PrivateSubForml_Click()TextLCaption="计算机等级考试”EndSub(12)设a=5,b=4,c=3,d=2,下列表达式的值是3>2*bOrA)1 B)True(13)设a="MicrosoftVisualBasic"，则以下使变量b的值为“VisualBasic”的语句是A)b=Left(a,10) B)b=Mid(a,10) C)b=Right(a,10) D)b=Mid(a,ll,10)(14)假定有如下的窗体事件过程，程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息是：PrivateSubForm_Click()a$="MicrosoftVisualBasic"b$=Righl(a$,5)c=Mid(a$,1,9)MsgBoxa$,34,b$,c$,5EndSubA)MicrosoftVisual B)Microsoft C)Basic D)5

(15)设a="a"，b="b"，c="c"，d="d"，执行语句x=IIf((a<d)A“，“B")后，x的值为：A)"a" B)Mb" C)wB" D)MA”(16)为了使命令按钮(名称为Command1)右移200,应使用的语句是A)Command1.Move-200 B)Command1.Move200C)Command1.Left=Command1.Left+200 D)Command1.Left=Command1.Left-200(17)在窗体上画•个文本框，然后编写如下事件过程，程序运行时，在文本框中输入456,然后单击窗体，在输入对话框中输入123,单击“确定”按钮后，在窗体上显示的内容是：PrivateSubForm_Click()x=lnputBox("请输入一个整数”)Printx+Text1.TextEndSubA)123 B)456 C)579 D)123456(18)在窗体上画一个文本框和一个计时器控件，名称分别为Textl和Timeri,在属性窗口中把计时器的Interval属性设置为1000,Enabled属性设置为False,程序运行后，如果单击命令按钮，则每隔•秒钟在文本框中显示•次当前的时间。以下是实现上述操作的程序，在处应填入的内容是PrivateSubCommand1_Click()Timerl. EndSubPrivateSubTimerl_Timer()Textl.lext=TimeEndSubA)Enabled=Tnie B)Enabled=False C)Visible=True D)Visible=False(19)假定在图片框Piclurel中装入了一个图形，为了清除该图形(不删除图片框)，应采用的正确方法是：A)选择图片框，然后按Del键B)执行语句Picture1.Picture=LoadPicture()C)执行语句Picture1.Picture=””D)选择图片框，在属性窗口中选择Picture属性，然后按回车键(20)在窗体上画一个Listl的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中的某个项目时，在标签中显示被选中的项口的名称，卜.列能正确实现上述操作的程序是A)PrivateSubListl_Click()Label1.CaptionA)PrivateSubListl_Click()Label1.Caption=Listl.ListindexEndSubB)PrivateSubListl_Click()Label1.Name=Listl.ListindexEndSub(21)在窗体上画一个命令按钮，名称为Commandl,然后编写如下事件过程：PrivateSubCommandl_Click()DimiAsInteger,xAsIntegerFori=1Tb6Ifi=1Thenx=iIfi<=4Thenx=x+1Elsex=x+2EndIfNextiPrintxEndSub程序运行后，单击命令按钮，其输出结果为A)9 B)6C)12 D)15(23)执行以下程序段后，x的值为DimxAsInteger,iAsIntegerx=0Fori=20lb1Step-2x=x+i\5NextIA)16 B)17PrivateSubListl_Click()Label1.Name=Listl.TextEndSubPrivateSubListl_Click()Label1.Caption=Listl.TextEndSub(22)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommandl_Click()c="ABCD”Forn=1lb4Print NextEndSub程序运行后，单击命令按钮，要求在窗体上显示如下内容：DCDBCDABCD则在处应填入的内容为A)Left(c,n)C)Mid(cnl)B)Right(c,n)D)Mid(c,n,n)C)18 D)19(24)在VisualBasic工程中，可以作为启动对象的程序是(24)在VisualBasic工程中，可以作为启动对象的程序是A)任何窗体或标准模块B)任何窗体或过程C)SubMain过程或其他任何模块 D)SubMain过程或任何窗体(25)假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是A)数组中每个命令按钮的名称(名称属性)均为Command1B)数组中每个命令按钮的标题(Caption属性)都一样C)数组中所有命令按钮可以使用同•个过程D)用名称Command"下标)可以访问数组中的每个命令按钮(26)把窗体的KeyPreview属性设置为True,然后编写如卜,事件过程：PrivateSubForm_KeyPress(KeyAsciiAsInteger)DimchAsStringch=Chr(KeyAscii)KeyAscii=Asc(UCase(ch))PrintChr(KeyAscii+2)EndSub程序运行后,按键盘上的“A”键，则在窗体上显示的内容是A)A B)B C)C D)D(27)在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Tbxtl,然后编写如卜.程序:PrivateSubCommand1_Click()a=InputBox("请葡入日期(1~31)")t="旅游景点:"&IIf(a>0Anda<=10,"长城&IIf(a>10Anda<=20,"故宫&nf(a>20Anda<=30J颐和园"J")Text1.Text=tEndSub程序运行后，如果从键盘输入16,则在文本框中显示的内容是：A)旅游景点：长城故宫 B)旅游景点：长城颐和园C)旅游景点：颐和园 D)旅游景点：故宫程序运行后，单击窗体，在标签中显示的内容是(28)在窗体上画一个名称为Labell的标签，然后编写如下事件过程，PrivateSubForm_Click()程序运行后，单击窗体，在标签中显示的内容是Dimarr(10,10)AsIntegerDimiAsInteger,jAsIntegerFori=2lb4Forj=2lb4arr(i,j)=i*jNextjNextiD)15(30)阅读程序：OptionBase1Dimarr()AsIntegerPrivateSubForm_Click()D)15(30)阅读程序：OptionBase1Dimarr()AsIntegerPrivateSubForm_Click()DimiAsInteger,jAsIntegerReDimarr(3,2)Fori=1lb3Forj=1lb2arr(ij)=i*2+jNextjNextiReDimPreservearr(3,4)Forj=3lb4arr(3,j)=j+9NextjPrintarr(3,2)+arr(3,4)EndSub程序运行后，单击窗体,输出结果为：A)21B)13C)8D)25(29)在窗体上画一个名称为Comamndl的命令按钮，然后编写如下通用过程和命令按钮的事件过程：PrivateFunctionfun(ByValmAsInteger)IfmMod2=0Thenfun=2Elsefun=1EndIfEndFunctionPrivateSubCommandl_Click()DimiAsInteger,sAsIntegers=0Fori=1lb5s=s+fun(i)NextPrintsEndSub程序运行后，单击命令按钮,则窗体上显示的是:A)6B)7C)8D)931)在窗体上画•个名称为Command1的命令按钮,然后编写如下程序:OptionBase1PrivateSubCommandI_Click()DimcAsInteger,dAsIntegerd=0:c=6x=Array(2,4,6,8,10,12)Fori=11b6Ifx(i)>cThend=d+x(i):c=x(i)Elsed=d-cEndIfNextiPrintdEndSub程序运行后，如果单击命令按钮，则在窗体上输入的内容为A)10 B)16C)12 D)20(32)设有如下程序:PrivateSubCommandl_Click()DimcAsInteger,dAsIntegerc=4d=InputBox("请输入一个整数")DoWhiled>0Ifd>cThenc=c+1EndIfd=InputBox。'请输入一个整数”)LoopPrintc+dEndSub程序运行后，单击命令按钮如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0,则输出结果是：A)12 B)11C)10 D)9(33)在窗体上画一个名称为Command1的命令按钮和一个名称为生xtl的文本框，在文本框中输入以下字符串:MicrosoftVisualBasicProgramming,然后编写如卜事件过程：PrivateSubCommandl_Click()Open"d:\temp\outf.txt"ForOutputAs#1Fori=1TbLen(Textl.lext)c=Mid(lextl.Text,i,1)Ifc>=MAHAndc<=MZ"ThenPrint#1,LCase(c)；EndIfNextiCloseEndSub程序运行后,单击命令按钮，文件outf.txt中的内容是：A)MVBP B)mvbpTOC\o"1-5"\h\zC)M D)mV vB bP P(34)在窗体上画一个名称为Command1的命令按钮,然后编写如下程序：DimSWAsBooleanFunctionfunc(XAsInteger)AsIntegerIfX<20ThenY=XElseY=20+XEndIffunc=YEndFunctionPrivateSubCommandl_Click()DimintNumAsIntegerintNum=InputBox(,M,)IfSWThenPrintfunc(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=1Tb5x=x+a(i)NextEndSub在窗体上画一个名称为Tbxtl的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommandl_Click()Dimarr(5)AsInteger,nAsIntegerFori=1lb5arr(i)=i+iNextfunarr,nText1.Text=Str(n)EndSub程序运行后，单击命令按钮,则在文本框中显示的内容是A)30B)25C)20 D)15二、填空题(每空2分，共30分)请将每一个空的正确答案写在答题卡［1】〜【15】序号的横线上，答在试卷上不得分。注意：以命令关键字填空的必须拼写完整。(1)某二叉树中度为2的结点有18个，则该二树中有【1】个叶子结点。(2)在面向对象方法中，类的实例称为【2】o(3)诊断和改正程序中错误的工作通常称为【3】o(4)在关系数据库中，把数据表示成二维表，每一个二维表称为【4】o(5)问题处理方案的正确而完整的描述称为【5】o(6)以下语句PrintIm(12345.6789*104。5)/100的输出结果是：【6】(7)在窗体上画一个文本框和一个图片框,然后编写如卜.两个事件过程：PrivateSubForm_Click()Text1.Text=”VB程序设计”EndSubPrivateSublextl_Change()PictureI.Print"VBProgramming'1EndSub程序运行后，单击窗体，在文本框中显示的内容是【7］，而在图片框中显示的内容是［8】(8)阅读卜.面的程序，程序运行后，单击窗体，输出结果是［9】PrivateSubForm_Click()DimCheckAsBoolean,CounterAsIntegerCheck=TrueCounter=5DoDoWhileCounter<20Counter=Counter+1IfCounter=10ThenCheck=FalseExitDoEndIfLoopLoopUntilCheck=FalsePrintCounterEndSub(9)设有如下程序：PrivateSubForm_Click()DimaAsInteger,sAsIntegern=8s=0Do

n=n-1LoopWhilen>0PrintsEndSub以上程序的功能是【10】，程序运行后，单击窗体，输出结果为【11】(10)设有如下程序：OptionBase1PrivateSubCommand1_Click()DimarrlDimMinAsInteger,iAsIntegerarrl=Array(12,435,76,-24,78,54,866,43)Min=[12]Fori=2Tb8Ifarrl(i)<MinThen[13]NextiPrint”最小值是:";MinEndSub以上程序的功能是用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中的最小值,请填空(11)在名称为Forml的窗体上画一个文本框，其名称为Ifextl,在属性窗口中把文本框的MultiLine属性设置为True,然后编写如下事件过程：PrivateSubForm_Click()Open"d:\test\smtextl.txt1'ForInputAs#1DoWhileNot[14]LineInput#1,aspect$whole$=whole$+aspects+Chr(13)+Chr(10)LoopText1.Text=whole$Close#1Open"d:\test\smtext2.txt,'ForOutputAs#1Print#1,[15]Close#1EndSub上述程序的功能是，把磁盘文件smtextl.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smlext2.txt.请填空。2005年4月全国计算机等级考试二级VB笔试参考答案象序系法19对程关算[6]象序系法19对程关算[6]12345.68VB程序设计VBProgramming(9]10[10]求1・8的和[11]36[12]arrl(l)[13]min=arrl(i)[14]EOF(l)(151text1.text(或whole$)选择题：1—5DBDCA6—10CBDDC11-15ABBCD16--20CDABD21-25ABCDB26-30CDBBA31-35CDBDA填空题：2005年9月全国计算机等级考试二级VB笔试试卷一、选择题（每小题2分，共70分）下列各题A）、B）、C）,D）四个选项中,试卷上不得分。（1）下列叙述中正确的是A）程序设计就是编制程序C）程序经调试改错后还应进行再测试只有一个选项是正确的。请将正确选项填涂在答题卡相应位置匕答在B）程序的测试必须由程序员自己去完成D）程序经调试改错后不必进行再测试（2）卜列数据结构中，能用：分法进行在找的是A）顺序存储的有序线性表（3）下列关于栈的描述正确的是B）线性链表C）二2005年9月全国计算机等级考试二级VB笔试试卷一、选择题（每小题2分，共70分）下列各题A）、B）、C）,D）四个选项中,试卷上不得分。（1）下列叙述中正确的是A）程序设计就是编制程序C）程序经调试改错后还应进行再测试只有一个选项是正确的。请将正确选项填涂在答题卡相应位置匕答在B）程序的测试必须由程序员自己去完成D）程序经调试改错后不必进行再测试（2）卜列数据结构中，能用：分法进行在找的是A）顺序存储的有序线性表（3）下列关于栈的描述正确的是B）线性链表C）二叉链表D）有序线性链表A)B)C)D)在栈中只能插入元素而不能删除元素在栈中只能删除元素而不能插入元素栈是特殊的线性表，只能在一端插入或删除元素栈是特殊的线性表，只能在•端插入元素，而在另端删除元素（4）下列叙述中正确的是A)B)C)D)一个逻辑数据结构只能有一种存储结构数据的逻辑结构属于线性结构，存储结构属于非线性结构一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率（5）下列描述中正确的是A)B)C)D)软件工程只是解决软件项目的管理问题软件工程主:要解决软件产品的生产率问题软件工程的主要思想是强调在软件开发过程中需要应用工程化原则软件.1：程只是解决软件开发中的技术问题（6）在软件设计中，不属于过程设计工具的是A）PDL（过程设计语言）PAD图N-S图DFD图（7）卜.列叙述中正确的是A）软件交付使用后还需要进行维护C）软件交付使用后其生命周期就结束（8）数据库设计的根本目标是耍解决B）软件一旦交付使用就不需要再进行维护D）软件维护是指修复程序中被破坏的指令D）简化数据维护A）数据共享问题B）数据安全问题C）大鼠数据存储问题A)T=RnsB)T=RUST=RxS（10）数据库系统的核心是D)T=R/SA）数据模型B）数据库管理系统C）数据库D）数据库管理员（11）假定一个VisualBasic应用程序由一个窗体模块和一个标准模块构成。为保存该应用程序，以卜.正确的操作是A）只保存窗体模块文件B）分别保存窗体模块、标准模块和工程文件

（12）为了清除窗体上的一个控件，下列正确的操作是C）只保存窗体模块和标准模块文件D）只保存工程文件A）按回车键B）按Esc键（13）以下叙述中错误的是C）选择（单击）要清除的控件，然后按Del键D）选择（单击）耍清除的控件，然后按回车键A)B)C)D)打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件当程序运行时，双击•个窗体，则触发该窗体的DblClick事件VisualBasic应用程序只能以解释方式执行事件可以由用户引发，也可以由系统引发(14)设a=2,b=3,c=4,d=5,卜,列表达式Nota<=cOr4*c=bA2Andboa+c的值是A)-1B)1(15)设aA)-1B)1(15)设a=5,b=10,则执行cC)TrueIht((b-a)*Rnd+a)D）False+1后，c值的范围为A)5〜10 B)6〜9 C)6〜10 D)5〜9(16)在窗体上画一个命令按钮，名称为Commandl,然后编写如下事件过程：PrivateSubCommand1Click()a$="softwareandhardware"b$=Right(a$,8)c$=Mid(a$,1,8)MsgBoxa$,,b$,c$,1EndSub运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是A)softwareandhardwareB)software C)hardware D)1(17)在窗体上画一个命令按钮和一个文本框，其名称分别为Commandl和血xtl,把文本框的Ext属性设置为空白,然后编写如下事件过程：PrivateSubCommand1_Click()a=InputBox("Enteraninteger1')b=InputBox(MEnteraninteger")Text1.Text=b+aEndSub程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10,则文本框中显示的内容是A)108B)18 C)810 D)出错(18)在窗体上画两个文本框，其名称分别为Textl和Text2,然后编写如下程序：PrivateSubFormLoad()ShowTextl.Text="":Text2.1ext=Textl.SeFocusEndSubPrivateSubTextlChangeOText2.7ext=Mid(lextl.Text,8)EndSub程序运行后，如果在文本框Tbxtl中输入BeijingChina,则在文本框论xl2中显示的内容是A)BeijingChinaB)ChinaC)BeijingD)BeijingC(19)在窗体上画一个列表框和一个命令按钮，其名称分别为Listl和Command］，然后编写如下事件过程：PrivateSubFoimLoad()List1.Additem"Item1MListl.Additem"Item2"Listl.Additem"Item3"EndSubPrivateSubCommandl_Click()List1.List(List1.ListCount)="AAAA”EndSub程序运行后，单击命令按钮，其结果为A)把字符串“AAAA”添加到列表框中，但位置不能确定B)把字符串“AAAA”添加到列表框的最后(即“Item3”的后面)C)把列表框中原有的最后一项改为“AAAA”D)把字符串“AAAA”插入到列表框的最前面(即“hem1”的前面)(20)假定有如下事件过程：PrivateSubForm_Click()DimxAsInteger,nAsIntegerx=1n=0DoWhilex<28x=x*3n=n+1LoopPrhtx,nEndSub程序运行后，单击窗体，输出结果是A)814 B)563C)281 D)2435(21)有如下程序：PrivateSubFourClick()Dii)Check,CounterCheck=TrueCounter=0DoDoWhileCounter<20Counter=Counter+1IfCounter=10ThenCheck=FalseExitDoEndIfLoopLoopUntilCheck=FalsePrhtCountei;CheckEndSub程序运行后，单击窗体，输出结果为A)150 B)20-1C)10True D)10False(22)有如下程序：PrivateSubFonnClick。DiniAsInteger;sumAsIntegersum=0Fori=2To10IfiMod2oOAndiMod3=0Thensum=sum+iEndIfNextiPrhtsumEndSub程序运行后，单击窗体，输出结果为A)12B)30C)24D)18(23)在窗体上画♦个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程:PrivateSubCommandl_Click()Dinanayl(10,10)AsIntegerDiniAsInteger;jAsIntegerFori=1To3Forj=2lb4arrayl(i,j)=i+jNextjNextiTextl.Text=array1(2,3)+array1(3,4)EndSub程序运行后，单击命令按钮，在文本框中显示的值是A)12 B)13 C)14 D)15(24)在窗体上画一个命令按钮，其名称为Commandl,然后编写如下事件过程：PrivateSubCommandlClick()Dimal(4,4),a2(4,4)Fori=1Tb4Forj=1lb4al(i,j)=i+ja2(i,j)=al(i,j)+i+jNextjNextiPrintaI(3,3);a2(3,3)EndSub程序运行后，单击命令按钮，在窗体上输出的是A)66 B)105 C)721 D)612(25)有如下程序：0ptbnBase1PrivateSubFormClick()Dimarr,SumSum=0arr=Anay(1,3,5,7,9,11,13,15,17,19)Fori=1To10Ifarr(i)Z3=arr(i)\3ThenSum=Sum+arr(i)EndIfNextiPrritSumEndSub程序运行后，单击窗体，输出结果为A)25B)26027D)28(26)在窗体上画一个命令按钮，然后编写如下事件过程：PrivateSubCommandlClick()Dina6)AsStringFori=1To5a(i)=Chr(Asc(nAM)+(i-D)NextiForEachbInaPrintb;NextEndSub程序运行后，单击命令按钮，输出结果是A)ABCDEB)12345C)abcdeD)出错信息(27)以下关于函数过程的叙述中，正确的是A)如果不指明函数过程参数的类型，则该参数没有数据类型B)函数过程的返回值可以有多个C)当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递D)函数过程形参的类型与函数返回值的类型没有关系(28)函数过程F1的功能是：如果参数b为奇数，则返回值为1,否则返回值为0。以下能iE确实现上述功能的代码是:A)FunctionFl(bAsInteger)B)FunctionFl(bAsInteger)IfbMod2=0ThenIfbMod2=0ThenReturn0FI=0ElseElseReturn1Fl=1EndIfEndIfEndFunctionEndFunctionC)FunctionFl(bAsInteger)D)FunctionFl(bAsInteger)IfbMod2=0ThenIfbMod2<>0ThenFl=1Return0ElseElseFl=0Return1EndIfEndIfEndFunctbnEndFunctbn(29)以下关于KeyPress事件过程中参数KeyAscii的叙述中正确的是A)KeyAscii参数是所按犍的ASCII码B)KeyAscii参数的数据类型为字符串C)KeyAscii参数可以省略D)KeyAscii参数是所按键上标注的字符(30)设窗体上有一个名为Textl的文本框，并编写如下程序：PrivateSubFormLoad()ShowTextl.Text=Textl.SetFocusEndSubPrivateSubFonn_MouseUp(ButtonAsIntegerShiftAsInteger,XAsSingle,YAsSingle)Print"程序设讣’EndSubPrivateSubTextlKeyDown(KeyCodeAsInteger;ShiftAsInteger)Print"VisualBasic";EndSub程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是A)VisualBasicB)程序设计 C)VisualBasic程序设计D)a程序设计(31)假定有卜表所列的菜单结构：标题名称层次显示appear1(主菜单)大图标bigicon2(子菜单)小图标smallicon2(子菜单)要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个“一’.以卜正确的事件过程是A)PrivateSubbigicon_Click() B)PrivateSubbigicon_Click()bigicon.Checked=False Me.appeanbigicon.Checked=TiueEndSub EndSub

C)C)PrivateSubbigicon_Click()bigicon.Checked=TrueEndSubD)PrivateSubbigicon_Click()appear.bigicon.Checked=TrueEndSub（32）假定通用对话框的名称为CommonDialogl,命令按钮的名称为Commandl,则单击命令按钮后，能使打开的对话框的标题为“NewFile”的事件过程是C)PrivateSubCommandl_Click()CommonDialog1.DialogTitle="NewTitleC)PrivateSubCommandl_Click()CommonDialog1.DialogTitle="NewTitle1'CommonI)iabgl.Show0penEndSubD)PrivateSubCommandl_Click()CommonDiabgl.DiabgTitle=*NewTitle*CommonDiabgl.ShowCobrEndSubCommonDiabgl.DiabgTitle=ewTitle”CommonDiabgl.ShowPriiterEndSubB)PrivateSubCommandl_Click()CommonDiabgl.DiabgTitle=*NewTitle”CommonDiabgl.ShowFontEndSub（33）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是A）任何时刻最多只有一个窗体是活动窗体B）不能把标准模块设置为启动模块C）用Hi加方法只是隐藏一个窗体，不能从内存中清除该窗体D）如果工程中含有SubMain过程，则程序•定首先执行该过程（34）假定在工程文件中有一个标准模块，其中定义了如下记录类型TypeBooksNameAsString*10TclNumAsString*20EndType要求当执行事件过程Commandl_Click时，在顺序文件Person.txt中写入•条记录。下列能够完成该操作的事件过程是C)PrivateSubCommandl_Click()DinBC)PrivateSubCommandl_Click()DinBAsBooks0pen"cAPerson.txt"ForOutputAs#1Name=InputBox("输入姓名J)TeNum=InputBoxC输入电话号码”)Writettl,BCbse#lEndSubD)PrivateSubCommandl_Click()DinBAsBook0penAPerson.txt"ForInputAs#1Name=InputBoxC输入姓名")TeNum=InputBox("输入电话号码")Prht#l,B.Name,B.TelNumCbse#lEndSubC)显示根目录下的文件名D)显示指定路径下的文件DinBAsBooks0pen"cAPerson.txt"ForOutputAs#IB.Name=InputBoxC输入姓名”)B.TeNum=InputBoxC输入电话号码")Writettl,B.Name,B.TeNumCbse#lEndSubB)PrivateSubCommandl_Click()DinBAsBooks0pen"c:\Person.txt"ForInputAs#1B.Name=InputBoxC输入姓名")B.TeNum=InpulBoxC输入电话号码”)Prht#l,B.Name,B.TeMumCbse#1EndSub(35)目录列表框的Path属性的作用是A)显示当前驱动器或指定驱动器上的某目录下的文件名B)显示当前驱动器或指定驱动器上的目录结构二、填空题（每空2分，共30分）请将每空的正确答案写在答题卡【I】〜【15】序号的横线上，答在试卷上不得分。（1）数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段，其中数据独立性最高的阶段是［1】O<2）算法复杂度主要包括时间复杂度和【2】复杂度。（3）在进行模块测试时，要为每个被测试的模块另外设计两类模块：驱动模块和承接模块（桩模块）。其中【3】的作用是将测试数据传送给被测试的模块，并显示被测试模块所产生的结果。一棵二叉树第六层（根结点为第一层）的结点数最多为【4】个。（5）数据结构分为逻辑结构和存储结构，循环队列属于【5】结构。（6）设有以下函数过程：FunctbnRin<mAsInteger)AsIntegerDimkAsInteger,sumAsIntegersum=0Fork=mTo1Step-2sum=sum+kNextkfun=sumEndFunctbn若在程序中用语句s=fun（10）调用此函数，则s的值为【6】o（7）在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降

序显示到lextl序显示到lextlupo例如，若在Textl中输入的是abDfdb,则单击Command1按钮后lextl中显示的字符串是ZYXWVUTSRQPONMLKJIHGECo请填空。PrivateSubCommand1Click()DinstrAsString,sAsStrhg,cAsStrhgsir:UCase(Textl)s=**Whilec>=IfInStr(str,c)=0Thens=[7]IfInStr(str,c)=0Thens=[7]EndIfc=Chr$(Asc(c) [8])WendIfsO"ThenTextl=sEndIfEndSub(8)在n个运动员中选出任意r个人参加比赛，有很多川种不同的选法，选法的个数可以用公式 :—计算。rl(n-r)!卜.图窗体中3个文本框的名称依次是Textl>Text2.Text3»程序运行时在Ibxtl、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中(见下图)。请填空。(9)以卜是一个比赛评分程序。在窗体上建立一个名为Textl的文本框数组，然后画一个名为Texl2的文本框和名为Commandl的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中(去掉一个最高分和一个最低分后的平均分即为最后得分)，如图所示。请填空。PrivateSubCommandl_Click()DimrAsInteger,nAsIntegern=Text!r=Text2Text3=fun(n)/fun([9])/fun(r)EndSubFunctionfun(nAsInteger)aslongDintAsLong[10]Fork=1Tont=t*kNextfun=tEndFunctionPrivateSubCommand1Click()DimkAsIntegerDimsumAsSingle,maxAsSingle,minAsSinglesum=lextl(O)max=lextl(O)min=[11]Fork=[12]To6Ifmax<lextl(k)Thenmax=lextl(k)EndIfIfmin>lextl(k)Thenmin=lextl(k)EndIfsum=sum+lextl(k)NextkText2=([13])/5EndSub(10)如图所示，在列表框Listl中已经有若干人的简单信息，运行时在Textl文本框(即“查找对象''右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中.若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人'请填空。，!□!x|查找对象：女男男男女女男男声借兵红成淮东方信克立张李马李陈刘郝黄，!□!x|查找对象：女男男男女女男男声借兵红成淮东方信克立张李马李陈刘郝黄«.ForalPrivateSubCommandlClick()PrivateSubCommandlClick()DinkAsInteger,nAsInteger,foundAsBooleanfound=Falsen=Len([14])k=0Whitek<1.istl.LisCountAndNotfoundIfTextl=Left$(Listl.List(k),n)ThenTex12=[15]found=TrueEndIfk=k+1WendIfNotfoundThenText2="查无此人"EndIfEndSub2005年9月全国计算机等级考试二级VB笔试参考答案选择题[1-5]CACDC[6-10]DAABB[11-15]BCCDC[16-20]CABBA[21-25]DAADC[26-30]ADBAC[31-35]CCDAB填空题【1】数据库系统【2】空间【3】驱动模块32[5]存储结构【6】30s&c[8]-1[9]n-rt=l[II]Textl(O)[12]1(sum-max-min)[14]text1.text[15]listl.list(k)

2006年4月全国计算机等级考试二级VB笔试试卷一、选择题(每小题2分，共70分)下列各题A),B)、C)、D)四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。(1)下列选项中不属了结构化程序设计方法的是。A)(1)下列选项中不属了结构化程序设计方法的是。A)自顶向下 B)逐步求精 C)模块化(2)两个或两个以上模块之间关联的紧密程度称为。A)耦合度 B)内聚度 C)复杂度(3)卜.列叙述中正确的是.A)软件测试应该由程序开发者来完成B)程序经调试后一般不需要再测试(4)按照“后进先出''原则组织数据的数据结构是。A)队列B)栈 C)双向链表(5)下列叙述中正确的是。A)线性链表是线性表的链式存储结构B)栈与队列是非线性结构(6)对如下二叉树D)可复用D)数据传输特性C)软件维护只包括对程序代码的维护D)以上三种说法都不对D)二叉树C)双向链表是非线性结构D)只有根结点的二叉树是线性结构进行后序遍历的结果为。A)ABCDEFB)DBEAFCC)ABDECFD)DEBFCA(7)在深度为7进行后序遍历的结果为。A)ABCDEFB)DBEAFCC)ABDECFD)DEBFCA(7)在深度为7的满二义树中，叶子结点的个数为。A)32 B)31C)64 D)63“商品”与"顾客”两个实体集之间的联系一般是。A)一对一 B)一对多 C)多对一(9)在E-R图中，用来表示实体的图形是.A)矩形 B)椭圆形 C)菱形D)多对多D)三角形(10)数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是。DB包含DB包含DBS和DBMSC)DBS包含DB和DBMSDBMS包含DB和DBSD)没有任何关系(11)以下关于VisualBasic特点的叙述中，错误的是。VisualBasic是采用事件驱动编程机制的语言VisualBasic程序既可以编译运行，也可以解释运行C)构成VisualBasic程序的多个过程没有固定的执行顺序D)VisualBasic程序不是结构化程序，不具备结构化程序的一:种基本结构(12)以下叙述中，错误的是。一个VisualBasic应用程序可以含有多个标准模块文件C)标准模块文件可以属于某个指定的窗体文件一个VisualBasic工程可以含有多个窗体文件 D)标准模块文件的扩展名是.bas(13)以下叙述中，错误的是。A)在VisualBasic中，对象所能响应的事件是由系统定义的B)对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定VisualBasic中允许不同对象使用相同名称的方法VisualBasic中的对象具有自己的属性和方法(14)设有如F语句：Dima,bAsIntegerc="VisualBasic"d=#7/20/2005#以下关于这段代码的叙述中，错误的是。a被定义为Integer类型变量 C)c中的数据是字符串b被定义为Integer类型变量 D)d中的数据是日期类型(15)以下能从字符串"VisualBasic"中直接取出子字符串"Basic”的函数是。

A)Left B)MidC)StringD)Instr(16)设a=4,b=3,c=2»d=l,下列表达式a>b+lOrcvdAndbModc的值是。A)True B)1 C)-1D)0(17)以下可以作为VisualBasic变量名的是。A)A#A B)counstAC)3AD)?AA(18)设x=4,y=6,则以下不能在窗体上显示出“A=10”的语句是。A)PrintA=x+y B)Print*'A=H;x+yC)Print“A="+SRx+y) D)Print"A=H&x+y(19)假定有如卜.的命令按钮(名称为Commandl)事件过程：PrivateSubCommandl_Click()x=InputBox("输入：%"输入整数”)MsgBox”输入的数据是：“，，”输入数据：”+xEndSub程序运行后，单击命令按钮，如果从键盘上输入整数10,则以卜叙述中错误的是。A)x的值是数值A)x的值是数值10B)输入对话框的标题是“输入整数”C)信息框的标题是“输入数据：10”D)信息框中显示的是“输入的数据是：”(20)在窗体上画(20)在窗体上画1个命令按钮(名称为Command1)和1个文本框(名称为Tbxtl),然后编写如下事件过程：PrivateSubCommandl_Click()x=Val(lextl.Text)SelectCasexCase1,3y=x*xCaseIs>=10»Is<=-10y=xCase-10lb10y=-xEndSelectEndSub程序运行后，在文本框中输入3,然后单击命令按钮，则以下叙述中正确的是。A)执行y=x*x B)执行y=-xC)先执行y=x*x,再执行y=-xD)程序出错(21)设有命令按钮Command1单击事件过程，代码如下:PrivateSubCommandl_Click()Dima(30)AsIntegerFori=l7b30a(i)=Int(Rnd*100)NextForEacharrltemInaIfarrltemMod7=0ThenPrintarrltem：IfarrItem>90ThenExitForNextEndSub对于该事件过程，以卜叙述中错误的是。A)a数组中的数据是30个100以内的整数B)语句ForEacharrltemIna有语法错误IfarrltemMod7=0……语句的功能是输出数组中能够被7整除的数Ifarr!tem>90……语句的作用是当数组元素的值大于90时退出For循环(22)设有命令按钮(22)设有命令按钮Commandl的单击事件过程，代码如下，PrivateSubCommandl_Click()Dima(3»3)AsIntegerFori=l7b3Forj=llb3a(i,j)=i*j+iNextjNextiSum=0Fori=lTb3Sum=Sum+a(i»4-i)NextiPrintSumEndSub运行程序，单击命令按钮，输出结果是。A)20B)7C)16 D)17(23)在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommandl_Click()a=0Fori=lTb2Forj=llb4IfjMod2o0Thena=a-lEndIfa=a+lNextjNextiPrintaEndSub程序运行后，单击命令按钮，输出结果是A)0B)2C)3 D)4(24)窗体上有名称分别为Ibxtl、Text2的2个文本框，有一个由3个单选按钮构成的控件数组Option1，如图1所示。程序运行后，如果单击某个单选按钮，则执行Rxti中的数值与该单选按钮所对应的运算(乘以1、io或loo),m结果显示在Tbxt2中，如图2所示。为了实现上述功能，在程序中的问号(?)处应填入的内容是。

PrivateSubOptionl_Click(IndexAsInteger)Iflextl.Texto,M,ThenSelectCase?Case0Text2.1ext=Val(lext1.Text)Text2.1ext=Val(lext1.Text)*10Text2.1ext=Val(lext1.Text)*100EndSelectEndIfEndSubOption1(Index)OptionI(Index).ValueA)Index B)Option1.IndexOption1(Index)OptionI(Index).Value(25)在窗体上画1个命令按钮，其名称为Commandl,然后编写如下程序:PrivateSubCommandl_Click()Dima(10)AsIntegerDimxAsIntegerFori=llb10a(i)=8+iNextx=2Printa(f(x)+x)EndSubFunctionf(xAsInteger)x=x+3f=xEndFunction程序运行后，单击命令按钮，输出结果为。A)12B)15C)17D)18A)12B)15C)17D)18（26）以下关于过程的叙述中，错误的是。A）（26）以下关于过程的叙述中，错误的是。A）事件过程是由某个事件触发而执行的过程B）函数过程的返回值可以有多个（27）在窗体上画3个标签、3个文本框（名称分别为TextH如图所示。编写如下程序：C）可以在事件过程中调用通用过程D）不能在事件过程中定义函数过程Text2和Tbxl3）和1个命令按钮（名称为Command］）,外观PrivateSubForm_Load()Text1.Text=MText2.Text="7ext3.1ext=,'EndSubPrivateSubCommandl_Click()x=Val(lextl.Text)y=Val(lext2.Text)Text3.1ext=f(x,y)EndSubFunctionf(ByVaixAsInteger,ByVaiyAsInteger)DoWhiley<>0tmp=xModyx=yy=tmpLoopf=xEndFunction运行程序，在Ibxtl文本框中输入36,在Text2文本框中输入24,然后单击命令按钮，则在Text3文本框中显示的内容是。A)4 B)6 C)8 D)12(28)窗体上有名称分别为Textl、Text2的2个文本框，要求文本框Ibxtl中输入的数据小于500,文本框Tbxt2中输入的数据小于1000,否则重新输入。为了实现上述功能，在以下程序中问号(?)处应填入的内容是PrivateSub7extl_LostFocus()CallChecklnput(lextl,500)EndSubPrivateSubText2_LostFocus()CallCheckInput(lext2,1000)EndSubSubChecklnput(tAs?,xAsInteger)IfVal(t.Text)>xThenMsgBox”请重新输入!”EndIfEndSubA)Text B)Sellext C)Control D)Form(29)在窗体上.画1个文本框，其名称为Textl,然后编写如下过程：PrivateSubText1_KeyDown(KeyC(xleAsInteger,ShiftAsInteger)PrintChr(KeyCode)EndSubPrivateSubTexll_KeyUp(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode+2)EndSub程序运行后，把焦点移到文本框中，此时如果敲击“A”键，则输出结果为。A)A B)A C)A D)AA B C D(30)为了使列表框中的项目呈多列显示，需要设置的属性为。A)Columns B)Style C)List D)MultiSelect(31)在窗体上画1个命令按钮，名称为Commands然后编写如下程序：DimFlagAsBooleanPrivateSubCommandl_Click()DimintNumAsIntegerinlNum=InpulBox("请输入：M)IfFlagThenPrintf(intNum)EndSubFunctionRXAsInteger)AsIntegerIfX<10Then

Y=XElseY=X+10EndIff=YEndFunctionPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle.YAsSingle)Flag=TrueEndSub运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入5,则程序的输出结果为。A)0 B)5 C)15 D)无任何输出(32)在菜单编辑器中建立1个名称为Menu。的菜单项，将其“可见”属性设置为False,并建立其若干子菜单，然后编写如下过程：PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=lThenPopupMenuMenuOEndIfEndSub则以下叙述中错误的是。A)该过程的作用是弹出一个菜单B)单击鼠标右键时弹出菜单C)Menu。是在菜单编辑器中定义的弹出菜单的名称D)参数X、Y指明鼠标当前位置的坐标(33)窗体上有1个名称为CD1的通用对话框，1个名称为Commandl的命令按钮。命令按钮的单击事件过程如下：PrivateSubCommandl_Click()CDl.FileName=,M,CDLFiltei^"AllFilesl*.*l(*.DoC)l*.Docl(*.Txt)CDl.FilterIndex=2CDl.Action=lEndSub关于以上代码，错误的叙述是。A)执行以上事件过程，通用对话框被设置为“打开”文件对话框 C)通用对话框的默认文件类型为*.TxtB)通用对话框的初始路径为当前路径 D)以上代码不对文件执行读写操作(34)以下叙述中错误的是。A)用Shell函数可以执行扩展名为.exe的应用程序B)若用Static定义通用过程，则该过程中的局部变量都被默认为Static类型C)Static类型的变量可以在标准模块的声明部分定义D)全局变量必须在标准模块中用Public或Global声明(35)以下关于文件的叙述中，错误的是。A)使用Append方式打开文件时，文件指针被定位于文件尾B)当以输入方式(Input)打开文件时，如果文件不存在，则建立•个新文件C)顺序文件各记录的长度可以不同D)随机文件打开后，既可以进行读操作，也可以进行写操作二、填空题(每空2分，共30分)请将每空的正确答案写在答题标【1】〜［15］序号的横线上，答在试卷上不得分。(1)对长度为10的线性表进行冒泡排序，最坏情况下需要比较的次数为［11.(2)在而向对象方法中，【2】描述的是具有相似属性与操作的一组对象。(3)在关系模型中，把数据看成是二维表，每•个二维表称为一个［31(4)程序测试分为静态分析和动态测试。其中【4】是指不执行程序，而只是对程序文本进行检查，通过阅读和讨论，分析和发现程序中的错误。(5)数据独立性分为逻辑独立性与物理独立性。当数据的存储结构改变时，其逻辑结构可以不变，因此，基于逻辑结构的应用程序不必修改，称为【5】。(6)卜.列语句的输出结果是(6LPrintFormat(Int(12345.6789*1004-0.5)/100,"0000.0.00")(7)在窗体上画(7)在窗体上画1个命令按钮，其名称为Command1,然后编写如下事件过程：PrivateSubCommandl_Click()Dimarr(llb100)AsIntegerFori=llb100arr(i)=Int(Rnd*1000)NextiMax=arr(1)：Min=arr(1)Fori=llb100If[7]Then Max=arr(i)If[8]Then Min=arr(i)NextiPrint"Max=M：Max,"Min=M；MinEndSub程序运行后，单击命令按钮，将产生100个1000以内的随机整数，放入数组arr中，然后查找并输出这100个数中的最大值Max和最小值Min,请填空。(8)在窗体上画1个名称为Command1的命令按钮和2个名称分别为Ibxtl、Text2的文本框，如图所示，然后编写如下程序：FunctionFun(xAsInteger,ByVaiyAsInteger)AsIntegerx=x+yIfx<0ThenFun=xElseFun=yEndIfEndFunctionPrivateSubCommandl_Click()DimaAsInteger,bAsIntegera=-10：b=5lextl.lext=Fun(a,b)Text2.Text=Fun(a>b)EndSub程序运行后，单击命令按钮，Textl和Texl2文本框显示的内容分别是【9】和【101(9)在窗体上画1个命令按钮和1个文本框，其名称分别为Commandl和Tbxll,然后编写如下代码:DimSaveAllAsStringPrivateSubCommandl_Click()Text1.lext=Lcft(UCase(SaveAll),4)EndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)SaveAll=SaveAll+Chr(KeyAscii)EndSub程序运行后，在文本框中输入abcdefg,单击命令按钮，则文本框中显示的内容是【11】。18(10)在窗体上画1个命令按钮和1个通用对话框，其名称分别为Commandl和CommonDialogl,然后编写如下事件过程：PrivateSubCommandl_Click()CommonDialogl.[12]="打开文件"CommonDialogl.Filter="AllFiles(*.*)1*.*”CommonDialog1.InitDir=HC：\"CommonDialog1.ShowOpenEndSub该程序的功能是，程序运行后，单击命令按钮，将显示“打开”文件对话框，其标题是“打开文件”，在"文件类型''栏内显示“AIlFiles(*.*)“，并显示C盘根目录下的所有文件，请填空。(11)在窗体上画1个文本框，名称为Tbxtl,然后编写如下程序：PrivateSubForm_Load()Opened：\temp\dat.txt"ForOutputAs#Ilextl.lext=,M,EndSubPrivateSubTextl_KeyPress(KeyAsciiAsInteger)If[13]=13ThenIf