二级VB笔试试卷全国计算机等级考试

2003年9月全国计算机等级考试二级VB语言笔试试卷(含答案)

一、选择题((1)~(20)每小题2分，(21)~(30)每小题3分，共70分)

(1)以下叙述中错误的是

A)VisualBasic是事件驱动型可视化编程工具

B)VisualBasic应用程序不具有明显的开始和结束语句

C)VisualBasic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性

D)VisualBasic中控件的某些属性只能在运行时设置

(2)以下叙述中错误的是

A)在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件

B)以.BAS为扩展名的文件是标准模块文件

C)窗体文件包含该窗体及其控件的属性

D)一个工程中可以含有多个标准模块文件

(3)以下叙述中错误的是

A)双击鼠标可以触发DblClick事件

B)窗体或控件的事件的名称可以由编程人员确定

C)移动鼠标时，会触发MouseMove事件

D)控件的名称可以由编程人员设定

(4)以下不属于VisualBasic系统的文件类型是

A).frmB).batC).vbgD).vbp

(5)以下叙述中错误的是

A)打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件

B)保存VisualBasic程序时，应分别保存窗体文件及工程文件

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

D)事件可以由用户引发，也可以由系统引发

(6)以下能正确定义数据类型TelBook的代码是

(资料来源：东方教育网)

A)TypeTelBookB)TypeTelBook

NameAsString*10NameAsString*10

TelNumAsIntegerTelNumAsInteger

EndTypeEndTelBook

C)TypeTelBookD)TypeclefTelBook

NameString*10NameString*1()

TelNumIntegerTelNumInteger

EndTypeTelBookEndType

(7)以下声明语句中错误的是

A)Constvarl=123B)Dimvar2='ABC'

C)Deflnta-zD)Staticvar3AsInteger

(8)设窗体上有一个列表框控件Lis选中的列表项内容的是tl,且其中含有若干列表项。则以下能表

示当前被

A)Listl.ListB)List1.ListindexC)List1.IndexD)Listl.Text

(9)程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是

A)MouseDownB)MouseUpC)LoadD)Click

(10)设a=10,b=5,c=1,执行语句Printa>b>c后，窗体上显示的是

A)TrueB)FalseC)1D)出错信息

(11)如果要改变窗体的标题，则需要设置的属性是

A)CaptionB)NameC)BackColorD)BorderStyle

(12)以下能判断是否到达文件尾的函数是

A)BOFB)LOCOLOFD)EOF

(13)如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是

A)如果工程中含有SubMain过程，则程序一定首先执行该过程

B)不能把标准模块设置为启动模块

C)用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体

D)任何时刻最多只有一个窗体是活动窗体

(14)窗体的MouseDown事件过程

Fonn_MouseDown(ButtSingle)

onAsInteger,ShiftAsInteger,XAsSingle,YAs

有4个参数，关于这些参数，正确的描述是

A)通过Button参数判定当前按下的是哪一个鼠标键

B)Shift参数只能用来确定是否按下Shift键

C)Shift参数只能用来确定是否按下Alt和Ctrl键

D)参数x,y用来设置鼠标当前位置的坐标

(15)设组合框Combol中有3个项目，则以下能删除最后一项的语句是

A)Combo1.RemoveitemText

B)Combo1.Removeltem2

C)Combo1.Removeitem3

D)Combo1.RemoveltemCombo1.Listcount

(16)以下关于焦点的叙述中，错误的是

A)如果文本框的TabStop属性为False,则不能接收从键盘上输入的数据

B)当文本框失去焦点时，触发LostFocus事件

C)当文本框的Enabled属性为False时，其Tab顺序不起作用

D)可以用Tabindex属性改变Tab顺序

(17)如果要在菜单中添加一个分隔线，则应将其Caption属性设置为

A)=B)*C)&D)-

(18)执行语句Open"数据能够执行的操作是Tel.dat"ForRandomAs#1Le

n=50后，对文件Tel.dat中的

A)只能写，不能读B)只能读，不能写

C)既可以读，也可以写D)不能读，不能写

(19)在窗体上画一个本框，然后编写如下事件过

名称为Commandl的命令按钮和两程：个名称分别为Textl、Text2的文

PrivateSubCommandl_Click()

n=Textl.Text

SelectCasen

Case1To20

x=10

Case2,4,6

x=20

CaseIs<10

x=30

Case10

x=40

EndSelect

Text2.Text=x

EndSub

程序运行后，如果在文内容是本框Textl中输入10,然后单击命令按钮，则在Text2中显示的

A）10B）20030D）40

（20）设有以下循环结构

Do

循环体

LoopWhilev条件〉

则以下叙述中错误的是

A）若“条件”是一个为0的常数，则一次也不执行循环体

B）”条件”可以是关系表达式、逻辑表达式或常数

C）循环体中可以使用ExitDo语句

D）如果“条件"总是为True,则不停地执行循环体

（21）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

PrivateSubCommandl_Click（）

DimnumAsInteger

num=1

DoUntilnum>6

Printnum;

num=num+2.4

Loop

EndSub

程序运行后，单击命令按钮，则窗体上显示的内容是

A)13.45.8B)135

C)147D)无数据输出

(22)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:

PrivateSubCommandl_Click()

DimaAsInteger,sAsInteger

a=8

s=1

Do

s=s+a

a=a—1

LoopWhilea<=0

Prints;a

EndSub

程序运行后，单击命令按钮，则窗体上显示的内容是

A)79B)340

C)97D)死循环

(23)设有如下通用过程：

PublicFunctionf(xAsInteger)

DimyAsInteger

x=20

y=2

f=x*y

EndFunction

在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程:

PrivateSubCommandl_Click()

StaticxAsInteger

x=10

y=5

y=f(x)

Printx;y

EndSub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是

A)105B)205

C)2040D)1040

(24)设有如下通用过程：

PublicSubFun(a(),ByVaixAsInteger)

Fori=1To5

x=xa(i)

Next

EndSub

在窗体上画一个名称为Textl的文本下的事件过程：框和一个名称为Command1的命令按钮，然后编

写如

PrivateSubCommandl_Click()

Dimarr(5)AsVariant

Fori=1To5

arr(i)=i

Next

n=10

CallFun(air(),n)

Text1.Text=n

EndSub

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

A)1()B)15025D)24

(25)在窗体上画一个名称为Command1的命令按钮，然后编写如下代码:

OptionBase1

PrivateSubCommand1_Click()

d=0

c=10

x=Array(10,12,21,32,24)

Fori=1To5

Ifx(i)>cThen

d=d+x(i)

c=x(i)

Else

d=d-c

EndIf

Nexti

Printd

EndSub

程序运行后，如果单击命令按钮，则在窗体上输出的内容为

A)89B)99023D)77

(26)在窗体上画两个别为Label1、Label2、Labe显示"A"、"B"、"A*B"等文LabeI3

显示A*B的计算结果。当单击命令按钮"计算”时Label3中。以下不能实现上滚动条，名称分别为

HscroI1113.Label4、Label5、Label6,字信息，标签Labell、Label2分。如图所示。当移动滚动框时，，对

标签Labell、Label2中显示述功能的事件过程是、Hscroll2;六个标签，名称分其中标签Label

4~Label6分别别显示其右侧的滚动条的数值，在相应的标签中显示滚动条的值的两个值求积，并将结

果显示在

A)PrivateSubCommandl_Click()

Label3.Caption=Str(Val(Labcl1.Caption)*Val(Labe!2.Caption))

EndSub

B)PrivateSubCommandl_Click()

Labcl3.Caption=HScroll1.Value*HScroll2.Valuc

EndSub

C)PrivateSubCommand1_Click()

Label3.Caption=HScroll1*HScroll2

EndSub

D)PrivateSubCommand1_Click()

Label3.Caption=HScroll1.Text*HScroll2.Text

EndSub

(27)在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程:

PrivateSubCommandl_Click()

Forn=1To20

IfnMod3<>0Thenm=m+n\3

Nextn

Printn

EndSub

程序运行后，如果单击命令按钮，则窗体上显示的内容是

A)15B)18021D)24

(28)在窗体上画一个名称为Textl的文本框，并编写如下程序：

PrivateSubForm_Load()

Show

Textl.Text”

Text1.SetFocus

EndSub

PrivateSubForm_MouYAsSingle)seUp(ButtonAsInteger,ShiftAs

Integer,XAsSingle,

(资料来源：东方教育网)

Prim”程序设计”

EndSub

PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)

Print"VisualBasic*';

EndSub

程序运行后，如果按“A”键，然后单击窗体，则在窗体上显示的内容是

A)VisualBasicB)程序设计

C)A程序设计D)VisualBasic程序设计

(29)设有如下程序：

PrivateSubCommandl_Click()

DimsumAsDouble,xAsDouble

sum=0

n=0

Fori=1To5

x=n/i

n=n+1

sum=sum+x

Next

EndSub

该程序通过For循环计算一个表达式的值，这个表达式是

A)1+1/2+2/3+3/4+4Z5B)1+1/2+2/3+3/4

C)1/2+2/3+3/4+4/5D)1+1/2+1/3+1/4+1/5

（30）以下有关数组定义的语句序列中，错误的是

A)Staticarrl(3)

arrl(l)=100

arrl(2)='•Hello"

arrl(3)=123.45

B)Dimarr2()AsInteger

DimsizeAsInteger

PrivateSubCommand2_Click()

size=InputBox("输入：")

ReDimarr2(size)

EndSub

C)OptionBase1

PrivateSubCommand3_Click()

Dimarr3(3)AsInteger

EndSub

D)DimnAsInteger

PrivateSubCommand4_Click()

Dimarr4(n)AsInteger

EndSub

二、填空题（每空2分，共30分）

（1）执行下面的程序段后，i的值为KU，S的值为K23o

s=2

Fori=3.2To4.9Step0.8

s=s+1

Nexti

(2)把窗体的KeyPreview属性设置为True,然后编写如下两个事件过程：

PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)

PrintChr(KeyCode)

EndSub

PrivateSubForm_KeyPress(KeyAsciiAsInteger)

PrintChr(KeyAscii)

EndSub

程序运行后，如果直接分别是m和K43。按键盘上的“A”键(即不按住Shift键)，则在窗体上

输出的字符

(3)在窗体上画一个标签(名称为L写如下几个事件过程：abell)和一个计时器(名称为Timerl),

然后编

PrivateSubForm_Load()

Timer1.Enabled=False

Timer1.Interval=K53

EndSub

PrivateSubForm_CIick()

Timer1.Enabled=K61

EndSub

PrivateSubTimerl_Timer()

Label1.Caption=K7U

EndSub

程序运行后，单击窗体，将在标签中

填空。显示当前时间，每隔1秒钟变换一次(见图)。请

14：54：41

(4)在窗体上画一个Labell和Command1,然后编文本框、一个标签和一个命令按写如下两个事件

过程：钮，其名称分别为Textl、

PrivateSubCommandl_Click()

S$=InputBox("请输入一个字符串”)

Text1.Text=S$

EndSub

PrivateSubTextl_Change()

Labell.Caption=UCase(Mid(Text1.Text,7))

EndSub

程序运行后，单击命令"VisualBasic”，则在标签按钮，将显示一个输入对话框，中显示的内容是K8

2

o如果在该对话框中输入字符串

(5)在窗体上画一个列表框、一个Command1和Labell,通过属性窗口把列表、”第三个项中、”第

四个项目”。程序运钮，即可将所选择的项目删除，并在标签选择”第三个项目”的情况)。下面是实现命令按

钮和一个标签，其名称分别为Listl.框中的项目设置为：”第一个项目“、”第二个项目”行后，在列表框中

选择一个项目，然后单击命令按中显示列表框当前的项目数，运行情况如图所示(上述功能的程序，请填空。

PrivateSubCommand1_Click()

IfList1.Listindex>=(9》Then

List1.Removeltcm£103

Label1.Caption=K112

Else

MsgBox”请选择要删除的项口”

EndIf

EndSub

第一个项目

第二个项口COMMAND1

第三个项目

3

(6)设有程序：

OptionBase1

PrivateSubCommand1_Click()

Dimarrl,MaxasInteger

arrl=Array。2,435,76,24,78,54,866,43)

(资料来源：东方教育网)

K122=arrl(l)

Fori=1To8

Ifarrl(i)>MaxThenK133

Nexti

Print”最大值是：Max

EndSub

以上程序的功能是：用Array函数建组中元素的最大值。请填空。立一个含有8个元素的数组，然后

查找并输出该数

(7)以下程序的功能在文本框Textl中显示出来是：把当前目录下的顺序文件sm。请填空。textl.txt

的内容读入内存，并

PrivateSubCommandl_Click()

DiminDataAsString

Textl.Text=,H,

Open"Asmtextl.txt"K143As#1

DoWhile£153

Input#1,inDala

Text1.Text=Textl.Text&inData

Loop

Close#1

EndSub

2(X)3年9月全国计算机等级考试二级VB语言笔试试卷参考答案

一、选择题

(1)C(2)A(3)B(4)B(5)C

(6)A(7)B(8)D(9)C(10)B

(11)A(12)D(13)A(14)A(15)B

(16)A(17)D(18)C(19)A(20)A

(21)B(22)C(23)C(24)A(25)C

(26)D(27)C(28)D(29)C(30)D

二、填空题

(1)K135.6K235

(2)K33AMa

(3)E531000U63TrueK73Time

(4)R8HBASIC

(5)K930K102List1.ListindexK113List).ListCount

(6)K122Max£133Max=arrl(i)

(7)K143ForInputK153NotEOF(l))

2005年4月全国计算机等级考试二级VB笔试试卷及答案

-、选择题((1)〜(35)每小题2分，共70分)

下列各题A)、B)、C)、D)四个选项中，只有•个选项是正确的，请将正确选项涂写在答题卡相应位

置上，答在试卷上不得分。

(1)数据的存储结构是指

A)存储在外存中的数据B)数据所占的存储空间量

C)数据在计算机中的顺序存储方式D)数据的逻辑结构在计算机中的表示

(2)下列关于栈的描述中错误的是

A)栈是先进后出的线性表B)栈只能顺序存储

C)栈具有记忆作用D)对栈的插入与删除操作中，不需要改变栈底指针

(3)对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是

A)冒泡排序为n/2B)冒泡排序为n

C）快速排序为nD）快速排序为n（n-1）/2

（4）对于长度为n的线性表进行顺序查找，在最坏情况下所需要的比较次数为

A）log2nB）n/2C）nD）n1

（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＞在窗体(名称为Forml)上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮，

然后编写一个事件过程。程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算

机等级考试”。以下能实现上述操作的事件过程是：

A)PrivateSubText1_Change()

Commandl.Caption="计算机等级考试”

EndSub

B)PrivateSubCommand1_Click()

Caption+'计算机等级考试”

EndSub

C)PrivateSubForm1_Click()

Textl.Caption="计算机等级考试”

EndSub

D)PrivateSubCommandl_Click()

Textl.Text±'计算机等级考试”

EndSub

(12)设a=5b=4c=3d=2,下列表达式的值是

3>2*bOra=cAndbocOrc>d

A)1B)TrueC)FalseD)2

(13)设a="Microso代Visua旧asic”则以下使变量b的值为"Visua旧asic”的语句是

A)b=Left(a10)

B)b=Mid(a10)

C)b=Right(a10)

D)b=Mid(a1110)

(14)假定有如下的窗体事件过程：

PrivateSubForm_Click()

a$="MicrosoftVisualBasic"

b$=Right(a$5)

c=Mid(a$19)

MsgBoxa$34b$c$5

EndSub

程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息是：

A)MicrosoftVisual

B)Microsoft

C)Basic

D)5

(15)设2=宣七=州七=七3=%”执行语句x=lif((ad)“A““B")后，x的值为：

A)“a"

B)"b"

C)“B"

D)“A"

(16)为了使命令按钮(名称为Commandl)右移200,应使用的语句是

A)Command1.Move-200

B)Commandl.Move200

C)Commandl.Left=Commandl.Le代200

D)Commandl.1_6代=Commandl.Left-200

(17)在窗体上画一个文本框，然后编写如下事件过程：

PrivateSubForm_Click()

x=lnputBox("请输入一个整数”)

PrintxTextl.Text

EndSub

程序运行时，在文本框中输入456,然后单击窗体，在输入对话框中输入123,单击“确定”按钮后，

在窗体上显示的内容是：

A)123

B)456

C)579

D)123456

(18)在窗体上画一个文本框和一个计时器控件，名称分别为Textl和Time门在属性窗口中把计时

器的Interval属性设置为1000,Enabled属性设置为False程序运行后，如果单击命令按钮，则每隔一

秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：

PrivateSubCommandl_Click()

Timeri.

EndSub

PrivateSubTimer1_Timer()

Textl.Text=Time

EndSub

在处应填入的内容是

A)Enabled=True

B)Enabled=False

C)Visible=True

D)Visible=False

(19)假定在图片框Picturel中装入了一个图形，为了清除该图形(不删除图片框)，应采用的正确

方法是：

A)选择图片框，然后按Del键

B)执行语句Picture1.Picture=LoadPicture(MO)

C)执行语句Picturel.Picture=^^^^

D)选择图片框，在属性窗口中选择Picture属性，然后按回车键

(20)在窗体上画一个Listl的列表框，一个名称为Labell的标签，列表框中显示若干个项目，当

单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列能正确实现上述操作的程序是

A)PrivateSubList1_Click()

Labell.Caption=Listl.Listindex

EndSub

B)PrivateSubList1_Click()

Labell.Name=Listl.Listindex

EndSub

C)PrivateSubList1_Click()

LabeH.Name=Listl.Text

EndSub

D)PrivateSubList1_Click()

LabeH.Caption=Listl.Text

EndSub

(21)在窗体上画一个命令按钮，名称为Command*!,然后编写如下事件过程:

PrivateSubCommand1_Click()

DimiAsIntegerxAsInteger

Fori=1To6

Ifi=1Thenx=i

Ifi<=4Then

x=x1

Else

x=x2

EndIf

Nexti

Printx

EndSub

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

A)9

B)6

C)12

D)15

(22)在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程:

PrivateSubCommand1_Click()

c="ABCD”

Forn=1To4

Print_________

Next

EndSub

程序运行后，单击命令按钮，要求在窗体上显示如下内容：

D

CD

BCD

ABCD

则在处应填入的内容为

A)Left(cn)

B)Right(cn)

C)Mid(cn1)

D)Mid(cnn)

(23)执行以下程序段

DimxAsIntegeriAsInteger

x=0

Fori=20To1Step-2

x=xi\5

NextI

后，x的值为

A)16

B)17

C)18

D)19

(24)在VisualBasic工程中，可以作为启动对象的程序是

A)任何窗体或标准模块

B)任何窗体或过程

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

D)SubMain过程或任何窗体

(25)假定建立了一个名为Commandl的命令按钮数组，则以下说法中错误的是

A)数组中每个命令按钮的名称(名称属性)均为Commandl

B)数组中每个命令按钮的标题(Caption属性)都一样

C)数组中所有命令按钮可以使用同一个时间过程

D)用名称Commandl(下标)可以访问数组中的每个命令按钮

(26)把窗体的KeyPreview属性设置为True然后编写如下事件过程：

PrivateSubForm_KeyPress(KeyAsciiAsInteger)

DimchAsString

ch=Chr(KeyAscii)

KeyAscii=Asc(UCase(ch))

PrintChr(KeyAscii2)

EndSub

程序运行后按键盘上的“A”键则在窗体上显示的内容是

A)A

B)B

C)C

D)D

(27)在窗体上画一个命令按钮和一个文本框名称分别为Commanch和Textl然后编写如下程序:

PrivateSubCommand1_Click()

a=lnputBox(“请输入日期(1~31)”)

t=”旅游景点:“一

&IIf(a>0Anda<=10“长城"_

&IIf(a>10Anda<=20“故宫"_

&llf(a>20Anda<=30“颐和园")

Textl.Text=t

EndSub

程序运行后如果从键盘输入16则在文本框中显示的内容是：

A)旅游景点：长城故宫

B)旅游景点：长城颐和园

C)旅游景点：颐和园

D)旅游景点：故宫

(28)在窗体上画一个名称为Label1的标签然后编写如下事件过程二

PrivateSubForm_Click()

Dimarr(1010)AsInteger

DimiAsIntegerjAsInteger

Fori=2To4

Forj=2To4

arr(ij)=i*j

Nextj

Nexti

Label1.Caption=Str(arr(22)arr(33))

EndSub

程序运行后单击窗体在标签中显示的内容是

A)12

B)13

C)14

D)15

(29)在窗体上画一个名称为Comamndl的命令按钮然后编写如下通用过程和命令按钮的事件过程:

PrivateFunctionfun(ByValmAsInteger)

IfmMod2=0Then

fun=2

Else

fun=1

EndIf

EndFunction

PrivateSubCommand1_Click()

DimiAsIntegersAsInteger

s=0

Fori=1To5

s=sfun(i)

Next

Prints

EndSub

程序运行后单击命令按钮则窗体上显示的是二

A)6

B)7

C)8

D)9

(30)阅读程序：

OptionBase1

Dimarr()AsInteger

PrivateSubForm_Click()

DimiAsIntegerjAsInteger

ReDimarr(32)

Fori=1To3

Forj=1To2

arr(ij)=i*2j

Nextj

Nexti

ReDimPreservearr(34)

Forj=3To4

arr(3j)=j9

Nextj

Printarr(32)arr(34)

EndSub

程序运行后单击窗体输出结果为：

A)21

B)13

C)8

D)25

(31)在窗体上画一个名称为Commandl的命令按钮然后编写如下程序:

OptionBase1

PrivateSubCommand1_Click()

DimcAsIntegerdAsInteger

d=0

c=6

x=Array(24681012)

Fori=1To6

Ifx(i)>cThen

d=dx(i)

c=x(i)

Else

d=d-c

EndIf

Nexti

Printd

EndSub

程序运行后如果单击命令按钮则在窗体上输入的内容为

A)10

B)16

0)12

D)20

(32)设有如下程序：

PrivateSubCommand1_Click()

DimcAsIntegerdAsInteger

c=4

d=lnputBox("请输入一个整数”)

DoWhiled>0

Ifd>cThen

c=c1

EndIf

d=lnputBox("请输入一个整数”)

Loop

Printcd

EndSub

程序运行后单击命令按钮如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0则输出结

果是二

A)12

B)11

C)10

D)9

(33)在窗体上画一个名称为Commandl的命令按钮和一个名称为Textl的文本框在文本框中输入

以下字符串：

MicrosoftVisualBasicProgramming

然后编写如下事件过程：

PrivateSubCommand1_Click()

Open"d:\temp\outf.txt**ForOutputAs#1

Fori=1ToLen(Text1.Text)

c=Mid(Text1.Texti1)

Ifc>="A"Andc<="Z"Then

Print#1LCase(c)

EndIf

Nexti

Close

EndSub

程序运行后单击命令按和文件outf.txt中的内容是：

A)MVBP

B)mvbp

C)M

V

B

P

D)m

v

b

P

(34)在窗体上画一个名称为Commandl的命令按钮然后编写如下程序:

DimSWAsBoolean

Functionfunc(XAsInteger)AsInteger

IfX<20Then

Y=X

Else

Y=20X

EndIf

func=Y

EndFunction

PrivateSubCommand1_Click()

DimintNumAsInteger

intNum=lnputBox("M)

IfSWThen

Printfunc(intNum)

EndIf

EndSub

PrivateSubForm_MouseDown(ButtonAsIntegerShiftAsIntegerXAsSingleYAsSingle)

SW=False

EndSub

PrivateSubForm_MouseUp(ButtonAsIntegerShiftAsIntegerXAsSingleYAsSingle)

SW=True

EndSub

程序运行后单击命令按钮将显示一个输入对话框如果在对话框中输入25则程序的执行结果是：

A)输出0

B)输出25

C)输出45

D)无任何输出

(35)设有如下通用过程：

PublicSubfun(a()AsIntegerxAsInteger)

Fori=1To5

x=xa(i)

Next

EndSub

在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮然后编写如下事件过程:

PrivateSubCommand1_Click()

Dimarr(5)AsIntegernAsInteger

Fori=1To5

arr(i)=ii

Next

funarrn

Textl.Text=Str(n)

EndSub

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

A)30

B)25

C)20

D)15

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

请将每一个空的正确答案写在答题卡［11〜［15］序号的横线上，答在试卷上不得分。注意：以命

令关键字填空的必须拼写完整。

(1)某二*树中度为2的结点有18个，则该二★树中有［1］个叶子结点。

(2)在面向对象方法中，类的实例称为【2】o

(3)诊断和改正程序中错误的工作通常称为【3】o

(4)在关系数据库中，把数据表示成二维表，每一个二维表称为【4】。

(5)问题处理方案的正确而完整的描述称为【5】o

(6)以下语句的输出结果是：【6】

Printlnt(12345.6789*1000.5)/100

(7)在窗体上画一个文本框和一个图片框然后编写如下两个事件过程：

PrivateSubForm_Click()

Textl.Text=nVB程序设计”

EndSub

PrivateSubText1_Change()

Picturel.Print"VBProgramming"

EndSub

程序运行后单击窗体在文本框中显示的内容是【7】而在图片框中显示的内容是［8】

(8)阅读下面的程序

PrivateSubForm_Click()

DimCheckAsBooleanCounterAsInteger

Check=True

Counter=5

Do

DoWhileCounter<20

Counter=Counter1

IfCounter=10Then

Check=False

ExitDo

EndIf

Loop

LoopUntilCheck=False

PrintCounter

EndSub

程序运行后单击窗体输出结果是［9】

(9)设有如下程序

PrivateSubForm_Click()

DimaAsIntegersAsInteger

n=8

s=0

Do

s=sn

n=n-1

LoopWhilen>0

Prints

EndSub

以上程序的功能是(101程序运行后单击窗体输出结果为【11】

(10)设有如下程序：

OptionBase1

PrivateSubCommand1_Click()

Dimarr1

DimMinAsIntegeriAsInteger

arr1=Array(1243576-24785486643)

Min=[12]

Fori=2To8

Ifarr1(i)<MinThen[13]

Nexti

Print”最小值是:“Min

EndSub

以上程序的功能是用Array函数建立一个含有8个元素的数组然后查找并输出该数组中的最小值请填

空

(11)在名称为Forml的窗体上画一个文本框其名称为Textl在属性窗口中把文本框的MultiLine属性设

置为True然后编写如下事件过程：

PrivateSubForm_Click()

OpenHd:\test\smtext1.txtHForInputAs#1

DoWhileNot[14]

LineInput#1aspect$

whole$=whole$aspect$Chr(13)Chr(1O)

Loop

Textl.Text=whole$

Close#1

Open"d:\test\smtext2.txt”ForOutputAs#1

Print#1[15]

Close#1

EndSub

上述程序的功能是把磁盘文件smtextl.txt的内容读到内存并在文本框中显示出来然后把该文本框

中的内容存入磁盘文件smtext2.txt.请填空

以下答案仅供参考

选择题：

1-5DBDCA

6-10CBDDC

1115ABBCD

1620CDABD

2125ABCDB

2630CDBBA

3135CDDDA

填空题：

[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⑴

[15]textl.text（或whole$）

2005年9月全国计算机等级考试二级VB笔试试卷（含参考答案）

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

下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应

位置上，答在试卷上不得分。

（1）下列叙述中正确的是

A）程序设计就是编制程序B）程序的测试必须由程序员自己去完成

C）程序经调试改错后还应进行再测试D）程序经调试改错后不必进行再测试

（2）下列数据结构中，能用二分法进行查找的是

A）顺序存储的有序线性表B）线性链表

C）二叉链表D）有序线性链表

（3）下列关于栈的描述正确的是

A）在栈中只能插入元素而不能删除元素

B）在栈中只能删除元素而不能插入元素

C）栈是特殊的线性表，只能在一端插入或删除元素

D）栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素

（4）下列叙述中正确的是

A）一个逻辑数据结构只能有一种存储结构

B）数据的逻辑结构属于线性结构，存储结构属于非线性结构

C）一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率

D）一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率

（5）下列描述中正确的是

A）软件工程只是解决软件项目的管理问题

B）软件工程主要解决软件产品的生产率问题

C）软件工程的主要思想是强调在软件开发过程中需要应用工程化原则

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

（6）在软件设计中，不属于过程设计工具的是

A）PDL（过程设计语言）B）PAD图

C）N-S图D）DFD图

（7）下列叙述中正确的是

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

B）软件一旦交付使用就不需要再进行维护

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

D）软件维护是指修复程序中被破坏的指令

（8）数据库设计的根本目标是要解决

A）数据共享问题B）数据安全问题

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

（9）设有如下关系表：

RST

ABCABCABC

112313112

223223

313

则下列操作中正确的是

A）T=ROSB）T=RUSC）T=RXSD）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)在窗体上画一个命令按钮，名称为Conunandl,然后编写如下事件过程：

PrivateSubCommand1Click()

a$=z，softwareandhardware”

b$=Right(a$,8)

c$=Mid(a$,1,8)

MsgBoxa$,,b$,c$,1

EndSub

运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是

A)softwareandhardwareB)softwareC)hardwareD)1

(17)在窗体上画一个命令按钮和一个文本框，其名称分别为Commandl和Textl,把文本框的Text

属性设置为空白，然后编写如下事件过程：

PrivateSubCommand1Click()

a二InputBox(^Enteraninteger")

b=InputBox(^Enteraninteger")

Textl.Text=b+a

EndSub

程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10,则文本框中显示的内容是

A)108B)18C)810D)出错

(18)在窗体上画两个文本框，其名称分别为Textl和Text2,然后编写如下程序：

PrivateSubForm_Load()

Show

Textl.Text=〃”

Text2.Text=

Textl.SetFocus

EndSub

PrivateSubTextl_Change()

Text2.Text=Mid(Textl.Text,8)

EndSub

程序运行后，如果在文本框Textl中输入BeijingChina,则在文本框Text2中显示的内容是

A)BeijingChinaB)ChinaC)BeijingD)BeijingC

(19)在窗体上画一个列表框和一个命令按钮，其名称分别为Listl和Commandl,然后编写如下事件

过程：

PrivateSubFormLoad0

Listl.Additem”Item1〃

Listl.Addltem"Item2〃

Listl.Addltem"Item3”

EndSub

PrivateSubCommand1_C1ick()

Listl.List(Listl.ListCount)="AAAA"

EndSub

程序运行后，单击命令按钮，其结果为

A)把字符串“AAAA”添加到列表框中，但位置不能确定

B)把字符串“AAAA”添加到列表框的最后(即“Item3”的后面)

C)把列表框中原有的最后一项改为“AAAA”

D)把字符串“AAAA”插入到列表框的最前面(即“hem1”的前面)

(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)有如下程序:

PrivateSubFormClick()

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)有如下程序：

PrivateSubFormClick()

DimiAsInteger,sumAsInteger

sum=0

Fori=2To10

IfiMod200AndiMod3=0Then

sum=sum+i

EndIf

Nexti

Printsum

EndSub

程序运行后，单击窗体，输出结果为

A)12B)30C)24D)18

(23)在窗体上画一个名称为Textl的文本框和一个名称为Command1的命令按钮，然后编写如下事件

过程：

PrivateSubCommandl_Click()

Dimarray1(10,10)AsInteger

DimiAsInteger,jAsInteger

Fori=1To3

Forj=2To4

arrayl(i,j)=i+j

Nextj

Nexti

Textl.Text二array1(2,3)+array1(3,4)

EndSub

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

A)12B)13C)14D)15

（24）在窗体上画一个命令按钮，其名称为Commandl,然后编写如下事件过程:

PrivateSubCommandl_Click()

Dimal(4,4),a2(4,4)

Fori=1To4

Forj=1To4

al(i,j)=i+j

a2(i,j)=al(i,j)+i+j

Nextj

Nexti

Printal(3,3);a2(3,3)

EndSub

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

A)66B)105C)721D)612

(25)有如下程序:

OptionBase1

PrivateSubFormClick()

Dimarr,Sum

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)在窗体上画一个命令按钮，然后编写如下事件过程:

PrivateSubCommandl_Click()

Dima(5)AsString

Fori=1To5

a(i)=Chr(Asc(〃A")+(i-1))

Nexti

ForEachbIna

Printb;

Next

EndSub

程序运行后，单击命令按钮，输出结果是

A)ABCDEB)