2007年4月全国计算机等级考试二级——VB笔试真题
Dim a(m,n） For j=1 To n Private Sub Command1_Click(） If i=1 Or i=m Then K=1 Summ=summ+a(i,j） For i=1 To m Else For j=1 To n If j=1 Or j=n Then a(i,j）=k Summ=summ+a(i,j） k=k+1 End If Next j End If Next i Next j End Sub Next i Private Sub Command2_Click(） Print summ Summ=0 End Sub For i=1 To m
过程Command1_Click(）的作用是二维数组a 中存放1个 m行n列的矩阵；过程Command2_Click(）的作用是(A） A） 计算矩阵外围一圈元素的累加和 C） 计算矩阵第1列和最后一列元素的累加和 B） 计算矩阵除外一圈以外的所有元素的累加和 D） 计算矩阵第1行和最后一行元素的累加和 二、填空题（每空2分，共30分）
请将每一个空的正确答案写在答题纸上[1]~[15]序号的横线上，答在试卷上，答在试卷上不得分， 注意：以命令关键字填空的必须写完整
（1）在深度为7的满二叉树中，度为2的结点个数为________。
（2）软件测试分为白箱（盒）测试和黑箱（盒）测试，等价类划分法属于 测试。 （3）在数据库系统中，实现各种数据管理功能的核心软件称为 。
（4）软件生命周期可分为多个阶段，一般分为定义阶段、开发阶段和维护阶段。编码和测试属于 阶段。 （5）在结构化分析使用的数据流图（DFD）中，利用 对其中的图形元素进行确切解释。
2222
（6）下面程序的功能是从键盘上请输入一个大于100的整数m，计算并输出满足不等式1+2 +3 + 4+??.n 的最大的n。请填空 Private Sub Command1__Click(） Dim s ,m,n AS Integer m=Val(InputBox(“请输入一个大于100的整数”）） n= s=0 Do While s Loop Print “满足不等式的最大n是:” End Sub (7）下面程序的功能是把文件file1.txt中重复字符去掉后（即若有多个字符相同，则只保留1个）写入文件file2.txt。请填空。 Private Sub Command1__Click(） Dim inchar AS String,temp AS String,outchar AS String Outchar=” ” Open ”file1.txt” For Input AS #1 Open ”file2.txt” For Output AS n=LOF( ） inchar=Input$(n,1） For k=1 To n temp=Mid(inchar,k,1） If InStr(outchar,temp）= Then outchar=outchar & temp End If Next k print #2, close #2 close #1 End Sub (8）在窗体上先画1个名为Text1的文本框和1个名为Label1的标签,再画1个名为OP1的有4个单选按钮数组,其Index属性按季度顺序为0~3(见图1）。在文件sales.txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时，鼠标单击1个单选按钮，则Text1中显示相应季度的销售总额，并把相应的文字显示在标签上。图2是单击“第3季度”单选按钮产生的结果。请填空。 Dim sales(12） As Long Private Sub Form__Load(） open “sales.txt” For Input AS #1 For k=1 To 12 Input #1,sales(k） Next k Close #1 End Sub Private Sub (Index, AS Integer） Dim sum AS Long ,k AS Ingeter,month AS Ingeter sum=0 month=Index For k=1 To 3 month=month+1 sum=sum+sales(month） Next k Label1.Caption=Opl(Index）. & “销售总额：” 2007年4月全国计算机等级考试二级——VB笔试真题 Text1=sum End Sub (9）某人编写如下函数来判断a是否为素数，若是，则函数返回True；否则返回False Function Prime(a As Integer）AS Boolean Dim k As Interger,isprime AS Boolean If a<2 Then isprime=False Else isprime=True k=2 Do While k prime=isprime End Function 在测试时发现有1个非素数也被判断为素数，这个错判的数是 2007年9月全国计算机等级考试二级——VB笔试真题 2007年9月全国计算机等级考试二级VB笔试试卷 Visual Basic语言程序设计 （考试时间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）/2 B）nlog2 n C）n(n－1）/2 D）ｎ/2 （8）一棵二叉树中共有70个叶子结点与80个度为1的结点，则该二叉树中的总结点数为 A）219 B）221 C）229 D）231 （9）下列叙述中正确的是 A）数据库系统是一个独立的系统，不需要操作系统的支持 B）数据库技术的根本目标是要解决数据的共享问题 C）数据库管理系统就是数据库系统 D）以上三种说法都不对 （10）下列叙述中正确的是 A）为了建立一个关系，首先要构造数据的逻辑关系 B）表示关系的二维表中各元组的每一个分量还可以分成若干数据项 C）一个关系的属性名表称为关系模式 D）一个关系可以包括多个二维表 （11）要使一个文本框可以显示多行文本，应设置为True的属性是 A）Enabled B）MultiLine C）MasLenfth D）Width （12）在窗体上有一个名为Text1的文本框。当光标在文本框中时，如果按下字母键“A”，则被调用的事件过程是 A）Form_KeyPress(） B）Text1_LostFocus(） C）Text1_Click(） D）Test1_Change(） （13）设在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。要求单击Command1按钮时可把光标移到文本框中。下面正确的事件过程是 A）Private Sub Command1_Click(） B）Private Sub Text1.GotFocus Command1.GotFocus End Sub EndSub C）Private Sub Command1_Click(） D）Private Sub Text1.SetFocus Command1.SetFocus End Sub End Sub （14）执行以下程序后输出的是 Private Sub Command1_Click(） Ch$=”AABCDEFGH” Print Mid(Righ(ch$,6）,Len(left(ch$,4））,2） End Sub A）CDEFGH B）ABCD C）FG D）AB （15）设在窗体Form1上有一个列表框List1，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程是 A）Prvate Sub List1_Click(） B）Private Sub Form1_Click(） Print List1.Text Print List1.Text End Sub End Sub C）Private Sub List1_Click(） D）Private Sub Form1_Click(） Print Form1.Text List1.Print List1.Text End Sub End Sub （16）若窗体上的图片框中有一个命令按钮，则此按钮的Left属性是指 A）按钮左端到窗体左端的距离 B）按钮左端到图片框左端的距离 2007年9月全国计算机等级考试二级——VB笔试真题 C）按钮中心点到窗体左端的距离 D）按钮中心点到图片框左端的距离 （17）为使程序运行时通用对话框CD1上显示的标题为“对话框窗口”，若通过程序设置该标题，则应使用的语句是 A）CD1.DialogTitle=“对话框窗口” B）CD1.Action=“对话框窗口” C）CD1.FileName=“对话框窗口” D）CD1.Filter=“对话框窗口” （18）在窗体上有如右图所示的控件，各控件的名称 与其标题相同，并有如下程序： Private Sub Form_Load(） Command2.Enabled=False Check1.Value=1 End Sub 刚运行程序时，看到的窗体外观是： （19）设在窗体中有一个名称为List1的列表框，其中有若干个项目（如图）。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是 A）Private Sub Command1_Click(） List1.Clear End Sub B） Private Sub Command1_Click(） List1.Clear List1.ListIndex End Sub C） Private Sub Command1_Click(） List1.Removeltem List1.ListIndex End Sub D） Private Sub Command1_Click(） List1.Removeltem End Sub （20）某人设计了如下程序用来计算并输出7!（7的阶乘） Private Sub Command1_Click(） t=0 For k=7 To 2 Step -1 t=t*k Next Print t End Sub 执行程序时，发现结果是错误的，下面的修改方案中能够得到正确结构的是 2007年9月全国计算机等级考试二级——VB笔试真题 A）把t=0改为t=1 B）把For k = 7 To 2 Step -1改为For k =7 To 1 Step -1 C）把For k = 7 To 2 Stip-1改为Fork=1 To 7 D）把Next改为Nexi k （21）若窗体中已经有若干个不同的单选按钮，要把它们改为一个单选按钮数组，在属性窗口中需要且只需要进行的操作是 A）把所有单选按钮的Index属性改为相同值 B）把所有单选按钮的Index 属性改为连续的不同值 C）把所有单选按钮的Caption属性值改为相同 D）把所有单选按钮的名称改为相同，且把它们的Index属性改为连续的不同值。 （22）窗体上有文本框Text1和一个菜单，菜单标题、名称如表，结构见图。要求程序执行时单击“保存”菜单项，则把其标题显示在Text1文本框中。下面可实现此功能的事件过程是： 标题 名称 文件 file 新建 new 保存 save A）Private Sub save_Click(） B）Private Sub save_Click(） Text1.Text=file.save.Caption Text1.Text=save.Caption End Sub End Sub C）Private Sub file_Click(） D）Private Sub file_Click(） Text1.Text=file.save.Caption Text1.Text=save.Caption End Sub End Sub （23）某人在窗体上画了一个名称为Timer1的计时器和一个名称为Lab 的属性设置为Enabled=True, Interval=0,并编程如下。希望在每2秒在标签上显示一次系统当前时间。 Private Sub Timer1_Timer(） Label1.Caption=Time$ End Sub 在程序执行时发现未能实现上述目的，那么，他应做的修改是 A）通过属性窗口把计时器的Interval属性设置为2000 B）通过属性窗口把计时器的Enabled属生设置为False C）把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Tims$ D）把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time （24）形状控件的Shape属性有6种取值，分别代表6种几何图形。下列不属于这6种几何图形的是 （25）下面关于文件的叙述中错误的是 A）随机文件中各条记录的长度是相同的] B）打开随机文件时采用的文件存取方式应该是Random C）向随机文件中写数据应使用语句Print#文件号 D）打开随机文件与打开顺序文件一样，都使用Open语句 （26）设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下的图形文件File1.jpg，能实现此功能的语句是 A）Picture1.Picture=”Flie1.jpg B）Picture1.Picture=LoadPicture(“File1.jpg”） C） LoadPicture(“File1.jpg”） D）Call LoadPicture(“File1.jpg”） （27）下面程序执行时，在窗体上显示的是 Private Sub Command1_Click(） Dim a(10） For k = 1 To 10 a(k） = 11 – k Next k Print a(a(3）\\a(7） Mod a(5）） End Sub A）3 B）5 C）7 D) 9 （28）为达到把a、b中的值交换后输出的目的，某人编程如下： Private Sub Command1_Click(） a% = 10:b% = 20 Call swap(a,b） Print a,b End Sub Private Sub swap(ByVal a As Integer,ByVal b As Integer） c= a:a=b:b=c End Sub 在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是 A）调用swap过程的语句错误，应改为Call swap a,b B）输出语句错误，应改为：Print ”a”,”b” C）过程的形式参数有错，应改为：swap(ByRef a As Integer,ByRef b As Integer） D）swap中3条赋值语句的顺序是错误的，应改为a=b:b=c:c=a