vb历年真题经典版

2005年4月

一、选择题（每小题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+1

（5）下列对于线性链表的描述中正确的是

A）存储空间不一定是连续，且各元素的存储顺序是任意的

B）存储空间不一定是连续，且前件元素一定存储在后件元素的前面

C）存储空间必须连续，且前件元素一定存储在后件元素的前面

D）存储空间必须连续，且各元素的存储顺序是任意的

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

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

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

C）软件测试的u的是尽可能多地发现程序中的错误

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

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

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

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

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

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

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

A）程序就是软件

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

C）软件既是逻辑实体，又是物理实体

D）软件是程序、数据与相关文档的集合

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

A）数据与程序独立存放

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

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

D）以上三种说法都不对

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

A）关系模型B）网状模型C）层次模型D）以上三个都是

(11)在窗体(名称为Forml)上画一个名称为Texil的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。

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

是

A)PrivateSubTextl_Change()

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

EndSub

B)PrivateSubCommandI_Click()

Caption="计算机等级考试”

EndSub

C)PrivateSubForml_Click()

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

EndSub

D)PrivateSubCommandl_Click()

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

EndSub

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

3>2*bOra=cAndbocOrc>d

A)1B)TrueC)FasleD)2

(13)设a="Microsof(VisualBasic\则以下变量b的值为"VisualBasic”的语句是

A)b=Left(a,10)B)b=Mid(a,10)

C)b=Right(a,IO)D)b=Mid(a,ll,10)

(14)假定有如下的窗体事件代码：

PrivateSubForm_Click()

a$="MicrosoftVisualBasic"

b$=Right(a$,5)

c$=Mid(a$,l,9)

MsgBoxa$,34,b$.c$,5

EndSub

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

A)MicrosoftVisualB)Microsoft

C)BasicD)5

(15)设a="a",b="b",c="c",d="d'\执行语句x=IIF((avB)Or(c>D),后,x的值为

A)"a"B)"b"C)"B'1D)"A"

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

A)Comandl.Move-200

B)Comand1.Move200

C)Command1.Left=Commandl.Left+200

D)Command1.Left=Command1.Left-200

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

PrivateSubForm_Click()

x=InpulBox(“请输入一个整数”)

Printx+Textl.text

EndSub

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

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

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

Enabled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述

操作的程序：

PrivateSubCommandl_Click()

Umerl.

EndSub

PrivateSubTimerl_Timer()

lextl.Text=Time

EndSub

在处应填入的内容是

A)Enabled=TrueB)Enabled=False

C)Visible=TrueD)VisibIe=False

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

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

B)执行语句Picture!.Picture=LoadPicture()

C)执行语句Pic〔urel.Pic〔ure=""

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=List1.Text

EndSub

D)PrivateSubListl_Click()

Label1.Caption=List1.Text

EndSub

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

PrivateSubCommand1_Ciick()

DimiAsInteger,xAsInteger

Fori=lTo6

Ifi=lThenx=i

Ifi<=4Then

x=x+l

Else

x=x+2

EndIf

Nexti

Printx

EndSub

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

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

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

PrivateSubCommandl_Click()

c="ABCD''

Forn=lTo4

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

DimxAsInteger.iAsInteger

x=0

Fori=20To1Step-2

x=x+i\5

Nexti

后，x的值为

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

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

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

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

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

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

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

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

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

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

PrivateSubForm_KeyPress(KeyAsciiAsInteger)

DimchAsString

Ch=Chr(KeyAscii)

KeyAscii=Asc(UCase(ch))

PrintChr(KeyAscii+2)

EndSub

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

A)AB)BC)CD)D

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

PrivateSubCommand1_Click()

a=InpulBox(“请输入日期(1-31)")

t=”旅游景点：”.

&nf(a>0Anda<=10,”长城"，

&nf(a>10Anda<=20,w故宫”,

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

Textl.Text=t

EndSub

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

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

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

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

PrivateSubForm_Click()

Dimarr(10,10)AsInteger

DimiAsIntegerjAsInteger

Fori=2To4

Forj=2To4

arr(ij)=i*j

Nextj

Nexti

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

EndSub

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

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

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

的事件过程：

PrivateFunctionfun(ByValmAsInteger)

IfmMod2=0Then

fun=2

Else

fun=l

EndIf

EndFunction

PrivateSubCommand1_Click()

DimiAsInteger.sAsInteger

s=0

Fori=lTo5

s=s+fun(i)

Next

Prints

EndSub

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

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

(30)阅读程序：

OptionBase1

Dimarr()AsInteger

PrivateSubForm_Click()

DimiAsInteger.]AsInteger

ReDimarr(3,2)

Fori=Ilb3

Forj=lTo2

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

Nextj

Nexti

ReDimPreservearr(3,4)

Forj=3lb4

arr(3j)=j+9

Nextj

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

EndSub

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

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

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

OptionBase1

PrivateSubCommandl_Ciick()

DimcAsIntegendAsInteger

d=0

c=6

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

Fori=llb6

Ifx(i)>cThen

d=d+x(i)

c=x(i)

Else

d=d-c

EndIf

Nexti

Printd

EndSub

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

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

(32)设有如下程序

PrivateSubCommandl_Click()

DimcAsIntegendAsInteger

c=4

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

DoWhiled>0

Ifd>cThen

c=c+l

EndIf

d=InputBox(“请输入一个整数”)

loop

Printc+d

EndSub

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

则输出结果是

A)12B)11C)10D)9

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

MicrosoftVisualBasicProgramming

然后编写如下事件过程：

PrivateSubCommandI_Click()

Open"d:\iemp\ouif.ForOutputAs#1

Fori=lToLen(Text1.Text)

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

Ifc>="A"Andcv="Z”Then

Print#1.LCase(C)

EndIf

Nexti

Close

EndSub

程序运行后，单击命令按钮，文件。utf.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

PrivateSubForm_MouseDown(ButtonAsInteger.ShiftAsIntegenXAsSingle.YAsSingle)

SW=False

EndSub

PrivateSubForm_MouseUp(ButtonAsInteger.ShiftAslnteger,XAsSingle.YAsSingle)

SW=True

EndSub

PrivateSubCommand1_Click()

DimintNumAsInteger

iniNum=InputBox("”)

IfSWThen

printfunc(intNum)

EndIf

EndSub

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

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

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

PrivateSubFun(a()AsInteger.xAsInteger)

Fori=lTo5

x=x+a(i)

Next

EndSub

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

PrivateSubCommand1_Click()

DimaiT(5)AsIntegennAsInteger

Fori=lTo5

arr(i)=i+i

Next

Funarr.n

Text1.Text=Str(n)

EndSub

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

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

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

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

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

(2)在面向对象方法中，类的实例称为[2]。

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

(4)在关系数据库中，把数据表示成二维表，每一个二维表称为[4]o

(5)问题处理方案的正确而完整的描述称为[5]o

(6)以下语句的输出结果是[6】。

PrintInt(12345.6789*100+0.5)/l00

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

PrivateSubForm_Ciick()

Textl.Text="VB程序设计”

EndSub

PrivateSubTextl_Change()

PictureI.Print"VBProgramming"

EndSub

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

(8)阅读下面程序：

PrivateSubForm_Click()

DimCheckAsB（x）lean,CounterAsInteger

Check=True

Counter=5

Do

DoWhileCounter<20

Counter=Counter+1

IfCounter=10Tlien

Check=False

ExitDo

EndIf

Loop

LoopUntilCheck=False

PrintCounter

EndSub

程序运行后，单击窗体，输出结果为[9]o

(9)设有如下程序：

PrivateSubForm_Click()

DimaAsInteger

n=8

s=0

Do

s=s+n

n=n-l

LoopWhilen>0

Prints

EndSub

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

(10)设有如果程序：

OptionBase1

PrivateSubCommand1_Click(0

Dimarrl

DimMinAsInteger,!AsInteger

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

Min=[12]

Fori=2lb8

Ifarrl(i)<MinThen[13]

Nexti

Print"最小值是："；Min

EndSub

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

(11)在名称为Form】的窗体上画一个文本框，其名称为Textl,在属性窗口值把该文本框的

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

PrivateSubForm_Click()

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

DoWhileNot[14]

LineInput#1,aspects

Whole$=whole$+aspect$+Chr$(13)+Chr$(l0)

Loop

Text1.Text=whole$

Close#1

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

Print#1.[15]

Close#1

EndSub

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

smiex12.【xi.请填空。

2005年9月

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

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

（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）简化数据维护

（9）设有如下关系表

则下列操作中正确的是

A）T=ROSB）T=RUSC）T=RXSD）T=R/S

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

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

C）数据库D）数据库管理员

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

A）只保存窗体模块文件

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

C）只保存窗体模块和标潴模块文件

D）只保存工程文件

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

A）按同车键

B）按Esc键

C）选择（单击）要清除的控件，然后按Del键

D）选择（单击）要清除的控件，然后按回车健

（13）以下叙述中错误的是

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

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

C）VisualBasic应用程序只能以解释方式执行

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

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

Nota<=cOr4*c=bA2Andboa+c

A）-1B）1C）TrueD）False

（15）设a=5,b=I0,则执行

c=In（（（b-A）*Rnd+A）+1

后，c值的范围为

A）5〜10B）6〜9C）6-10D）5〜9

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

PrivateSubCommand1_Click（）

aS="softwareandhardware"

bS=Right（a$,8）

c$=Mid（a$,1,8）

MsgBoxa$,,b$,c$,1

EndSub

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

A）softwareandhardwareB）software

C）hardwareD）1

（17）在窗体上画一个命令按钮和一个文本框，其名称分别为Commandl和Textl,把文本框的Text属性设置为空白，然后编

写如下事件过程：

PrivateSubCommand1_Click（）

a=InpulBoxC'Enteraninteger")

b=InputBox("Enteraninteger")

Text1.Text=b+a

EndSub

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

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

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

PrivateSubForm_Load()

Show

Text1.Text=,,H

Text2.Text=""

Textl.SetFocus

EndSub

PrivateSubTextl_Change()

Text2.Text=Mid(Textl.Text,8)

EndSub

程序运行用，如果在文本框蜃xil中输入BeijingChina,则在文本框Texl2中显示的内容是

A)BeijingChinaB)ChinaC)BeijingD)BeijingC

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

PrivateSubForm_Load()

List1.Additem"Item1"

Listl.Addkem"Item2"

List1.Additem"Item3"

EndSub

PrivateSubCommand1_Click()

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

EndSub

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

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

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

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

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

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

PrivateSubForm_Click()

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=21b10

IfiMod2o0AndiMod3=0Then

sum=sum+i

EndIf

Nexti

Printsum

EndSub

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

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

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

PrivateSubCommandl_Ciick()

Dimarray1(10,10)AsInteger

DimiAsInteger,jAsInteger

Fori=ITo3

Forj=21b4

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

Dimal(4,4),a2(4,4)

Fori=1lb4

Forj=1To4

al(i,j)=i+j

a2(i,j)=al(i,j)+i+j

Nextj

Nexti

Printa1(3,3);a2(3,3)

EndSub

程序运行后，单击命令按钮，在窗体上输出的是

A)66B)105C)721D)612

(25)有如下程序:

OptionBaseI

PrivateSubForm_Click()

Dimarr,Sum

Sum=0

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

Fori=ITb10

Ifarr(i)/3=arr(i)\3Then

Sum=Sum+arr(i)

EndIf

Nexti

PrintSum

EndSub

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

A)25B)26C)27D)28

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

PrivateSubCommandI_Click()

Dima(5)AsString

Fori=ITb5

a(i)=ChrCAscfA")+(i-1))

Nexti

ForEachbIna

Printb;

Next

EndSub

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

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

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

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

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

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

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

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

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

IfbMod2=0ThenIfbMod2=0Then

Return0Fl=0

ElseElse

Return1Fl=l

EndIfEndIf

EndFunctionEndFunction

C)FunctionFl(b?\sInteger)D)FunctionFl(bAsInteger)

IfbMod2=0ThenIfbMod2=0Tlien

Fl=lReturn0

ElseElse

Fl=0Return1

EndIfEndIf

EndFunctionEndFunction

(29)以下关于KeyPress事件过程中参数KeyAscii的叙述中正确的是

A)KeyAscii参数是所按键的ASCII

B)KeyAscii参数的数据类型为字符串

C)KeyAscii参数可以省略

D)KeyAscii参数是所按键上标注的字符

(30)设窗体上有一个名为Ibxtl的文本框，并编写如下程序：

PrivateSubForm_Load()

Show

Textl.lfext"

Text1.SetFocus

EndSub

PrivateSubForm_MouseUp(ButconAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

Print"程序设计"

EndSub

PrivateSubText1_KeyDown(KeyCcxleAsInteger,ShiftAsInteger)

Print"VisualBasic"

EndSub

程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是

A)VisualBasicB)程序设计

C)VisualBasic程序设计D)a程序设计

(31)假定有下表所列的菜单结构：

标题名称层次

显示appear1(主菜单)

大图标bigicon2(子菜单)

小图标smallicon3(子菜单)

要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前面添加一个“V”，以下正确的事件过程是

A)PrivateSubbigicon_Click()B)PrivateSubbigicon_Click()

bigicon.Checked=FlaseMe.appeiir.bigicon.Checked=Flase

EndSubEndSub

C)PrivateSubbigicon_Click()D)PrivateSubbigicon_Click()

bigicon.Checked=Trueappear.bigicon.Checked=Flase

EndSubEndSub

(32)假定通用对话框的名称为CommonDialogl,命令按钮的名称为Command】，则单击命令按钮后，能使打开的对话框的标

题为“NewTiile”的事件过程是

A)PrivateSubCommand1_Click()

CommonDialogI.Dialoglltle="NewTitle"

CommonDialogl.Showprinter

EndSub

B)PrivateSubCommandl_Click()

CommonDialogl.DialogTille="NewTitle"

CommonDialogl.ShowFont

EndSub

C)PrivateSubCommand1_Click()

CommonDialogl.DialogTille="NewTitle"

CommonDialogl.ShowOpen

EndSub

D)PrivateSubCommandl_Click()

CommonDialogl.DialogTitie="NewTide"

CommonDialogl.ShowColor

EndSub

(33)如果•个工程含有多个窗体及标准模块，则以下叙述中错误的是

A)任何时刻最多只有一个窗体是活动窗体

B)不能把标准模块设置为启动模块

C)用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体

D)如果工程中含有SubMain过程，则程序一定首先执行该过程

(34)假定在工程文件中有一个标准模块，其中定义了如下记录类型

TypeBooks

NameAsString*10

TelNumAsString*20

EndType

要求当执行事件过程CommandLClick时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是

A)PrivateSubCommandl_Click()

DimBAsBooks

OpenHc:\Pcrson.txt"ForOutputAs#1

B.Name=InputBox("输入姓名")

B.TelNum=InputBox("输入电话号码")

Write#1.B.Name.B.TelNum

Close#1

EndSub

B)PrivateSubCommandl_Click()

DimBAsBooks

Open"c:\Person.txt"ForInputAs#1

B.Name=InputBox，'输入姓名”）

B.TelNum=InpuiBox（"愉入电话号码”）

Print#1,B.Name,B.TelNum

Close#1

EndSub

C）PrivateSubCommand\_Click（）

DimBAsBooks

Open"c:\Pcrson.txt"ForOutputAs#1

Name=InputBox（"输入姓名"）

TelNum=InpuiBox（"输入电话号码"）

Write#I,B

Close#1

EndSub

D）PrivateSubCommandl_Click（）

DimBAsBooks

Open"c:\Person.txt"ForInputAs#1

B.Name=InputBox（"输入姓名"）

B.TelNum=InpuiBox1输入电话号码”）

Print#1.B.Name,B.TelNum

Close#1

EndSub

（35）目录列表框的Path属性的作用是

A）显示当前驱动器或指定驱动器上某目录下的文件名

B）显示当前驱动器或指定驱动器上的目录结构

C）显示根目录下的文件名

D）显示指定路径下的文件

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

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

（1）数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段，其中数据独立性最高的阶段是

（2）算法复杂度主要包括时间熨杂度和【2】复杂度。

（3）在进行模块测试时，要为每个被测试的模块另外设计两类模块：驱动模块和承接模块（桩模块）。其中