全国计算机二级考试试卷历年考试真题.pdf

《全国计算机二级考试试卷历年考试真题.pdf》由会员分享，可在线阅读，更多相关《全国计算机二级考试试卷历年考试真题.pdf（62页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、全国计算机二级历年考试试卷真题集05年试卷一、选 择 题（1）（35）每小题2 分，共 70分下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。（1）数据的存储结构是指（）。A.存储在外存中的数据 B.数据所占的存储空间量 C.数据在计算机中的顺序存储方式D.数据的逻辑结构在计算机中的表示（2）下列关于栈的描述中错误的是（）。A.栈是先进后出的线性表B.栈只能顺序存储C.栈具有记忆作用 D.对栈的插入与删除操作中，不需要改变栈底指针（3）对于长度为n 的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是（）。A.冒泡

2、排序为n/2 B.冒泡排序为n C.快速排序为n D.快速排序为n（n-l）/2（4）对长度为n 的线性表进行顺序查找，在最坏情况下所需要的比较次数为（）。A.Iog2nB.n/2 C.n D.n+l（5）下列对于线性链表的描述中正确的是（）。A.存储空间不一定是连续，且各元素的存储顺序是任意的B.存储空间不一定是连续，且前件元素一定存储在后件元素的前面C.存储空间必须连续，且前件元素一定存储在后件元素的前面D.存储空间必须连续，且各元素的存储顺序是任意的（6）下列对于软件测试的描述中正确的是（）oA.软件测试的目的是证明程序是否正确B,软件测试的目的是使程序运行结果正确C.软件测试的目的是尽

3、可能多地发现程序中的错误D.软件测试的目的是使程序符合结构化原则（7）为了使模块尽可能独立，要 求（）。A.模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强B.模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱C.模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱D.模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强（8）下列描述中正确的是（）。A.程序就是软件B.软件开发不受计算机系统的限制C.软件既是逻辑实体，又是物理实体 D.软件是程序、数据与相关文档的集合（9）数据独立性是数据库技术的重要特点之一。所谓数据独立性是指（）。A.数据与程序独立存放B.不同的数据被存放在不同的文件

4、中C.不同的数据只能被对应的应用程序所使用D.以上三种说法都不对（10）用树形结构表示实体之间联系的模型是（）。A.关系模型B.网状模型C.层次模型D.以 上 三 个 都 是（11）在 窗 体（名称为Forml）上画一个名称为Textl的文本框和-个名称为Command 1 的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是（）。A.Private Sub Textl_Change（）Command 1 .Caption=计算机等级考试End SubB.Private Sub Command 1_

5、 Click()Caption=计算机等级考试End SubC.Private Sub Form 1_ Click()Text 1.Caption=计算机等级考试“End SubD.Private Sub Command 1_ Click()Text 1.Text=计算机等级考试”End Sub(1 2)设 a=5,b=4,c=3,d=2下列表达式的值是()。3 2*b O ra=c And b c Or c dA.IB.TrueC.FalseD.2(1 3)设 a 二 MicrosoftVisualBasic，则以下使变量 b 的值为VisualBasicn 的语句是()。A.b=Left(

6、a,10)B.b=Mid(a,10)C.b=Right(a,10)D.b=Mid(a,11,10)(1 4)假定有如下的窗体事件过程：Private Sub Form_Click()a$=Microsoft Visual Basicb$=Right(a$,5)c$=Mid(a$,1,9)MsgBox a$,34,b$,c$,5End Sub程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是()。A.Microsoft VisualB.MicrosoftC.BasicD.5(1 5)设 a=a，b=nbH,c=McM,d=Md ,执行语句 x=Hf(aD.，A B 诟，x 的 值 为(

7、)oA.aB.“bC.BD.A”(1 6)为了使命令按钮(名称为Com m andl)右移2 0 0,应使用的语句是()。A.Command l.Move-200B.Command 1 .Move 200C.Command 1.Left=Command 1.Left+200D.Commandl.Left=Command 1 .Left-200(1 7)在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click()x=InputBox(请输入一个整数”)Print x+Text 1.TextEnd Sub程序运行时，在文本框中输入4 5 6,然后单击窗体，在输入对话

8、框中输入1 2 3,单 击“确定”按钮后，在窗体上显示的内容为()。A.123B.456C.479D.123456(1 8)在窗体上画一个文本框和一个计时器控件，名称分别为Textl和 T im eri,在属性窗口中把计时器 的 Interval属性设置为1000,Enabled属性设置为False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以卜.是实现上述操作的程序：Private Sub Command 1 _Click()Timer 1.()End SubPrivate Sub Timerl_Timer()Textl.Text=TimeEnd Sub在下划线

9、处应填入的内容是()。A.Enabled=TrueB.Enabled=FalseC.Visible=TrueD.Visible=False(1 9)假定在图片框Picture1中装入了 个图形，为了清除该图形(不删除图片框)，应采用的正确方法 是()。A.选择图片框，然后按Del键B.执行语句 Picture 1.Picture=LoadPicture()C.执行语句 Picturel.Picture=”D.选择图片框，在属性窗口中选择Picture属性条，然后按回车键(2 0)在窗体上画一个名称为L istl的列表框，一个名称为Labell的标签，列表框中显示若干个项目。当单击列表框中的某个

10、项目时;在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是:A.Private Sub Listl_Click()Label 1 .Caption=Listl.ListindexEnd SubB.Private Sub Listl_Click()Label 1 .Name=List 1 .ListindexEnd SubC.Private Sub Listl_Click()Label 1 .Name=Listl.TextEnd SubD.Private Sub Listl_Click()Label 1 .Caption=List 1 .TextEnd Sub(21)在窗体上画个命令按

11、钮，其名称为Comma然后编写如下事件过程：Private Sub Command 1 _Click()Dim i As Integer,x As IntegerFor i=1 To 6If i=1 Then x=iIfi0A nda10Anda20A nda c Thend=d+x(i)c=x(i)Elsed=d-cEnd IfNextPrint dEnd Sub程序运行后，如果单击命令按钮，则在窗体上输出的内容为()oA.10B.16C.12D.20(3 2)设有如下程序：Private Sub Command 1 _Click()Dim c As Integer,d As Integer

12、c=4d=InputBox。请输入一个整数”)Do While d 0If d c Thenc=c+1End Ifd=InputBox。请输入一个整数”)LoopPrint c+dEnd Sub程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0,则输出结果是()oA.12B.1110D.9(3 3)在窗体上画一个名称为Commandl的命令按钮和一个名称为Textl的文本框，在文本框中输入以下字符串：Microsoft Visual Basic Programming然后编写如下事件过程：Private Sub Command 1 _Click()Ope

13、n d:tempoutf.txtn For Output As#1For i=1 To Len(Textl.Text)c=Mid(Textl.Text,i,1)Ifc=MA And c=Z ThenPrint#1,LCase(End IfNext iCloseEnd Sub程序运行后，单击命令按钮，文件outf.txt中的内容是()。A.MVBPB mvbpC.MD.mV vBbPp(3 4)在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：Dim SW As BooleanFunction func(X As Integer)As IntegerIfX 20 ThenY=XE

14、lseY=20+XEnd Iffunc=YEnd FunctionPrivate Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)SW=FalseEnd SubPrivate Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)SW=TrueEnd SubPrivate Sub Command 1 _Click()Dim intNum As IntegerintNum=InputBox()

15、IfSW ThenPrint func(intNum)End IfEnd Sub程序运行后，单击命令按钮，将显示一个输入对话框，如果在输入对话框中输入2 5,则程序的执行结果为()。A.输出0B.输出25输出45D.无任何输出(3 5)设有如下通用过程：Public Sub Fun(a()As Integer,x As Integer)For i=1 To 5x=x+a(i)NextEnd Sub在窗体上画-个名称为Textl的文本框和一个名称为Command1的命令按钮。然后编写如下的事件过程：Private Sub Command 1 _Click()Dim arr(5)As Intege

16、r,n As IntegerFor i=1 To 5arr(i)=i+iNextFun arr,nTextl.Text=Str(n)End Sub程序运行后，单击命令按钮，则在文本框中显示的内容是(A.30B.25C.20D.15二、填空题(每空2 分，共 30分)请将每空的正确答案写在答题卡 1】【15】序号的横线上，答在试卷上不得分。(1)某二叉树中度为2 的结点有18个，则该二叉树中有【1】个叶子结点。(2)在面向对象方法中，类 的 实 例 称 为【2】。(3)诊断和改正程序中错误的工作通常称为【3】。(4)在关系数据库中，把数据表示成二维表，每一个二维表称为【4】。(5)问题处理方案的

17、正确而完整的描述称为【5】。(6)以下语句输出结果是 6】。Print Int(12345.6789*100+0.5)/100(7)在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：Private Sub Form_ Click()Text 1.Text=VB 程序设计”End SubPrivate Sub Textl_Change()Picture 1.Print HVB ProgrammingEnd Sub程序运行后，单击窗体，则在文本框中显示的内容是【7，而在图片框中显示的内容是 8】。(8)阅读下面的程序：Private Sub Form_Click()Dim Check A

18、s Boolean,Counter As IntegerCheck=TrueCounter=5DoDo While Counter 0Print sEnd Sub以上程序的功能是【10】O 程序运行后，单击窗体，输 出 结 果 为 11 O(1 0)设有如下程序：Option Base 1Private Sub Command 1 _Click()Dim arrlDim Min As Integer,i As Integerarrl=Array(12,435,76,-24,78,54,866,43)Min=12For i=2 To 8Ifarrl(i)M in Then 13NextPrint

19、”最小值是：”;MinEnd Sub以上程序的功能是：用 Array函数建立一个含有8 个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。(1 1)在名称为F orm l的窗体上画一个文本框，其名称为T e x tl,在属性窗口中把该文本框的MultiLine属性设置为T ru e,然后编写如下的事件过程：Private Sub Form_Click()Open d:testsmtextl.txt For Input As#1Do While Not 14Line Input#1,aspectswhole$=whole$+aspects+Chr$(13)+Chr$(10)LoopTe

20、xt 1.Text=whole$Close#1Open d:testsmtext2.txt For Output As#1Print#1,15Close#1End Sub上述程序的功能是，把磁盘文件smtextl.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空2005年 4 月全国计算机等级考试二级VB语言笔试答案参考答案：选择题：15 DBDCA6-I0CBDDC11-15 ABBCD16-20 CDABD21-25 ABCDB26-30 CDBBA31-35 CDDDA填空题：1 19【2】对象 3 程序调试 4 关系 5 算法6

21、 12345.687 VB程序设计8 VB Programming9 10 1 0 求 1-8的和11 3612 arrl(l)13 min=arrl(i)14 EOF(l)15 textl.text(或 whole$)l 结 束 07年 4 月二级VB语言笔试试题及答案发布时间：11-04页 数：7 页口一篇:06年四月全国等级考试二级V B语言考前密卷(一)下一篇:02年 9 月二级VB语言笔试试题及答案2007年 4 月全国计算机等级考试二级笔试试卷Visual Basic语言程序设计-、选择题(第小题2 分，共 70分)下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的。请

22、将正确选项填涂在答题卡相应位置上，答在试卷上不得分。(1)下列叙述中正确的是(B)A)算法的效率只与问题的规模有关，而与数据的存储结构无关B)算法的时间复杂度是指执行算法所需要的计算工作量C)数据的逻辑结构与存储结构是-一对应的D)算法的时间复杂度与空间复杂度一定相关(2)在结构化程序设计中，模块划分的原则是(D)A)各模块应包括尽量多的功能B)各模块的规模应尽量大C)各模块之间的联系应尽量紧密D)模块内具有高内聚度、模块间具有低耦合度(3)下列叙述中正确的是(A)A)软件测试的主要目的是发现程序中的错误B)软件测试的主要目的是确定程序中错误的位置。为了提高软件测试的效率，最好由程序编制者自己

23、来完成软件的测试工作D)软件测试是证明软件没有错误(4)下面选项中不属于面向对象程序设计特征的是(C)A)继承性B)多态性C)类比性D)封装性(5)下列对队列的叙述正确的是(D)A)队列属于非线性表B)队列按“先进后出”原则组织数据C)队列在队尾删除数据D)队列按“先进先出”原则组织数据(6)对下列二叉树(C)AB CD E F XY Z进行前序遍历的结果为A)DYBEAFCZXB)YDEBFZXCAQABDYECFXZD)ABCDEFXYZ(7)某二叉树中有n 个度为2 的结点，则该二叉树中的叶子结点数为(A)A)n+1B)n-1C)2nD)n/2(8)在下列关系运算中，不改变关系表中的属性

24、个数但能减少元组个数的是(B)A)并B)交C)投影D)笛卡儿乘积(9)在 E-R 图中，用来表示实体之间联系的图形是(C)A)矩形B)椭圆形C)菱形D)平行四边形(10)下列叙述中错误的是(A)A)在数据库系统中，数据的物理结构必须与逻辑结构一致B)数据库技术的根本目标是解决数据共享问题C)数据库技术是指己有数据管理系统的基础上建立数据库D)数据库系统需要操作系统的支持(11)下面可以正确定义2 个整形变量和1 个字符串变量的语句的是(D)A)Dim n,m AS Interger,s AS StringB)Dim a%,b$,c AS StringC)Dim a AS Integer,b,c

25、 AS StringD)Dim x%,y AS Integer,/AS String(12)下列表述中不能判断x 是否为偶数的是(D)A)x/2=Int(x/2)B)x Mod 2=0C)Fix(x/2)=x/2D)x2=013)设在名称为Myform的窗体上只有1 个名称为C l的命令按钮,下面叙述中正确的是(B)A)窗体的Click事件过程的过程名是Myform_ClickB)命令按钮的Click事件过程名是CLClickC)命令按钮的Click事件过程的过程名是Commandl_Click(14)设窗体上有1 个滚动条，要求单击滚动条右端的，按钮一次，滚动条移动一定的刻度值，决定此刻度的

26、属性是(C)A)MaxB)MinC)SmallChangeD)LargeChang(15)1个二维数组可以存放1个矩形.在程序开始有语句Option Base 0,则下面定义的数组中正好可以存放1 个 4*3矩阵(即只有12个元素)的是(B)A)Dim a(-2 To 0,2)AS IntegerB)Dim a(3,2)AS IngegerC)Dim a(4,3)AS IngegerD)Dim a(-l To-4,-1 To-3)AS Ingeger(16)若设置了文本框的属性PasswordChar=$”，则运行程序时向文本框中输入8 个任意字符后,文本框中显示的是(A)A)8 个“$B)1

27、 个“$C)8 个“*”D)无任何内容(17)设在窗体上有1个名称为Combol的组合框，含有5 个项目，要删除最后一项,正确的语句是(B)A)Combol.Removeitem Combol.TextB)Combo 1 .Removeltem4C)Combo 1 .Removeitem Combo 1 .ListCountD)Combo 1 .Removeltem5(18)工 程 中 有 2 个窗体，名称分 别 为 Forml.Form2,Form 1 为启动窗体,该窗体上有命令按钮Commandl,要求程序运行后单击该命令按钮时显示Form2,则按钮的Click事件过程应该是(A)A)Pr

28、ivate Sub Command l_Click()Form2.ShowEnd SubC)Private Sub Command l_Click()Load Form2End SubB)Private Sub Command l_Click()Form2.VisibleEnd SubD)Private Sub Command 1 _Click()Form2.LoadEnd Sub(19)若在某窗体模块中有如下事件过程(D)Private Sub Command 1 _Click(Index AS Integer)A)B)C)D)End Sub则以下叙述中正确的是)此事件过程与不带参数的事件过

29、程没有区别I有 1 个名称为Command 1 的窗体，单击此窗体则执行此事件过程(有 1个名称为Command 1 的空件数组,数组中有多个不同类型控件)有 1 个名称为Command 1 的空件数组,数组中有多个相同类型控件(20)以卜循环语句中在任何情况下都至少执行一次循环体的是(C)A)Do While 条件循环体LoopB)While 条件循环体WendC)Do循环体D)Do Until 条件循环体Loop Until v条件Loop(21)在窗体上有1个名为C dl的通用对话框，为了在运行程序时打开保存文件对话框，则在程序总应使用的语句是(A)A)Cdl.Action=2B)CdI

30、.Action=lC)Cd l.ShowSave=TureD)Cd l.ShowSave=0(22)下面关于菜单的叙述中错误的是(B)A)各级菜单中的所有菜单项的名称必须唯一B)同一子菜单中的菜单项名称必须唯一，但不同子菜单中的菜单项名称可以相同C)弹出式菜单也用菜单编辑器编辑(23)已知有下面的过程(D)Private Sub prod(a As Integer,b As String,Optional x As Boolean)End Sub正确调用此过程的语句是A)Call procl(5)B)Call prod 5,abc,FalseC)proc 1 (1 2,abc”，True)D)

31、proc 1 5,“abc”(24)在窗体上有一个文件名称为T extl的文本框和1 个名称为Command 1 的命令按钮，要求在程序执行时，每单击命令按钮一次，文本框向右移动一定距离。下面能够正确实现上述功能的程序是(C)A)Private Sub Command 1 _Click()Text l.Left=100End SubC)Private Sub Command 1 _Click()Text 1 .Move.Text.Left+100End SubB)Private Sub Command I _Click()T extl.Left=Textl.Left-100End SubD)P

32、rivate Sub Command 1 _Click()Text 1 .Move.Text.LeftEnd Sub(25)某人创建了 1个工程，其中的窗体名称为Forml;之后又添加了 1个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是(A)A)在工程属性对话框中把“启动对象”设置为Form2B)在 Form l的 Load事件过程中加入语句Load Form2C)在 Form2的 Load事件过程中加入语句Form2.ShowD)在 Form2的 Tabindex属性设置为1,把 Form l的 Tabindex属性设置为2(26)窗体上有1 个名称为T

33、extl的文本框和1 个名称为Command 1 的命令按钮。要求程序运行时,单击命令按钮，就可以把文本框中的内容写到文件out.txt中，每次写入的内容附加到文件原有内容之后。下面能够实现上述功能的程序是(C)A)Private Sub Commandl_Click()B)Private Sub Commandl_Click()Open out.txt For Inpit As#l Open out.txt For Outpit As#lPrint#1,Text 1.TextClose#1End SubC)Private Sub Command 1 _Click()Open out.txt”

34、For Append As#lPrint#1,Text 1.TextClose#1End SubPrint#1,Text 1.TextClose#1End SubD)Private Sub Command 1 _Click()Open“out.txt”For Random As#lPrint#1,Text I.TextClose#1End Sub(27)为计算1+3+5+99的值，某人编程如下k=ls=0While kO thenstr=str&List.List(k)&”End IfNext kIfstr=“ThenText2二”没有匹配的项目”ElseText2=strEnd IfEnd

35、Sub程序运行时，在 Textl中输入“京”，单击命令按钮，则在Text2中显示的内容是(C)A)京B)北京南京C)南京D)没有匹配的项目(3 1)在窗体上画1 一个名称为Command 1 的命令按钮，并编写以下程序Private Sub Command 1 _Click()Print fun(ABCDEFG”)End SubFunction fun(st As String)As Stringstlen=Len(st)，temp=For kfun=tempEnd Function程序运行时，单击命令按钮，则窗体上显示的是(B)A)ABCDEFGB)AGBFCEC)GFEDCBAD)AGBF

36、CED(32)在窗体上先后画2 个图片框，名称分别为Picture 1和 banana,banana中添加了香蕉图片(见图1),且 将 banana.DragMode属性设置为1。要求程序运行时，可以用鼠标把banana拖拽到Picture 1 中(见图2)。能实现此功能的事件过程是(C)A)Priate Sub Form_DragDrop(Source As Control,X As Single,Y As Single banana.MovePicture 1 .Left+X,Picture 1 .Top+Y)End SubB)Private Sub banana _DragDrop(So

37、urce As Control,X As Single,Y As Single)Source.Move Picture 1 .Left+X.Picture 1 .Top+YEnd SubC)B)Private Sub Picture 1 _DragDrop(Source As Control,X As Single,Y As Single)Source.Move Picture 1.Left+X.Picture 1 .Top+YEnd SubD)B)Private Sub Picture l_DragDrop(Source As Control,X As Single,Y As Single)

38、banana.Move banana.Left+X,banana.Top+YEnd Sub(33)在窗体上画1 个名称为Commandl的命令按钮，然后编写如下事件过程Option Base 1Pribate Sub Command 1 _Click()Dim a(5.5)As IntegerFor i=l To 5a(Ij)*510Next jNext iS=0For i=l To 5S=s+a(i,i)Next iPrint sEnd Sub程序运行后，单击命令按钮，输出结果是(A)A)15B)13C)llD)9(34)在窗体上从左到右有Textl、Text2两个文本框(见图)，要求程序运

39、行时，在 Text 1 中输入1个分数后按回车键，则判断分数的合法性，若分数为0100中 的 1 个数，周围光标移到Text2中；否则光标不动，并弹出对话框显示“分数错”，下面程序中正确的是(D)A)Private Sub Textl_ KeyPress(KeyAscii AS Integer)If KeyAscii=13 Then 回车符的 ACSH 码是 13a=Val(Textl)If a=0 or a=0 And a=100 ThenTextl.SetFocusElseText2.SetFocus;MsgBox(“分数错”)End IfEnd IfEnd SubC)Private Su

40、b Textl_ KeyPress(KeyAscii AS Integer)If KeyAscii=13 Then 回车符的 ACSU 码是 13a=Val(Textl)Ifa100 ThenText2.SetFocusElseTextl.SetFocus;MsgBox(“分数错”)End IfEnd IfEnd SubD)Private Sub Textl_ KeyPress(KeyAscii AS Integer)If KeyAscii=13 Then 回车符的 ACSU 码是 13a=Val(Textl)Ifa=0And a=100 ThenText2.SetFocusElseTextl

41、.SetFocus;MsgBox(“分数错”)End IfEnd IfEnd Sub(35)在窗体上画2 个命令按钮，名称分别为Command】、command?,并编写如卜程序Const n=5,m=4Dim a(m,n)Private Sub Command 1 _Click()K=1For i=1 To mFor j=l To na(i,j)=kk=k+lNext jNext iPrivate Sub Command2_Click()Summ=OFor i=l To mFor j=l To nIf i=l Or i=m ThenSumm=summ4-a(i,j)ElseIf j=I Or

42、 j=n ThenSumm=summ+a(i,j)End IfEnd IfNext jNext iPrint summEnd Sub过程Commandl_Click()的作用是二维数组a 中存放1个 m 行n 列的矩阵;过程Command2_Click()的作用是(A)A)计算矩阵外围一圈元素的累加和B)计算矩阵除外一圈以外的所有元素的累加和C)计算矩阵第1列和最后一列元素的累加和D)计算矩阵第1 行和最后一行元素的累加和二、填空题(每空2 分，共 30分)请将每一个空的正确答案写在答题纸上 115序号的横线匕答在试卷上，答在试卷上不得分，注意：以命令关键字填空的必须写完整(1)在深度为7 的

43、满二叉树中，度为2 的结点个数为 63 o(2)软件测试分为白箱.(盒)测试和黑箱(盒)测试，等价类划分法属于黑箱(或黑盒)测试。(3)在数据库系统中，实现各种数据管理功能的核心软件称为 数据库管理系统(D B M S)o(4)软件生命周期可分为多个阶段，一般分为定义阶段、开发阶段和维护阶段。编码和测试属 于 开 发 阶段。(5)在结构化分析使用的数据流图(D F D)中，利用 数据字典 对其中的图形元素进行确切解释。(6)1+.n 最大的n。请填空Private Sub Command 1_ Click()Dim s,m,n AS Integerm=Val(InputBox(“请输入一个大于

44、100的整数”)n=0s=0Do While s N=n+1S=s+n*nLoopPrint“满足不等式的最大n 是 n-1End Sub(7)下面程序的功能是把文件filell.txt中重复字符去掉后(即若有多个字符相同，则只保留1个)写入文件file2.txt。请填空。Private Sub Command 1Click()Dim inchar AS String,temp AS String,outchar AS StringOutchar=”Open=file l.txt”For Input AS#1Open=file 2.tx tFor Output AS#2n=LOF(1 )inc

45、har=Input$(n,1)For k=l To ntemp=Mid(inchar,k,1)If InStr(outchar,temp)=0 Thenoutchar=outchar&tempEnd IfNext kprint#2,outcharclose#2close#1End Sub(8)在窗体上先画1 个名为T extl的文本框和平个名为Label 1 的标签，再 画 1 个名为OP1的有4 个单选按钮数组，其 Index属性按季度顺序为0 s3(见 图 1)。在文件sales.txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时，鼠标单击1个单选按钮，则 Textl中显示

46、相应季度的销售总额,并把相应的文字显示在标签上。图 2 是单击“第 3 季度”单选按钮产生的结果。请填空。Dim sales(12)As LongPrivate Sub Form_ Load()open sales.txt“For Input AS#1For k=l To 12Input#l,sales(k)Next kClose#1End SubPrivate Sub Opl_Click(Index,AS Integer)Dim sum AS Long,k AS Ingeger,month AS Ingegersum=0month=Index*3For k=l To 3month=month

47、+lsum=sum+sales(month)Next kLabel 1 .Caption=Opl(Index).Caption&”销售总额：”Textl=sumEnd Sub(9)某人编写如下函数来判断a 是否为素数，若是，则函数返回True；否则返回FalseFunction Prime(a As Integer)AS BooleanDim k As Intergerjsprime AS BooleanIf a=na=a-nm=m+1Wendfun=mEnd Function该函数的返回值是A)a 乘以n 的 乘 积 B)a 加 n 的和C)a 减 n 的 差 D)a 除以n 的商(不含小数

48、部分)(3 0)下面程序的输出结果是Private Sub Command 1 _Click()ch$=ABCDEFproc chPrint chEnd SubPrivate Sub proc(ch As String)S=For k=Len(ch)To 1 Step-1s=s&Mid(ch,kJ)Next kch=sEnd SubA)ABCDEFB)FEDCBAC)AD)F(3 1)某人编写了一个能够返回数组a 中 10个数中最大数的函数过程，代码如下：Function Maxvalue(a()As Integer)As IntegerDim max%max=lFor k=2 To 10If

49、 a(k)a(max)Thenmax=kEnd IfNext kMaxvalue=maxEnd Function程序运行时，发现函数过程的返回值是错的，需要修改，下 面的修改方案中正确的是A)语句max=1应改为max=a(l)B)语句 Fork=2Tol0 应改为 Fork=lT olOC)If语句中的条件a(k)a(max)应改为a(k)maxD)语句 Maxvalue=max 应改为 Maxvalue=a(max)(3 2)在窗体上画一个名称为Command1的命令按钮，并编写以下程序：Private Sub Command l_Click()Dim n%,b,tt=l：b=l:n=2D

50、ob=b*nt=t+bn=n+1Loop Until n9Print tEnd Sub此程序计算并输出一个表达式的值，该表达式是A)9!B)10!C)1!+2!+9!D)1!+21+10!(3 3)有一个名称为Form l的窗体，上面没有控件，设有以下程序(其中方法Pset(X,Y)的功能是在坐标 X,Y 处画一个点)：Dim cmdmave As BooleanPrivate Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)cmdmave=TrueEnd SubPrivate Sub