2011年 3 月全国计算机等级考试二级vb笔试试卷及参考答案

2011年3月全国计算机等级考试二级vb笔试试卷及参考答案

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

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

（1）下列关于栈叙述正确的是

A）栈顶元素最先能被删除B）栈顶元素最后才能被删除

C）栈底元素永远不能被删除D）以上三种说法都不对

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

A）有一个以上根结点的数据结构不一定是非线性结构

B）只有一个根结点的数据结构不一定是线性结构

C）循环链表是非线性结构

D）双向链表是非线性结构

（3）某二叉树共有7个结点，其中叶子结点只有1个，则该二叉树的深度为（假

设根结点在第1层）

A）3B）4C）6D）7

（4）在软件开发中，需求分析阶段产生的主要文档是

A）软件集成测试计划B）软件详细设计说明书

C）用户手册D）软件需求规格说明书

（5）结构化程序所要求的基本结构不包括

A）顺序结构B）GOT。跳转

C）选择（分支）结构D）重复（循环）结构

（6）下面描述中错误的是

A）系统总体结构图支持软件系统的详细设计

B）软件设计是将软件需求转换为软件表示的过程

C）数据结构与数据库设计是软件设计的任务之一

D）PAD图是软件详细设计的表示工具

（7）负责数据库中查询操作的数据库语言是

A）数据定义语言B）数据管理语言C）数据操纵语言D）数据

控制语言

（8）一个教师可讲授多门课程，一门课程可由多个教师讲授，则实体教师和课

程间的联系是

A）1:1联系B）1：m联系C）m：1联系D）m：n联系

（9）有三个关系R、S和T如下:

RST

ABC

A12AB

B21c3

C31

则由关系R和S得到关系T的操作是

A)自然连接B)交C)除D）并

(10)定义无符号整数类为Ulnt,下面可以作为类Ulnt实例化值的是

A)-369B)369C)0.369D)整数集合{1,2,3,4,5}

(11)在VisualBasic集成环境中，可以列出工程中所有模块名称的窗口是

A)工程资源管理器窗口B)窗体设计窗口

C)属性窗口D)代码窗口

(12)假定编写了如下4个窗体事件的事件过程，则运行应用程序并显示窗体后,

已经执行的事件过程是

A)LoadB)ClickC)LostFocusD)KeyPress

(13)为了使标签具有“透明”的显示效果，需要设置的属性是

A)CaptionB)AlignmentC)BackStyleD)AutoSize

(14)下面可以产生20-30(含20和30)的随机整数的表达式是

A)Int(Rnd*10+20)B)Int(Rnd*ll+20)

C)Int(Rnd*20+30)D)Int(Rnd*30+20)

(15)设窗体上有一个名称为HS1的水平滚动条，如果执行了语句：

HSl.Value=(HSl.Max-HSl.Min)/2+HSl.Min则

A)滚动块处于最左端

B)滚动块处于最右端

C)滚动块处于中间位置

D)滚动块可能处于任何位置，具体位置取决于Max、Min属性的值

(16)窗体上有一个名称为Cbl的组合框，程序运行后，为了输出选中的列表项，

应使用的语句是

A)PrintCbl.Selected

B)PrintCbl.List(Cbl.Listindex)

C)PrintCbl.Selected.Text

D)PrintCbl.List(Listlndex)

(17)为了在窗体上建立2组单选按钮，并且当程序运行时，每组都可以有一个单

选按钮被选中，则以下做法中正确的是

A)把这2组单选按钮设置为名称不同的2个控件数组

B)使2组单选按钮的Index属性分别相同

C)使2组单选按钮的名称分别相同

D)使2组单选按钮分别画到2个不同的框架中

(18)如果一个直线控件在窗体上呈现为一条垂直线，则可以确定的是

A)它的Yl、Y2属性的值相等

B)它的XI、X2属性的值相等

C)它的XI、Y1属性的值分别与X2、Y2属性的值相等

D)它的XI、X2属性的值分别与Yl、Y2属性的值相等

(19)设a=2,b=3,c=4,d=5,则下面语句的输出是

Print3>2*bOra=cAndbocOrc>d

A)FalseB)1C)TrueD)-1

(20)窗体Forml上有一个名称为Commandl的命令按钮，以下对应窗体单击事件

的事件过程是

A)PrivateSubForml_Click()C)PrivateSubCommandl_Click()

EndSubEndSub

B)PrivateSubForm_Click()D)PrivateSubCommand_Click()

EndSubEndSub

(21)默认情况下，下面声明的数组的元素个数是

Dima(5,-2to2)

A)20B)24C)25D)30

(22)设有如下程序段

Dima(10)

ForEachxIna

Printx;

Nextx

在上面的程序段中，变量X必须是

A)整型变量B)变体型变量C)动态数组D)静态数组

(23)设有以下函数过程

PrivateFunctionFun(a()AsInteger,bAsString)AsInteger

EndFunction

若已有变量声明：

Dimx(5)AsInteger,nAslnteger,chAsString

则下面正确的过程调用语句是

A.x(O)=Fun(x；,ch")B.n=Fun(n,ch)

C.CallFunx/'ch"D.n=Fun(x(5),ch)

(24)假定用下面的语句打开文件：

Openz/FileLtxrForlnputAS#1

则不能正确读文件的语句是

A)Input#1,ch$B)LineInput#1,ch$

C)ch$=lnput$(5,#l)D)Read#1,ch$

(25)下面程序执行结果是

PrivateSubCommandl_Click()

a=10

Fork=lTo5Step-1

a=a-k

Nextk

Printa;k

EndSub

A)-56B)-5-5C)100D)101

(26)设窗体上有一个名为Textl的文体框和一个名为Commandl的命令按钮,

并有以下事件过程：

PrivateSubCommandl_Click()

X!=Val(Textl.Text)

SelectCasex

CaseIs<-10,ls>=20

Print“输入错误”

Casels<0

Print20-x

CaseIs<10

Print20

Casels<=20

Printx+10

EndSelect

EndSub

程序运行时，如果在文本框中输入-5,则单击命令按钮后的输出结果是

A)5B)20C)25D)输入错误

(27)设有如下程序

PrivateSubCommandl_Click()

X=10:y=0

Fori=lTo5

Do

x=x-2

y=y+2

LoopUntily>5Orx<-l

Next

EndSub

运行程序，其中Do循环执行的次数是

A)15B)10C)7D)3

(28)阅读程序

PrivateSubCommand1_Click

Dimarr

DimiAsInteger

Arr=Array(0,1,2,3,4,5,6,7,8,9,10)

Fori=0To2

Printarr(7-i);

Next

EndSub

程序运行后，窗体上显示的是：

A)876B)765

C)654D)543

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

PrivateSubCommandl_Click()

Dima(10)AsInteger

Fork=10TO1Step-1

a(k)=20-2*k

Nextk

K=k+7

Printa(k-a(k))

EndSub

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

A)18B)12C)8D)6

(30)窗体上有一个名为Command1的命令按钮，并有如下程序：

PrivateSubCommandl_Click()

Dima(10),x%

Fork=lTo10

a(k)=lnt(Rnd*90+10)

x=x+a(k)Mod2

Nextk

Printx

EndSub

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

A)10个数中奇数的个数B)10个数中偶数的个数

C)10个数中奇数的累加和D)10个数中偶数的累加和

(31)窗体上有一个名为Command1的命令按钮和一个名为Timer1的计时器,

并有下面的事件过程：

PrivateSubCommandl__Click()

Timerl.Enabled=True

EndSub

PrivateSubForm__Load()

Timerl.lnterval=10

Timerl.Enabled=False

EndSub

PrivateSubTimerl_Timer()

Commandl.Left=Commandl.Left+10

EndSub

程序运行时，单击命令按钮，则产生的结果是

A)命令按钮每10秒向左移动一次

B)命令按钮每10秒向右移动一次

C)命令按钮每10毫秒向左移动一次

D)命令按钮每10毫秒向右移动一次

(32)设窗体上有一个名为Listl的列表框，并编写下面的事件过程：

PrivateSubListl_Click()

DimchASString

ch=Listl.List(Listl.Listindex)

List1.RemoveitemListl.Listindex

Listl.Addltemch

EndSub

程序运行时，单击一个列表项，则产生的结果是

A)该列表项被移到列表的最前面B)该列表项被删除

C)该列表项被移到列表的最后面D)该列表项被删除后又在原位置插入

(33)窗体上有一个名为Commandl的命令按钮，并有如下程序：

PrivateSubCommandl_Click()

DimaAsInteger,bAsInteger

a=8

b=12

PrintFun(a,b);a;b

EndSub

PrivateFunctionFun(ByValaAsInteger;bAsInteger)AsInteger

a=aMod5

b=b\5

Fun=a

EndFunction

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

A)332C)8812

B)382D)3812

（34）为了从当前文件夹中读入文件Filel.txt,某人编写了下面的程序:

PrivateSubCommandl_Click（）

Open"Filel.txt"ForOutputAs#20

DoWhileNotEOF（20）

LineInput#20,ch$

Printch

Loop

EndSub

程序调试时，发现有错误，下面的修改方案中正确的是

A）在。pen语句中的文件名前添加路径

B）把程序中各处的“20”改为“1”

C）把Printch语句改为Print#20,ch

D）把Open语句中的Output改为Input

(35)以下程序运行后的窗体如图所示，其中组合框的名称是Combol,已有列

表项如图所示；命令按钮的名称是Commandlo

PrivateSubCommandl__Click()

IfNotcheck(Combol.Text)Then

MsgBox("输入错误”)

ExitSub

EndIf

Fork=0ToCombol.ListCount-1

IfCombol.Text=Combol.List(k)Then

MsgBox("添加项目失败")

ExitSub

EndIf

Nextk

Combol.AdditemCombol.Text

MsgBox("添加项目成功")

EndSub

PrivateFunctionCheck(chAsString)AsBoolean

n=Len(ch)

Fork=1Ton

c$=UCase(Mid(ch,k,1))

Ifc<"A"Oro"Z"Then

Check=False

ExitFunction

EndIf

Nextk

Check=True

EndFunction

程序运行时，如果在组合框的编辑区中输入“Java”，则单击命令按钮后产生的结

果是

A)显示“输入错误”B)显示“添加项目失败”

O显示“添加项目成功”D)没有任何显示

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

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

(1)有序线性表能进行二分查找的前提是该线性表必须是⑴顺序存储的。

解析:二分查找只适用于顺序存储的有序线性表。

(2)--棵二叉树的中序遍历结果为DBEAFC,前序遍历结果为ABDECF,则后序

遍历结果为⑵DEBFCA。

(3)对软件设计的最小单位(模块或程序单元)进行的测试通常称为⑶单元

解析:单元测试是对软件设计的最小单位——模块(程序单元)进行正确性检验

的测试。单元测试的目的是发现各模块内部可能存在的各种错误。

(4)实体完整性约束要求关系数据库中元组的⑷主键属性值不能为空。

解析:实体完整性约束要求关系的主键中属性值不能为空值，因为主键是惟一决

定元组的，如为空值则其惟一性就成为不可能的了。

(5)在关系A(S,SN,D)和关系B(D,CN,NM)中，A的主关键字是S,B的

主关键字是D,则称⑸D是关系A的外码。

解析:如果表A中的某属性集是某表B的键，则称该属性集为A的外键或外码。

(6)在窗体上有1个名称为Commandl的命令按钮，并有如下事件过程和函数

过程：

PrivateSubCommandl__Click()

DimpAsInteger

p=m(l)+m(2)+m(3)

Printp

EndSub

PrivateFunctionm(nAsInteger)AsInteger

StaticsAsInteger

Fork=1Ton

s=s+1

Next

m=s

EndFunction

运行程序，单击命令按钮Commandl后的输出结果为⑹10

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

PrivateSubCommandl_Click()

DimmAsInteger,xAsInteger

DimflagAsBoolean

flag=False

n二Val(lntputbox("请输入任意1个正整数”))

DoWhileNotflag

a=2

flag=[7]True

DoWhileflagAnda<=lnt(Sqr(n))

lfn/a=n\aThen

flag=False

Else

[8]a=a+l

EndIf

Loop

IfNotflagThenn=n+1

Loop

Print[9]n

EndSub

上述程序的功能是，当在键盘输入任意的1个正整数时，将输出不小于该整数的

最小素数。请填空完善程序。

(8)以下程序的功能是，先将随机产生的10个不同的整数放入数组a中，再将

这10个数按升序方式输出。请填空。

PrivateSubForm_Click()

Dima(10)AsInteger,iAsInteger

Randomize

i=0

Do

num=lnt(Rnd*90)+10

Forj=lTol?检查新产生的随机数是否与以前的相同，相同的无效

Ifnum=a(j)Then

ExitFor

EndIf

Nextj

Ifj>iThen

i=i+l

a(i)=[10]num

EndIf

LoopWhilei<10

Fori=1To9

Forj=[ll]i+lTo10

ifa(i)>a(j)thentemp=a(i),a(i)=a(j);[12]a(j)=temp

Nextj

Nexti

Fori=1To10

Printa⑴

Nexti

EndSub

(9)窗体上已有名称分别为Drivel、Dirl.Filel的驱动器列表框、目录列表框

和文件列表框，且有1个名称为Textl的文本框。以下程序的功能是：将指定位

置中扩展名为“.txt”的文件显示在Filel中，如果双击Filel中某个文件，则在

Textl中显示该文件的内容。请填空。

PrivateSubForm_Load()

Filel.Pattern=[13]*.txt

EndSub

PrivateSubDrivel_Change()

Dirl.Path=Drivel.Drive

EndSub

PrivateSubDirl_Change()

Filel.Path=Dirl.Path

EndSub

PrivateSubFilel__DblClick()

DimsAsString*1

IfRight(Filel.Pathz1)="VThen

f_name=Filel.Path+Filel.FileName

日se

f_name=Filel.Path++Filel.FileName

EndIf

Openf_name[14]ForInputAs#1

Textl.Text=""

DoWhile[15]NOTEOF⑴

s=lnput(l,#1)

Textl.Text=Textl.Text+s

Loop

Close#1

EndSub

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

选择题:

1-5AADDB6-10BCDCB

11-15AACBC16-20BDBAB

21-25DBACD26-30CCBAA

31-35DCBDB

填空题

1、顺序2、DEBFCA3、单元4、主键5、D

6、107、Ture8、a=a+19、n10num

11、i12、a(j)=temp13、**.txt|*.txtn

14、forinput15>noteof(l)

详细解析：

1.答案：A

解析：栈的特点是''先进后出，后进先出”的线性结构，进栈又称为入栈最先

进入栈的数据元素会被压入栈底，最后进入栈的元素所在位置称为栈顶，出栈又

称为退栈即将元素从栈中删除，将元素退栈是先将栈顶的元素退栈，对于栈的运

行原理可参考快动网公共基础知识视频教程。所以上边选项正确的是Ao

2.答案：B

解析：A错误，符合线性结构的特点是：(1)有且只有一个根结点(2)每…

个结点最多只有一个前件，也最多只有一个后件，根据题意不一定是非线性结构

即指的是线性结构，那么根据线性结构的特点只有一个根结点，所以选项A叙述

错误。

B正确，比如二叉树是一个非线性结构，二叉树就是一个根结点，所以该选数正

确。

C和D叙述错误，循环链表和双向链表都是线性结构。

3.答案：D

解析：根据二叉树的性质，叶子结点即度为0的结点个数总比度为2的结点个

数多1，根据题目内容可知度为2的结点个数为0,因为叶子结点只有1个，由

于二叉树的结点类型有三种：度为0,度为1,度为2,根据题目内容可知二叉

树共有7个结点所以度为1的结点个数是6,度为1表示结点只有一个分支，这

个分支可以是左子树或右子树：

4.答案：D

解析:在软件开发过程中，需求分析阶段产生的主要文档是软件需求规格说明

书。

A错误，集成测试计划是在概要设计阶段编写的文档。

B错误，详细设计阶段产生的文档是软件详细设计说明书。

C错误，用户手册是在软件实现阶段要完成文档。

D正确。需求规格说明书是后续工作如设计、编码等需要的重要参考文档。

5.答案：B

解析:结构化程序的基本结构有：顺序结构、选择结构和循环结构，没有GOTO

跳转结构。

以上选项B所说的GOTO结构是错误的，goto只是一种编程指令不是一种程序结

构。

6.答案：A

解析:系统总体结构图描述了软件系统的结构这是概要设计阶段的任务，详细设

计阶段正是在概要设计阶段之后要进行工作。

软件设计是将软件需求转换为软件表示的过程；数据结构与数据库设计是软件设

计的任务之一；PAD图，即问题分析图，是一种主要用于描述软件详细设计的图

形工具。

C正确，数据结构和数据库设计是概要设计阶段的任务。

D正确，详细设计的表示具包括：程序流程图，N-S,PAD,HIP。等。

7.答案：C

解析:用户通过数据定义语言可以方便地对数据库中的相关内容进行定义。例如,

对数据库、表、索引进行定义。用户通过数据操纵语言可以实现对数据库的基本

操作。例如，对表中数据的查询、插入、删除和修改。数据控制语言负责数据完

整性、安全性的定义与检查以及并发控制、故障恢复等功能。

所以该题目选择C。

8.答案：D

解析:一个教师可讲授多门课程，一门课程可由多个教师讲授，则实体教师和课

程的联系是多对多的联系。

9.答案：C

解析：

A错误，自然连接是关系的横向运算。连接运算将两个关系横向地拼接成•个更

宽的关系所以T关系不是R和S的自然连接后的结果。

B错误，关系R与关系S经交运算后所得到的关系是既在R中又在S中的元组组

成，题目中的T关系的元组在S中不存在。

C正确。

D错误。并是两个关系的和集，从上图可以看出T不是R和S的和

10.答案：B

解析:Ulnt表示的是无符号整数类，所以它的每个实例都是一个无符号整数，所

以排除选项A）和选项C）,选项D）是整数集合，所以也排除。

11.答案：A

12.答案:A

解析：Load事件用来在启动程序时对属性和变量进行初始化，在装入窗体后，

如果运行程序，将自动触发该事件。

13.答案:C

解析：Caption属性用来在标签中显示文本；Alignment属性用来确定标签中标签

的放置方式

;AutoSize属性设置标签是否根据标题的长度自动调整大小；BackStyle属性可以

取两个值，当值为1时，标签将覆盖背景，当值为0时，则标签具有“透明”的

显示效果。

14.答案：B

解析：Rnd函数用来生成范围在［0,1）之间的随机数。

15.答案：C

解析：本题中语句的设置效果是将滚动条的Value值设为当前滚动条刻度个数的

1/2再加上Min值，此值正好为滚动条的中间位置，而Value值用来设置滚动块的

位置，故答案为C。

16.答案：B

17.答案：D

解析：当窗体上有多个单选按钮时，如果选择其中的一个，其他单选按钮将自动

关闭。当需要在同一个窗体上建立几组相互独立的单选按钮时，则必须通过框架

为单选按钮分组，使得在一个框架内的单选按钮为一组，每个框架内的单选按钮

操作不影响其他组的按钮。

18.答案:B

解析：平行线的Yl、Y2属性的值相等；垂直线的XI、X2属性的值相等。

19.答案：A

解析：分别计算表达式3>2*b；a=cAndb<>c;0d的值，其值均为False,则输出为

False。

20.答案：B

21.答案:D

解析：VB中数组下标默认从0开始，数组定义的值为数组可取的最大值，因此

第一维可取值为6个，第二维可取值为：-2,-1,0,1,2,为5个，故数组元

素个数为5*6=30个。

22.答案：B

解析：在ForEach…Next语句中，x为--个变体变量，它是为循环提供的，并在

ForEach…Next结构中重复使用，它实际上代表的是数组中的每个元素。

23.答案：A

24.答案：D

解析：本题打开的是顺序文件，读取方式有：Input#语句，LineInput#语句，Input

函数，故答案选D。

25.解析：本题For循环的步长为-1,但题中给出的初始值比终止值小，因此循环

未执行，故a值未变，仍为10。k值需被赋值为1后与5作比较才知道大小，故

k值为lo

26.答案：C

解析：本题考查的知识点是SelectCase语句，其功能是根据“测试表达式”的值

(本题中测试表达式为X),从多个语句块中选择符合条件的一个语句块执行。

27.答案：C

解析:本题需要注意区分DoUntil-Loop语句和Do—LoopUntil语句。后者为后

判断条件的循环语句，无论初始条件是否满足都至少执行一次循环，当条件满足

时跳出循环。

28.答案：B

解析：本题中，arr被Array函数定义为数组并被赋初值；For循环中i的值为0

到2,那么，7-i的值为7,6,5;Printarr(7-i)也就是输出arr⑺,arr⑹,arr⑸的值，

即输出7,6,5o

29.答案:A

30.答案：A

解析：Mod函数为求余函数，与2取余，值为0表示为偶数，值为1表示为奇

数。因加上0对x的值并无影响，加上1表示有一个奇数，因此答案为A。

31.答案:D

解析：Interval属性的单位为毫秒。

32.答案：C

解析：Removeitem方法作用是删除项；Additem方法作用是添加项，若省略Index

值，则默认为插入到列表的最后面。

33.答案:B

34.答案：D

解析：本题要求从当前文件夹中读入文件，因此在Open语句中应使用输入(Input)

打开文件。

35.答案:B

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

VisualBasic语言程序设计

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

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

下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。请将正确选

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

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

A）算法就是程序B）设计算法时只需要考虑数据结构的设计

C）设计算法时只需要考虑结果的可靠性D）以上三种说法都不对

（2）下列关于线性链表的叙述中，正确的是

A）各数据结点的存储空间可以不连续，但它们的存储顺序与逻辑顺序必须一致

B）各数据结点的存储顺序与逻辑顺序可以不一致，但它们的存储空间必须连续

C）进行插入与删除时，不需要移动表中的元素

D）以上三种说法都不对

（3）下列关于二叉树的叙述中，正确的是

A）叶子结点总是比度为2的结点少一个B）叶子结点总是比度为2的结点多一个

C）叶子结点数是度为2的结点数的两倍D）度为2的结点数是度为1的结点数的

两倍

（4）软件按功能可以分为应用软件、系统软件和支撑软件（或工具软件）。下面属于应用软

件的是

A）学生成绩管理系统B）C语言编译程序

C）UNIX操作系统D）数据库管理系统

（5）某系统总体结构图如下图所示:

该系统总体结构图的深度是

A)7B)6C)3D)2

（6）程序调试的任务是

A）设计测试用例B)验证程序的正确性

C）发现程序中的错误D)诊断和改正程序中的错误

（7）下列关于数据库设计的叙述中，正确的是

A）在需求分析阶段建立数据字典B）在概念设计阶段建立数据字典

C）在逻辑设计阶段建立数据字典D）在物理设计阶段建立数据字典

（8）数据库系统的三级模式不包括

A）概念模式B）内模式C）外模式D）数据模式

（9）有三个关系R、S和T如下:

则由关系R和S得

A）自然连接D）并

（10）下列选项中属于面向对象设计方法主要特征的是

A）继承B）自顶向下C）模块化D）逐步求精

（11）以下描述中错误的是

A）窗体的标题通过其Caption属性设置

B）窗体的名称（Name属性）可以在运行期间修改

C）窗体的背景图形通过其Picture属性设置

D）窗体最小化时的图标通过其Icon属性设置

（12）在设计阶段，当按Ctrl+R键时，所打开的窗口是

A）代码窗口B）工具箱窗口

C）工程资源管理器窗口D）属性窗口

（13）设有如下变量声明语句：

Dima,bAsBoolean

则下面叙述中正确的是

A）a和b都是布尔型变量B）a是变体型变量，b是布尔型变量

C）a是整型变量，b是布尔型变量D）a和b都是变体型变量

（14）下列可以作为VisualBasic变量名的是

A）A#AB）4ABCC)?xyD)Print_Text

（15）假定一个滚动条的LargeChange属性值为100,则100表示

A）单击滚动条箭头和滚动框之间某位置时滚动框位置的变化量

B）滚动框位置的最大值

C）拖动滚动框时滚动框位置的变化量

D）单击滚动条箭头时滚动框位置的变化量

（16）在窗体上画个命令按钮，然后编写如下事件过程:

PrivateSubCommandl_Click()

MsgBoxStr(123+321)

EndSub

程序运行后，单击命令按钮，则在信息框中显示的提示信息为

A)字符串“123+321”B)字符串“444"C)数值“444"D)空白

(17)假定有以下程序：

PrivateSubForm_Click()

a=1:b=a

DoUntila>=5

x=a*b

Printb;x

a=a+b

b=b+a

Loop

EndSub

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

A)11B)11OliD)11

23243836

(18)在窗体上画一个名称为Listl的列表框，列表框中显示若干城市的名称。当单击列表

框中的某个城市名时，该城市名消失。下列在List_Click事件过程中能正确实现上述功能的

语句是

A)Listl.RemoveitemListl.TextB)Listl.RemoveitemListl.Clear

C)Listl.RemoveitemListl.ListCountD)Listl.RemoveitemListl.Listindex

(19)列表框中的项目保存在一个数组中，这个数组的名字是

A)ColumnB)StyleC)ListD)MultiSelect

(20)有人编写了如下的程序：

PrivateSubForm_Click()

DimsAsInteger;xAsInteger

s=0

x=0

DoWhiles=10000

x=x+1

s=s+xA2

Loop

Prints

EndSub

上述程序的功能是：计算s=l+22+32+...直到s>10000为止。程序运行后，发现得

不到正确的结果，必须进行修改。下列修改中正确的是

A)把x=0改为x=1

B)把DoWhiles=10000改为DoWhiles<=10000

C)把DoWhiles=10000改为DoWhiles>10000

D)交换)("+1和5=5+乂八2的位置

(21)设有如下程序：

PrivateSubForm_Click()

DimsAsLong,fAsLong

DimnAsInteger;iAsInteger

f=l

n=4

Fori=1Ton

f=f*i

s=s+f

Nexti

Prints

EndSub

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

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

(22)阅读下面的程序段：

a=0

Fori=1To3

Forj=1Toi

Fork=jTo3

a=a+1

Nextk

Nextj

Nexti

执行上面的程序段后，a的值为

A)3B)9C)14D)21

(23)设有如下程序：

PrivateSubForm__Click()

Cis

a$="123456"

Fori=1To6

PrintTab(12-i);

Nexti

EndSub

程序运行后，单击窗体，要求结果如图所示，则在_______处应填入的内容为

A)Left(a$,i)B)Mid(a$,8-i,i)C)Right(a$,i)D)Mid(a$,7,i)

(24)设有如下程序：

PrivateSubForm_Click()

DimiAsInteger,xAsString,yAsString

x="ABCDEFG"

Fori=4To1Step-1

y=Mid(x,i,i)+y

Nexti

Printy

EndSub

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

A)ABCCDEDEFGB)AABBCDEFG

C)ABCDEFGD)AABBCCDDEEFFGG

(25)设有如下程序：

PrivateSubForm_Click()

Dimary(lTo5)AsInteger

DimiAsInteger

DimsumAsInteger

Fori=1To5

ary(i)=i+1

sum=sum+ary(i)

Nexti

Printsum

EndSub

程序运行后，单击窗体，则在窗体上显示的是

A)15B)16C)20D)25

(26)有一个数列，它的前3个数为0,1,1,此后的每个数都是其前面3个数之和，即0,

1,1,1,2,4,7,13,24,……

要求编写程序输出该数列中所有不超过1000的数。

某人编写程序如下：

PrivateSubForm_Click()

DimiAsInteger,aAsInteger,bAsInteger

DimcAsInteger,dAsInteger

a=0:b=l:c=l

d=a+b+c

i=5

Whiled<=1000

Printd;

a=b:b=c:c=d

d=a+b+c

i=i+l

Wend

EndSub

运行上面的程序，发现输出的数列不完整，应进行修改。以下正确的修改是

A)把Whiled<=1000改为Whiled>1000

B)把i=5改为i=4

C)把i=i+1移到Whiled<=1000的下面

D)在i=5的上面增加一个语句:Printa;b;c;

(27)下面的语句用Array函数为数组变量a的各元素赋整数值：

a=Array(lz2,3,4,5,6,7,8,9)

针对a的声明语句应该是

A)DimaB)DimaAsInteger

C)Dima(9)AsIntegerD)Dima()AsInteger

(28)下列描述中正确的是

A)VisualBasic只能通过过程调用执行通用过程

B)可以在Sub过程的代码中包含另一个Sub过程的代码

C)可以像通用过程一样指定事件过程的名字

D)Sub过程和Function过程都有返回值

(29)阅读程序：

Functionfac(ByValnAsInteger)AsInteger

DimtempAsInteger

temp=1

Fori%=1Ton

temp=temp*i%

Nexti%

fac=temp

EndFunction

PrivateSubForm_Click()

DimnsumAsInteger

nsum=1

Fori%=2To4

nsum=nsum+fac(i%)

Nexti%

Printnsum

EndSub

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

A)35B)31C)33D)37

(30)在窗体匕画一个命令按钮和■•个标签，其名称分别为Commandl和Labell,然后编

写如下代码：

SubS(xAsInteger,yAsInteger)

StaticzAsInteger

y=x*x+z

z=Y

EndSub

PrivateSubCommandl_Click()

DimiAsInteger;zAsInteger

m=0

z=0

Fori=1To3

Si,z

m=m+z

Nexti

Labell.Caption=Str(m)

EndSub

程序运行后，单击命令按钮，在标签中显示的内容是

A)50B)20C)14D)7

(31)以下说法中正确的是

A)MouseUp事件是鼠标向上移动时触发的事件

B)MouseUp事件过程中的x,y参数用于修改鼠标位置

C)在MouseUp事件过程中可以判断用户是否使用了组合键

D)在MouseUp事件过程中不能判断鼠标的位置

(32)假定已经在菜单编辑器中建立了窗体的弹出式菜单，其顶级菜单项的名称为al,其

“可见”属性为False。程序运行后，单击鼠标左键或右键都能弹出菜单的事件过程是

A)PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

IfButton=1AndButton=2Then

PopupMenual

EndIf

EndSub

B)PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

PopupMenual

EndSub

C)PrivateSubForm_MouseDown(ButtonAsInteger;ShiftAsInteger,XAsSingle,YAsSingle)

IfButton=1Then

PopupMenual

EndIf

EndSub

D)PrivateSubForm_MouseDown(ButtonAsInteger;ShiftAsInteger,XAsSingle,YAsSingle)

IfButton=2Then

PopupMenual

EndIf

EndSub

(33)在窗体上画一个名称为CD1的通用对话框，并有如下程序：

PrivateSubForm_Load()

CDl.DefaultExt="docH

CDl.FileName="c:\filel.txt"

CDl.Filter="应用程序(*.exe)|*.exe"

EndSub

程序运行时，如果显示了“打开”对话框，在“文件类型”下拉列表框中的默认文件类

型是

A）应用程序（*£乂6）B）*.docC）*.txtD）不确定

（34）以下描述中错误的是

A）在多窗体应用程序中，可以有多个当前窗体

B）多窗体应用程序的启动窗体可以在设计时设定

C）多窗体应用程序中每个窗体作为•个磁盘文件保存

D）多窗体应用程序可以编译生成-•个EXE文件

（35）以下关于顺序文件的叙述中，正确的是

A）可以用不同的文件号以不同的读写方式同时打开同一个文件

B）文件中各记录的写入顺序与读出顺序是一致的

C）可以用Input#或LineInput#语句向文件写记录

D）如果用Append方式打开文件，则既可以在文件末尾添加记录，也可以读取原有记

录

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

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

（1）数据结构分为线性结构与非线性结构，带链的栈属于【1】。

（2）在长度为n的顺序存储的线性表中插入一个元素，最坏情况下需要移动表中【2】

个元素。

（3）常见的软件开发方法有结构化方法和面向对象方法。对某应用系统经过需求分析建立

数据流图（DFD）,则应采用【3】方法。

（4）数据库系统的核心是【4】。

（5）在进行关系数据库的逻辑设计时，E-R图中的属性常被转换为关系中的属性，联系通

常被转换为【5】。

（6）为了使标签能自动调整大小以显示标题（Caption属性）的全部文本内容，应把该标签

的

【6】I性设置为True。

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

PrivateSubCommandl_Click（）

x=1

Result=1

Whilex<=10

Result=【7】

x=x+1

Wend

PrintResult

EndSub

上述事件过程用来计算10的阶乘，请填空。

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

PrivateSubCommandl_Click()

t=0:m=1:Sum=0

Do

t=t+【8】

Sum=Sum+【9】

m=m+2

LoopWhile【10】

PrintSum

EndSub

该程序的功能是，单击命令按钮，则计算并输出以下表达式的值：

1+(1+3)+(1+3+5)+...+(1+3+5+...+39)请填空。

(9)在窗体上画一个命令按钮(其Name属性为Command。，然后编写如下代码:

PrivateSubCommandl_Click()

DimM(10)AsInteger

Fork=1To10

M(k)=12-k

Nextk

x=6

PrintM(2+M(x))

EndSub

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

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

PrivateSubCommandl_Click()

DimnAsInteger

n=Val(lnputBox(“请输入一个整数："))

IfnMod3=0AndnMod2=0AndnMod5=0Then

Printn+10

EndIf

EndSub

程序运行后，单击命令按钮，在输入对话框中输入60,则输出结果是【12】

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

PrivateSubCommandl_Click()

DimctAsString

DimntAsInteger

Open"e:\stud.txt"【13】

DoWhileTrue

ct=lnputBox("请输入姓名：”)

Ifct=【14】ThenExitDo

nt=Val(lnputBox("请输入总分：“))

WriteUI,【15】

Loop

Close#1

EndSub

以上程序的功能是，程序运行后，单击命令按钮，则向e盘根目录下的文件stud.txt中

添加记录（保留已有记录），添加的记录由键盘输入；如果输入“end”，则结束输入。

每条记录包含姓名（字符串型）和总分（整型）两个数据。请填空。

参考答案

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

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

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

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

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

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

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

(31)C(32)B