计算机二级VB历年考试真题

C）软件既是逻辑实体，又是物理实体

2005年4月

D）软件是程序、数据与相关文档的集合

一、选择题（每小题2分，共70分）（9）数据独立性是数据库技术的重要特点之一。

（1）数据的存储结构是指（）。所谓数据独立性是指（）。

A）存储在外存中的数据B）数据所占的存储空间A）数据与程序独立存放

量二级VisualBasic语言程序设计试卷第2页（共

C）数据在计算机中的顺序存储方式D）数据的逻10页）

辑结构在计算机中的表示B）不同的数据被存放在不同的文件中

（2）下列关于栈的描述中错误的是（）。C）不同的数据只能被对应的应用程序所使用

A）栈是先进后出的线性表D）以上3种说法都不对

B）栈只能顺序存储（10）用树形结构表示实体之间联系的模型是（）o

C）栈具有记忆作用A）关系模型B）网状模型

D）对栈的插入与删除操作中，不需要改变栈底指C）层次模型D）以上3个都是

针（11）在窗体（名称为Forml）上画一个名称为Textl

（3）对于长度为〃的线性表，在最坏情况下，下的文本框和一个名称为Commandl的

列各排序法所对应的比较次数中正确的是命令按钮，然后编写一个事件过程。程序运行后，

（）0如果在文本框中输入一个字符，则

A）冒泡排序〃/2B）冒泡排序为"把命令按钮的标题设置为“计算机等级考试”。

C）快速排序为〃D）快速排序为〃（〃-1）/2下列能实现上述操作的事件过程是

（4）对长度为〃的线性表进行顺序查找，在最坏（）。

情况下所需要的比较次数为（）。A）PrivateSubTextl_Change（）

A）log2nB）nilCommandl.Caption="计算机等级考试"

C）77D）n+\EndSub

（5）下列对于线性链表的描述中正确的是（）。B）PrivateSubCommandl_Click（）

A）存储空间不一定连续，且各元素的存储顺序是Caption="计算机等级考试”

任意的EndSub

B）存储空间不一定连续，且前件元素一定存储在C）PrivateSubForml_Click（）

后件元素的前面Textl.Caption="计算机等级考试”

C）存储空间必须连续，且前件元素-定存储在后EndSub

件元素的前面D）PrivateSubCommandl_Click（）

D）存储空间必须连续，且各元素的存储顺序是任Textl.Text="计算机等级考试”

意的EndSub

（6）下列对于软件测试的描述中正确的是（）。（12）设a=5,b=4,c=3,d=2,下列表达式的值

A）软件测试的目的是证明程序是否正确是（）。

B）软件测试的目的是使程序运行结果正确3>2*bOra=cAndbocOrc>d

C）软件测试的目的是尽可能多地发现程序中的错A）1B）True

误C）FalseD）2

D）软件测试的目的是使程序符合结构化原则（13）设@="1^1加050任\^^山25匕”，则下列使变量

（7）为了使模块尽可能独立，要求（）。b的值为“VisualBasic”的语句是（）。

A）模块的内聚程度要尽量高，且各模块间的耦合A）b=Left（a,10）B）b=Mid（a,10）

程度要尽量强C）b=Right（a,10）D）b=Mid（a,l1,10）

B）模块的内聚程度要尽量高，且各模块间的耦合（14）有下列的窗体事件过程：

程度要尽量弱PrivateSubForm_Click（）

C）模块的内聚程度要尽量低，且各模块间的耦合a$="MicrosoftVisualBasic"

程度要尽量弱b$=Right（a$,5）

D）模块的内聚程度要尽量低，且各模块间的耦合c$=Mid（a$,l,9）

程度要尽量强MsgBoxa$,34,b$,c$,5

（8）下列描述中正确的是（）。EndSub

A）程序就是软件程序运行后，单击窗体，则在弹出的信息框的标题

B）软件开发不受计算机系统的限制栏中显示的信息是（）。

A)MicrosoftVisualB)Microsoft(20)在窗体上画一个名称为Listl的列表框，一

C)BasicD)5个名称为Label1的标签，列表框中显示

(15)设2=%",b="b",c="c",d="d",执行语句若干个项目。当单击列表框中的某个项目时，在标

x=nf((a<b)Or(c>d),"A","B")后，x的值为签中显示被选中项目的名称。下列

()0能正确实现上述操作的程序是()。

A)aB)bA)PrivateSubListl_Click()

C)BD)ALabel1.Caption=Listl.Listindex

(16)为了使命令按钮(名称为Commandl)右移EndSub

200,应使用的语句是()。B)PrivateSubListl_Click()

二级VisualBasic语言程序设计试卷第3页(共Label1.Name=Listl.Listindex

10页)EndSub

A)Command1.Move-200C)PrivateSubListl_Click()

B)Commandl.Move200Label1.Name=Listl.Text

C)Command1.Left=Commandl.Left+200EndSub

D)Command1.Left=Command1.Left-200二级VisualBasic语言程序设计试卷第4页(共

(17)在窗体上画一个文本框，然后编写下列事件10页)

过程：D)PrivateSubListl_Click()

PrivateSubForm_Click()Labell.Caption=Listl.Text

x=InputBox("请输入一个整数")EndSub

Printx+Text1.Text(21)在窗体上画一个命令按钮，其名称为

EndSubCommand),然后编写下列事件过程：

程序运行时，在文本框中输入456,然后单击窗体,PrivateSubCommandl_Click()

在输入对话框中输入123,单击DimiAsInteger,xAsInteger

“确定”按钮后，在窗体上显示的内容为()。Fori=1To6

A)123B)456Ifi=lThenx=i

C)579D)123456Ifi<=4Then

(18)在窗体上画一个文本框和一个计时器控件，x=x+l

名称分别为Textl和Timerl,在属性窗I」Else

中把计时器的Interval属性设置为1000、Enabledx=x+2

属性设置为False。程序运行后，如EndIf

果单击命令按钮，则每隔一秒钟在文本框中显示一Nexti

次当前的时间。下列是实现上述操Printx

作的程序。EndSub

PrivateSubCommandl_Click()程序运行后，单击命令按钮，其输出结果为()。

Timer1.—A)9B)6

EndSubC)12D)15

PrivateSubTimerl_Timer()(22)在窗体上画一个名称为Command1的命令

Textl.Text=Time按钮，然后编写下列事件过程：

EndSubPrivateSubCommandl_Click()

在—处应填入的内容是()。c="ABCD"

A)Enabled=TrueB)Enabled=FalseForn=1To4

C)Visible=TrueD)Visible=FalsePrint___

(19)在图片框Picture1中装入了一个图形，为了Next

清除该图形(不删除图片框)，应采用的EndSub

正确方法是()。程序运行后，单击命令按钮，要求在窗体上显示下

A)选择图片框，然后按Del键列内容：

B)执行语句Picturel.Picture=LoadPicture("")D

C)执行语句Picture1.Pictured”CD

D)选择图片框，在属性窗口中选择Picture属性BCD

条，然后按回车键ABCD

则在处应填入的内容为()。EndSub

A)Left(c,n)B)Right(c,n)程序运行后，如果从键盘上输入16,则在文本框中

C)Mid(c,n,l)D)Mid(c,n,n)显示的内容是()。

(23)执行下列程序段后，x的值为()。A)旅游景点：长城故宫B)旅游景点：长城颐和

DimxAsInteger,iAsInteger园

x=0C)旅游景点：颐和园D)旅游景点：故宫

Fori=20To1Step-2(28)在窗体上画一个名称为Labell的标签，然

x=x+i\5后编写下列事件过程：

NextiPrivateSubForm_Click()

A)16B)17Dimarr(10,10)AsInteger

C)18D)19DimiAsInteger,jAsInteger

(24)在VisualBasic工程中，可以作为“启动对Fori=2To4

象”的程序是()。Forj=2To4

A)任何窗体或标准模块arr(i,j)=j*j

二级VisualBasic语言程序设计试卷第5页(共Nextj

10页)Nexti

B)任何窗体或过程Label1.Caption=Str(arr(2,2)+arr(3,3))

C)SubMain过程或其他任何模块EndSub

D)SubMain过程或任何窗体程序运行后，单击窗体，在标签中显示的内容是

(25)建立一个名为Command1的命令按钮数组,()O

则下列说法中错误的是()。A)12B)13

A)数组中每个命令按钮的名称(Name属性)均二级VisualBasic语言程序设计试卷第6页(共

为Command110页)

B)数组中每个命令按钮的标题(Caption属性)C)14D)15

都一样(29)在窗体上画一个名称为Commandl的命令

C)数组中所有命令按钮可以使用同一个事件过程按钮，然后编写下列通用过程和命令按钮

D)用名称Commandl(下标)可以访问数组中的的事件过程：

每个命令按钮PrivateFunctionfun(ByValmAsInteger)

(26)把窗体的KeyPreview属性设置为True,然IfmMod2=0Then

后编写下列事件过程：fun=2

PrivateSubForm_KeyPress(KeyAsciiAsInteger)Else

DimchAsStringfun=l

ch=Chr(KeyAscii)EndIf

KeyAscii=Asc(UCase(ch))EndFunction

PrintChr(KeyAscii+2)PrivateSubCommandl_Click()

EndSubDimiAsInteger.sAsInteger

程序运行后，按键盘上的“A”键，则在窗体上显s=0

示的内容是()。Fori=1To5

A)AB)Bs=s+fun(i)

C)CD)DNext

(27)在窗体上画一个命令按钮和一个文本框，名Prints

称分别为Commandl和Textl,然后编写EndSub

下列事件过程：程序运行后，单击命令按钮，在窗体上显示的是

PrivateSubCommandl_Click()()O

a=InputBox("请输入日期(1~31)")A)6B)7

t=”旅游景点：C)8D)9

&IIf(a>0Anda<=10,"长城(30)阅读程序：

&IIf(a>10Anda<=20,"故宫",”OptionBase1

&IIf(a>20Anda<=31,"颐和园Dimarr()AsInteger

Textl.Text=tPrivateSubForm_Click()

DimiAsInteger,jAsIntegerLoop

ReDimarr(3,2)Printc+d

Fori=1To3EndSub

Forj=1To2程序运行后，单击命令按钮，如果在输入对话框中

arr(i,j)=i*2+j依次输入1、2、3、4、5、6^7、

Nextj8、9、0,则输出结果是()。

NextiA)12B)11

ReDimPreservearr(3,4)C)10D)9

Forj=3to4(33)在窗体上画一个名称为Command1的命令

arr(3,j)=j+9按钮和••个名称为Textl的文本框，在文本

Nextj框中输入字符串“MicrosoftVisualBasic

Printarr(3,2)+arr(3,4)Programmingn,然后编写下列事件过程：

EndSubPrivateSubCommandl_Click()

程序运行后，单击窗体，输出结果为()。Open"d:\temp\outf.txt"ForOutputAs#l

A)21B)13Fori=lToLen(Textl.Text)

C)8D)25c=Mid(Textl.Text,i,l)

(31)在窗体上画…个名称为Commandl的命令Ifc>="A"Andc<="ZHThen

按钮，然后编写下列事件过程：Print#1,LCase(c)

OptionBase1EndIf

PrivateSubCommandl_Click()Nexti

二级VisualBasic语言费序设计试卷第7页(共二级VisualBasic语言程序设计试卷第8页(共

10页)10页)

DimcAsInteger,dAsIntegerClose

d=0EndSub

c=6程序运行后，单击命令按钮，文件outf.txt中的内

x=Array(2,4,6,8,10,12)容是()。

Fori=1To6A)MVBPB)mvbp

Ifx(i)>cThenC)MD)m

d=d+x(i)Vv

c=x(i)Bb

ElsePp

d=d-c(34)在窗体上画一个名称为Command1的命令

EndIf按钮，然后编写下列程序：

NextiDimSWAsBoolean

PrintdFunctionfunc(XAsInteger)AsInteger

EndSubIfX<20Then

程序运行后，单击命令按钮，则在窗体上输出的内Y=X

容为()。Else

A)10B)16Y=20+X

C)12D)20EndIf

(32)设有下列程序：func=Y

PrivateSubCommandl_Click()EndFunction

DimcAsInteger,dAsIntegerPrivateSubForm_MouseDown(ButtonAs

c=4Integer,Shift_

d=InputBox("请输入一个整数")Asinteger,XAsSingle,YAssingle)

DoWhiled>0SW=False

Ifd>cThenEndSub

c=c+lPrivateSubForm_MouseUp(ButtonAsInteger,Shift

EndIfAsInteger,XAsSingle,YAsSingle)

d=InputBox(”请输入一个整数”)SW=True

EndSubTextl.Text=HVB程序设计”

PrivateSubCommandl_Click()EndSub

DimintNumAsIntegerPrivateSubTextl_Change()

intNum=InputBox(<4<6)Picturel.Print"VBProgramming',

IfSWThenEndSub

Printfunc(intNum)程序运行后，单击窗体，则在文本框中显示的内容

EndIf是【7】，而在图片框中显示

EndSub的内容是【8】o

程序运行后，单击命令按钮，将显示一个输入对话(8)阅读下列程序：

框，如果在对话框中输入25,则PrivateSubForm_Click()

程序的执行结果为()。DimCheckAsBoolean,CounterAsInteger

A)输出0B)输出25Check=True

C)输出45D)无任何输出Counter=5

(35)设有下列通用过程：Do

PublicSubFun(a()AsInteger,xAsInteger)DoWhileCounter<20

Fori=1To5Counter=Counter+1

x=x+a(i)IfCounter=10Then

NextCheck=False

EndSubExitDo

在窗体上画一个名称为Textl的文本框和一个名EndIf

称为Commandl的命令按钮。然后编Loop

写下列事件过程：LoopUntilCheck=False

二级VisualBasic语言程序设计试卷第9页(共PrintCounter

10页)二级VisualBasic语言程序设计试卷第10页(共

PrivateSubCommandl_Click()10页)

Dimarr(5)AsInteger,nAsIntergerEndSub

Fori=1To5程序运行后，单击窗体，输出结果为[9]o

arr(i)=i+i(9)有下列程序：

NextPrivateSubForm_Click()

Funarr,nDimaAsInteger,sAsInteger

Textl.Text=Str(n)n=8

EndSubs=0

程序运行后，单击命令按钮，则在文本框中显示的Do

内容是()。s=s+n

A)30B)25n=n-l

C)20D)15LoopWhilen>0

二、填空题(每空2分，共30分)Prints

(1)某二叉树中度为2的结点有18个，则该二叉EndSub

树中有【1】个叶子结点。以上程序的功能是[10]。程序运行后，单击窗

(2)在面向对象方法中，类的实例称为［2］o体，输出结果为[11]。

(3)诊断和改正程序中错误的工作通常称为(10)有下列程序：

［3］。OptionBase1

(4)在关系数据库中，把数据表示成二维表，每PrivateSubCommandl_Click()

一个二维表称为［4］。Dimarrl

(5)问题处理方案准确而完整的描述称为【5】oDimMinAsInteger,iAsInteger

(6)下列语句的输出结果［6］oarrl=Array(12,435,76,-24,78,54,866,43)

PrintInt(l2345.6789*100+0.5)/100Min=[12]

(7)在窗体上画一个文本框和一个图片框，然后Fori=2To8

编写下列两个事件过程：Ifarrl(i)<MinThen[13]

PrivateSubForm_Click()Nexti

Print”最小值是:";MinC）一个逻辑数据结构可以有多种存储结构，且各

EndSub种存储结构不影响数据处理的效率

以上程序的功能是：用Array函数建立一个含有8D）一个逻辑数据结构可以有多种存储结构，且各

个元素的数组，然后查找并输出该种存储结构影响数据处理的效率

数组中各元素的最小值。请填空。（5）下列描述中正确的是（）。

（11）在名称为Forml的窗体上画一个文本框，A）软件工程只是解决软件项目的管理问题

其名称为Textl,在属性窗口中把该文本框B）软件工程主要解决软件产品的生产率问题

的MultiLine属性设置为True,然后编写下列的事C）软件工程的主要思想是强调在软件开发过程中

件过程：需要应用工程化原则

PrivateSubForm_Click（）D）软件工程只是解决软件开发中的技术问题

Opennd:\test\smtextl.txt"ForInputAs#1（6）在软件设计中，不属于过程设计工具的是（）o

DoWhileNot[14]A）PDL（过程设计语言）B）PAD图

LineInput#l,aspect$C）N-S图D）DFD图

Whole$=whole$+aspect$+Chr$（13）+Chr$（l0）（7）下列叙述中正确的是（）。

LoopA）软件交付使用后还需要再进行维护

Textl.Text=whole$B）软件一旦交付使用就不需要再进行维护

Close#1C）软件交付使用后其生命周期就结束

Opennd:\test\smtext2.txtHForOutputAs#1D）软件维护是指修复程序中被破坏的指令

Print#1,[15]（8）数据库设计的根本目标是要解决（）。

Close#1A）数据共享问题B）数据安全问题

EndSubC）大量数据存储问题D）简化数据维护

以上程序的功能是：把磁盘文件smtexl.txt的内容（9）设有下列关系表：

读到内存并在文本框中显示出来，二级VisualBasic语言程序设计试卷第2页（共

然后把该文本框中的内容存入磁盘文件11页）

smtext2.txto请填空。—机密★启用前RST

ABC

2005年9月

112

一、选择题（每小题2分，共70分）223

（1）下列叙述中正确的是（）。则下列操作中正确的是（）。

A）程序设计就是编制程序A）T=RnSB）T=RUSC）T=RXSD）T=R/S

B）程序的测试必须由程序员自己去完成（10）数据库系统的核心是（）。

C）程序经调试改错后还应进行再测试A）数据模型B）数据库管理系统

D）程序经调试改错后不必进行再测试C）数据库D）数据库管理员

（2）下列数据结构中，能用二分法进行查找的是（11）假定一个VisualBasic应用程序由一个窗体

（）0模块和一个标准模块构成。为了保存该应

A）顺序存储的有序线性表用程序，下列正确的操作是（）。

B）线性链表A）只保存窗体模块文件

C）二叉链表B）分别保存窗体模块、标准模块和工程文件

D）有序线性链表C）只保存窗体模块和标准模块文件

（3）下列关于栈的描述正确的是（）。D）只保存工程文件

A）在栈中只能插入元素而不能删除元素（12）为了消除窗体上的一个控件，下列正确的操

B）在栈中只能删除元素而不能插入元素作是（）。

C）栈是特殊的线性表，只能在一端插入或删除元A）按回车键

素B）按＜Esc＞键

D）栈是特殊的线性表，只能在一端插入元素，而C）选择（单击）要清除的控件，然后按＜Del＞键

在另一端删除元素D）选择（单击）要清除的控件，然后按回车键

（4）下列叙述中正确的是（）。（13）下列叙述中错误的是（）。

A）一个逻辑数据结构只能有一种存储结构A）打开一个工程文件时，系统自动装入与该工程

B）数据的逻辑结构属于线性结构，存储结构属于有关的窗体、标准模块等文件

非线性结构B）当程序运行时，双击一个窗体，则触发该窗体

的DblClick事件EndSub

C)VisualBasic应用程序只能以解释方式执行PrivateSubTextlChange()

D)事件可以由用户引发，也可以由系统引发Text2.Text=Mid(Textl.Text,8)

(14)设a=2,b=3,c=4,d=5>卜列表达式的值EndSub

是()。程序运行后，如果在文本框Textl中输入

Nota<=cOr4*c=bA2Andboa+cBeijingChina,则在文本框Text2中显示的

A)-1B)1C)TrueD)False内容是()。

(15)设a=5,b=10,贝ij执行c=Int((b-a)*Rnd+a)+lA)BeijingChinaB)China

后，c值的范围为()。C)BeijingD)BeijingC

A)5-10B)6-906〜10D)5〜9(19)在窗体上画一个列表框和一个命令按钮，其

(16)在窗体上画一个命令按钮，名称为名称分别为Listl和Commandl,然后编

Command1,然后编写下列事件过程：写下列事件过程：

PrivateSubCommandl_Cilck()PrivateSubForm_Load()

a$="softwareandhardware"Listl.Additem"ItermL

b$=Right(a$,8)Listl.Additem"Iterm2"

c$=Mid(a$,1,8)Listl.AdditemHIterm3”

MsgBoxa$,,b$,c$,1EndSub

EndSubPrivateSubCommandl_Click()

运行程序后，单击命令按钮，则在弹出的信息框的Listl,List(Listl.Listcount)=nAAAAM

标题栏中显示的是()。EndSub

A)softwareandhardwareB)software程序运行后，单击命令按钮，其结果为()。

C)hardwareD)-1A)把字符串"AAAA”添加到列表框中，但位置不

(17)在窗体上有一个命令按钮和一个文本框，其能确定

名称分别为Command1和Textl,把文本B)把字符串"AAAA"添加到列表框的最后(即

框的Text属性设置为空白，然后编写下列事件过“Item3”的后面)

程：C)把列表框中原有的最后一项改为"AAAA"

PrivateSubCommandl_Click()D)把字符串"AAAA"插入到列表框的最前面(即

ABC“Item1”的前面)

112(20)有下列事件过程：

223PrivateSubForm_Click()

313DimxAsInteger,nAsInteger

ABCx=l

313n=0

二级VisualBasic语言程序设计试卷第3页(共DoWhileX<28

11页)x=x*3

a=InputBox("Enteraninteger")n=n+1

b=InputBox("Enteraninteger")二级VisualBasic语言程序设计试卷第4页(共

Textl.Text=b+a11页)

EndSubLoop

程序运行后，单击命令按钮，如果在输入对话框中Printx,n

分别输入8和10,则文本框中显EndSub

示的内容是()。程序运行后，单击窗体，输出结果是()。

A)108B)180810D)出错A)814B)5630281D)2435

(18)在窗体上画两个文本框，其名称分别为Textl(21)有下列事件过程：

和Text2,然后编写下列程序：PrivateSubForm_Click()

PrivateSubForm_Load()DimCheck,Counter

ShowCheck=True

Textl.Text=""Counter=()

Text2,Text=""Do

Textl.SetFocusDowhileCounter<20

Counter=counter+1Nextj

IfCounter=10ThenNexti

Check=FalsePrintal(3,3);a2(3,3)

ExitDoEndSub

EndIf程序运行后，单击命令按钮，在窗体上输出的是

Loop()O

LoopUntilCheck=FalseA)66B)1050721D)612

PrintCounter,Check(25)有下列事件过程：

EndSubOptionBase1

程序运行后，单击窗体，输出结果为()。PrivateSubForm_Click()

A)150B)20-1C)10TrueD)10FalseDimarr,sum

(22)有下列事件过程：Sum=0

PrivateSubForm_Click()arr=Array(l,3,5,7,9,11,13,15,17,19)

DimiAsInteger,sumAsIntegerFori=lTo10

sum=0Ifarr(i)/3=arr(i)\3Then

Fori=2To10Sum=Sum+arr(i)

IfiMod2<>0AndiMod3=0ThenEndIf

sum=sum+iNexti

EndIfPrintSum

NextiEndSub

Printsum程序运行后，单击窗体，输出结果为()。

EndSubA)25B)26027D)28

程序运行后，单击窗体，输出结果为()。(26)在窗体上有一个命令按钮，然后编写下列事

A)12B)30024D)18件过程：

(23)在窗体上画一个名称为Textl的文本框和一Privat