计算机基础模拟题及答案

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

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

答在试卷上不得分。（1）数据的存储结构是指（）oA.存储在外存中的数据B.数据所占的存储空间量C.数

据在计算机中的挨次存储方式D.数据的规律结构在计算机中的表示

（2）下列关于栈的描述中错误的是（）oA.栈是先进后出的线性表B.栈只能挨次存储C.栈具有

记忆作用D.对栈的插入与删除操作中，不需要转变栈底指针

（3）对于长度为n的线性表，在最坏状况下，下列各排序法所对应的比较次数中正确的是（A.冒

泡排序为n/2B.冒泡排序为nC.快速排序为nD.快速排序为n（n-1）/2

（4）对长度为n的线性表进行挨次查找，在最坏状况下所需要的比较次数为（）oA.Iog2nB.n/2

C.nD.n+1

（5）下列对于线性链表的描述中正确的是（）oA.存储空间不肯定是连续，且各元素的存储挨次是任

意的B.存储空间不肯定是连续，且前件元素肯定存储在后件元素的前面C.存储空间必需连续，且前件元素肯

定存储在后件元素的前面D.存储空间必需连续，且各元素的存储挨次是任意的

（6）下列对于软件测试的描述中正确的是（）0

A.软件测试的目的是证明程序是否正确

B.软件测试的目的是使程序运行结果正确

C.软件测试的目的是尽可能多地发觉程序中的错误

D.软件测试的目的是使程序符合结构化原则

（7）为了使模块尽可能独立，要求（）o

A.模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强

B.模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱

C.模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱

D.模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强

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

A.程序就是软件

B.软件开发不受计算机系统的限制

C.软件既是规律实体，又是物理实体D.软件是程序、数据与相关文档的集合

（9）数据独立性是数据库技术的重要特点之一。所谓数据独立性是指（）0

A.数据与程序独立存放

B.不同的数据被存放在不同的文件中

C.不同的数据只能被对应的应用程序所使用

D.以上三种说法都不对

（10）用树形结构表示实体之间联系的模型是（）。

A.关系模型

B.网状模型

C.层次模型

D.以上三个都是（11）在窗体（名称为Forml）上画一个名称为Textl的文本框和一个名称为Command1

的命令按钮，然后编写一个大事过程。程序运行后，假如在文本框中输入一个字符，则把命令按钮的标题设置

为“计算机等级考试”。以下能实现上述操作的大事过程是（）o

A.PrivateSubTextl_Change（）

Command1.Caption：”计算机等级考试〃

EndSub

B.PrivateSubCommand1_C1ick（）

Caption="计算机等级考试〃

EndSub

C.PrivateSubForml_Click（）

Textl.Caption/计算机等级考试〃

EndSub

D.PrivateSubCommand1_C1ick（）

Textl.Text=”计算机等级考试”

EndSub

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

3>2*bOra=cAndbOcOrc>d

A.1

B.True

C.False

D.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)设设b=〃b〃，c=〃c〃，d=〃d〃，执行语句x=Hf((a

D.，"A”JB”)后，x的值为()o

A."a"

B.“b"

C.“B"

D."A"

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

A.Command1.Move-200

B.Command1.Move200

C.Command1.Left=Commandl.Left+200

D.Command1.Left=Command1.Left-200

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

PrivateSubForm_Click（）

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

Printx+Textl.Text

EndSub

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

在窗体上显示的内容为（）。

A.123

B.456

C.479

D.123456

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

Interval属性设置为1000,Enabled属性设置为False。程序运行后，假如单击命令按钮，则每隔一秒钟在文

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

PrivateSubCommandl_Click（）

Timer1.（）

EndSub

PrivateSubTimerl_Timer（）

Textl.Text=Time

EndSub

在下划线处应填入的内容是（）o

A.Enabled=True

B.Enabled=False

C.Visible=True

D.Visible=False

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

是（）。

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

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

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

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

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

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

A.PrivateSubListl_Click()

Labell.Caption=Listl.Listindex

EndSub

B.PrivateSubListl_Click()

Labell.Name=Listl.Listindex

EndSub

C.PrivateSubListl_Click0

Labell.Name=Listl.Text

EndSub

D.PrivateSubListl_Click()

Labell.Caption=Listl.Text

EndSub(21)在窗体上画一个命令按钮，其名称为Comma

然后编写如下大事过

程：

PrivateSubCommandl_Click()

DimiAslnteger,xAslnteger

Fori=lTo6

Ifi=lThenx=i

Ifi<=4Then

x=x+l

Else

x=x+2

Endlf

Nexti

Printx

EndSub

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

A.9

B.6

12

D.15

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

PrivateSubCommandl_Click()

c二“ABCD”

Forn=lTo4

Print()

Next

EndSub

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

D

CD

BCD

ABCD

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

A.Left(c,n)

B.Right(c,n)

Mid(c,n,1)

D.Mid(c,n,n)

(23)执行以下程序段

DimiAsInteger,xAsInteger

x=0

Fori=20TolStep-2

x=x+i\5

Next

Printx

后，X的值为()o

A.16

B.17

C.18

D.19

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

A.任何窗体或标准模块

B.任何窗体或过程

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

D.SubMain过程或任何窗体

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

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

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

C.数组中全部命令按钮可以使用同一个大事过程

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

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

PrivateSubForm_KcyPress(KeyAsciiAsInteger)

DimchAsString

ch=Chr(KeyAscii)

KeyAscii=Asc(UCase(ch))

PrintChr(KeyAscii+2)

EndSub

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

A.A

B.B

C.C

D.D

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

PrivateSubCommand1Click()

a=InputBox(“请输入日期)

t二”旅游景点：”一

&Hf(a>0Anda<=10,“长城”，””)_

&IIf(a>10Anda<=20,w故宫“，””)_

&IIf(a>20Anda<=31,w颐和园“，"”)

Textl.Text=t

EndSub

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

A.旅游景点：长城故宫

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

C.旅游景点：颐和园

D.旅游景点：故宫

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

PrivateSubForm_Click()

Dimarr(10,10)AsInteger

D

Fori=2To4

Forj=2To4

arr(i,j)=i*j

Nextj

Nexti

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

EndSub

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

A.12

B.13

14

D.15

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

PrivateFunctionfun(ByValmAsInteger)

IfmMod2=0Then

fun=2

Else

fun=l

Endlf

EndFunction

PrivateSubCommand1_C1ick()

DimiAsInteger,sAsInteger

s=0

Fori=lTo5

s=s+fun(i)

Next

Prints

EndSub

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

A.6

B.7

C.8

D.9

(30)阅读程序：

OptionBasel

Dimarr()Aslnteger

PrivateSubForm_Click()

DimiAsInteger,jAsInteger

ReDimarr(3,2)

Fori=lTo3

Forj=lTo2

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

程序运行后，单击窗体，输入结果为()o

A.21

B.13

C.8

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

OptionBasel

PrivateSubCommandIClickO

DimcAsInteger,dAsInteger

d=0

c=6

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

Fori=lTo6

Ifx(i)>cThen

d=d+x(i)

c=x(i)

Else

d=d-c

Endlf

Next

Printd

EndSub

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

A.10

B.16

C.12

D.20

（32）设有如下程序：

PrivateSubCommand1_C1ick（）

DimcAsInteger,dAsInteger

c=4

d=InputBox（〃请输入一个整数〃）

DoWhiled>0

Ifd>cThen

c=c+l

Endlf

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

Loop

Printc+d

EndSub

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

结果是（）o

A.12

B.11

10

D.9

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

符串：MicrosoftVisu

然后编写如下大事过程:

PrivateSubCommand1_C1ick()

Opened:\temp\outf.txt，zForOutputAs#l

Fori=lToLen(Textl.Text)

c=Mid(Textl.Text,i,1)

Ifc>=〃A"Andc〈="Z"Then

Print#1,LCase(

Endlf

Nexti

Close

EndSub

程序运行后，单击命令按钮，文件outf.txt中的内容是()。

A.MVBP

B.mvbp

C.M

D.m

Vv

Bb

Pp

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

DimSWAsBoolean

Functionfunc(XAsInteger)Aslnteger

IfX<20Then

Y二X

Else

Y=20+X

Endlf

func=Y

EndFunction

PrivateSubFormMouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

SW二False

EndSub

PrivateSubFormMouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

SW=True

EndSub

PrivateSubCommandl_Click()

DimintNumAsInteger

intNum=InputBox(〃〃)

TfSHhen

Printfunc(intNum)

Endlf

EndSub

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

果为()o

A.输出0

B.输出25

输出45

D.无任何输出

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

PublicSubFun(a()Aslnteger,xAsInteger)

Fori=lTo5

x=x+a(i)

Next

EndSub

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

PrivateSubCommandl_Click()

Dimarr(5)Aslnteger,nAsInteger

Fori=lTo5

arr(i)=i+i

Next

Funarr,n

Textl.Text=Str(n)

EndSub

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

A.30

B.25

C.20

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

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

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

(2)在面对对象方法中，类的实例称为［2L

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

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

(5)问题处理方案的正确而完整的描述称为［5L

(6)以下语句输出结果是［61

Printlnt(12345.6789*100+0.5)/100

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

PrivateSubForm_

Textl.Text="VB程序设计”

EndSub

PrivateSubTextl_Change()

Picturel.Printz/VBProgrammingz/

EndSub

程序运行后，单击窗体，则在文本框中显示的内容是［7］,而在图片框中显示的内容是［8L

(8)阅读下面的程序：

PrivateSubForm_Click()

DimCheckAsBoo1ean,CounterAsinteger

Check=True

Counter=5

Do

DoWhileCounter<20

Counter=Counter+l

IfCounter=10Then

Check=False

ExitDo

Endlf

Loop

LoopUntilCheck=False

PrintCounter

EndSub

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

(9)设有如下程序：

PrivateSubFormClick()

DimnAsInteger,sAsInteger

n=8

s=0

Do

s=s+n

n=n-l

LoopWhilen>0

Prints

EndSub

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

(10)设有如下程序:

OptionBasel

PrivateSubCommand1Click()

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的窗体上画一个文本框，其名称为TextL在属性窗口中把该文本框的MultiLine

属性设置为True,然后编写如下的大事过程：

PrivateSubForm_Click()

Opened:\test\smtextl.txt^ForlnputAsttl

DoWhileNot[14]

Linelnputffl,aspect?

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

Loop

Textl.Text=whole$

Closeftl

Opened:\test\smtext2.txt^ForOutputAsftl

Print#l,[15]

Closeftl

EndSub

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

框中的内容存入磁盘文件smtext2.txt。请填空2005年4月全国计算机等级考试二级VB语言笔试答案

参考答案：

选择题：

1-—5DBDCA

6--10CBDDC

11—15ABBCD

16—20CDABD

21—25ABCDB

26—30CDBBA

31—35CDDDA

填空题：

[1]19

[2]对象

[3]程序调试

[4]关系

[5]算法

[6]12345.68

[7]VB程序设计

[8]VBProgramming

[9]10

[10]求1-8的和

[11]36

[12]arrl(1)

[13]min=arrl(i)

[14]EOF(l)

[15]textl.text(或whole$)

[结束]

07年4月二级VB语言笔试试题及答案

发布时间：11-04

页数：7页

上一篇：06年四月全国等级考试二级VB语言考前密卷(一)

下一篇:02年9月二级VB语言笔试试题及答案

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

VisualBasic语言程序设计

一、选择题（第小题2分，共70分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。请将正

确选项填涂在答题卡相应位置上，答在试卷上不得分。

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

A）算法的效率只与问题的规模有关，而与数据的存储结构无关

B）算法的时间简单度是指执行算法所需要的计算工作量

0数据的规律结构与存储结构是一一对应的

D）算法的时间简单度与空间简单度肯定相关

（2）在结构化程序设计中，模块划分的原则是（D）

A）各模块应包括尽量多的功能

B）各模块的规模应尽量大

C）各模块之间的联系应尽量紧密

D）模块内具有高内聚度、模块间具有低耦合度

（3）下列叙述中正确的是（A）

A）软件测试的主要目的是发觉程序中的错误

B）软件测试的主要目的是确定程序中错误的位置

C）为了提高软件测试的效率，最好由程序编制者自己来完成软件的测试工作

D）软件测试是证明软件没有错误

（4）下面选项中不属于面对对象程序设计特征的是（C）

A）继承性

B）多态性

C）类比性

D）封装性

（5）下列对队列的叙述正确的是（D）

A）队列属于非线性表

B）队列按“先进后出”原则组织数据

0队列在队尾删除数据

D)队列按“先进先出”原则组织数据

(6)对下列二叉树(C)

A

BC

DEFX

YZ

进行前序遍历的结果为

A)DYBEAFCZX

B)YDEBFZXCA

OABDYECFXZ

D)ABCDEFXYZ

(7)某二叉树中有n个度为2的结点则该二叉树中的叶子结点数为(A)

A)n+1

B)n-1

C)2n

D)n/2

(8)在下列关系运算中，不转变关系表中的属性个数但能削减元组个数的是(B)

A)并

B)交

C)投影

D)笛卡儿乘积

(9)在E—R图中，用来表示实体之间联系的图形是(C)

A)矩形

B)椭圆形

C)菱形

D)平行四边形

(10)下列叙述中错误的是(A)

A)在数据库系统中，数据的物理结构必需与规律结构全都

B)数据库技术的根本目标是解决数据共享问题

C)数据库技术是指己有数据管理系统的基础上建立数据库

D)数据库系统需要操作系统的支持

(11)下面可以正确定义2个整形变量和1个字符串变量的语句的是(D)

A)Dimn,mASInterger,sASString

B)Dima%,b$,cASString

C)DimaASInteger,b,cASString

D)Dimx%,yASInteger,zASString

(12)下列表述中不能推断x是否为偶数的是(D)

A)x/2=Int(x/2)

B)xMod2=0

C)Fix(x/2)=x/2

D)x\2=0

13)设在名称为Myform的窗体上只有1个名称为Cl的命令按钮,下面叙述中正确的是(B)

A)窗体的Click大事过程的过程名是Myform_Click

B)命令按钮的Click大事过程名是Cl_Click

0命令按钮的Click大事过程的过程名是Commandl_Click

(14)设窗体上有1个滚动条,要求单击滚动条右端的/按钮一次,滚动条移动肯定的刻度值,打算此刻

度的属性是(C)

A)Max

B)Min

C)SmallChange

D)LargeChang

(15)1个二维数组可以存放1个矩形,在程序开头有语句OptionBascO,则下面定义的数组中正好可以存

放1个4*3矩阵(即只有12个元素)的是个)

A)Dima(-2ToO,2)ASInteger

B)Dima(3,2)ASIngeger

C)Dima(4,3)ASIngeger

D)Dima(-lTo-4,-lTo-3)ASIngeger

(16)若设置了文本框的属性PasswordChar二"$”，则运行程序时向文本框中输入8个任意字符后,文本

框中显示的是(A)

A)8个“$"

B)1个"$"

C)8个“*”

D)无任何内容

(17)设在窗体上有1个名称为Combol的组合框,含有5个项目，要删除最终一项,正确的语句是(B)

B)Combo1.Removeltem4

D)Combol.Removeltem5

(18)工程中有2个窗体,名称分别为Forml.Form2,Forml为启动窗体,该窗体上有命令按钮Command1,

要求程序运行后单击该命令按钮时显示Form2,则按钮的Click大事过程应当是(A)

A)PrivateSubCommand1_Click()B)PrivateSubCommand1_C1ick()

Form2.ShowForm2.Visible

EndSubEndSub

C)PrivateSubCommand1_C1ick()D)PrivateSubCommand1_C1ick()

LoadForm2Form2.Load

EndSubEndSub

(19)若在某窗体模块中有如下大事过程(D)

PrivateSubCommandl_Click(IndexASInteger)

EndSub

则以下叙述中正确的是

A)此大事过程与不带参数的大事过程没有区分

B)有1个名称为Commandl的窗体,单击此窗体则执行此大事过程

C)有1个名称为Commandl的空件数组,数组中有多个不同类型控件

D)有1个名称为Commandl的空件数组,数组中有多个相同类型控件

(20)以下循环语句中在任何状况下都至少执行一次循环体的是(C)

A)DoWhile〈条件>B)While〈条件〉

循环休循环休

LoopWend

C)DoD)DoUntil<条件)

循环体循环体

LoopLntilX条件》Loop

(21)在窗体上有1个名为Cdl的通月对话框,为了在运行程序时打开保存文件对话框,则在程序总应使

用的语句是(A)

A)Cdl.Action=2

B)Cdl.Action=l

C)Cdl.ShowSave=Ture

D)Cdl.ShowSave=0

(22)下面关于菜单的叙述中错误的是(B)

A)各级菜单中的全部菜单项的名称必需唯一

B)同一子菜单中的菜单项名称必需唯一，但不同子菜单中的菜单项名称可以相同

0弹出式菜单也用菜单编辑器编辑

(23)已知有下面的过程(D)

PrivateSubproc1(aAsInteger,bAsString,Optiona1xAsBoo1ean)

EndSub

正确调用此过程的语句是

A)Callproc1(5)

B)Callproc15,wabcw,False

Oprocl(12,wabcw,True)

D)proc15,aabcw

(24)在窗体上有一个文件名称为Text1的文本框和1个名称为Commandl的命令按钮，要求在程序执行

时，每单击命令按钮一次，文本框向右移动肯定距离。下面能够正的确现上述功能的程序是(C)

A)PrivateSubCommand1_C1ick()B)PrivateSubCommandl_Click()

Textl.Left=100Textl.Left=Textl.Left-100

EndSubEndSub

C)PrivateSubCommandlClick()D)PrivateSubCommand1C1ick()

EndSubEndSub

(25)某人创建了1个工程，其中的窗体名称为Forml;之后又添加了1个名为Form2的窗体，并盼望程

序执行时先显示Form2窗体，那么，他需要做的工作是(A)

A)在工程属性对话框中把“启动对象”设置为Form2

B)在Forml的Load大事过程中加入语句LoadForm2

C)在Form2的Load大事过程中加入语句Form2.Show

D)在Form2的Tabindex属性设置为1,把Forml的Tabindex属性设置为2

(26)窗体上有1个名称为Textl的文本框和1个名称为Commandl的命令按钮。要求程序运行时，单击

命令按钮，就可以把文本框中的内容写到文件out.txt中，每次写入的内容附加到文件原有内容之后。下面能

够实现上述功能的程序是(C)

A)PrivateSubCommand1_Click()B)PrivateSubCommand1_C1ick()

Open“out.txt”ForlnpitAsttlOpen“out.txt"ForOutpitAsftl

Printitl,Textl.TextPrintttl,Textl.Text

ClosettlClosettl

EndSubEndSub

C)PrivateSubCommandl_Click()D)PrivateSubCommand1_C1ick()

Open“out.txt”ForAppendAsftlOpen"out.txt”ForRandomAsftl

Printftl,Textl.TextPrintftl,Textl.Text

ClosettlClose#l

EndSubEndSub

(27)为计算1+3+5+……+99的值，某人编程如下

k=l

s=0

Whilek<=99

k=k+2:s=s+k

Wend

Prints

在调试时发觉运行结果有错误，需要修改。下列错误缘由和修改方案中正确的是(D)

A)While…Wend循环语句错误，应改为Fork=1TO99…Nextk

B)循环条件错误，应改为Whliek<99

C)循环前的赋值语句k=l错误，应改为k=0

D)循环中两条赋值语句的挨次错误，应改为s=s+k:

(29)在窗体上有1个名称为Commo疝ialogl的通用对话框和1个名称为Commandl的命令按钮，以及

其他一些控件。要求在程序运行时，单击Coninandl按钮，则显示打开文件对话框，并在选择或输入了1个文件

名后，就可以打开该文件。以下是CommandLClick大事过程的两种算法

算法1：

PrivateSubCommand1_C1ick()

CommonDialogl.ShowOpen

OpenCommonDialogl.FileNameForlnputAsftl

EndSub

算法2：

PrivateSubCommandl_Click()

CommonDialogl.ShowOpen

IfCommonDialogl.FileName<>"”Then

OpenCommonDialogl.FileNameForlnputAsftl

Endlf

EndSub

下面关于这两种算法的叙述中正确的是(B)

A)显示打开文件对话框后若未选择或输入任何文件名，则算法2会出错，算法1不会

B)显示打开文件对话框后若未选择或输入任何文件名，则算法1会出错，算法2不会

0两种算法的执行结果完全一样

D)算法1允许输入的文件名中含有空格，而算法2不允许

(30)窗体上有1个名称为List的列表框，其中已经输入了若干个项目(如图所示)：还有2个文本

框，名称分别为Textl、Text2,l个名称为Commandl的命令按钮，并有以下程序

PrivateSubCommand1Click()

DimstrAsString,sAsString,kAsInteger

s=Textl

Str="”

Fork=Listl.ListCount-ltoOStep-1

IflnStr(List.List(k),s)>Othen

str=str&List.List

Endlf

Nextk

Ifstr=""Then

Text2二”没有匹配的项目”

Else

Text2=str

Endlf

EndSub

程序运行时，在Textl中输入“京”，单击命令按钮，则在Text2中显示的内容是(C)

A)京

B)北京南京

C)南京

D)没有匹配的项目

(31)在窗体上画1一个名称为Commandl的命令按钮，并编写以下程序

PrivateSubCommandl_Click()

Printfun(aABCDEFGw)

EndSub

Functionfun(stAsString)AsString

stlen=Len(st)

temp=

Fork

fun=temp

EndFunction

程序运行时，单击命令按钮，则窗体上显示的是(B)

A)ABCDEFG

B)AGBFCE

OGFEDCBA

D)AGBFCED

(32)在窗体上先后画2个图片框，名称分别为Picturel和banana,banana中添加了香蕉图片(见图1),

且将banana.DragMode属性设置为1。要求程序运行时，可以用鼠标把banana拖拽到Picturel中(见图2)。

能实现此功能的大事过程是(0

A)PriateSubForm_DragDrop(SourceAsControl,XAsSingle,YAsSinglebanana.MovePicturel.Left+X,Picturel.

Top+Y)

EndSub

B)PrivateSubbanana_DragDrop(SourceAsControl,XAsSingle,YAsSingle)

Source.MovePicturel.Left+X.Picturel.Top+Y

EndSub

C)B)PrivateSubPictureIDragDrop(SourceAsContro1,XAsSingle,YAsSingle)

Source.MovePicturel.Left+X.Picturel.Top+Y

EndSub

D)B)PrivateSubPicturel_DragDrop(SourceAsControl,XAsSingle,YAsSingle)

banana.Movebanana.Left+X,bananaTop+Y

EndSub

(33)在窗体上画1个名称为Commandl的命令按钮，然后编写如下大事过程

OptionBasel

PribatcSubCommandl_Click()

Dima(5.5)Aslnteger

Fori=lTo5

a(I,j)*5\10

Nextj

Nexti

s二o

Fori=lTo5

S=s+a(i,i)

Nexti

Prints

EndSub

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

A)15

B)13

Oil

D)9

(34)在窗体上从左到右有Textl、Text2两个文本框(见图)，要求程序运行时，在Textl中输入1个

分数后按回车键，则推断分数的合法性，若分数为0~100中的1个数，四周光标移到Text2中；否则光标不动,

并弹出对话框显示“分数错”，下面程序中正确的是(D)

A)PrivateSubTextlKeyPress(KeyAsciiASInteger)

IfKeyAscii=13Then'回车符的ACSII码是13

a=Val(Textl)

Ifa>=0ora<=1OOThen

Text2.SetFocus

Else

TextLSetFocus;MsgBox("分数错”)

Endlf

Endlf

EndSub

B)PrivateSubTextl_Keypress(KeyAsciiASInteger)

IfKeyAscii=13Then'回车符的ACSII码是13

a=Val(Textl)

Ifa>=0Anda<=lOOThen

Textl.SetFocus

Else

Text2.SetFocus;MsgBox("分数错”)

Endlf

Endlf

EndSub

C)PrivateSubTextl_KeyPress(KeyAsciiASInteger)

IfKeyAscii=13Then'回车符的ACS11码是13

a=Val(Textl)

Ifa<0Anda>lOOThen

Text2.SetFocus

Else

Textl.SetFocus;MsgBox("分数错”)

Endlf

Endlf

EndSub

D)PrivateSubTextl_KeyPress(KeyAsciiASInteger)

IfKeyAscii=13Then'回车符的ACSII码是13

a=Val(Textl)

Ifa>=0Anda<=lOOThen

Text2.SetFocus

Else

Textl.SetFocus;MsgBox(“分数错”)

Endlf

Endlf

EndSub

(35)在窗体上画2个命令按钮，名称分别为Commandscommand2,并编写如下程序

Constn=5,m=4

Dima(m,n)

PrivateSubCommand1Click()

K=1

Fori=lTom

Forj=lTon

a(i,j)=k

k=k+l

Nextj

Nexti

PrivateSubCommand2_Click()

Summ=O

Fori=lTom

Forj=lTon

Ifi=10ri=mThen

Summ=summ+a(i,j)

Else

Ifj=IOrj=nThen

Summ=summ+a(i,j)

Endlf

Endlf

Nextj

Nexti

Printsumm

EndSub

过程Command1_Click()的作用是二维数组a中存放1个m行n列的矩阵;过程Command2_Click()的作

用是(A)

A)计算矩阵外围一圈元素的累加和

B)计算矩阵除外一圈以外的全部元素的累加和

C)计算矩阵第1列和最终一列元素的累加和

D)计算矩阵第1行和最终一行元素的累加和

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

请将每一个空的正确答案写在答题纸上序号的横线上，答在试卷上，答在试卷上不得分，

留意：以命令关键字填空的必需写完整

(1)在深度为7的满二叉树中，度为2的结点个数为—63o

(2)软件测试分为白箱(盒)测试和黑箱(盒)测试，等价类划分法属于—黑箱(或黑盒)测试。

(3)在数据库系统中，实现各种数据管理功能的核心软件称为数据库管理系统(DBMS)o

(4)软件生命周期可分为多个阶段，一般分为定义阶段、开发阶段和维护阶段。编码和测试属于开发

____阶段。

(5)在结构化分析使用的数据流图(DFD)中，采用数据字典对其中的图形元素进行准确解释。

(6)1++++....n最大的n。请填空

PrivateSubCommand1―Click()

Dims,m,nASInteger

(InputBox(“请输入一个大于100的整数”))

n=0

s=0

DoWhilesN=n+1

S=s+n*n

Loop

Print”满意不等式的最大n是nT

EndSub

(7)下面程序的功能是把文件file",txt中重复字符去掉后(即若有多个字符相同，则只保留1个)

写入文件file2.txt。请填空。

PrivateSubCommand1Click()

DimincharASString,tempASString,outcharASString

0utchar=,,w

0pen="filel.txt"ForlnputASttl

Open二"file2.txt"For0utputAS#2

n=L0F(l)

inchar=Tnput$(n,1)

Fork=lTon

temp=Mid(inchar,k,1)

IfInStr(outchar,temp)=0Then

outchar=outchar&temp

Endlf

Nextk

print#2,outchar

close#2

closeftl

EndSub

(8)在窗体上先画1个名为Text1的文本框和平个名为Label1的标签,再画1个名为0P1的有4个单选

按钮数组,其Index属性按季度挨次为053(见图1)。在文件sales,txt中按月份挨次存有某企业某年12个月

的销售额。要求在程序执行时，鼠标单击1个单选按钮，则Textl中显示相应季度的销售总额，并把相应的文

字显示在标签上。图2是单击“第3季度”单选按钮产生的结果。请填空。

Dimsales(12)AsLong

PrivateSubForm_Load()

open"sales,txt"ForlnputASftl

Fork=lTol2

Inputttl,sales(k)

Nextk

Close#1

EndSub

PrivateSubOplClick(Index,ASInteger)

DimsumASLong,kASIngeger,monthASIngeger

sum=0

month=Index*3

Fork=lTo3

month=month+l

sum=sum+sales(month)

Nextk

Label1.Caption=Opl(Index).Caption&“销售总额：”

Textl=sum

EndSub

(9)某人编写如下函数来推断a是否为素数，若是，则函数返回True；否则返回False

Functionprime(aAsInteger)ASBoolean

DimkAsInterger,isprimeASBoo1ean

Ifa<2Then

isprime=False

Else

isprime=True

k=2

DoWhilekIfaModk=OThen

isprime=False

ELSE

k=k+1

EndIF

LOOP

Endlf

prime=isprime

EndFunction

在测试时发觉有1个非素数也被推断为素数，这个错判的数是4

2007年4月全国计算机等级考试二级VB语言笔试试题答案

选择题：

l-10cdacdcabaa

1l-20ddbcdabadc

21-30bbdcacddbc

31-35bcada

填空：

63黑盒测试DBMS开发阶段数据词典0N-l#210

outcharopl_click3caption4

07年9月全国计算机二级VB笔试含答案

引用地址：http:〃www.xici.net/b941278/d66726339.htm［复制|超文本复制］返回《金牌计算机二级,•》

关闭窗口

13887330dxjzsyt发表于：08-03-1009:50

123456

一个家具系无赖的自白

［东大传奇］那个女孩［紫金之巅］二食堂中锅菜［军理工FOREVER］蝴蝶［高校生社区］逝去童年，沾染尘埃［雨

中情-雨花台..・］19路公交车（版里好久没人..［南农之浦口风云］你！就要毕业了....［九中情］徐武老师是九

中的君子［江苏经贸学院论假如我们分手了，你会怎样..［倾城晓庄］今年夏天

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

VisualBasic语言程序设计

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

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

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

答在试卷上不得分。

（1）软件是指

A）程序B）程序和文档

C）算法加数据结构D）程序、数据与相关文档的完整集