内容发布更新时间 : 2024/5/2 4:29:37星期一 下面是文章的全部内容请认真阅读。

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

考答案

A)PrivateSubCommand1_Click()B)PrivateSubCommand1_Click()Open“out.txt”ForInpitAs#1Open“out.txt”ForOutpitAs#1Print#1,Text1.TextPrint#1,Text1.TextClose#1Close#1EndSubEndSubC)PrivateSubCommand1_Click()D)PrivateSubCommand1_Click()Open“out.txt”ForAppendAs#1Open

“out.txt”ForRandomAs#1Print#1,Text1.TextPrint#1,Text1.TextClose#1

Close#1EndSubEndSub(27)为计算1+3+5+……+99的值，某人编程如下k=1s=0Whilek<=99k=k+2:s=s+kWendPrints在调试时发现运行结果有错误，需要修改。下列错误原因和修改方案中正确的是A）While…Wend循环语句错误，应改为Fork=1To99…NextkB）循环条件错误，应改为Whliek<99C）循环前的赋值语句k=1错误，应改为k=0D）循环中两条赋值语句的顺序错误，应改为s=s+k:k=k+2(28)下面程序在调试时出现了死循环PrivateSubCommand1_Click()n=InputBox(“

请

输

入

一

个

整

数”)DoIfnMod2=0Thenn=n+1Elsen=n+2ElseIfLoopUntiln=1000EndSub下面关于死循环的叙述中正确的是A)只有输入的n是偶数时才会出现死循环，否则不会B)只有输入的n是奇数时才会出现死循环，否则不会C)只有输入的n是大于1000的整数时才会出现死循环，否则不会D)输入任何整数都会出现死循环（29）在窗体上有1个名称为CommonDialog1的通用对话框和1个名称为Command1的命令按钮，以及其他一些控件。要求在程序运行时，单击Command1按钮，则显示打开文件对话框，并在选择或输入了1个文件名后，就可以打开该文件。以下是

Command1_Click

事件过程的两种算法算法

算

法

2

1：：

PrivateSubCommand1_Click()CommonDialog1.ShowOpenOpenCommonDialog1.FileNameForInputAs#1EndSub

PrivateSubCommand1_Click()CommonDialog1.ShowOpenIfCommonDialog1.FileName<>””ThenOpenCommonDialog1.FileNameForInputAs#1EndIfEndSub下面关于这两种算法的叙述中正确的是A)显示打开文件对话框后若未选择或输入任何文件名，则算法2会出错，算法1不会B)显示打开文件对话框后若未选择或输入任何文件名，则算法1会出错，算法2不会C)两种算法的执行结果完全一样D)算法1允许输入的文件名中含有空格，而算法2不允许（30）窗体上有1个名称为List的列表框，其中已经输入了若干个项目（如图所示）：还有2个文本框，名称分别为Text1、Text2,1个名称为Command1的命令按钮，并有以下程序

PrivateSubCommand1_Click()DimstrAsString,sAsString,kAsIntegers=Text1Str=””Fork=List1.ListCount-1to0Step-1IfInStr(List.List(k),s)>0thenstr=str&List.List(k)&””EndIfNextkIfstr=””ThenText2=”没有匹配的项目”ElseText2=strEndIfEndSub程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是A)京B)北京南京C)南京D)没有匹配的项目（31）在窗体上画1一个名称为Command1的命令按钮，并编写以下程序PrivateSubCommand1_Click()Printfun(“ABCDEFG”)EndSubFunctionfun(stAsString)AsStringstlen=Len(st)temp=””Forkfun=tempEndFunction程序运行时

，

单

击

命

令

按

钮

，

则

窗

体

上

显

示

的

是

A)ABCDEFGB)AGBFCEC)GFEDCBAD)AGBFCED(32)在窗体上先后画2个图片框，名称分别为Picture1和banana,banana中添加了香蕉图片（见图1），且将banana.DragMode属性设置为1。要求程序运行时，可以用鼠标把banana拖拽到Picture1

中（见图

2）。能实现此功能的事件过程是

A)PriateSubForm_DragDrop(SourceAsControl,XAsSingle,YAsSinglebanana.MovePicture1.Left+X,Picture1.Top+Y)EndSubB)PrivateSubbanana_DragDrop(SourceAsControl,XAsSingle,YAsSingle)Source.MovePicture1.Left+X.Picture1.Top+YEndSubC)B)PrivateSubPicture1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)Source.MovePicture1.Left+X.Picture1.Top+YEndSubD)B)PrivateSubPicture1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)banana.Movebanana.Left+X,banana.Top+YEndSub(33)在窗体上画1个名称为Command1的命令按

钮

，

然

后

编

写

如

下

事

件

过

程

OptionBase1PribateSubCommand1_Click()Dima(5.5)AsIntegerFori=1To5a(I,j)*510NextjNextiS=0Fori=1To5S=s+a(i,i)NextiPrintsEndSub程序运行后，单击命令按钮，输出结果是A)15B)13C)11D)9(34)在窗体上从左到右有Text1、Text2两个文本框（见图），要求程序运行时，在Text1中输入1个分数后按回车键，则判断分数的合法性，若分数为0~100中的1个数，周围光标移到Text2中；否则光标不动，并弹出对话框显示“分数错”，下面程序中正确的是A)PrivateSubText1__KeyPress(KeyAsciiASInteger)IfKeyAscii=13Then‘回车符x(“

KeyAscii=13Then‘

回

车

的

ACSII分符

的

ACSII

码

码

是数是

13a=Val(Text1)Ifa>=0ora<=100ThenText2.SetFocusElseText1.SetFocusMsgBo错”)EndIfEndIfEndSubB)PrivateSubText1__KeyPress(KeyAsciiASInteger)If13a=Val(Text1)Ifa>=0Anda<=100ThenText1.SetFocusElseText2.SetFocusMsgB

ox(“

KeyAscii=13Then‘(“

KeyAscii=13Then‘

回

车

回

车

分符分符

的

ACSII

码

的

ACSII

码

数是数是

错”)EndIfEndIfEndSubC)PrivateSubText1__KeyPress(KeyAsciiASInteger)If13a=Val(Text1)Ifa<0Anda>100ThenText2.SetFocusElseText1.SetFocusMsgBox错”)EndIfEndIfEndSubD)PrivateSubText1__KeyPress(KeyAsciiASInteger)If13a=Val(Text1)Ifa>=0Anda<=100ThenText2.SetFocusElseText1.SetFocusMsgBox(“分数错”)EndIfEndIfEndSub(35)在窗体上画2个命令按钮，名称分别为Command1

、

command2

，

并

编

写

如

下

程

序

Constn=5,m=4Dima(m,n)PrivateSubCommand1_Click()K=1Fori=1TomForj=1Tona(i,j)=kk=k+1NextjNextiPrivateSubCommand2_Click()Summ=0Fori=1TomForj=1TonIfi=1Ori=mThenSumm=summ+a(i,j)ElseIfj=IOrj=nThenSumm=summ+a(i,j)EndIfEndIfNextjNextiPrintsummEndSub过程Command1_Click()的作用是二维数组a中存放1个m行n列的矩阵；过程Command2_Click()的作用是A)计算矩阵外围一圈元素的累加和B)计算矩阵除外一圈以外的所有元素的累加和C)计算矩阵第1列和最后一列元素的累加和D)计算矩阵第1行和最后一行元素的累加和二、填空题（每空2分，共30分）请将每一个空的正确答案写在答题纸上[1]~[15]序号的横线上，答在试卷上，答在试卷上不得分，注意：以命令关键字填空的必须写完整（1）在深度为7的满二叉树中，度为2的结点个数为__________。（2）软件测试分为白