二级VISUAL+BASIC真题.docx

二级VISUAL+BASIC真题.docx

《二级VISUAL+BASIC真题.docx》由会员分享，可在线阅读，更多相关《二级VISUAL+BASIC真题.docx（26页珍藏版）》请在冰豆网上搜索。

二级VISUAL+BASIC真题

全国计算机等级考试二级笔试2005年4月真题

公共基础知识和VisualBask语言程序设计

（考试时间90分钟，满分100分）

一、选择题（

（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）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）在窗体（名称为Forml）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。

程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。

以下能实现上述操作的事件过程是______。

A）PrivateSubText1_Change（）

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

EndSub

B）PrivateSubCommandl_Click（）

Caption=”计算机等级考试”

EndSub

C）PrivateSubForml_Click（）

Text1.Caption="计算机等级考试"

EndSub

D）PrivateSubCommandlUlick（）

Text1.Text="计算机等级考试"

EndSub

（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）MicrosoftVisualB）Microsoft

C）BasicD）5

（15）设a="a",b="b",c="c",d="d",执行语句x=IIf（（a＜B）Or（c＞D），"A","B"）后，x的值为______。

A）"a"B）"b"C）"B"D）"A"

（16）为了使命令按钮（名称为Commandl）右移200，应使用的语句是______。

A）Commandl.Move-200

B）Commandl.Move200

C）Commandl.Left=Commandl.Left+200

D）Commandl.Left=Commandl.Left-200

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

PrivateSubForm_Click（）

x=InputBox（"请输入一个整数"）

Printx+Text1.Text

EndSub

程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为______。

A）123B）456C）479D）123456

（18）在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timerl，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False。

程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。

以下是实现上述操作的程序：

PrivateSubCommandl_Click（）

Timerl.______

EndSub

PrivateSubTimerl_Timer（）

Text1.Text=Time

EndSub

在下划线处应填入的内容是______。

A）Enabled=TrueB）Enabled=False

C）Visible=TrueD）Visible=False

（19）假定在图片框Picturel中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是______。

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

B）执行语句Picturel.Picture=LoadPicture（""）

C）执行语句Picturel.Picture=""

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

（20）在窗体上画一个名称为Listl酌列表框，一个名称为Labell的标签，列表框中显示若干个项目。

当单击列表框中的某个项目时，在标签中显示被选中项目的名称。

下列能正确实现上述操作的程序是：

______。

A）PrivateSubListl_Click（）

Labell.Caption=Listl.ListIndex

EndSub

B）PrivateSubListl_Click（）

Labell.Name=Listl.ListIndex

EndSub

C）PrivateSubListl_click（）

Labell.Name=Listl.Text

EndSub

D）PrivateSubListl_Click（）

Labell.Caption=Listl.Text

EndSub

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

PrivateSubCommandl_click（）

DimiAsInteger,XAsInteger

Fori=1To6

Ifi=1Thenx=i

Ifi＜=4Then

x=x+1

Else

x=x+2

EndIf

Nexti

Printx

EndSub

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

A）9B）6C）12D）15

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

PrivateSubCommandl_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）执行以下程序段

DimiAsInteger,XAsInteger

x=0

Fori=20To1Step-2

x=x+i\5

Next

Printx

后,x的值为______。

A）16B）17C）18D）19

（24）在VisualBasic32程中，可以作为“启动对象”的程序是______。

A）任何窗体或标准模块B）任何窗体或过程

C）SubMain过程或其他任何模块D）SubMain过程或任何窗体

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

A）数组中每个命令按钮的名称（Name属性）均为Commandl

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

C）数组中所有命令按钮可以使用同一个事件过程

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

（26）把窗体的KeyPreview属性设置为Tree，然后编写如下事件过程

PrivateSubForm_KeyPress（KeyAsciiAsInteger）

DimchAsString

ch=Chr（KeyAscii）

KeyAscii=Asc（UCase（ch））

PrintChr（KeyAscii+2）

EndSub

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

A）AB）BC）CD）D

（27）在窗体上画一个命令按钮和一个文本框，名称分别为Commandl和Text1，然后编写如下程序：

PrivateSubCommandl_click（）

a=InputBox（“请输入日期（1～31）”）

t="旅游景点:

"

&IIf（a＞0Anda＜=10,"长城",""）_

&IIf（a＞10Anda＜=20,"故宫",""）_

&IIf（a＞20Anda＜=31,"颐和园",""）

Text1.Text=t

EndSub

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

A）旅游景点：

长城故宫B）旅游景点：

长城颐和园

C）旅游景点：

颐和园D）旅游景点：

故宫

（28）在窗体上画一个名称为Labell的标签，然后编写如下事件过程：

PrivateSubForm_Click（）

Dimarr（10,10）AsInteger

DimiAsInteger,jAsInteger

Fori=2To4

Forj=2To4

arr（i,j）=i*j

Nextj

Nexti

Labell.Caption=Str（arr（2,2）+arr（3,3））

EndSub

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

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

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

PrivateFunctionfun（ByValmAsInteger）

IfmMod2=0Then

fun=2

Else

fun=1

EndIf

EndFunction

PrivateSubCommandl_Click（）

DimiAsInteger,sAsInteger

s=0

Fori=1To5

s=s+fun（i）

Next

Prints

EndSub

程序运行后，单击命令按钮，在窗体上显示的是______。

A）6B）7C）8D）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）21B）13C）8D）25

（31）在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：

OptionBase1

PrivateSubCommandl_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

Next

Printd

EndSub

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

A）10B）16C）12D）20

（32）设有如下程序：

PrivateSubCommandl_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）12B）11C）10D）9

（33）在窗体上画一个名称为Commandl的命令按钮和一个名称为Text1的文本框，在文本框中输入以下字符串：

MicrosoftVisualBasicProgramming

然后编写如下事件过程：

PrivateSubCommandl_Click（）

Open"d:

\temp\outf,txt"ForOuputAs#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）MVBPB）mvbpC）MD）m

VV

Bb

Pp

（34）在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：

DimSWAsBoolean

Functionfunc（XAsInteger）AsInteger

IfX＜20Then

Y=X

Else

Y=20+X

EndIf

func=Y

EndFunctiOn

PhvateSubForm_MouseDown（ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle）

SW=False

EndSub

PhvateSubForm_MouseUp（BuRonAsInteger,ShinAsInteger，XAsSingle,YAsSingle）

SW=Tree

EndSub

PdvateSubCommandl-Click（）

DimintNumAsInteger

intNum=InputBox（""）

IfSWThen

Printfunc（intNum）

EndIf

EndSub

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

A）输出0B）输出25C）输出45D）无任何输出

（35）设有如下通用过程：

PublicSubFun（a（）AsInteger,xAsInteger）

Fori=1To5

x=x+a（i）

Next

EndSub

在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮。

然后编写如下的事件过程：

PrivateSubCommandl_Click（）

Dimarr（5）AsInteger,nAsInteger

Fori=1To5

arr（i）=i+i

Next

Funarr,n

Text1.Text=Str（n）

EndSub

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

A）30B）25C）20D）15

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

请将每空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。

（1）某二叉树中度为2的结点有18个，则该二叉树中有【1】个叶子结点。

（2）在面向对象方法中，类的实例称为【2】。

（3）诊断和改正程序中错误的工作通常称为【3】。

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

（5）问题处理方案的正确而完整的描述称为【5】。

（6）以下语句输出结果是【6】。

PrintInt（12345.6789*100+0.5）/100

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

PrivateSubForm_Click（）

Text1.Text="VB程序设计"

EndSub

PrivateSubText1_Change（）

Picturel.Print"VBProgramming"

EndSub

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

（8）阅读下面的程序：

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】。

（9）设有如下程序：

PrivateSubForm_Click（）

DimnAsInteger，sAsInteger

n=8

s=0

Do

s=s+n

n=n-1

LoopWhilen＞0

Prints

EndSub

以上程序的功能是【10】。

程序运行后，单击窗体，输出结果为【11】。

（10）设有如下程序：

OptionBase1

PrivateSubCommandlClick（）

Dimarrl

DimMinAsInteger，iAsInteger

arrl=Array（12,435,76,-24,78,54,866,43）

Min=【12】

Fori=2To8

Ifarrl（i）＜MinThen【13】

Next

Print"最小值是:

";Min

EndSub

以上程序的功能是：

用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。

请填空。

（11）在名称为Forml的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的

MultiLine属性设置为True，然后编写如下的事件过程：

PrivateSubFormClick（）

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

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

请填空。

全国计算机等级考试二级笔试2005年4月真题

公共基础知识和VisualBasic语言程序设计

参考答案及评析

一、选择题

（1）D

[评析]数据的逻辑结构在计算机存储空间中的存放形式称为数据的存储结构（也称数据的物理结构）。

（2）B

[评析]栈是一种特殊的线性表，这种线性表只能在固定的一端进行插入和删除操作，允许插入和删除的一端称为栈顶，另一端称为栈底。

一个新元素只能从栈顶一端进入，删除时，只能删除栈顶的元素，即刚刚被插入的元素。

所以栈又称先进后出表（FILO,FirstInLastOut）。

线性表可以顺序存储，也可以链式存储，而栈是一种线性表，也可以采用链式存储结构。

（3）D

[评析]假设线性表的长度为n，则在最坏情况下，冒泡排序需要经过n/2