计算机二级全国历年真题

1、2007 年4 月全国计算机等级考试二级笔试试卷公共基础知识和Visual Basic 语言程序设计（考试时间90 分钟，满分100 分）一、选择题（每小题2 分，共70 分）（1）下列叙述中正确的是（ ）。A）算法的效率只与问题的规模有关，而与数据的存储结构无关B）算法的时间复杂度是指执行算法所需要的计算工作量C）数据的逻辑结构与存储结构是一一对应的D）算法的时间复杂度与空间复杂度一定相关（2）在结构化程序设计中，模块划分的原则是（ ）。A）各模块应包括尽量多的功能B）各模块的规模应尽量大C）各模块之间的联系应尽量紧密D）模块内具有高内聚度、模块间具有低耦合度（3）下列叙述中正确的是（ ）。

2、A）软件测试的主要目的是发现程序中的错误B）软件测试的主要目的是确定程序中错误的位置C）为了提高软件测试的效率，最好由程序编制者自己来完成软件测试的工作D）软件测试是证明软件没有错误（4）下列选项中不属于面向对象程序设计特征的是（ ）。A）继承性 B）多态性 C）类比性 D）封装性（5）下列对队列的叙述正确的是（ ）。A）队列属于非线性表 B）队列按“先进后出”原则组织数据C）队列在队尾删除数据 D）队列按“先进先出”原则组织数据（6）对下列二叉树：进行前序遍历的结果为（ ）。A）DYBEAFCZX B）YDEBFZXCAC）ABDEYCFXZ D）ABCDEFXYZ（7）某二叉树中有n 个度

3、为2 的结点，则该二叉树中的叶子结点数为（ ）。A）n+1 B）n-1 C）2n D）n/2（8）在下列关系运算中，不改变关系表中的属性个数但能减少元组个数的是（ ）。A）并 B）交 C）投影 D）笛卡尔乘积（9）在E-R 图中，用来表示实体之间联系的图形是（ ）。A）矩形 B）椭圆形 C）菱形 D）平行四边形（10）下列叙述中错误的是（ ）。A）在数据库系统中，数据的物理结构必须与逻辑结构一致二级Visual Basic 语言程序设计试卷 第2 页（共11 页）B）数据库技术的根本目标是要解决数据的共享问题C）数据库设计是指在已有数据库管理系统的基础上建立数据库D）数据库系统需要操作系统的支

4、持（11）下列可以正确定义2 个整型变量和1 个字符串变量的语句是（ ）。A）Dim n,m As Integer,s As StringB）Dim a%,b$，c As StringC）Dim a As Integer,b,c As StringD）Dim x%,y As Integer,z As String（12）下列表达式中不能判断x 是否为偶数的是（ ）。A）x/2=Int(x/2) B）x Mod 2=0C）FiX(x/2)=x/2 D）x2=0（13） 设在名称为Myform 的窗体上只有1 个名称为C1 的命令按钮，下列叙述中正确的是（ ）。A）窗体的Click 事件过程的过程

5、名是Myform_ClickB）命令按钮的Click 事件过程的过程名是C1_ClickC）命令按钮的Click 事件过程的过程名是Command1_ClickD）上述3 种过程名称都是错误的（14）设窗体上有1 个滚动条，要求单击滚动条右端的按钮一次，滚动块移动一定的刻度值，决定此刻度值的属性是（ ）。A）Max B）Min C）SmallChange D）LargeChange（15）1 个二维数组可以存放1 个矩阵。在程序开始有语句Option Base 0，则下面定义的数组中正好可以存放1 个43 矩阵（即只有12 个元素）的是（ ）。A）Dim a(-2 To 0,2)As Inte

6、ger B）Dim a(3,2)As IntegerC）Dim a(4,3)As Integer D）Dim a(-1 To -4,-1 To -3)As Integer（16）若设置了文本框的属性PasswordChar=$，则运行程序时向文本框中输入8 个任意字符后，文本框中显示的是（ ）。A）8 个$ B）1 个$ C）8 个* D）无任何内容（17）设在窗体上有1 个名称为Combol 的组合框，含有5 个项目，要删除最后一项，正确的语句是（ ）。A）Combo1.RemoveItem Combo1.TextB）Combo1.RemoveItem 4C）Combo1.RemoveIte

7、m Combo1.ListCountD）Combo1.RemoveItem 5（18）工程中有2 个窗体，名称分别为Form1、Form2，Form1 为启动窗体，该窗体上有命令按钮Command1。要求程序运行后单击该命令按钮时显示Form2，则按钮的Click事件过程应该是（ ）。A）Private Sub Command1_Click( ) B）Private Sub Command1_Click( )Form2.Visible Form2.ShowEnd Sub End SubC）Private Sub Command1_Click( ) D）Private Sub Command1_

8、Click( )Form2.Load Load Form2End Sub End Sub（19）若在某窗体模块中有下列事件过程：Private Sub Command1_Click(Index As Integer)二级Visual Basic 语言程序设计试卷 第3 页（共11 页）End Sub则下列叙述中正确的是（ ）。A）此事件过程与不带参数的事件过程没有区别B）有1 个名称为Command1 的窗体，单击此窗体则执行此事件过程C）有1 个名称为Command1 的控件数组，数组中有多个不同类型控件D）有1 个名称为Command1 的控件数组，数组中有多个相同类型控件（20）下列循环

9、语句中在任何情况下都至少执行一次循环体的是（ ）。A）Do While B）While 循环体 循环体Loop WendC）Do D）Do Until 循环体 循环体LoopUntil Loop（21）在窗体上有1 个名为Cd1 的通用对话框，为了在运行程序时打开保存文件对话框，则在程序中应使用的语句是（ ）。A）Cd1.Action=2 B）Cd1.Action=1C）Cd1.ShowSave=True D）Cd1.ShowSave=0（22）下列关于菜单的叙述中错误的是（ ）。A）各级菜单中的所有菜单项的名称必须惟一B）同一子菜单中的菜单项名称必须惟一，但不同子菜单中的菜单项名称可以相同C

10、）弹出式菜单用PopupMenu 方法弹出D）弹出式菜单也用菜单编辑器编辑（23）已知有下列过程：Private Sub proc1(a As Integer,b As String,Optional x As Boolean)End Sub正确调用此过程的语句是（ ）。A）Call proc1(5) B）Call proc1 5,abc,FalseC）proc1(12,abc,True) D）proc1 5,abc（24）在窗体上有1 个名称为Text1 的文本框和1 个名称为Command1 的命令按钮，要求在程序执行时，每单击命令按钮一次，文本框向右移动一定距离。下列能够正确实现上述功能

11、的程序是（ ）。A）Private Sub Command1_Click( ) B）Private Sub Command1_Click( )Text1.Left=100 Text1.Left=Text1.Left-100End Sub End SubC）Private Sub Command1_Click( ) D）Private Sub Command1_Click( )Textl.Move Text1.Left+100 Text1.Move Text1.LeftEnd Sub End Sub（25）某人创建了1 个工程，其中的窗体名称为Form1；之后又添加了1 个名为Form2 的窗体

12、，并希望程序执行时先显示Form2 窗体，那么，他需要做的工作是（ ）。A）在工程属性对话框中把“启动对象”设置为Form2B）在Forml 的Load 事件过程中加入语句Load Form2C）在Form2 的Load 事件过程中加入语句Form2.Show二级Visual Basic 语言程序设计试卷 第4 页（共11 页）D）把Form2 的TabIndex 属性设置为l，把Form1 的TabIndex 属性设置为2（26）窗体上有1 个名称为Text1 的文本框和1 个名称为Command1.的命令按钮。要求程序运行时，单击命令按钮，就可把文本框中的内容写到文件out.txt 中，每

13、次写入的内容附加到文件原有内容之后。下列能够正确实现以上功能的程序是（ ）。A）Private Sub Command1_Click( )Open out.txt For Input As #1Print #1,Text1.TextClose #1End SubB）Private Sub Command1_Click( )Open out.txt For Output As #1Print #1,Text1.TextClose #1End SubC）Private Sub Command1_Click( )Open out.txt For Append As#1Print #1,Text1.T

14、extClose #1End SubD）Private Sub Command1_Click( )Open out.txt For Random As#1Print #1,Text1.TextClose #1End Sub（27）为了计算1+3+5+99 的值，某人编程下列：k=1s=0While k=99k=k+2s=s+kWendPrint s在调试时发现运行结果有错误，需要修改。下列错误原因和修改方案中正确的是（ ）。A）WhileWend 循环语句错误，应改为For k=1 To 99 Next kB）循环条件错误，应改为While k99C）循环前的赋值语句k=l 错误，应改为k=0

15、D）循环中两条赋值语句的顺序错误，应改为s=s+k:k=k+2（28）下列程序在调试时出现了死循环：Private Sub Command1_Click( )n=InputBox(请输入一个整数)DoIf n Mod 2=0 Thenn=n+1Elsen=n+2二级Visual Basic 语言程序设计试卷 第5 页（共11 页）End IfLoop Until n=1000End Sub下列关于死循环的叙述中正确的是（ ）。A）只有输入的n 是偶数时才会出现死循环，否则不会B）只有输入的n 是奇数时才会出现死循环，否则不会C）只有输入的n 是大于1000 的整数时才会出现死循环，否则不会D）

16、输入任何整数都会出现死循环（29）在窗体上有1 个名称为CommonDialog1 的通用对话框和1 个名称为Command1 的命令按钮，以及其他一些控件。要求在程序运行时，单击Command1 按钮，则显示打开文件对话框，并在选择或输入了1 个文件名后，就可以打开该文件。下列是Command1_Click 事件过程的两种算法。算法1：Private Sub Command1_Click( )CommonDialogl.ShowOpenOpen CommonDialogl.FileName For Input As #1End Sub算法2：Private Sub Command1_Clic

17、k( )CommonDialogl.ShowOpenIf CommonDialogl.FileName ThenOpen CommonDialogl.FileName For Input As #1EndIfEnd Sub下列关于这两种算法的叙述中正确的是（ ）。A）显示打开文件对话框后若未选择或输入任何文件名，则算法2 会出错，算法1 不会B）显示打开文件对话框后若未选择或输入任何文件名，则算法1 会出错，算法2 不会C）两种算法的执行结果完全一样D）算法1 允许输入的文件名中含有空格，而算法2 不允许（30）窗体上有1 个名称为Listl 的列表框，其中已经输入了若干个项目，如图所示；还有

18、2 个文本框，名称分别为Text1、Text2，1 个名称为Command1 的命令按钮，并有下列事件过程。Private Sub Command1_Click( )Dim str As String,s As String,k As Integers=Text1str=“ “For k=Listl.ListCount-1 To 0 Step-1If InStr(Listl.List(k),s)0 Thenstr=str & Listl.List(k)& End If二级Visual Basic 语言程序设计试卷 第6 页（共11 页）Next kIf str= ThenText2=没有匹配的

19、项目ElseText2=strEnd IfEnd Sub程序运行时，在Text1 中输入“京”，单击命令按钮，则在Text2 中显示的内容是（ ）。A）京 B）北京南京C）南京北京 D）没有匹配的项目（31）在窗体上画1 个名称为Command1 的命令按钮，然后编写下列程序：Private Sub Command1_Click( )Print fun(ABCDEFG)End SubFunction fun(st As String)As stringstlen=Len(st)temp=“ “For k=1 To stlen/2temp=temp+Mid(st,k,1)+Mid(st,stle

20、n-k+1,1)Next kfun=tempEnd Function程序运行时，单击命令按钮，则在窗体上显示的是（ ）。A）ABCDEFG B）AGBFCEC）GFEDCBA D）AGBFCED（32）在窗体上先后画2 个图片框，名称分别为Picture1 和banana，banana 中添加了香蕉图片，如图1 所示，且将banana.DragMode 属性设置为1。要求程序运行时，可以用鼠标把banana 拖拽到Picture1 中，如图2 所示。能实现此功能的事件过程是（ ）。图1 图2A）Private Sub Form_DragDrop(Source As Control, X As

21、Single, Y As Single)banana.Move Picture1.Left+X,Picture1.Top+YEnd SubB）Private Sub banana_DragDrop(Source As Control, X As Single, Y As Single)Source.Move Picture1.Left + X, Picture 1.Top + YEnd SubC）Private Sub Picture1_DragDrop(Source As Control, X As Single, YAs Single)Source.Move Picture1.Left +

22、 X, Picture1.Top + Y二级Visual Basic 语言程序设计试卷 第7 页（共11 页）End SubD）Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)banana.Move banana.Left + X, banana.Top + YEnd Sub（33）在窗体上面1 个名称为Command1 的命令按钮，然后编写下列事件过程Option Base 1Private Sub Command1_Click( )Dim a(5, 5)As IntegerFor i= 1

23、To 5For j = 1 To 5a(i, j) = (i +j )*510Next jNext is=0For i=1 To 5s=s+a(i, i)Next iPrint sEnd Sub程序运行后，单击命令按钮，输出结果是（ ）。A）15 B）13 C）11 D）9（34）在窗体上从左到右有Text1、Text2 两个文本框，如图所示，要求程序运行时，在Text1中输入1 个分数后按回车键，则判断分数的合法性，若分数为0100 中的1 个数，则光标移到Text2 中；否则光标不动，并弹出对话框显示“分数错”。下列程序中正确的是（ ）。A）Private Sub Text1_KeyPre

24、ss(KeyAscii As Integer)If KeyAscii= 13 Then 回车符的ASCII 码是13a = Val(Text1)If a = 0 Or a = 0 And a = 100 ThenText1.SetFocusElse二级Visual Basic 语言程序设计试卷 第8 页（共11 页）Text2.SetFocus:MsgBox (分数错)End IfEnd IfEnd SubC）Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then 回车符的ASCII 码是13a = Val(Te

25、xt1)If a 100 ThenText2.SetFocusElseText1.SetFocus : MsgBox (分数错)End IfEnd IfEnd SubD）Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then 回车符的ASCII 码是13a = Val(Text1)If a = 0 And a = 100 ThenText2.SetFocusElseText1.SetFocus:MsgBox (分数错)End IfEnd IfEnd Sub（35）在窗体上画2 个命令按钮，名称分别为Command

26、1、Command2，然后编写下列事件过程。Const n = 5, m=4Dim a(m, n)Private Sub Command1_Click( )k=1For i= 1 To mFor j = 1 To na(i,j) =kk=k+1Next jNext iEnd SubPrivate Sub Command2_Click( )summ = 0For i= 1 To mFor j = 1 To nIf i = 1 Or i = m Thensumm = summ + a(i, j)Else二级Visual Basic 语言程序设计试卷 第9 页（共11 页）If j = 1 Or j

27、 = n Thensumm = summ + a(i, j)End IfEnd IfNext jNext iPrint summEnd Sub过程Command1_Click( )的作用是在二维数组a 中存放1 个m 行n 列的矩阵；过程Command2_Click( )的作用是（ ）。A）计算矩阵外围一圈元素的累加和B）计算矩阵除外围一圈以外的所有元素的累加和C）计算矩阵第1 列和最后一列元素的累加和D）计算矩阵第1 行和最后一行元素的累加和二、填空题（每空2 分，共30 分）（1）在深度为7 的满二叉树中，度为2 的结点个数为 【1】 。（2）软件测试分为白箱（盒）测试和黑箱（盒）测试。等

28、价类划分法属于 【2】 测试。（3）在数据库系统中，实现各种数据管理功能的核心软件称为 【3】 。（4）软件生命周期可分为多个阶段，一般分为定义阶段、开发阶段和维护阶段。编码和测试属于 【4】 阶段。（5）在结构化分析使用的数据流图(DFD)中，利用 【5】 对其中的图形元素进行确切解释。（6）下列程序的功能是从键盘输入1 个大于100 的整数m，计算并输出满足不等式1+22+32+42+n2m 的最大的n。请填空。Private Sub Command1_Click( )Dim s,m,n As Integerm=Val(InputBox(请输入一个大于100 的整数)n= 【6】s=0Do

29、 While smn=n+1s=s+n*nLoopPrint 满足不等式的最大n 是; 【7】End Sub（7）下列程序的功能是把文件filel.txt 中重复字符去掉后（即若有多个字符相同，则只保留1 个）写入文件file2.txt。请填空。Private Sub Command1_Click( )Dim inchar As String, temp As String, outchar As Stringoutchar=“ “Open file1.txt For Input As #1Open file2.txt For Output As 【8】n=LOF( 【9】 )inchar=I

30、nput$(n,1)二级Visual Basic 语言程序设计试卷 第10 页（共11 页）For k=1 To ntemp=Mid(inchar,k,1)If InStr(outchar,temp)= 【10】 Thenoutchar=outchar & tempEnd IfNext kPrint #2, 【11】Close #2Close #1End Sub（8）在窗体上先画1 个名为Text1 的文本框和1 个名为Label1 的标签，再画1 个名为Op1的有4 个单选按钮的单选按钮数组，其Index 属性按季度顺序为03，如图1 所示。在文件sales.txt 中按月份顺序存有某企业某

31、年12 个月的销售额。要求在程序执行时，鼠标单击1 个单选按钮，则Text1 中显示相应季度的销售总额，并把相应的文字显示在标签上。如图2 所示是单击“第3 季度”单选按钮所产生的结果。请填空。图1 图2Dim sales(12) As LongPrivate Sub Form_Load( )Open sales.txt For Input As #lFor k=1 To 12Input #1,sales(k)Next kClose #lEnd SubPrivate Sub 【12】 (Index As Integer)Dim sum As Long,k As Integer,month As

32、 Integersum=0month=Index* 【13】For k=1 To 3month=month+1sum=sum+sales(month)Next kLabel1.Caption=Op1(Index). 【14】 &销售总额：Text1=sumEnd Sub（9）某人编写下列函数来判断a 是否为素数，若是，则函数返回True；否则返回False。Function prime(a As Integer)As BooleanDim k As Integer，isprime As Boolean二级Visual Basic 语言程序设计试卷 第11 页（共11 页）If a2 Theni

33、sprime=FalseElseisprime=Truek=2Do While k=na=a-nm=m+1Wendfun=mEnd Function该函数的返回值是（ ）。A）a 乘以n 的乘积 B）a 加n 的和C）a 减n 的差 D）a 除以n 的商（不含小数部分）（30）下列程序的输出结果是（ ）。Private Sub Command1_Click( )ch=ABCDEFproc chPrint chEnd SubPrivate Sub proc(ch As String)s=“ “For k=Len(ch) To 1 Step -1s=s&Mid(ch,k,1)Next kch=sE

34、nd SubA）ABCDEF B）FEDCBAC）A D）F（31）某人编写了一个能够返回数组a 中10 个数中最大数的函数过程，代码下列：Function MaxValue(a( )As Integer)As IntegerDim max%max=1For k=2 To 10If a(k)a(max)Thenmax=kEnd IfNext kMaxValue=maxEnd Function程序运行时，发现函数过程的返回值是错的，需要修改，下列的修改方案中正确的是（ ）。A）语句max=1 应改为 max=a(1)B）语句For k=2 To 10 应改为For k=1 To 10C）If 语

35、句中的条件a(k)a(max)应改为a(k)maxD）语句MsxValue=max 应改为MaxValue=a(max)（32）在窗体上画一个名称为Command1 的命令按钮，然后编写下列事件过程：Private Sub Command1_Click( )Dim n%,b,tt=1:b=1:n=2Do二级Visual Basic 语言程序设计试卷 第7 页（共11 页）b=b*nt=t+bn=n+1Loop Until n9Print tEnd Sub此程序计算并输出一个表达式的值，该表达式是（ ）。A）9! B）10!C）1!+2!+9! D）1!+2!+10!（33）有一个名称为Fom1

36、 的窗体，上面没有控件，设有下列程序（其中方法PSet(X,Y)的功能是在坐标X、Y 处画一个点）：Dim cmdmave As BooleanPrivate Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y AsSingle)cmdmave =TrueEnd SubPrivate Sub Form MouseMove(Button As Integer,Shift As Integer,X As Single,Y AsSingle)If cmdmave ThenForm1.PSet(X,Y)End IfEn

37、d SubPrivate Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Singgle)cmdmave=FalseEnd Sub此程序的功能是（ ）。A）每按下鼠标键一次，在鼠标所指位置画一个点B）按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失C）不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线D）按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线（34）某人设计了下列函数fun，功能是返回参数a 中数值的位数Function fun(a As Integer)As I

38、ntegerDim n%n=1While a10=0n=n+1a=a10Wendfun=nEnd Function在调用该函数时发现返回的结果不正确，函数需要修改，下列修改方案中正确的是（ ）。A）把语句n=1 改为n=0 B）把循环条件a10=0 改为a100C）把语句a=a10 改为a=a Mod 10 D）把语句fun=n 改为fun=a（35）在窗体上有一个名称为Check1 的复选框数组（含4 个复选框），还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中，如图所示。下列能实现此功能的事件过程是（ ）。二级Visu

39、al Basic 语言程序设计试卷 第8 页（共11 页）A）Private Sub Check1_Click(Index As Integer)Text1.Text=“ “For k=0 To 3If Check1(k).Value=1 ThenText1.Text=Text1.Text & Check1(k).Caption & “ “ 双引号中是空格End IfNext kEnd SubB）Private Sub Check1_Click(Index As Integer)For k=0 To 3If Check 1(k).Value=1 ThenText1.Text=Text1.Text & Check1(k).Caption & 双引号中是空格End IfNext kEnd SubC）Private Sub Check1_Click(Index As Integer)Text1.Text= For k=0 To 3If Check1(Index).Value=1 ThenText1.Text1