4月全国计算机等级考试二级VB笔试试卷.doc

2005年4月世界打算机等级检验二级VB口试试卷
一、选择题((1〕~(35〕每题2分，共70分〕
(1〕数据的存储结构是指
A〕存储在外存中的数据B〕数据所占的存储空间量
C〕数据在打算机中的次第存储办法D〕数据的逻辑结构在打算机中的表示
(2〕以下关于栈的描画中差错的选项是
A〕栈是提高后出的线性表B〕栈只能次第存储
C〕栈存在阅历感染D〕对栈的拔出与删除把持中，不需要修改栈底指针
(3〕关于长度为n的线性表，在最坏情况下，以下各排序法所对应的比较次数中精确的选项是
A〕冒泡排序为n/2B〕冒泡排序为nC〕快速排序为nD〕快速排序为n(n-1〕/2
(4〕关于长度为n的线性表停顿次第查寻，在最坏情况下所需要的比较次数为
A〕log2nB〕n/2 C〕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=〞打算机等级检验〞
EndSub
B〕 PrivateSubCommand1_Click(〕
Caption=〞打算机等级检验〞
EndSub
C〕 PrivateSubForm1_Click(〕
Text1.Caption=〞打算机等级检验〞
EndSub
D〕 PrivateSubCommand1_Click(〕
Text1.Text=〞打算机等级检验〞
EndSub

考二级上考二级网kaoerji

(12〕设a=5,b=4,c=3,d=2，以下表达式的值是　3>2*bOra=cAndb<>cOrc>d
A〕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
　EndSub
A〕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〕〞b〞　　C〕〞B〞　　D〕〞A〞
(16〕为了使命令按钮(名称为Command1〕右移200，应应用的语句是
A〕Command1.Move-200　B〕Command1.Move200
C〕Command1.Left=Command1.Left+200　D〕Command1.Left=Command1.Left-200
(17〕在窗体上画一个文本框，然后编写如下情况过程，次第运行时，在文本框中输出456，然后单击窗体，在输出对话框中输出123，单击“判定〞按钮后，在窗体上表示的内容是：
　PrivateSubForm_Click(〕
　　x=InputBox("请输出一个整数"〕
　　Printx+Text1.Text
　EndSub
A〕123　　B〕456　　C〕579　　D〕123456
〔18〕在窗体上画一个文本框跟一个计时器控件，名称分不为Text1跟Timer1,在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False,次第运行后，假定单击命令按钮，那么每隔一秒钟在文本框中表示一次当前的时辰。以下是实现上述把持的次第，在______处应填入的内容是
　　PrivateSubCommand1_Click(〕
　　Timer1._________
　　EndSub
　　PrivateSubTimer1_Timer(〕
　　Text1.Text=Time
　　EndSub
A〕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.ListIndex
EndSub
B〕 PrivateSubList1_Click(〕
Label1.Name=List1.ListIndex
EndSub
C〕 PrivateSubList1_Click(〕
Label1.Name=List1.Text
EndSub
D〕 PrivateSubList1_Click(〕
Label1.Caption=List1.Text
EndSub

〔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
　　NextI
A〕16　　B〕17　　C〕18　　D〕19

(24〕在VisualBasic工程中，可以作为启开东西的次第是
A〕任何窗体或标准模块 B〕任何窗体或过程
C〕SubMain过程或其他任何模块 D〕SubMain过程或任何窗体
(25〕假定树破了一个名为Command1的命令按钮数组，那么以下说法中差错的选项是
A〕数组中每个命令按钮的名称(名称属性〕均为Command1
B〕数组中每个命令按钮的标题(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
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〕〕
　EndSub
A〕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〕阅读次第:
OptionBase1
Dimarr(〕AsInteger
PrivateSubForm_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的命令按钮,然后编写如下次第:
OptionBase1
PrivateSubCommand1_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
　Printd
EndSub
次第运行后,假定单击命令按钮,那么在窗体上输出的内容为
　　A〕10　B〕16
C〕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〕11
C〕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〕
　　Ifc>="A"Andc<="Z"Then
　　Print#1,LCase(c〕；
　　EndIf
　　Nexti
　　Close
　EndSub
次第运行后,单击命令按钮,文件outf.txt中的内容是:
　A〕MVBP　　B〕mvbp
　C〕MD〕m
Vv
Bb
Pp
(34〕在窗体上画一个名称为Command1的命令按钮,然后编写如下次第:
DimSWAsBoolean
Functionfunc(XAsInteger〕AsInteger
　IfX<20Then
　　Y=X
　Else
　　Y=20+X
　EndIf
　func=Y
EndFunction
PrivateSubCommand1_Click(〕
　DimintNumAsInteger
　intNum=InputBox(""〕
　IfSWThen
　　Printfunc(intNum〕
　EndIf
EndSub
PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle〕
　SW=False
EndSub
PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle〕
　SW=True
EndSub
次第运行后,单击命令按钮,将表示一个输出对话框,假定在对话框中输出25,那么次第的实行结果是:
A〕输出0　　B〕输出25 C〕输出45　　D〕无任何输出
(35〕设有如下通用过程:
PublicSubfun(a(〕AsInteger,xAsInteger〕
　　Fori=1To5
　　x=x+a(i〕
　　Next
EndSub
在窗体上画一个名称为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
　　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〕设有如下次第:
OptionBase1
PrivateSubCommand1_Click(〕
　Dimarr1
　DimMinAsInteger,iAsInteger
　arr1=Array(12,435,76,-24,78,54,866,43〕
　Min=【12】
　Fori=2To8
　Ifarr1(i〕<MinThen【13】
　Nexti
　Print"最小值是:";Min
EndSub
以前次第的功能是用Array函数树破一个含有8个元素的数组,然后查寻并输出该数组中的最小值,请填空

(11〕在名称为Form1的窗体上画一个文本框,其名称为Text1,在属性窗口中把文本框的MultiLine属性设置为True,然后编写如下情况过程:
　　PrivateSubForm_Click(〕
　　Open"d:\test\smtext1.txt"ForInputAs#1
　　DoWhileNot【14】
　　LineInput#1,aspect$
　　whole$=whole$+aspect$+Chr(13〕+Chr(10〕
　　Loop
　　Text1.Text=whole$
　　Close#1
　　Open"d:\test\smtext2.txt"ForOutputAs#1
　　Print#1,【15】
　　Close#1
　　EndSub

2005年4月世界打算机等级检验二级VB笔试参考答案
　　选择题：
　　1---5DBDCA　　6---10　CBDDC
　　11--15　ABBCD　　16--20　CDABD
　　21--25　ABCDB　　26--30　CDBBA
　　31--35　CDBDA
　　填空题：

　　【1】19
　　【2】东西
　　【3】次第调试
　　【4】关系
　　【5】算法
　　【6】12345.68
　　【7】VB次第方案
　　【8】VBProgramming
　　【9】　10
　　【10】求1-8的跟
　　【11】36
　　【12】arr1(1〕
　　【13】min=arr1(i〕
　　【14】EOF(1〕
　　【15】text1.text(或whole$〕