计算机二级历年真题

计算机二级历年真题

05年试卷

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

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

答在试卷上不得分。（1）数据的存储结构是指（）»

A.存储在外存中的数据B.数据所占的存储空间量C.数据在计算机中的顺序存储方式D.数据的

逻辑结构在计算机中的表示

（2）下列关于栈的描述中错误的是（）。

A.栈是先进后出的线性表B.栈只能顺序存储C.栈具有记忆作用D.对栈的插入与删除操作中，不需

要改变栈底指针

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

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

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

A.Iog2nB.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.以上三个都是

(II)在窗体(名称为Forml)上画--个名称为Textl的文本框和一个名称为Command)的命令按钮，

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

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

A.PrivateSubTextl_Change()

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

EndSub

B.PrivateSubCommand1_Click()

Caption="计算机等级考试”

EndSub

C.PrivateSubForm1_Click()

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

EndSub

D.PrivateSubCommand1_Click()

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

EndSub

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

3>2*bOra=cAndb<>cOrc>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

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

A.MicrosoftVisual

B.Microsoft

C.Basic

D.5

(15)^a="a",b="b",c="c",d="d",执行语句x=Hf((a

D.A“，“B”)后，x的值为()。

A."a"

B.”b"

C.”B”

D."A”

(16)为了使命令按钮(名称为Command1)右移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.123

B.456

C.479

D.123456

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

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

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

PrivateSubCommand1_Click()

Timer1.()

EndSub

PrivateSubTimerl_Timer()

Textl.Text=Time

EndSub

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

A.Enabled=True

B.Enabled=False

C.Visible=True

D.Visible=False

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

()。

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

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

C.执行语句Picture1.Picture=""

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

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

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

A.PrivateSubListl_Click()

Label1.Caption=List1.Listindex

EndSub

B.PrivateSubListl_Click()

Label1.Name=List1.Listindex

EndSub

C.PrivateSubListl_Click()

Label1.Name=Listl.Text

EndSub

D.PrivateSubListl_Click()

Label1.Caption=List1.Text

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

,然后编写如下事件过程:

PrivateSubCommand1_Click()

DimiAsInteger,xAsInteger

Fori=1To6

Ifi=1Thenx=i

Ifi<=4Then

x=x+1

Else

x=x+2

EndIf

Nexti

Printx

EndSub

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

A.9

B.6

12

D.15

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

PrivateSubCommand1_Click()

c="ABCD”

Forn=1To4

Print()

Next

EndSub

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

D

CD

BCD

ABCD

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

A.Left(c,n)

B.Right(c,n)

Mid(c,n,l)

D.Mid(c,n,n)

(23)执行以下程序段

DimiAsInteger,xAsInteger

x=0

Fori=20To1Step-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)假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是()。

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

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

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

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

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

PrivateSubForm_KeyPress(KeyAsciiAsInteger)

DimchAsString

ch=Chr(KeyAscii)

KeyAscii=Asc(UCase(ch))

PrintChr(KeyAscii+2)

EndSub

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

A.A

B.B

C.C

D.D

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

PrivateSubCommand1_Click()

a=InputBox(“请输入日期)

t=”旅游景点："_

&IIf(a>OAnda<=10/,长城“

&IIf(a>10Andav=20,“故宫"

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

Text1.Text=t

EndSub

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

A.旅游景点：长城故宫

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

C.旅游景点：颐和园

D.旅游景点：故宫

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

PrivateSubForm_Click()

Dimarr(10,10)AsInteger

D

&Page=3imiAsInteger,jAsInteger

Fori=2To4

Forj=2To4

arr(i,j)=i*j

Nextj

Nexti

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

EndSub

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

A.12

B.13

14

D.15

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

PrivateFunctionfun(ByValmAsInteger)

IfmMod2=0Then

fun=2

Else

fun=1

EndIf

EndFunction

PrivateSubCommand1_Click()

DimiAsInteger,sAsInteger

s=0

Fori=1To5

s=s+fun(i)

Next

Prints

EndSub

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

A.6

B.7

C.8

D.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.21

B.13

C.8

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

OptionBase1

PrivateSubCommand1_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.10

B.16

C.12

D.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.12

B.11

10

D.9

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

符串：MicrosoftVisu

&Page=4alBasicProgramming

然后编写如下事件过程：

PrivateSubCommand1_Click()

Open"d:\temp\outf.txt0ForOutputAs#1

Fori=1ToLen(Textl.Text)

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

Ifc>="AHAndc<="Z"Then

Print#1,LCase(

EndIf

Nexti

Close

EndSub

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

A.MVBP

B.mvbp

C.M

D.m

Vv

Bb

Pp

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

DimSWAsBoolean

Functionfunc(XAsInteger)AsInteger

IfX<20Then

Y=X

Else

Y=20+X

EndIf

func=Y

EndFunction

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

SW=False

EndSub

PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

SW=True

EndSub

PrivateSubCommand1_Click()

DimintNumAsInteger

intNum=InputBox(',H)

IfSWThen

Printfunc(intNum)

EndIf

EndSub

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

为()。

A.输出0

B.输出25

输出45

D.无任何输出

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

PublicSubFun(a()AsInteger,xAsInteger)

Fori=1To5

x=x+a(i)

Next

EndSub

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

PrivateSubCommand1_Click()

Dimarr(5)AsInteger,nAsInteger

Fori=1To5

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)在面向对象方法中，类的实例称为【2】。

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

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

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

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

PrintInt(12345.6789*100+0.5)/100

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

PrivateSubForm_

&Page=5Click()

Textl.Text=nVB程序设计”

EndSub

PrivateSubTextl_Change()

Picture!.Print"VBProgramming',

EndSub

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

(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】o

(9)设有如下程序：

PrivateSubForm_Click()

DimnAsInteger,sAsInteger

n=8

s=0

Do

s=s+n

n=n-1

LoopWhilen>0

Prints

EndSub

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

(10)设有如下程序：

OptionBase1

PrivateSubCommandl_Click()

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,在属性窗口中把该文本框的MulliLine

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

PrivateSubForm_Click()

Open"d:\test\smtextl.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#!

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(l)

[13]min=arrl(i)

[14]EOF(1)

[15]textl.text(sXwhole$)

1结束]

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

发布时间：11-04

页数：7页

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

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

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

VisualBasic语言程序设计

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

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

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

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

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

C）数据的逻辑结构与存储结构是一对应的

D）算法的时间复杂度与空间复杂度一定相关

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

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

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

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

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

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

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

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

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

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

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

A）继承性

B）多态性

C）类比性

D）封装性

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

A）队列属于非线性表

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

C）队列在队尾删除数据

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

（6）对下列二叉树（C）

A

BC

DEFX

YZ

进行前序遍历的结果为

A)DYBEAFCZX

B)YDEBFZXCA

C)ABDYECFXZ

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,sASSiring

B)Dima%,b$,cASString

C)DimaASInteger,b,cASString

D)Dimx%,yASIntegersASString

(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

C)命令按钮的Click事件过程的过程名是Commandl_Click

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

属性是(C)

A)Max

B)Min

C)SmallChange

D)LargeChang

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

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

A)Dima(-2To0,2)ASInteger

B)Dima(3,2)ASIngeger

C)Dima(4,3)ASIngeger

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

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

显示的是(A)

A)8个“$"

B)1个“$"

C)8个“*”

D)无任何内容

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

A)Combo1.RemoveitemCombo1.Text

B)Combo!.RemoveItem4

C)Combo1.RemoveitemCombo1.ListCount

D)ComboLRemoveItem5

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

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

A)PrivateSubCommandl_CIick()B)PrivateSubCommandl_Click()

Form2.ShowForm2.Visible

EndSubEndSub

C)PrivateSubCommandl_Click()D)PrivateSubCommand1_Click()

LoadForm2Form2.Load

EndSubEndSub

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

PrivateSubCommand1_Click(IndexASInteger)

EndSub

则以下叙述中正确的是

A)此事件过程与不带参数的事件过程没有区别

B)有1个名称为Command1的窗体，单击此窗体则执行此事件过程

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

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

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

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

循环体循环体

LoopWend

C)DoD)DoUntilv条件〉

循环体循环体

LoopUntil〈条件》Loop

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

语句是(A)

A)Cdl.Action=2

B)Cdl.Action=l

C)Cd1.ShowSave=Ture

D)Cd1.ShowSave=0

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

A)各级菜单中的所有菜单项的名称必须唯一

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

C)弹出式菜单也用菜单编辑器编辑

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

PrivateSubprocl(aAsInteger,bAsString,OptionalxAsBoolean)

EndSub

正确调用此过程的语句是

A)Callprocl(5)

B)Callprocl5,"abc^,False

C)procl(12,nabc,y,True)

D)procl5,"abc”

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

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

A)PrivateSubCommand1_Click()B)PrivateSubCommand1_Click()

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

EndSubEndSub

C)PrivateSubCommand1_Click()D)PrivateSubCommand1_Click()

Textl.Move.Text.Left+100Textl.Move.Text.Left

EndSubEndSub

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

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

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

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

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

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

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

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

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

A)PrivateSubCommandl_Click()B)PrivateSubCommandl_Click()

Open“out.txt"ForInpitAs#lOpen“out.txt”ForOutpitAs#l

Print#1,Textl.TextPrint#1,Textl.Text

Close#1Close#1

EndSubEndSub

C)PrivateSubCommandl_Click()D)PrivateSubCommand1_Click()

Open“out.txt”ForAppendAs#lOpen“out.txt”ForRandomAs#l

Print#1,Textl.TextPrint#1,Textl.Text

Close#IClose#1

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=lTo99Nextk

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

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

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

(29)在窗体上有1个名称为CommonDialog1的通用对话框和1个名称为Command1的命令按钮，以

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

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

算法1：

PrivateSubCommand1_Click()

CommonDialog1.ShowOpen

OpenCommonDialog1.FileNameForInputAs#l

EndSub

算法2：

PrivateSubCommand1_Click()

CommonDialog1.ShowOpen

IfCommonDialogl.FileNameo""Then

OpenCommonDialogl.FileNameForInputAs#1

EndIf

EndSub

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

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

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

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

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

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

名称分别为TextKText2,1个名称为Command1的命令按钮，并有以下程序

PrivateSubCommandl_Click()

DimstrAsString,sAsString,kAsInteger

s=Textl

Str=,M,

Fork=Listl.ListCount-1to0Step-1

IfInStr(List.List(k),s)>0then

str=str&List.List(k)&”"

EndIf

Nextk

Ifstr=,,vThen

Text2="没有匹配的项目”

Else

Text2=str

EndIf

EndSub

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

A)京

B)北京南京

C)南京

D)没有匹配的项目

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

PrivateSubCommand1_Click()

Printfun("ABCDEFG")

EndSub

Functionfun(stAsString)AsString

stlen=Len(st)

temp=

Fork

fun=temp

EndFunction

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

A)ABCDEFG

B)AGBFCE

C)GFEDCBA

D)AGBFCED

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

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

实现此功能的事件过程是(C)

A)PriateSubForm_DragDrop(SourceAsControl,XAsSingle,YAsSinglebanana.Move

Picturel.Left+X,Picture1.Top+Y)

EndSub

B)PrivateSubbanana_DragDrop(SourceAsControl,XAsSingle,YAsSingle)

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

EndSub

C)B)PrivateSubPicture1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)

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

EndSub

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

banana.Movebanana.Left+X,banana.Top+Y

EndSub

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

OptionBase1

PribateSubCommand1_Click()

Dima(5.5)AsInteger

Fori=lTo5

a(I,j)*5\10

Nextj

Nexti

S=0

Fori=lTo5

S=s+a(i,i)

Nexti

Prints

EndSub

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

A)15

B)13

C)ll

D)9

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

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

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

A)PrivateSubTextl_KeyPress(KeyAsciiASInteger)

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

a=Val(Text1)

Ifa>=0ora<=100Then

Text2.SetFocus

Else

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

EndIf

EndIf

EndSub

B)PrivateSubTextl_KeyPress(KeyAsciiASInteger)

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

a=Val(Textl)

Ifa>=0Anda<=100Then

Textl.SetFocus

Else

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

EndIf

EndIf

EndSub

C)PrivateSubTextl_KeyPress(KeyAsciiASInteger)

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

a=Val(Textl)

Ifa<0Anda>100Then

Text2.SetFocus

Else

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

EndIf

EndIf

EndSub

D)PrivateSubTextl_KeyPress(KeyAsciiASInteger)

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

a=Val(Textl)

Ifa>=0Anda<=100Then

Text2.SetFocus

Else

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

EndIf

EndIf

EndSub

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

Constn=5,m=4

Dima(m,n)

PrivateSubCommand1_Click()

K=1

Fori=lTom

Forj=lTon

a(i,j)=k

k=k+l

Nextj

Nexti

PrivateSubCommand2_Click()

Summ=0

Fori=1Tom

Forj=lTon

Ifi=lOri=mThen

Summ=summ+a(i,j)

Else

Ifj=IOrj=nThen

Summ=summ+a(i,j)

EndIf

EndIf

Nextj

Nexti

Printsumm

EndSub

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

作用是(A)

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

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

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

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

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

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

注意：以命令关键字填空的必须写完整

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

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

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

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