2009年3月VB笔试真题及解析.doc

2009年3月全国计算机等级考试二级笔试试卷Visual Basic 语言程序设计(考试时间90分钟，满分100分)一、选择题（1）下列叙述中正确的是 A） 栈是“先进先出”的线性表B） 队列是“先进先出”的线性表C） 循环队列是非线性结构D） 有序性表既可以采用顺序存储结构，也可以采用链式存储结构【解析】：基本数据结构考点，记忆型考点，逻辑结构和存储结构的一对多关系（2）支持子程序调用的数据结构是 A） 栈 B） 树 C） 队列 D）二叉树【解析】：程序设计与基本数据结构结合考点，子程序调用时需保留调用位置，而这里只有栈具有记忆作用。（3）某二叉树有5个度为2的结点，则该二叉树中的叶子结点数是 A）10 B）8 C）6 D）4【解析】：二叉树重点考查要点，n0=n2+1,叶子节点的度总是比度为2的节点数多1个。（4）下列排序方法中，最坏情况下比较次数最少的是 A）冒泡排序 B）简单选择排序 C）直接插入排序 D）堆排序【解析】：基本排序算法复杂度分析考点。常用的排序法中希尔排序为O(n1.5),堆排序为O(nlog2n),其他都是n(n-1)/2（5）软件按功能可以分为：应用软件、系统软件和支撑软件（或工具软件）。下面属于应用软件的是 A）编译软件 B）操作系统 C）教务管理系统 D）汇编程序【解析】：软件工程中软件分类考点（6）下面叙述中错误的是A）软件测试的目的是发现错误并改正错误B）对被调试的程序进行“错误定位”是程序调试的必要步骤C）程序调试通常也称为DebugD）软件测试应严格执行测试计划，排除测试的随意性【解析】：软件测试考点，软件测试的目的是尽可能地发现错误，软件调试是目的是诊断和改正程序中的错误 （7）耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是 A）提高耦合性降低内聚性有利于提高模块的独立性B）降低耦合性提高内聚性有利于提高模块的独立性C）耦合性是指一个模块内部各个元素间彼此结合的紧密程度D）内聚性是指模块间互相连接的紧密程度【解析】：程序设计基础中模块化的基本原则“高内聚、低耦合”，内聚指一个模块内部各个元素间彼此结合的紧密程度，耦合指模块间互相连接的紧密程度（8）数据库应用系统中的核心问题是A）数据库设计 B）数据库系统设计 C）数据库维护 D） 数据库管理员培训【解析】：数据库应用系统的核心问题是数据设计，数据库系统的核心数据库管理系统。（9）有两个关系R，S如下： 由关系R通过运算得到关系S，则所使用的运算为A） 选择 B）投影 C） 插入 D）连接【解析】：考查关系数据库中常用关系运算：投影、选择、连接，注意投影是提取列，选择是提取行。（10）将E-R图转换为关系模式时，实体和联系都可以表示为A） 属性 B）键 C） 关系 D） 域【解析】：关系数据库核心概念(11)执行语句 Dim X, Y as Integer 后，A）X 和Y 均被定义为整型变量B）X和Y被定义为变体类型变量C）X被定义为整型变量，Y被定义为变体类型变量D）X被定义为变体类型变量，Y被定义为整型变量【解析】：VB中变量的定义方式考查，很容易误认为X,Y均为整型变量。（12）以下关系表达式中，其值为True的是A）”XYZ”XYz”B）”VisualBasic”visualbasic”C）”the”=”there”D）”Integer”大写字母数字”的顺序(13)执行以下程序段：a$=”Visual Basic Programming”b$=”C+”c$=Ucase(left$(a$,7)&b$& Right$(a$,12)后，变量c$ 的值为A）Visual Basic Programming B）VISUALC+ ProgrammingC）Visual C+ Programming D）VISUAL BASIC Programming 【解析】：字符串处理函数考点，Left、Right、Mid函数的使用细节。(14)下列叙述中正确的是A）MsgBox语句的返回值是一个整数B）执行MsgBox语句并出现信息框后,不用关闭信息框即可执行其他操作C）MsgBox语句的第一个参数不能省略D）如果省加略MsgBox语句的第三个参数(Title),则信息框的标题为空 【解析】：VB输出函数MsgBox过程和MsgBox函数的使用技巧和细节。I=msgbox(提示，风格【按钮图标焦点】，标题)，函数有返回值，是整型。（15）在窗体上画一个文本框（名称为text1）和一个标签（名称为label1），程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数，以下可以实现上述操作的事件过程是A）Private Sub Text1_Change()Label1.Caption = Str(Len(Text1.Text)End SubB）Private Sub Text1_Click()Label1.Caption = Str(Len(Text1.Text)End SubC）Private Sub Text1_Change()Label1.Caption = text1.textEnd SubD）Private Sub label1_Change()Label1.Caption = Str(Len(Text1.Text)End Sub【解析】：考核文本框和标签两个基本控件的属性、事件，及len（）函数的使用。文本框有两个重要事件，change和keypress事件，注意它们的区别。（16）在窗体上画两个单选按钮（名称分别为Option1、option2,标题分别为“宋体”和“黑体”）、1个复选框（名称为check1,标题为“粗体”）和1个文本框（名称为text1,text属性为“改变文字字体”），窗体外观如图所示。程序运行后，要求“宋体”单选按钮和“粗体”复选框被选中，则以下能够实现上述操作的语句序列是A) Option1.value = FalseCheck1.value = True B) Option1.value = TrueCheck1.value = 0C) Option1.value = TrueCheck1.value = 2D) Option1.value = TrueCheck1.value = 1【解析】：考查单选按钮和复选框的重点属性Value 。单选钮选中Value为true,复选框选中value为1。（17）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()c = 1234c1 = Trim(Str(c)For i = 1 To 4 Print NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容：1121231234则在横线上应填入的内容为A）Right(c1,i) B)Left(c1,i) C)Mid(c1,I,1) D) Mid(c1,i,i)【解析】：考查字符串处理函数Left、Right、Mid(18)假定有以下程序段 For i=1 to 3 For j=5 to 1 step -1 Print i*j Next j Next i则语句 Print i*j 的执行次数是A）15 B）16 C）17 D）18【解析】：VB程序结构考查，重点For循环次数判断，这里为两层循环之积（19）在窗体上画两个文本框（名称分别为text1和text2）和一个命令按钮（名称为command1）,然后编写如下事件过程：Private Sub Command1_Click() x = 0 Do While x 50 x = (x + 2) * (x + 3) n = n + 1 Loop text1.Text = Str(n) text2.Text = Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为A）1和0 B）2和72 C)3和50 D）4和168【解析】：VB程序结构考查，Do WhileLoop循环结构的执行过程(20)阅读程序：Private Sub Command1_Click() a=0For j=1 to 15 a=a+j mod 3Next jPrint a End Sub程序运行后，单击窗体，输出结果是A）105 B)1 C)120 D)15【解析】：VB程序结构考查，For循环判断，a=a+j mod 3是累加语句，注意抓规律(21)以下说法中正确是的A)当焦点在某个控件上时，按下一个字母键，就会执行该控件的KeyPress事件过程B)因为窗体不接受焦点,所以窗体不存在自己的KeyPress事件过程C)若按下的键相同，KeyPress事件过程中的keyascii参数与keydown事件过程中的keycode参数的值也相同D）在KeyPress事件过程中，keyascii参数可以省略【解析】：键盘事件KeyPress、KeyUp、KeyDown的参数意义、触发时机。Keypress是有ascii码的键触发。如同一键的keypress和keycode是不一样的，比如，按a键,keyascii为97，而keycode为65。（22）语句 dim a(-3 to 4,3 to 6)as integer 定义的数组的元素个数是A）18 B）28 C）21 D）32【解析】：数组定义中元素个数的判断，二维数组为每维大小之积，每维的大小计算是上界下界1。（23）在窗体上画一个命令按钮，其名称为command1,然后编写如下代码：Option Base 1Private Sub Command1_Click() Dim a a = Array(1, 2, 3, 4) j = 1 For i = 4 To 1 Step -1 s = s + a(i) * j j = j * 10 Next i Print sEnd Sub程序运行后，单击命令按钮后，其输出结果是A）4321 B）1234 C）34 D）12【解析】：For循环与数组的结合应用，Array函数的使用。（24）假定通过复制，粘贴操作建立了一个命令按钮数组Command1，以下说法中错误的是A）数组中每个命令按钮的名称（name属性）均为Command1B）若未做修改，数组中每个命令按钮的大小都一样C）数组中各个按钮使用同一个click事件过程D）数组中每个命令按钮的index属性值都相同【解析】：控件数组的考查，每个控件数组中的控件通过Index属性区分，因此绝对不相同（25）在窗体上面画一个命令按钮，名称为Command1，然后编写如下代码：Option Base 0Private Sub Command1_Click() Dim A1(4) As Integer,A2(4) As Integer For k=0 To 2 A1(k+1)=InputBox(“请输入一个整数”) A2(3-k)=A1(k+1) Next k Print A2(k) End Sub程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为A）0 B）1 C）2 D）3【解析】：For循环与数组的结合应用，是数组考查的重点，同23考题（26）以下关于函数过程的叙述中，正确的是A）函数过程形参的类型与函数返回值的类型没有关系 B）在函数过程中，过程的返回值可以有多个 C）当数组作为函数过程的参数时，既能以值方式传递，也能以传址方式传递 D）如果不指明函数过程参数的类型，则该参数没有数据类型【解析】：函数定义的考查点，需要明确。函数返回值只有1个；数组作为参数，以传址方式传递；不指明函数参数类型，默认为变体型。（27）在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序： Private Sub func(L As Label) L.Caption=”1234” End sub Private Sub Form_Load() Label2.Caption=10 End sub Private Sub Command1_Click() A=Val(Label2.Caption) Call func(Label1) Label2.Caption=a End sub程序运行后，单击命令按钮，则在两个标签中显示的内容分别为A）ABCD和10 B）1234和100 C）ABCD和100 D）1234和10【解析】：考查子过程定义和调用问题，对象作为参数的情况（28）在窗体上画一个命令按钮（名称为Command1），并编写如下代码： Functin Fun1(Byval a As Integer ,b As Integer) As Integer Dim t As Integer t=a-b b=t+a Fun1=t+b End FunctionPrivate Sub Command1_Click() Dim x As Integer X=10 Print Fun1(Fun1(x,(Fun1(x,x-1),x-1)End Sub程序运行后，单击命令按钮，输出结果是A）10 B）0 C）11 D）21【解析】：函数嵌套调用，分析执行过程时一定要细心。（29）以下关于过程及过程参数的描述中，错误的是A）过程的参数可以是控件名称 B）调用过程时使用的实参的个数应与过程形参的个数相同 C）只有函数过程能够将过程中处理的信息返回到调用程序中 D）窗体可以作为过程的函数【解析】：函数及子过程调用知识点考查，子过程也可以，只要是地址传递方式（30）有如下通用过程： Public Function Fun(xStr As String) As String Dim tStr As String ,strL As Integer tStr=” strL=Len(xStr) i=strL/2 Do While i=【Line1.X1】Then Image1.Left=【Image1.Left】-100 End If End Sub【解析】：基本控件图像框Image和定时器Timer相结合的考题，还需要了解Line控件，它没有left属性，取而代之的是 x1,x2。（7）设窗体上有一个名称为Combo1的组合框，并有以下程序：Private Sub Combol_KeyPress(KeyAscii As Integer)If【KeyAscii】=13 Then 回车符的ASCII码是13For k=0 To Combol.ListCount-1If Combol.Text= Combol.List(k) ThenCombol.Text=”Exit ForEnd IfNext kIf Combol.Text “” ThenCombol.AddItem【Combo1.Text】End IfEnd IfEnd Sub程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中文本添加到列表的尾部。请填空。【解析】：键盘事件KeyPress和组合框控件的结合考题（8）在当前目录下有一个名为“myfile.txt”的文本文件，其中有若干行文本。下面程序的功能是读入此文件中的所有文本行，按行计算每行字符的ASCII码之和，并显示在窗体上。请填空。Private Sub Command1_Click()Dim ch$,ascii As IntegerOpen “myfile.txt” For【Input】 As #1While Not EOF(1)Line Input #1,chascii=toascii (【ch】)Print asciiWend Close #1End SubPrivate Function toascii(mystr$) As Integern=0For k=1 To 【Len(mystr)】n=n+Asc(Mid(mystr,k,l)Next kToascii=nEnd Function【解析】：函数调用，参数传递，文件的打开、访问、关闭等多项内容的综合考题（9）本程序实现文本加密。先给定序列：a1,a2,an,它们的取值范围是1n，且互不相同。加密算法是：把原文本中第k个字符放到加密后的文本的第ak个位置处。若原文本长度大于n，则只对前n个字符加密，后面的字符不变；若原文本长度小于n，则在后面补字符“*”使文