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

目录

2005年4月全国计算机等级考试二级笔试试卷..............................................1

2005年4月全国计算机等级考试二级VB笔试参考答案......................................8

2005年9月全国计算机等级考试二级笔试试卷..............................................9

2005年9月全国计算机等级考试二级VB笔试参考答案.....................................17

2006年4月全国计算机等级考试二级笔试试卷.............................................18

2006年4月全国计算机等级考试二级VB笔试参考答案.....................................25

2006年9月全国计算机等级考试二级笔试试卷.............................................26

2006年9月全国计算机等级考试二级VB笔试参考答案.....................................33

2007年4月全国计算机等级考试二级笔试试卷.............................................34

2007年4月全国计算机等级考试二级VB笔试参考答案.....................................42

2007年9月全国计算机等级考试二级笔试试卷.............................................43

2007年9月全国计算机等级考试二级VB笔试参考答案.....................................51

2008年4月全国计算机等级考试二级笔试试卷.............................................52

2008年4月全国计算机等级考试二级VB笔试参考答案.....................................59

2008年9月全国计算机等级考试二级笔试试卷.............................................60

2008年9月全国计算机等级考试二级VB笔试参考答案.....................................68

2009年3月全国计算机等级考试二级笔试试卷.............................................69

2009年3月全国计算机等级考试二级VB笔试参考答案.....................................76

2009年9月全国计算机等级考试二级笔试试卷.............................................77

2009年9月全国计算机等级考试二级VB笔试参考答案.....................................84

2010年3月全国计算机等级考试二级笔试试卷.............................................85

2010年3月全国计算机等级考试二级VB笔试参考答案.....................................92

2010年9月全国计算机等级考试二级笔试试卷.............................................92

2010年9月全国计算机等级考试二级VB笔试参考答案....................................101

2011年3月全国计算机等级考试二级笔试试卷............................................101

2011年3月全国计算机等级考试二级VB笔试参考答案....................................109

2011年9月全国计算机等级考试二级笔试试卷............................................110

2011年9月全国计算机等级考试二级VB笔试参考答案....................................117

2005年4月全国计算机等级考试：级笔试试卷

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

VisualBasic语言程序设计

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

一、选择题（第小题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-l）/2

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

A）log2nB）n/2C）nD）n+l

（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）上画一个名称为费xtl的文本框和一个名称为Command1的命令按钮，然后编写一个

-I-

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

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

下能实现上述操作的事件过程是：

A)PrivateSublextl_Change()B)PrivateSubCommandl_Click()

CommandLCaption="计算机等级考试”Captiond计算机琴级考试”

EndSubEndSub

C)PrivateSubForml_Click()D)PrivateSubCommandl_Click()

Text1.Caption—计算机等级考试”lbxtl.Tbxt=”计算征等级考试”

EndSubEndSub

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

3>2*bOra=cAndbocOrc>d

A)1B)TrueC)FalseD)2

(13)设a=nMicrosoftVisualBasic",则以卜.使变量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)MicrosoftC)BasicD)5

(15)设a="a"，b="b",c=V,d="d",执行语句x=Hf((avD),"A","B")后，x的值为:

A)"anB)"bHC)"B"D)"A"

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

A)Command1.Move-200B)Command1.Move200

C)Command1.Left=Command1.Left+200D)Commandl.Left=Commandl.Lcft-200

(17)在窗体上画一个文本框，然后编写如卜.事件过程，程序运行时，在文本框中输入456,然后单击窗体，在输入

对话框中输入123,单击“确定”按钮后，在窗体上显示的内容是：

PrivateSubForm_Click()

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

Printx+Textl.Text

EndSub

A)123B)456C)579D)123456

(18)在窗体上画一个文本框和一个计时器控件，名称分别为lextl和Timerl,在属性窗口中把计时器的Interval属性

设置为1000,Enabled属性设置为False,程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当

前的时间。以下是实现上述操作的程序，在—A_处应填入的内容是

PrivateSubCommandl_Click()

l^mer1._________

EndSub

PrivateSubTimerl_Timer()

Textl.Text=Time

EndSub

A)Enabled=TrueB)Enabled=FalseC)Visible=TrueD)Visible=False

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

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

B)执行语句PictureLPicture=LoadPicture("")B

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

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

(20)在窗体上画一个LislI的列表框，一个名称为Labe”的标签，列表框中显示若干个项目，当单击列表框中的某

个项目时，在标签中显示被选中的项目的名称，卜.列能正确实现上述操作的程序是

A)PrivateSubListl_Click()B)PrivateSubListl_Click()

Label1.Caption=List1.ListindexLabel1.Name=List1.Listindex

EndSubEndSub

C)PrivateSubListl_Click()LabelI.Name=List1.Text

-2-

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

EndSubEndSub

D)PrivateSubListl_Click()

Label1.Caption=List1.Text

(21)在窗体上画一个命令按钮，名称为Command］，然后编写如卜.事件过程：

PrivateSubCommandl_Click()

DimiAsInteger,xAsInteger

Fori=1Tb6

Ifi=1Thenx=i

Ifi<=4Then

x=x+1

Else

x=x+2

EndIf

Nexti

Printx

EndSub

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

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

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

PrivateSubCommandl_Click()

c="ABCD"

Forn=1lb4

Print_________

Next

EndSub

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

D

CD

BCD

ABCD

则在处应填入的内容为

A)Left(c,n)B)Right(c,n)C)Mid(c,n,l)D)Mid(c,n,n)

(23)执行以下程序段后，x的值为

DimxAsInteger,iAsInteger

x=0

Fori=20lb1Step-2

x=x+i\5

NextI

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

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

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

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

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

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

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

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

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

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

PrivateSubFonn_KeyPress(KeyAsciiAsInteger)

DimchAsString

ch=Chr(KeyAscii)

KeyAscii=Asc(UCase(ch))

PrintChr(KeyAscii+2)

EndSub

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

A)AB)BC)CD)D

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

PrivateSubCommand1_Click()

a=InpulBox("请输入日期(1〜31)”)

-3-

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

t="旅游景点:"&Hf(a>0Anda<=10,"长城"，巧&IIf(a>10Anda<=20,"故宫,，巧_

&IIf(a>20Anda<=30,"颐和园

Textl.lext=t

EndSub

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

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

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

(28)在窗体上画一个名称为Labell的标签，然后编写如下事件过程，程序运行后，单击窗体，在标签中显示的内容是

PrivateSubFonn_Click()

Dimarr(10,10)AsInteger

DimiAsInteger,jAsInteger

Fori=2lb4

Forj=2lb4

arr(ij)=i*j

Nextj

Nexti

Labell.Caption=Str(arr(2,2)+arr(3,3))

EndSub

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

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

PrivateFunctionfun(ByValmAsInteger)

IfmMod2=0Then

fun=2

Else

fiin=1

EndIf

EndFunction

PrivateSubCommandl_Click()

DimiAsInteger,sAsInteger

s=0

Fori=1lb5

s=s+fun(i)

Next

Prints

EndSub

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

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

(30)阅读程序：

OptionBase1

Dimarr()AsInteger

PrivateSubFonn_Click()

DimiAsInteger,jAsInteger

ReDimarr(3,2)

Fori=1lb3

Forj=1lb2

arr(i,j)=i*2+j

Nextj

Nexti

ReDimPreservearr(3,4)

Forj=31b4

arr(3J)=j+9

Nextj

Printarr(3,2)+arr(3,4)

EndSub

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

A)21B)13C)8D)25

(31)在窗体上画一个名称为Command)的命令按钮,然后编写如卜.程序：

OptionBase1

PrivateSubCommandl_Click()

DimcAsInteger,dAsInteger

d=0:c=6

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

-4-

2005年4月全国计算机等级考试：级笔试试卷-VB

Fori=11b6

Ifx(i)>cThen

d=d+x(i):c=x(i)

Else

d=d-c

EndIf

Nexti

Printd

EndSub

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

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

(32)设有如下程序：

PrivateSubCommand1_Click()

DimcAsInteger,dAsInteger

c=4

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

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的命令按钮和一个名称为Textl的文本框，在文本框中输入以下字符串:

MicrosoftVisualBasicProgramming,然后编写如卜事件过程：

PrivateSubCommandl_Click()

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

Fori=1lbLen(lbxtl.Text)

c=Mid(lextl.lext,i,1)

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

Print#1,LCase(C)；

EndIf

Nexti

Close

EndSub

程序运行后,单击命令按钮，文件OUtf.txt中的内容是：

A)MVBPB)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

PrivateSubCommandl_Click()

DimintNumAsInteger

intNum=InputBox("")

IfSWThen

Printfunc(intNum)

EndIf

EndSub

PrivateSubForm_MouseE>own(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

-5-

2005年4月全国计算机等级考试：级笔试试卷——VB

SW=False

EndSub

PrivateSubFomi_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

SW=True

EndSub

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

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

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

PublicSubfun(a()AsInteger,xAsInteger)

Fori=1lb5

x=x+a(i)

Next

EndSub

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

PrivateSubCommandl_Click()

Dimarr(5)AsInteger,nAsInteger

Fori=1Tb5

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

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

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

(5)问题处理方案的正确而完整的描述称为上1。

(6)以下语句PrintInt(12345.6789*100+0.5)/100的输出结果是：[12345.68】.

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

PrivateSubForm_Click()

Textl.lext="VB程序设计”

EndSub

PrivateSublextl_Change()

PictureLPrint"VBProgramming"

EndSub

程序运行后，单击窗体，在文本框中显示的内容是_LVB程序设计J_,而在图片框中显示的内容是

_[VBProgramming]_。

(8)阅读下面的程序，程序运行后，单击窗体，输出结果是[9】

PrivateSubForm_Click()

DimCheckAsBoolean,CounterAsInteger

Check=Tnie

Counter=5

Do

DoWhileCounter<20

Counter=Counter+1

IfCounter=10Then

Check=False

ExitDo

EndIf

-6-

2005年4月全国计算机等级考试：级笔试试卷——VB

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

以上程序的功能是【求1~8的和】，程序运行后，单击窗体，输出结果为【36】

(10)设有如下程序：

OptionBaseI

PrivateSubCommandl_Click()

Dimarrl

DimMinAsInteger,iAsInteger

arrl=Array(12,435,76,-24,78,54,866,43)

Min=[arr(l)]

Fori=2lb8

Ifarrl(i)<MinThen【min=arr(i)】

Nexti

Print”最小值是:"；Min

EndSub

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

(11)在名称为Forml的窗体上画一个文本框，其名称为Ibxtl,在属性窗口中把文本框的MultiLine属性设置为True,然

后编写如下事件过程：

PrivateSubForm_Click()

Open"d:\test\smtextl.txt"ForInputAs#1

DoWhileNot【EOF⑴】

LineInput#1,aspects

whole$=whole$+aspects+Chr(13)+Chr(10)

Loop

Text1.Text=wholc$

Close#1

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

Print#1,【Text1.Text】

Close#1

EndSub

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

盘文件smlext2.txt.请填空。

-7-

2(X)5年4月全国计算机等级考试:级笔试参考答案

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

一、选择题

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

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

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

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

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

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

(31)C)(32)D)(33)B)(34)D)(35)A)

二、填空题

[1]19

[2]对象

【3】程序调试

[4]关系

[5]算法

[6]12345.68

[7]VB程序设计

[8]VBProgramming

[9]10

[10]求1〜8的和

[11]36

[12]arrl(l)

[13]min=arrl(i)

[14]EOF(l)

[15]Textl.Text(或whole$)

-8-

2005年9月全国计算机等级考试：级笔试试卷

2005年9月全国计算机等级考试二级笔试试卷

VisualBasic语言程序设计

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

一、选择题（每小题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）简化数据维护

A)T=ROSB)T=RUSC)T=RxSD)T=R/S

（10）数据库系统的核心是

A）数据模型B）数据库管理系统C）数据库D）数据库管理员

（11）假定一个VisualBasic应用程序由一个窗体模块和一个标准模块构成。为保存该应用程序，以下正确的操作是

A）只保存窗体模块文件BB）分别保存窗体模块、标准模块和工程文件

-9-

2005年9月全国计算机等级考试二级笔试试卷

C)只保存窗体模块和标准模块文件D)只保存工程文件

(12)为了清除窗体上的一个控件，下列正确的操作是

A)按回车键B)按Esc键

CC)选择(单击)要清除的控件，然后按Del键D)选择(单击)要清除的控件，然后按回车键

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

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

B)当程序运行时，双击一个窗体，则触发该窗体的DblClick事件

COVisualBasic应用程序只能以解释方式执行

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

(14)D设a=2,b=3,c=4.d=5,下列表达式Nota<=cOr4*c=bA2Andboa+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)在窗体上画一个命令按钮，名称为Commandl,然后编写如下事件过程：

PrivateSubCommandl_Click()

a$="softwareandhardware"

b$=Right(a$,8)

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

MsgBoxa$,,b$,c$,1

EndSub

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

BA)softwareandhardwareB)softwareC)hardwareD)I

(17)在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Tbxtl,把文本框的Text属性设置为空白,

然后编写如下事件过程：

PrivateSubCommand1_Click()

a=InputBox(HEnteraninteger")

b=InputBox("Enteraninteger")

Text1.Text=b+a

EndSub

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

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

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

PrivateSubFonn_Load()

Show

Text1.Text='"':Text2.1ext=Textl.SelFocus

EndSub

PrivateSubTextl_Change()

Text2.1ext=Mid(lextl.Text,8)

EndSub

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

A)BeijingChinaB)ChinaC)BeijingD)BeijingC

(19)在窗体上画•个列表框和,个命令按钮，其名称分别为List1和Command1,然后编写如下事件过程：

PrivateSubFonn_Load()

List1.Additem"Item1"

List1.Additem"Item2"

List1.Additem"Item3"

EndSub

PrivateSubCommandl_Click()

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

EndSub

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

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

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

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

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

-10-

2005年9月全国计算机等级考试二级笔试试卷

(20)假定有如下事件过程：

PrivateSubForm_Ciick()

DimxAsInteger,nAsInteger

x=1

n=0

DoWhilex<28

x=x*3

n=n+1

Loop

Printx,n

EndSub

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

A)814B)563C)281D)2435

(21)有如下程序：

PrivateSubForm_Click()

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-1C)10TrueD)10False

(22)有如下程序：

PrivateSubForm_Click()

DimiAsInteger,sumAsInteger

sum=0

Fori=2Tb10

IfiMod2<>0AndiMod3=0Then

sum=sum+i

EndIf

Nexti

Printsum

EndSub

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

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

(23)在窗体上画•个名称为Ibxtl的文本框和•个名称为Commandl的命令按钮，然后编写如下事件过程:

PrivateSubCommandl_Click()

Dimarray1(10,10)AsInteger

DimiAsInteger,jAsInteger

Fori=1lb3

Forj=2Tb4

arrayl(i,j)=i+j

Nextj

Nexti

Text1.Text=array1(2,3)+array1(3,4)

EndSub

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

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

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

PrivateSubCommand1_Click()

Dima1(4,4),a2(4,4)

Fori=1lb4

-11-

2005年9月全国计算机等级考试二级笔试试卷

Forj=1lb4

al(ij)=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

PrivateSubForm_Click()

Dimarr,Sum

Sum=0

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

Fori=1lb10

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=1lb5

a(i)=Chr(Asc(',A,,)+(i-I))

Nexti

ForEachbIna

Printb;

Next

EndSub

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

A)ABCDEB)12345C)abcdeD)出错信息

(27)以下关于函数过程的叙述中，正确的是

A)如果不指明函数过程参数的类型，则该参数没有数据类型

B)函数过程的返回值可以有多个

C)当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递

DD)函数过程形参的类型与函数返回值的类型没有关系

(28)函数过程F1的功能是：如果参数b为奇数，则返回值为1,否则返回值为0.以下能正确实现上述功能的代码

是：

A)FunctionFl(bAsInteger)B)FunctionFl(bAsInteger)

IfbMod2=0Then