2005年4月全国计算机等级考试二级VB笔试试卷及答案

　　EndIf

　　func=Y

　　EndFunction

　　PrivateSubCommand1_Click()

　　DimintNumAsInteger

　　intNum=InputBox("")

　　IfSWThen

　　Printfunc(intNum)

　　EndIf

　　EndSub

　　PrivateSubForm_MouseDown(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)

　　SW=False

　　EndSub

　　PrivateSubForm_MouseUp(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)

　　SW=True

　　EndSub

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

　　A)输出0

　　B)输出25

　　C)输出45

　　D)无任何输出

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

　　PublicSubfun(a()AsInteger，xAsInteger)

　　Fori=1To5

　　x=x+a(i)

　　Next

　　EndSub

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

　　PrivateSubCommand1_Click()

　　Dimarr(5)AsInteger，nAsInteger

　　Fori=1To5

　　arr(i)=i+i

　　Next

　　funarr，n

　　Text1。Text=Str(n)

　　EndSub

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

　　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】

　　PrintInt(12345。6789*100+0。5)/100

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

　　PrivateSubForm_Click()

　　Text1。Text="VB程序设计"

　　EndSub

　　PrivateSubText1_Change()

　　Picture1。Print"VBProgramming"

　　EndSub

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

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

　　(9)设有如下程序

　　PrivateSubForm_Click()

　　DimaAsInteger，sAsInteger

　　n=8

　　s=0

　　Do

　　s=s+n

　　n=n-1

　　LoopWhilen>0

　　Prints

　　EndSub

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

　　(10)设有如下程序：

　　OptionBase1

　　PrivateSubCommand1_Click()

　　Dimarr1

　　DimMinAsInteger，iAsInteger

　　arr1=Array(12，435，76，-24，78，54，866，43)

　　Min=【12】

　　Fori=2To8

　　Ifarr1(i)<MinThen【13】

　　Nexti

　　Print"最小值是："；Min

　　EndSub

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

　　(11)在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把文本框的MultiLine属性设置为True，然后编写如下事件过程：

　　PrivateSubForm_Click()

　　Open"d：\test\smtext1。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#1

　　EndSub

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