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

2007年9月全国计算机等级考试二级笔试试卷VisualBasic语言程序设计（考试时间90分钟，满分100分）一、选择题（每小题2分，共70分）下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。（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）数据的逻辑结构与存储结构必定是一一对应的B）由于计算机存储空间是向量式的存储结构，因此，数据的存储结构一定是线性结构C）程序设计语言中的数组一般是顺序存储结构，因此，利用数组只能处理线性结构D）以上三种说法都不对（7）冒泡排序在最坏情况下的比较次数是A）ｎ(n＋1)/2B）nlog2nC）n(n－1)/2D）ｎ/2（8）一棵二叉树中共有70个叶子结点与80个度为1的结点，则该二叉树中的总结点数为A）219B）221C）229D）231（9）下列叙述中正确的是A）数据库系统是一个独立的系统，不需要操作系统的支持B）数据库技术的根本目标是要解决数据的共享问题C）数据库管理系统就是数据库系统D）以上三种说法都不对（10）下列叙述中正确的是A）为了建立一个关系，首先要构造数据的逻辑关系B）表示关系的二维表中各元组的每一个分量还可以分成若干数据项C）一个关系的属性名表称为关系模式D）一个关系可以包括多个二维表（11）要使一个文本框可以显示多行文本，应设置为True的属性是（）A.EnabledB.MultiLineC.MaxLengthD.Width（12）在窗体上有一个名为Text1的文本框。当光标在文本框中时，如果按下字母键“A”，则被调用的事件过程是（）A.Form_KeyPress()B.Text1_LostFocus()C.Text1_ClickD.Text1_Change()（13）设在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。要求单击Command1按钮时可把光标移到文本框中。下面正确的事件过程是（）A.PrivateSubCommand1_Click()Text1.GotFocusEndSubB.PrivateSubCommand1_Click()Command1.GotFocusEndSubC.PrivateSubCommand1_Click()Text1.SetFocusEndSubD.PrivateSubCommand1_Click()Command1.SetFocusEndSub（14）执行以下程序后输出的是PrivateSubCommand1_Click()CH$=ABCDEFGHPrintMid(Right(CH$,6),Len(Left(CH$,4)),2)EndSubA.CDEFGHB.ABCDC.FGD.AB（15）设在窗体Form1上有一个列表框List1，其中有若干个项目。要求单击列表框中某一项时，把该项目显示在窗体上，正确的事件过程是A.PrivateSubList1_Click()PrintList1.TextEndSubB.PrivateSubForm_Click()PrintList1.TextEndSubC.PrivateSubList1_Click()PrintForm1.TextEndSubD.PrivateSubForm_Click()List1.PrintList1.TextEndSub（16）若窗体上的图片框中有一个命令按钮，则此按钮的Left属性是指A.按钮左端到窗体左端的距离B.按钮左端到图片框左端的距离C.按钮中心点到窗体左端的距离D.按钮中心点到图片框左端的距离（17）为使程序运行时通用对话框CD1上显示的标题为“对话框窗口”，若通过程序设置该标题，则应使用的语句是A.CD1.DialogTitle=对话框窗口B.CD1.Action=对话框窗口C.CD1.FileName=对话框窗口D.CD1.Filter=对话框窗口（18）在窗口上有图所示的控件，各控件的名称与其标题相同，并有如下程序：PrivateSubForm_Load()Command2.Enabled=FalseCheck1.Value=1EndSub刚运行程序时，看到的窗体外观是A.B.C.D.（19）设在窗体中有一个名称为List1的列表框，其中有若干个项目（如图）。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是A.PrivateSubCommand1_Click()List1.ClearEndSubB.PrivateSubCommand1_Click()List1.ClearList1.ListIndexEndSubC.PrivateSubCommand1_Click()List1.RemoveItemList1.ListIndexEndSubD.PrivateSubCommand1_Click()List1.RemoveItemEndSub（20）某人设计了如下程序用于计算并输出7！（7的阶乘）PrivateSubCommand1_Click()t=0Fork=7To2Step–1t=t*kNextPrinttEndSub执行程序时，发现结果是错误的。下面的修改方案中能够得到正确结果的是A.把t=0改为t=1B.把Fork=7To2Step–1改为Fork=7To1Step–1C.把Fork=7To2Step–1改为Fork=1To7D.把Next改为Nextk（21）若窗体中已经有若干个不同的单选按钮，要把它们改为一个单选按钮数组，在属性窗口中需要且只需要进行的操作是A.把所有单选按钮的Index属性改为相同值B.把所有单选按钮的Index属性改为连续的不同值C.把所有单选按钮的Caption属性值改为相同D.把所有单选按钮的名称改为相同，且把它们的值Index属性改为连续的不同值（22）窗体上有文本框Text1和一个菜单，菜单标题、名称如表，结构见图。要求程序执行时单击“保存”菜单项，则把其标题显示在Text1文本框中。下面可实现此功能的事件过程是A.PrivateSubsave_Click()Text1.Text=file.save.CaptionEndSubB.PrivateSubsave_Click()Text1.Text=save.CaptionEndSubC.PrivateSubfile_Click()Text1.Text=file.save.CaptionEndSubD.PrivateSubfile_Click()Text1.Text=save.CaptionEndSub（23）某人在窗体上画了一个名称为Timer1的计时器和一个名称为Label1的标签，计时器的属性设置为Enabled=True，Interval=0，并编程如下。希望在程序运行时，可以每2秒在标签上显示一次系统当前时间。PrivateSubTimer1_Timer()Label1.Caption=Time$EndSub在程序执行时发现未能实现上述目的，那么，他应做的修改是A.通过属性窗口把计时器的Interval属性设置为2000B.通过属性窗口把计时器的Enabled属性设置为FalseC.把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Time$D.把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time（24）形状控件的Shape属性有6种取值，分别代表6种几何图形。下列不属于这6种几何图形的是A.B.C.D.（25）下面关于文件的叙述中错误的是A.随机文件中各条记录的长度是相同的B.打开随机文件时采用的文件存取方式应该是RandomC.向随机文件中写数据应使用语句Print#文件号D.打开随机文件与打开顺序文件一样，都使用Open语句（26）设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下的图形文件File1.jpg，能实现此功能的语句是A.Picture1.Picture=File1.jpgB.Picture1.Picture=LoadPicture(File1.jpg)C.LoadPicture(File1.jpg)D.CallLoadPicture(File1.jpg)（27）下面程序执行时，在窗体上显示的是PrivateSubCommand1_Click()Dima(10)Fork=1To10a(k)=11–kNextkPrinta(a(3)\a(7)Moda(5))EndSubA.3B.5C.7D.9（28）为达到把a、b中的值交换后输出的目的，某人编程如下：PrivateSubCommand1_Click()a%=10:b%=20Callswap(a,b)Printa,bEndSubPrivateSubswap(ByValaAsInteger,ByValbAsInteger)c=a:a=b:b=cEndSub在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是A.调用swap过程的语句错误，应改为：Callswapa，bB.输出语句错误，应改为：Printa,bC.过程的形式参数有错，应改为：swap(ByRefaAsInteger,ByRefbAsInteger)D.swap中3条赋值语句的顺序是错误的，应改为：a=b:b=c:c=a（29）有如下函数：Functionfun(aAsInteger,nAsInteger)AsIntegerDimmAsIntegerWhilea=na=a-nm=m+1Wendfun=mEndFunction该函数的返回值是A.a乘以n的乘积B.a加n的和C.a减n的差D.a除以n的商（不含小数部分）（30）下面程序的输出结果是PrivateSubCommand1_Click()ch$=ABCDEFprocchPrintchEndSubPrivateSubproc(chAsString)s=Fork=Len(ch)To1Step-1s=s&Mid(ch,k,1)Nextkch=sEndSubA.ABCDEFB.FEDCBAC.AD.F（31）某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码如下：FunctionMaxValue(a()AsInteger)AsIntegerDimmax%max=1Fork=2To10Ifa(k)a(max)Thenmax=kEndIfNextkMaxValue=maxEndFunction程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是A.语句max=1应改为max=a(1)B.语句Fork=2To10应改为Fork=1To10C.If语句中的条件a(k)a(max)应改为a(k)maxD.语句MaxValue=max应改为应改为MaxValue=a(max)（32）在窗体上画一个名称为Command1的命令按钮，并编写以下程序：PrivateSubCommand1_Click()Dimn%,b,tt=1:b=1:n=2Dob=b*nt=t+bn=n+1LoopUntiln9PrinttEndSub此程序计算并输出一个表达式的值，该表达式是A.9！B.10！C.1！+2！+…+9！D.1！+2！+…+1