2007年4月全国计算机等级考试二级VB语言笔试试题及答案

2007年 4月全国计算机等级考试二级笔试试卷Visual Basic 语言程序设计一、 选择题(第小题 2分,共 70分 下列各题 A、B、C、D四个选项中, 只有一个选项是正确的。 请将正确选项填涂在答题卡相应位置上, 答在试卷上不 得分。(1下列叙述中正确的是(BA算法的效率只与问题的规模有关,而与数据的存储结构无关B算法的时间复杂度是指执行算法所需要的计算工作量C数据的逻辑结构与存储结构是一一对应的D算法的时间复杂度与空间复杂度一定相关(2在结构化程序设计中,模块划分的原则是(DA各模块应包括尽量多的功能B各模块的规模应尽量大C各模块之间的联系应尽量紧密D模块内具有高内聚度、模块间具有低耦合度(3下列叙述中正确的是(AA软件测试的主要目的是发现程序中的错误B软件测试的主要目的是确定程序中错误的位置C为了提高软件测试的效率, 最好由程序编制者自己来完成软件的测试工作D软件测试是证明软件没有错误(4下面选项中不属于面向对象程序设计特征的是(CA继承性B多态性C类比性D封装性(5下列对队列的叙述正确的是(DA队列属于非线性表B队列按“先进后出”原则组织数据C队列在队尾删除数据D队列按“先进先出”原则组织数据(6对下列二叉树(CAB CD E F XY Z进行前序遍历的结果为ADYBEAFCZXBYDEBFZXCACABDYECFXZDABCDEFXYZ(7某二叉树中有 n 个度为 2的结点,则该二叉树中的叶子结点数为(AAn+1Bn-1C2nDn/2(8在下列关系运算中,不改变关系表中的属性个数但能减少元组个数的是 (BA并B交C投影D笛卡儿乘积(9在 ER 图中,用来表示实体之间联系的图形是(CA矩形B椭圆形C菱形D平行四边形(10下列叙述中错误的是(AA在数据库系统中,数据的物理结构必须与逻辑结构一致B数据库技术的根本目标是解决数据共享问题C数据库技术是指己有数据管理系统的基础上建立数据库D数据库系统需要操作系统的支持(11下面可以正确定义 2个整形变量和 1个字符串变量的语句的是(DADim n,m AS Interger,s AS StringBDim a%,b$,cAS StringCDim a AS Integer,b,c AS StringDDim x%,yAS Integer,z AS String(12下列表述中不能判断 x 是否为偶数的是(DAx/2=Int(x/2Bx Mod 2=0CFix(x/2=x/2Dx2=013设在名称为 Myform 的窗体上只有 1个名称为 C1的命令按钮,下面叙述中 正确的是(BA窗体的 Click 事件过程的过程名是 Myform_ClickB命令按钮的 Click 事件过程名是 C1_ClickC命令按钮的 Click 事件过程的过程名是 Command1_Click(14设窗体上有 1个滚动条,要求单击滚动条右端的 按钮一次,滚动条移 动一定的刻度值,决定此刻度的属性是(CAMaxBMinCSmallChangeDLargeChang(151个二维数组可以存放 1个矩形.在程序开始有语句 Option Base 0,则 下面定义的数组中正好可以存放 1个 4*3矩阵(即只有 12个元素的是(BADim a(-2To 0,2 AS IntegerBDim a(3,2AS IngegerCDim a(4,3ASIngegerDDim a(-1To -4,-1To -3AS Ingeger(16若设置了文本框的属性 PasswordChar=”$”,则运行程序时向文本框中 输入 8个任意字符后,文本框中显示的是(AA8个”$”B1个”$”C8个”*”D无任何内容(17设在窗体上有 1个名称为 Combo1的组合框,含有 5个项目,要删除最后 一项,正确的语句是(BACombo1.RemoveItem Combo1.TextB Combo1.RemoveItem4C Combo1.RemoveItem Combo1.ListCountD Combo1.RemoveItem5(18工程中有 2个窗体,名称分别为 Form1.Form2,Form1为启动窗体,该窗体 上有命令按钮 Command1,要求程序运行后单击该命令按钮时显示 Form2,则按钮 的 Click 事件过程应该是(AAPrivate Sub Command1_Click( B Private Sub Command1_Click( Form2.Show Form2.VisibleEnd Sub End SubC Private Sub Command1_Click( DPrivate Sub Command1_Click( Load Form2Form2.LoadEnd Sub End Sub(19若在某窗体模块中有如下事件过程(DPrivate Sub Command1_Click(IndexAS IntegerEnd Sub则以下叙述中正确的是A 此事件过程与不带参数的事件过程没有区别B 有 1个名称为 Command1的窗体,单击此窗体则执行此事件过程C 有 1个名称为 Command1的空件数组,数组中有多个不同类型控件D 有 1个名称为 Command1的空件数组,数组中有多个相同类型控件(20以下循环语句中在任何情况下都至少执行一次循环体的是(CADo While BWhile 循环体 循环体Loop WendCDo DDo Until 循环体 循环体Loop Until Loop(21在窗体上有 1个名为 Cd1的通用对话框,为了在运行程序时打开保存文 件对话框,则在程序总应使用的语句是(AACd1.Action=2BCd1.Action=1CCd1.ShowSave=TureDCd1.ShowSave=0(22下面关于菜单的叙述中错误的是(BA各级菜单中的所有菜单项的名称必须唯一B同一子菜单中的菜单项名称必须唯一,但不同子菜单中的菜单项名称可 以相同C弹出式菜单也用菜单编辑器编辑(23已知有下面的过程(DPrivate Sub proc1(aAs Integer,b As String,Optional x As Boolean End Sub正确调用此过程的语句是ACall procl(5BCall proc15,”abc”,FalseCproc1(12,”abc”,TrueDproc15, “abc”(24在窗体上有一个文件名称为 Text1的文本框和 1个名称为 Command1的 命令按钮, 要求在程序执行时, 每单击命令按钮一次, 文本框向右移动一定距离。 下面能够正确实现上述功能的程序是(CAPrivate Sub Command1_Click(B Private Sub Command1_Click(Text1.Left=100T ext1.Left= Text1.Left-100End Sub End Sub CPrivate Sub Command1_Click(D Private Sub Command1_Click(Text1.Move.Text.Left+100 Text1.Move.Text.LeftEnd Sub End Sub(25某人创建了 1个工程,其中的窗体名称为 Form1;之后又添加了 1个名 为 Form2的窗体, 并希望程序执行时先显示 Form2窗体, 那么,他需要做的工作 是(AA在工程属性对话框中把“启动对象”设置为 Form2B在 Form1的 Load 事件过程中加入语句 Load Form2C在 Form2的 Load 事件过程中加入语句 Form2.ShowD在 Form2的 TabIndex 属性设置为1, 把 Form1的 TabIndex 属性设置为2(26窗体上有1个名称为 Text1的文本框和1个名称为 Command1的命令按 钮。 要求程序运行时, 单击命令按钮, 就可以把文本框中的内容写到文件 out.txt 中, 每次写入的内容附加到文件原有内容之后。 下面能够实现上述功能的程序是 (CAPrivate Sub Command1_Click(B Private Sub Command1_Click( Open “out.txt” For Inpit As#1Open “out.txt” For Outpit As#1Print#1,Text1.TextPrint#1,Text1.TextClose#1Close#1End Sub End SubC Private Sub Command1_Click(D Private Sub Command1_Click( Open “out.txt” For Append As#1Open “out.txt” For Random As#1Print#1,Text1.TextPrint#1,Text1.TextClose#1Close#1End SubEnd Sub(27为计算 1+3+5+99的值,某人编程如下k=1s=0While k=99k=k+2:s=s+kWendPrint s在调试时发现运行结果有错误, 需要修改。 下列错误原因和修改方案中正确 的是(DAWhile Wend 循环语句错误,应改为 For k=1To 99Next kB循环条件错误,应改为 Whlie k99C循环前的赋值语句 k=1错误,应改为 k=0D循环中两条赋值语句的顺序错误,应改为 s=s+k:(29在窗体上有 1个名称为 CommonDialog1的通用对话框和 1个名称为 Command1的命令按钮,以及其他一些控件。要求在程序运行时,单击 Command1按钮, 则显示打开文件对话框, 并在选择或输入了 1个文件名后,就可以打开该 文件。以下是 Command1_Click事件过程的两种算法算法 1:Private Sub Command1_Click(CommonDialog1.ShowOpenOpen CommonDialog1.FileName For Input As#1End Sub算法 2:Private Sub Command1_Click(CommonDialog1.ShowOpenIfCommonDialog1.FileName” ”ThenOpen CommonDialog1.FileName For Input As#1End IfEnd Sub下面关于这两种算法的叙述中正确的是(BA 显示打开文件对话框后若未选择或输入任何文件名, 则算法 2会出错, 算法 1不会B 显示打开文件对话框后若未选择或输入任何文件名, 则算法 1会出错, 算法 2不会C 两种算法的执行结果完全一样D 算法 1允许输入的文件名中含有空格,而算法 2不允许(30 窗体上有 1个名称为 List 的列表框, 其中已经输入了若干个项目 (如 图所示 :还有 2个文本框, 名称分别为 Text1、 Text2, 1个名称为 Command1的命令按钮,并有以下程序Private Sub Command1_Click(Dim str As String, s As String, k As Integers=Text1Str=” ”For k=List1.ListCount-1to 0Step-1If InStr(List.List(k,s0thenstr=str&List.List(k&” ”End IfNext kIf str=” ”ThenText2=”没有匹配的项目”ElseText2=strEnd IfEnd Sub程序运行时,在 Text1中输入“京” ,单击命令按钮,则在 Text2中显示的 内容是(CA 京B 北京 南京C 南京D 没有匹配的项目(31在窗体上画 1一个名称为 Command1的命令按钮,并编写以下程序 Private Sub Command1_Click(Print fun(“ABCDEFG”End SubFunction fun(stAs String As Stringstlen=Len(sttemp=” ”For kfun=tempEnd Function程序运行时,单击命令按钮,则窗体上显示的是(BAABCDEFGBAGBFCECGFEDCBADAGBFCED(32在窗体上先后画 2个图片框,名称分别为 Picture1和 banana,banana 中添加了香蕉图片 (见图 1 ,且将 banana.DragMode 属性设置为 1。要求程序运 行时,可以用鼠标把 banana 拖拽到 Picture1中(见图 2 。能实现此功能的事 件过程是(CA Priate Sub Form_DragDrop(SourceAs Control,X As Single,Y As Single banana.Move Picture1.Left+X,Picture1.Top+YEnd SubBPrivate Sub banana _DragDrop(SourceAs Control,X As Single,Y As Single Source.Move Picture1.Left+X.Picture1.Top+YEnd SubC BPrivate Sub Picture1_DragDrop(SourceAs Control,X As Single,Y As Single Source.Move Picture1.Left+X.Picture1.Top+YEnd SubD BPrivate Sub Picture1_DragDrop(SourceAs Control,X As Single,Y As Single banana.Move banana.Left+X,banana.Top+YEnd Sub(33在窗体上画 1个名称为 Command1的命令按钮,然后编写如下事件过程 Option Base 1Pribate Sub Command1_Click(Dim a(5.5As IntegerFor i=1To 5a(I,j*510Next jNext iS=0For i=1To 5S=s+a(i,iNext iPrint sEnd Sub程序运行后,单击命令按钮,输出结果是(AA 15B13C11D9(34在窗体上从左到右有 Text1、 Text2两个文本框 (见图 ,要求程序运行 时, 在 Text1中输入 1个分数后按回车键, 则判断分数的合法性, 若分数为 0100中的 1个数,周围光标移到 Text2中;否则光标不动,并弹出对话框显示“分数 错” ,下面程序中正确的是(DAPrivate Sub Text1_KeyPress(KeyAsciiAS IntegerIf KeyAscii=13Then 回车符的 ACSII 码是 13a=Val(Text1If a=0or a=0And a=100ThenText1.SetFocusElseText2. SetFocus ; MsgBox(“分数错”End IfEnd IfEnd SubC Private Sub Text1_KeyPress(KeyAsciiAS IntegerIf KeyAscii=13Then 回车符的 ACSII 码是 13a=Val(Text1If a100ThenText2.SetFocusElseText1. SetFocus ; MsgBox(“分数错”End IfEnd IfEnd SubD Private Sub Text1_KeyPress(KeyAsciiAS IntegerIf KeyAscii=13Then 回车符的 ACSII 码是 13a=Val(Text1If a=0And a=100ThenText2.SetFocusElseText1. SetFocus ; MsgBox(“分数错”End IfEnd IfEnd Sub(35在窗体上画 2个命令按钮,名称分别为 Command1、command2,并编写 如下程序Const n=5,m=4Dim a(m,nPrivate Sub Command1_Click(K=1For i=1To mFor j=1To na(i,j=kk=k+1Next jNext iPrivate Sub Command2_Click(Summ=0For i=1To mFor j=1To nIf i=1Or i=mThenSumm=summ+a(i,jElseIf j=IOr j=nThenSumm=summ+a(i,jEnd IfEnd IfNext jNext iPrint summEnd Sub过程 Command1_Click(的作用是二维数组 a 中存放 1个 m 行 n 列的矩阵; 过程 Command2_Click(的作用是(AA 计算矩阵外围一圈元素的累加和B 计算矩阵除外一圈以外的所有元素的累加和C 计算矩阵第 1列和最后一列元素的累加和D 计算矩阵第 1行和最后一行元素的累加和二、填空题(每空 2分,共 30分请将每一个空的正确答案写在答题纸上115序号的横线上, 答在试卷上, 答在试卷上不得分,注意:以命令关键字填空的必须写完整(1 在深度为 7的满二叉树中,度为 2的结点个数为_63_。(2 软件测试分为白箱(盒测试和黑箱(盒测试,等价类划分法 属于_黑箱(或黑盒 测试。(3 在数据库系统中,实现各种数据管理功能的核心软件称为 数 据库管理系统(DBMS_。(4 软件生命周期可分为多个阶段,一般分为定义阶段、开发阶段和 维护阶段。编码和测试属于 开发_阶段。(5在结构化分析使用的数据流图(DFD中,利用 数据字典 对其中的 图形元素进行确切解释。(61+.n 最大的 n。请填空Private Sub Command1_Click( Dim s ,m,n AS Integer m=Val(InputBox(“请输入一个大于 100 的整数” n= 0 s=0 Do While s N=n+1 S=s+n*n Loop Print “满足不等式的最大 n 是 n-1 End Sub (7下面程序的功能是把文件 file11.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 #2 n=LOF( 1 inchar=Input$(n,1 For k=1 To n temp=Mid(inchar,k,1 If InStr(outchar,temp= 0 Then outchar=outchar & temp End If Next k print #2, outchar close #2 close #1 End Sub (8在窗体上先画 1 个名为 Text1 的文本框和平个名为 Label1 的标签,再画 1 个名为 OP1 的有 4 个单选按钮数组,其 Index 属性按季度顺序为 03(见图 1。 在文件 sales.txt 中按月份顺序存有某企业某年 12 个月的销售额。要求在程序 执行时，鼠标单击 1 个单选按钮，则