2005年9月第22次全国计算机等级考试二级VB考试真题

　　A）PrivateSubCommand1_Click()

　　DimBAsBooks

　　Open"c：\Person。txt"ForOutputAs#1

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

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

　　Write#1，B。Name，B。TelNum

　　Close#1

　　EndSub

　　B）PrivateSubCommand1_Click()

　　DimBAsBooks

　　Open"c：\Person。txt"ForInputAs#1

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

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

　　Print#1，B。Name，B。TelNum

　　Close#1

　　EndSub

　　C）PrivateSubCommand1_Click()

　　DimBAsBooks

　　Open"c：\Person。txt"ForOutputAs#1

　　Name=InputBox("输入姓名")

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

　　Write#1，B

　　Close#1

　　EndSub

　　D）PrivateSubCommand1_Click()

　　DimBAsBook

　　Open"c：\Person。txt"ForInputAs#1

　　Name=InputBox("输入姓名")

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

　　Print#1，B。Name，B。TelNum

　　Close#1

　　EndSub

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

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

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

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

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

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

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

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

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

　　（3）在进行模块测试时，要为每个被测试的模块另外设计两类模块：驱动模块和承接模块（桩模块）。其中【3】的作用是将测试数据传送给被测试的模块，并显示被测试模块所产生的结果。

　　（4）一棵二叉树第六层（根结点为第一层）的结点数最多为【4】个。

　　（5）数据结构分为逻辑结构和存储结构，循环队列属于【5】结构。

　　（6）设有以下函数过程：

　　Functionfun(mAsInteger)AsInteger

　　DimkAsInteger，sumAsInteger

　　sum=0

　　Fork=mTo1Step-2

　　sum=sum+k

　　Nextk

　　fun=sum

　　EndFunction

　　若在程序中用语句s=fun(10)调用此函数，则s的值为【6】。

　　（7）在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。

　　PrivateSubCommand1_Click()

　　DimstrAsString，sAsString，cAsString

　　str=UCase(Text1)

　　s=""

　　c="Z"

　　Whilec>="A"

　　IfInStr(str，c)=0Then

　　s=【7】

　　EndIf

　　c=Chr$(Asc(c)【8】)

　　Wend

　　Ifs<>""Then

　　Text1=s

　　EndIf

　　EndSub

　　（8）在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式计算。下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中(见下图)。请填空。

　　PrivateSubCommand1_Click()

　　DimrAsInteger，nAsInteger

　　n=Text1

　　r=Text2

　　Text3=fun(n)/fun(【9】)/fun(r)

　　EndSub

　　Functionfun(nAsInteger)aslong

　　DimtAsLong

　　【10】

　　Fork=1Ton

　　t=t*k

　　Next

　　fun=t

　　EndFunction

　　（9）以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），如图所示。请填空。

　　PrivateSubCommand1_Click()

　　DimkAsInteger

　　DimsumAsSingle，maxAsSingle，minAsSingle

　　sum=Text1(0)

　　max=Text1(0)