《2009年3月~2012年9月计算机二级历年VB考试真题及答案.docx》由会员分享，可在线阅读，更多相关《2009年3月~2012年9月计算机二级历年VB考试真题及答案.docx（177页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、2009年3月全国计算机等级考试二级笔试试卷Visual Basic语言程序设计（考试时间90分钟,满分100分）一、选择题（1）下列叙述中正确的是 BA）栈是“先进先出”的线性表B）队列是“先进先出”的线性表循环队列是非线性结构D）有序性表既可以采用顺序存储结构,也可以采用链式存储结构（2）支持子程序调用的数据结构是AA）栈 B）树 C）队列 D）叉树（3）某叉树有5个度为2的结点,则该叉树中的叶子结点数是AA） 10 B） 8 C） 6 D） 4（4）下列排序方法中,最坏情况下比较次数最少的是CA）冒泡排序B）简单选择排序 直接插入排序D）堆排序（5）软件按功能可以分为:应用软件、系统软件
2、和支撑软件（或具软件）。下面属于应用软件的是CA）编译软件B）操作系统教务管理系统D）汇编程序（6）下面叙述中错误的是CA）软件测试的目的是发现错误并改正错误B）对被调试的程序进行“错误定位”是程序调试的必要步骤程序调试通常也称为DebugD）软件测试应严格执行测试计划,排除测试的随意性（7）耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中 正确的是BA）提高耦合性降低内聚性有利于提高模块的独立性B）降低耦合性提高内聚性有利于提高模块的独立性O耦合性是指个模块内部各个元素间彼此结合的紧密程度D）内聚性是指模块间互相连接的紧密程度（8）数据库应用系统中的核心问题是CA）数据库设计 B）数据
3、库系统设计数据库维护D）数据库管理员培训（9）有两个关系R, S如下:RABCa32b01c21ABa3b0c2由关系R通过运算得到关系S,则所使用的运算为 AA)选择 B)投影 C)插入D)连接(10)将E-R图转换为关系模式时,实体和联系都可以表示为 DA)属性B)键 C)关系 D)域(11)执行语句 Dim X, Y as Integer 后,DA) X和Y均被定义为整型变量B) X和Y被定义为变体类型变量C) X被定义为整型变量,Y被定义为变体类型变量D) X被定义为变体类型变量,Y被定义为整型变量(12)以下关系表达式中,其值为True的是 BA) “XYZ”“XYz”B) “Vis
4、ualBasicvisualbasic”C) the=thereD) IntegerInt(13)执行以下程序段a$=Visual Basic Programmingb$=C+c$=Ucase(left$(a$,7)&b$&Right$(a$,12)后,变量 c$ 的值为 BA) Visual Basic ProgrammingB) VISUALC+ ProgrammingC) Visual C+ ProgrammingD) VISUAL BASIC Programming(14)下列叙述中正确的是CA) MsgBox语句的返回值是个整数B)执行Msgbox语句并出现信息框后,不用关闭信息框即
5、可执行其他操作 MsgBox语句的第一个参数不能省略D)如果省加略MsgBox语句的第三个参数(Title),则信息框的标题为空(15)在窗体上画一个文本框(名称为textl)和一个标签(名称为labell),程 序运行后,在文本框中每输入个字符,都会立即在标签中显示文本框中字符 的个数,以下可以实现实现上述操作的事件过程是CA) Private Sub Text 1 _Change()Label 1 .Caption = Str(Len(Text 1 .Text)End SubB) Private Sub Textl_Click()Label 1 .Caption = Str(Len(Tex
6、tl .Text)End SubC) Private SubTextl_Change()Label 1 .Caption = text 1 .textEnd SubD) Private Sub labell_Change()Label 1 .Caption = Str(Len(Textl .Text)End Sub(16)在窗体上画两个单选按钮(名称分别为Options option2,标题分别为“宋 体”和“黑体”)、1个复选框(名称为checkl,标题为“粗体”)和!个文本框(名称 为textl,text属性为“改变文字字体”),窗体外观如图所示。程序运行后,要求“宋体”单选按钮和“粗体”
7、复选框被选中,则以下能够实现上述操作的语句序列是DA) Option Lvalue = FalseCheck Lvalue = TrueB) Option 1 .value = TrueCheck Lvalue = 0C) Option 1 .value = TrueCheck Lvalue = 2D) Option 1 .value = TrueCheck Lvalue(17)在窗体上画一个名称为Commandl的命令按钮,然后编写如下事件过程:Private Sub Command 1 _Click()c= 1234cl = Trim(Str(c)For i = 1 To 4PrintNe
8、xtEnd Sub程序运行后,单击命令按钮,要求在窗体上显示如下内容:112 1231234则在横线上应填入的内容为AARight(cl,i) B)Left(cl,i)C)Mid(c 1,1,1) D)Mid(cl,i,i)(18)假定有以下程序段For i=l to 3For j=5 to 1 step -1Print i*jNext jNext i则语句Print i*j的执行次数是AA) 15 B) 16 C) 17 D) 18(19)在窗体上画两个文本框(名称分别为textl和text2)和一个命令按钮(名称为commandl),然后编写如下事件过程:Private Sub Comma
9、nd l_Click()x = 0Do While x 50x = (x + 2) * (x + 3)n = n + 1Looptext 1 .Text = Str(n)text2.Text = Str(x)End Sub程序运行后,单击命令按钮,在两个文本框中显示的值分别为BA) 1 和 B) 2 和 2C)3 和 50 D) 4 和 168(20)阅读程序:Private Sub Command 1 _Click()A=0For j=l to 15a=a+j mod 3Next jPrint aEnd Sub程序运行后,单击窗体,输出结果是BA) 105 B)1 C)120 D)15(21
10、)以下说法中正确是的DA)当焦点在某个控件上时,按下个字母键,就会执行该控件的keypress事件过 程B)因为窗体不接受焦点,所以窗体不存在自己的keypress事件过程C)若按下的键相同,keypress事件过程中的keyascii参数与keydown事件过程中 的keycode参数的值也相同D)在keypress事件过程中,key ascii参数可以省略(22)语句dim a(-3 to 4,3 to 6)as integer定义的数组的元素个数是 DA) 18 B) 28 C) 21 D) 32(23)在窗体上画一个命令按钮,其名称为commandl,然后编写如下代码:Option B
11、ase 1Private Sub Command 1 _Click()Dim aa = Array( 1, 2, 3, 4)j = 1For i = 4 To 1 Step -1s = s + a(i) * jj=j*10Next iPrint sEnd Sub程序运行后,单击命令按钮后,其输出结果是BA) 4321 B) 1234 C) 34 D) 12(24)假定通过复制,粘贴操作建立了一个命令按钮数组Commandl,以下说法 中错误的是DA)数组中每个命令按钮的名称(name属性)均为Command 1B)若未做修改,数组中每个命令按钮的大小都一样 数组中各个按钮使用同一个click事
12、件过程D)数组中每个命令按钮的index属性值都相同(25)在窗体上面画一个命令按钮,名称为Commandl,然后编写如下代码:Option Base 0Private Sub Command l_Click()Dim A 1(4) As Integer,A2(4) As IntegerFor k=0 To 2Al(k+l)=InputBox(“请输入一个整数”)A2(3-k)=Al(k+l)Next kPr 血 A2(k)End Sub程序运行后,单击命令按钮,在输入对话框中依次输入2、4、6,则输出结果为DA) 0 B) 1 C) 2 D) 3(26)以下关于函数过程的叙述中,正确的是A)
13、函数过程形参的类型与函数返回值的类型没有关系B)在函数过程中,过程的返回值可以有多个当数组作为函数过程的参数时,既能以值方式传递,也能以传址方式传递D)如果不指明函数过程参数的类型,则该参数没有数据类型(27)在窗体上画两个标签和一个命令按钮,其名称分别为Labell、Label2和Command 1,然后编写如下程序:Private Sub func(L As Label)L.Caption=1234End subPrivate Sub Form_Load()Label2.Caption= 10End subPrivate Sub Command l_Click()A=Val(Label2.
14、Caption)Call func(Label 1)Label2.Capti on=aEnd sub程序运行后,单击命令按钮,则在两个标签中显示的内容分别为 DA) ABCD 和 10B) 1234 和 100C) ABCD 和 100D) 1234 和 10(28)在窗体上画一个命令按钮(名称为Commandl),并编写如下代码:Functin Funl(Byval a As Integer ,b As Integer) As IntegerDim t As Integert=a-bb=t+aFun 1 =t+bEnd FunctionPrivate Sub Command 1 _Click
15、()Dim x As IntegerX=10Print Funl(Fun l(x,(Funl(x,x-l),x-l)End Sub程序运行后,单击命令按钮,输出结果是A) 10 B) 0 C) 11 D) 21(29)以下关于过程及过程参数的描述中,错误的是A)过程的参数可以是控件名称B)调用过程时使用的实参的个数应与过程形参的个数相同只有函数过程能够将过程中处理的信息返回到调用程序中D)窗体可以作为过程的函数(30)有如下通用过程:Public Function Fun(xStr As String) As StringDim tStr As String ,strL As Integert
16、Str=strL=Len(xStr)i=strL/2Do While i= 7 ThenImagel.Left= 8 -100End IfEnd Sub(7)设窗体上有一个名称为Combol的组合框,并有以下程序:Private Sub Combol_KeyPress(KeyAscii As Integer)If 9 =13 Then，回车符的 ASCII 码是 13For k=0 To Combol.ListCount-1If Combol.Text= Combol.List(k) ThenCombol.Text=,Exit ForEnd IfNext kIf Combol.Text The
17、nCombol.Additem 10End IfEnd IfEnd Sub程序的功能是:在组合框的编辑区中输入文本后按回车键,则检查列表中有无 与此文本相同的项目,若有,则把编辑区中的文本删除,否则把编辑区中文本 添加到列表的尾部。请填空。(8)在当前目录下有一个名为“myfile.txt”的文本文件,其中有若干行文本。下 面程序的功能是读入此文件中的所有文本行,按行计算每行字符的ASCI!码之 和,并显示在窗体上。请填空。Private Sub Commandl_Click()Dim ch$,ascii As IntegerOpen 40 Thenmystr= mystr& Strings(
18、n,*)End IfCh=mystrFor k= 14 To Ubound(a)Cl=Mid(mystr,k,l)n= 15Mid$(ch,n)=clNext kMystr=chEnd Sub2009年4月二级VB参考答案!选择题:1-5： DDCDC 6-10： ABAAC11-15： DBBCA 16-20： DBABD21-25： ADBDC 26-30： ADBCC31-35： AABCA2填空题1、19 2、白盒3、顺序结构100KeyAsciich4、数据库管理系统5、菱形6、7、Linel.xl 8 Image 1.Left 9、10、Combo 1 .Text 11、1nput
19、 1213、Len(mystr) 141 15、a(k)2009年9月全国计算机等级考试二级VB笔试试题及答案、选择题（每小题2分,共70分）、选择题1 .下列数据结构中,属于非线性结构的是（）A.循环队列B.带链队列C,叉树D.带链栈答案C解析树均是非线性结构2 .下列数据结构中,能够按照“先进后出”原则存取数据的是（）。A.循环队列B.栈G队列D.叉树答案B解析:栈是先进后出或后进先出的线性表3 .对于循环队列,下列叙述中正确的是（）。A队头指针是固定不变的B.队头指针一定大于队尾指针C队头指针定小于队尾指针D.队头指针可以大于队尾指针,也可以小于队尾指针答案D解析:如果队头指针大于队尾指
20、针说明队列已经循环存放数据了,如果队头指针小于队 尾指针说明没有进行循环存放4 .算法的空间复杂度是指（）。A算法在执行过程中所需要的计算机存储空间B.算法所处理的数据量C算法程序中的语句或指令条数D.算法在执行过程中所需要的临时作单元数答案A解析:算法的空间复杂度是指执行算法所需要的内存空间,包括算法程序所占空间,输入 的初始数据所占空间和执行过程中所需要的额外空间.5 .软件设计中划分模块的个准则是（）。A低内聚低耦合B,高内聚低耦合C.低内聚高耦合D.高内聚高耦合答案B解析:模块内部各元素之间的联系要紧密,髙内聚,模块间的连接的紧密程度要低,低耦 合,这样可以提髙模块的独立性.6 .下列
21、选项中不属于结构化程序设计原则的是（）。A可封装B.自顶向下C.模块化D.逐步求精答案A7 .软件详细设计产生的图如下该图是（）.AN-S图B. PAD图C.程序流程图D.E-R图答案C8 .数据库管理系统是（A.操作系统的一部分B.在操作系统支持下的系统软件G一种编译系统D.种操作系统答案B9 .在E-R图中,用来表示实体联系的图形是（）。A椭圆形B.矩形C.菱形D,三角形答案C10 .有三个关系R,ST如下:RABCa12b21c31SABCd32TABCa12b21c31d32其中关系T由关系R和S通过某种操作得到,该操作称为（）。A选择B.投影C.交D.并答案D 解析:T是由S表或R表
22、中的元素组成的(11)以下变量名中合法的是11 str_n(12)把数学表达式表示为正确的VB表达式应该是12 (x* 5+3)/( 2-6)(13)下面有关标准模块的叙述中,错误的是A)标准模块不完全由代码组成,还可以有窗体(14)下面控件中,没有Caption属性的是组合框(15)用来设置文字字体是否斜体的属性是D) Fontltalic(16)若看到程序有如下事件过程，则可以肯定的是,当程序运行时Private SubQick_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Sngle)Print VB P
23、rogram&id SubD)用鼠标左键或右键单击名称为“Click的控件时，执行此过程(17)可以产生30-50 (含30到50)之间的随机整数的表达式是A) lnt(Rnd*21 + 30)(18)在程序运行时,下面的叙述中正确的是只装入而不显示窗体，也会执行窗体的Form_Load事件过程(19)窗体有名称为ommandl的命令按钮和名称为Textl的文本框Private Sub Command1_Qick()Text 1.Text = 程序设计”Text 1. Set FocusEnd SubPrivate Sub Text1_GotFocus()Text 1.Text = 等级考试”
24、End Sub运行以上程序,单击命令按钮后B)文本框中显示的是“等级考试”,且焦点在文本框中(20)设窗体上有名称为ptionl的单选按钮,且程序中有语句:If Option.Value= True Then面语句中与该语句不等价的是C) If Vaiue= True Then(21)设窗体上有1个水平滚动条,已经通过属性窗口把它的Max属性设置为1, Min 属性设置为100,下面叙述中正确的是A)程序运行时,若使滚动条向左移动,滚动条的Value属性值就增加(22)有如下过程代码:Sub var_dim()Static numa As IntegerDim numb As Integern
25、uma = numa + 2numb = numb + 1Print numa; numbEnd Sub连续3次调用vajdim过程,第3次调用时的输出是 6 1(23)在窗体上画1个命令按钮,并编写如下事件过程:Private Sub Command1_aick()For i = 5 To 1 Step -0.8Print lnt(i);Next iEnd Sub运行程序,单击命令按钮,窗体上显示的内容为A) 54 32 1 1(24)在窗体上画1个命令按钮,并编写如下事件过程:Private Sub Command1_aick()Dim a(3, 3)For m = 1 To 3For n
26、 = 1 To 3lfn=mOrn=4-m Thena(m, n) = m + n日sea(m, n) = 0End IfPrint a(m, n);Next nPrintNext mEnd SubB) 204040406(25)设有如下函数过程:Function fun(a As Integer, b As Integer)Dim c As IntegerIf a b a = a - b Wend fun = a Bid Function 在调试时发现函数是错误的,为使函数能产生正确的返回值,应做的修改是 D)把 Whileab 改为 While a = b(30)下列关于通用对话框Comm
27、onDialogl的叙述中,错误的是A)只要在“打开”对话框中选择了文件,并单击“打开”按钮,就可以将选中的文件打开(31)在利用菜单编辑器设计菜单时,为了把组合键“Alt+X设置为“退出(X)”菜单项的 访问键,可以将该菜单项的标题设置为B)退出(&X)(32)在窗体上画1个命令按钮和1个文本框,其名称分别为Commandl和Textl, 再编写如下程序:Dim ss As StringPrivate Sub Text 1 _KeyPress(KeyAscii As Integer) If Chr(KeyAscii) Then ss = ss + Chr(KeyAscii) End SubP
28、rivate Sub Command1_Qick()Dim m As String, i As IntegerFor i = Len(ss) To 1 Step -1m = m + Mid(ss, i, 1)NextText 1.Text = UCase(m)End Sub程序运行后,在文本框中输入“Number 100”,并单击命令按钮,则文本框中显示的是D) 001REMBUN(33)窗体的左右两端各有1条直线,名称分别为inel、Une2:名称为Shapel的 圆靠在左边的inel直线上(见图);另有1个名称为Timeri的计时器控件,其属性值为 Trueo要求程序运行后,圆每秒向右移动
29、100,当圆遇到ine2时则停止移动。为实现上述 功能,某人把计时器的Interval属性设置为1000,并编写了如下程序:Private Sub Timer1_Timer()For k = Line1.X1 To Line2.X1 Step 100If Shapel.Left + Shapel.Width Line2.X1 ThenShapel. Left = Shapel. Left + 100Bid IfNext kEnd Sub运行程序时发现圆立即移动到右边的直线处,与题目要求的移动方式不符。为得到与 题目要求相符的结果,下面修改方案中正确的是B)把 For k = Line1.X1
30、To Une2.X1 Step 100 和 Next k 两行册除(34)下列有关文件的叙述中,正确的是随机文件中,每个记录的长度是固定的(35)窗体如图1所示。要求程序运行时,在文本框Textl中输入个姓氏,单击“删 除”按钮(名称为Commandl),则可删除列表框istl中所有该姓氏的项目。若编写以下 程序来实现此功能:Private Sub Command1_Qick()Dim n%, k%n = Len(Textl.Text)For k = 0 To Listl .ListCount - 1If Left(List1.List(k), n) = Textl.Text ThenListl.Removeitem kBid IfNext kBid Sub在调试时发现，如输入“陈”,可以正确删除所有姓“陈”的项目，但输入“刘”,则只删除 了“刘邦”、“刘备”2项，结果如图2所示。这说明程序不能适应所有情况，需要改正。正确 的修改方案是把For k=0 to Li st 1. List Count-1改为A) For k = Listl.ListCount - 1 To 0 Step -1二、填空题(每空2分，共30分)(1)某叉树有5个度为2的结点以及3个度为1的结点,则该