全国计算机等级考试二级VB语言笔试试题及答案.doc

2005年9月全国计算机等级考试二级笔试试卷公共基础知识和Visual Basic语言程序设计(考试时间90分钟，满分100分)一、选择题(每小题2分,共70分) 下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。（1）下列叙述中正确的是 C 。A程序设计就是编制程序 B程序的测试必须由程序员自己去完成 C程序经调试改错后还应进行再测试 D程序经调试改错后不必进行再测试 （2）下列数据结构中，能用二分法进行查找的是 A 。A顺序存储的有序线性表 B线性链表 C二叉链表 D有序线性链表 （3）下列关于栈的描述正确的是 C 。A在栈中只能插入元素而不能删除元素 B在栈中只能删除元素而不能插入元素 C栈是特殊的线性表，只能在一端插入或删除元素 D栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素 （4）下列叙述中正确的是 D 。A一个逻辑数据结构只能有一种存储结构 B数据的逻辑结构属于线性结构，存储结构属于非线性结构 C一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率 D一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率 （5）下列描述中正确的是 C 。A软件工程只是解决软件项目的管理问题 B软件工程主要解决软件产品的生产率问题 C软件工程的主要思想是强调在软件开发过程中需要应用工程化原则 D软件工程只是解决软件开发中的技术问题 （6）在软件设计中，不属于过程设计工具的是 D 。APDL(过程设计语言) BPAD图 CN-S图 DDFD图 （7）下列叙述中正确的是 A 。A软件交付使用后还需要进行维护 B软件一旦交付使用就不需要再进行维护 C软件交付使用后其生命周期就结束 D软件维护是指修复程序中被破坏的指令 （8）数据库设计的根本目标是要解决 A 。A数据共享问题 B数据安全问题 C大量数据存储问题 D简化数据维护 （9）设有如下关系表: RSTABCABCABC112313112223223313则下列操作中正确的是 B 。ATRS BTRS CTRS DTR/S （10）数据库系统的核心是 B 。A数据模型 B数据库管理系统 C数据库 D数据库管理员（11）假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是 B 。A只保存窗体模块文件 B分别保存窗体模块、标准模块和工程文件 C只保存窗体模块和标准模块文件 D只保存工程文件 （12）为了清除窗体上的一个控件，下列正确的操作是 C 。A按回车键 B按Esc键 C选择（单击）要清除的控件，然后按Del键 D选择（单击）要清除的控件，然后按回车键 （13）以下叙述中错误的是 C 。A打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件 B当程序运行时，双击一个窗体，则触发该窗体的DblClick事件 CVisual Basic应用程序只能以解释方式执行 D事件可以由用户引发，也可以由系统引发 （14）设a=2, b=3, c=4, d=5, 下列表达式的值是 D 。Not a=c Or 4*c=b2 And ba+c A-1 B1 CTrue DFalse （15）设a = 5，b = 10，则执行 c = Int(b - a) * Rnd + a) + 1 后，c值的范围为 C 。A510 B69 C610 D59 （16）在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() a$ = software and hardware b$ = Right(a$, 8) c$ = Mid(a$, 1, 8) MsgBox a$, b$, c$, 1 End Sub 运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是 C 。Asoftware and hardware Bsoftware Chardware D-1 （17）在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() a = InputBox(Enter an integer) b = InputBox(Enter an integer) Text1.Text = b + a End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是 A 。A108 B18 C810 D出错 （18）在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序： Private Sub Form_Load() Show Text1.Text = Text2.Text = Text1.SetFocus End Sub Private Sub Text1_Change() Text2.Text = Mid(Text1.Text, 8) End Sub 程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的内容是 B 。ABeijingChina BChina CBeijing DBeijingC （19）在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程： Private Sub Form_Load() List1.AddItem Item 1 List1.AddItem Item 2 List1.AddItem Item 3 End Sub Private Sub Command1_Click() List1.List(List1.ListCount) = AAAA End Sub 程序运行后，单击命令按钮，其结果为 B 。A把字符串“AAAA”添加到列表框中，但位置不能确定 B把字符串“AAAA”添加到列表框的最后（即“Item 3”的后面） C把列表框中原有的最后一项改为“AAAA” D把字符串“AAAA”插入到列表框的最前面（即“Item 1”的前面） （20）假定有如下事件过程： Private Sub Form_Click() Dim x As Integer, n As Integer x = 1 n = 0 Do While x 28 x = x * 3 n = n + 1 Loop Print x, n End Sub 程序运行后，单击窗体，输出结果是 A 。A81 4 B56 3 C28 1 D243 5（21）有如下程序： Private Sub Form_Click() Dim Check, Counter Check = True Counter = 0 Do Do While Counter 20 Counter = Counter + 1 If Counter = 10 Then Check = False Exit Do End If Loop Loop Until Check = False Print Counter, Check End Sub 程序运行后，单击窗体，输出结果为 D 。A15 0 B20 -1 C10 True D10 False （22）有如下程序： Private Sub Form_Click() Dim i As Integer, sum As Integer sum = 0 For i = 2 To 10 If i Mod 2 0 And i Mod 3 = 0 Then sum = sum + i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为 A 。A12 B30 C24 D18 （23）在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim array1(10, 10) As Integer Dim i As Integer, j As Integer For i = 1 To 3 For j = 2 To 4 array1(i, j) = i + j Next j Next i Text1.Text = array1(2, 3) + array1(3, 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是 A 。A12 B13 C14 D15 （24）在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim a1(4, 4), a2(4, 4) For i = 1 To 4 For j = 1 To 4 a1(i, j) = i + j a2(i, j) = a1(i, j) + i + j Next j Next i Print a1(3, 3); a2(3, 3) End Sub 程序运行后，单击命令按钮，在窗体上输出的是 D 。A6 6 B10 5 C7 21 D6 12 （25）有如下程序： Option Base 1 Private Sub Form_Click() Dim arr, Sum Sum = 0 arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) For i = 1 To 10 If arr(i) / 3 = arr(i) 3 Then Sum = Sum + arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为 C 。A25 B26 C27 D28 （26）在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5) As String For i = 1 To 5 a(i) = Chr(Asc(A) + (i - 1) Next i For Each b In a Print b; Next End Sub 程序运行后，单击命令按钮，输出结果是 A 。AABCDE B1 2 3 4 5 Cabcde D出错信息 （27）以下关于函数过程的叙述中，正确的是 D 。A如果不指明函数过程参数的类型，则该参数没有数据类型 B函数过程的返回值可以有多个 C当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递 D函数过程形参的类型与函数返回值的类型没有关系 （28）函数过程F1的功能是：如果参数b为奇数，则返回值为1，否则返回值为0。以下能正确实现上述功能的代码是 B 。AFunction F1(b As Integer) If b Mod 2 = 0 Then Return 0 Else Return 1 End If End Function BFunction F1(b As Integer) If b Mod 2 = 0 Then F1 = 0 Else F1 = 1 End If End Function CFunction F1(b As Integer) If b Mod 2 = 0 Then F1 = 1 Else F1 = 0 End If End Function DFunction F1(b As Integer) If b Mod 2 0 Then Return 0 Else Return 1 End If End Function （29）以下关于KeyPress事件过程中参数KeyAscii的叙述中正确的是 A 。AKeyAscii参数是所按键的ASCII码 BKeyAscii参数的数据类型为字符串 CKeyAscii参数可以省略 DKeyAscii参数是所按键上标注的字符 （30）设窗体上有一个名为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text = Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Print 程序设计 End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print Visual Basic; End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是 C 。 AVisual Basic B程序设计 CVisual Basic程序设计 Da程序设计（31）假定有下表所列的菜单结构： 标题 名称 层次 显示appear1（主菜单） 大图标bigicon 2（子菜单） 小图标smallicon2（子菜单） 要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个“”。以下正确的事件过程是 C 。APrivate Sub bigicon_Click() bigicon.Checked = False End Sub BPrivate Sub bigicon_Click() Me. appear.bigicon.Checked = True End Sub CPrivate Sub bigicon_Click() bigicon.Checked = True End Sub DPrivate Sub bigicon_Click() appear.bigicon.Checked = True End Sub （32）假定通用对话框的名称为CommonDialog1，命令按钮的名称为Command1，则单击命令按钮后，能使打开的对话框的标题为“New Title”的事件过程是 C 。APrivate Sub Command1_Click() CommonDialog1.DialogTitle = New Title CommonDialog1.ShowPrinter End Sub BPrivate Sub Command1_Click() CommonDialog1.DialogTitle = New Title CommonDialog1.ShowFont End Sub CPrivate Sub Command1_Click() CommonDialog1.DialogTitle = New Title CommonDialog1.ShowOpen End Sub DPrivate Sub Command1_Click() CommonDialog1.DialogTitle = New Title CommonDialog1.ShowColor End Sub （33）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是 D 。A任何时刻最多只有一个窗体是活动窗体 B不能把标准模块设置为启动模块 C用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体 D如果工程中含有Sub Main过程，则程序一定首先执行该过程 （34）假定在工程文件中有一个标准模块，其中定义了如下记录类型 Type Books Name As String * 10 TelNum As String * 20 End Type 要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是 A 。APrivate Sub Command1_Click() Dim B As Books Open c:Person.txt For Output As #1 B.Name = InputBox(输入姓名) B.TelNum = InputBox(输入电话号码) Write #1, B.Name, B.TelNum Close #1 End Sub BPrivate Sub Command1_Click() Dim B As Books Open c:Person.txt For Input As #1 B.Name = InputBox(输入姓名) B.TelNum = InputBox(输入电话号码) Print #1, B.Name, B.TelNum Close #1 End Sub CPrivate Sub Command1_Click() Dim B As Books Open c:Person.txt For Output As #1 Name = InputBox(输入姓名) TelNum = InputBox(输入电话号码) Write #1, B Close #1 End Sub DPrivate Sub Command1_Click() Dim B As Book Open c:Person.txt For Input As #1 Name = InputBox(输入姓名) TelNum = InputBox(输入电话号码) Print #1, B.Name, B.TelNum Close #1 End Sub （35）目录列表框的Path属性的作用是 B 。A显示当前驱动器或指定驱动器上的某目录下的文件名 B显示当前驱动器或指定驱动器上的目录结构 C显示根目录下的文件名 D显示指定路径下的文件二、填空题（每空2分，共30分） 请将每空的正确答案写在答题卡【1】【15】序号的横线上，答在试卷上不得分。 （1）数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段，其中数据独立性最高的阶段是 【1】 。 （2）算法复杂度主要包括时间复杂度和 【2】 复杂度。 （3）在进行模块测试时，要为每个被测试的模块另外设计两类模块：驱动模块和承接模块（桩模块）。其中 【3】 的作用是将测试数据传送给被测试的模块，并显示被测试模块所产生的结果。 （4）一棵二叉树第六层（根结点为第一层）的结点数最多为 【4】 个。 （5）数据结构分为逻辑结构和存储结构，循环队列属于 【5】 结构。 （6）设有以下函数过程： Function fun(m As Integer) As Integer Dim k As Integer, sum As Integer sum = 0 For k = m To 1 Step -2 sum = sum + k Next k fun = sum End Function 若在程序中用语句 s = fun(10) 调用此函数，则s的值为 【6】 。 （7）在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。 Private Sub Command1_Click( ) Dim str As String, s As String, c As String str = UCase(Text1) s = c = Z While c = A If InStr(str, c) = 0 Then s = 【7】 End If c = Chr$(Asc(c) 【8】 ) Wend If s Then Text1 = s End If End Sub（8） 在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式 计算。下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中(见下图)。请填空。 Private Sub Command1_Click( ) Dim r As Integer, n As Integer n = Text1 r = Text2 Text3 = fun(n) / fun( 【9】 ) / fun(r) End Sub Function fun(n As Integer) as long Dim t As Long 【10】 For k = 1 To n t = t * k Next fun = t End Function （9）以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），如图所示。请填空。Private Sub Command1_Click( ) Dim k As Integer Dim sum As Single, max As Single, min As Single sum = Text1(0) max = Text1(0) min = 【11】 For k = 【12】 To 6 If max Text1(k) Then min = Text1(k) End If sum = sum + Text1(k) Next k Text2 = ( 【13】 ) / 5 End Sub（10）如图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框（即“查找对象”右边的文本框）输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。 Private Sub Command1_Click() Dim k As Integer, n As Integer, found As Boolean found = False n = Len( 【14】 ) k = 0 While k List1.ListCount And Not found If Text1 = Left$(List1.List(k), n) Then Text2 = 【15】 found = True End If k = k + 1 Wend If Not found Then Text2 = 查无此人 End If End Sub2005年9月全国计算机等级考试二级VB笔试试卷（含参考答案） 选择题 【 1- 5】 CACDC 【 6-10】 DAABB 【11-15】 BCCDC 【16-20】 CABBA 【21-25】 DAADC 【26-30】 ADBAC 【31-35】 CCDAB 填空题 【1】数据库系统 【2】空间 【3】驱动模块 【4】32 【5】存储结构 【6】30 【7】s&c 【8】-1 【9】n-r 【10】t=1 【11】text1(0) 【12】1 【13】（sum-max-min） 【14】text1.text 【15】list1.list(k)人与人之间的距离虽然摸不着，看不见，但的的确确是一杆实实在在的秤。真与假，善与恶，美与丑，尽在秤杆上可以看出；人心的大小，胸怀的宽窄，拨一拨秤砣全然知晓。人与人之间的距离，不可太近。与人太近了，常常看人不清。一个人既有优点，也有缺点，所谓人无完人，金无赤足是也。初识时，走得太近就会模糊了不足，宠之；时间久了，原本的美丽之处也成了瑕疵，嫌之。与人太近了，便随手可得，有时得物，据为己有，太过贪财；有时得人，为己所用，也许贪色。贪财也好，贪色亦罢，都是一种贪心。与人太近了，最可悲的就是会把自己丢在别人身上，找不到自己的影子，忘了回家的路。这世上，根本没有零距离的人际关系，因为人总是有一份自私的，人与人之间太近的距离，易滋生事端，恩怨相随。所以，人与人相处的太近了，便渐渐相远。人与人之间的距离也不可太远。太远了，就像放飞的风筝，过高断线。太远了，就像南徙的大雁，失群哀鸣。太远了，就像失联的旅人，形单影只。人与人之间的距离，有时，先远后近；有时，先近后远。这每次的变化之中，总是有一个难以忘记的故事或者一段难以割舍的情。有时候，人与人之间的距离，忽然间近了，其实还是远；忽然间远了，肯定是伤了谁。人与人之间的距离，如果是一份信笺，那是思念；如果是一个微笑，那是宽容；如果是一句问候，那是友谊；如果是一次付出，那是责任。这样的距离，即便是远，但也很近。最怕的，人与人之间的距离就是一句失真的谗言，一个不屑的眼神，一叠诱人的纸币，或者是一条无法逾越的深谷。这样的距离，即便是近，但也很远。人与人之间最美的距离，就是不远不近，远中有近，近中有远，远而不离开，近而不相丢。太远的距离，只需要一份宽容，就不会走得太远而行同陌人；太近的距离，只需要一份自尊，就不会走得太近而丢了自己。不远不近的距离，多像一朵艳丽的花，一首悦耳的歌，一首优美的诗。人生路上，每个人的相遇、相识，都是一份缘，我们都是相互之间不可或缺的伴。人与人之间的距离虽然摸不着，看不见，但的的确确是一杆实实在在的秤。真与假，善与恶，美与丑，尽在秤杆上可以看出；人心的大小，胸怀的宽窄，拨一拨秤砣全然知晓。人与人之间的距离，不可太近。与人太近了，常常看人不清。一个人既有优点，也有缺点，所谓人无完人，金无赤足是也。初识时，走得太近就会模糊了不足，宠之；时间久了，原本的美丽之处也成了瑕疵，嫌之。与人太近了，便随手可得，有时得物，据为己有，太过贪财；有时得人，为己所用，也许贪色。贪财也好，贪色亦罢，都是一种贪心。与人太近了，最可悲的就是会把自己丢在别人身上，找不到自己的影子，忘了回家的路。这世上，根本没有零距离的人际关系，因为人总是有一份自私的，人与人之间太近的距离，易滋生事端，恩怨相随。所以，人与人相处的太近了，便渐渐相远。人与人之间的距离也不可太远。太远了，就像放飞的风筝，过高断线。太远了，就像南徙的大雁，失群哀鸣。太远了，就像失联的旅人，形单影只。人与人之间的距离，有时，先远后近；有时，先近后远。这每次的变化之中，总是有一个难以忘记的故事或者一段难以割舍的情。有时候，人与人之间的距离，忽然间近了，其实还是远；忽然间远了，肯定是伤了谁。人与人之间的距离，如果是一份信笺，那是思念；如果是一个微笑，那是宽容；如果是一句问候，那是友谊；如果是一次付出，那是责任。这样的距离，即便是远，但也很近。最怕的，人与人之间的距离就是一句失真的谗言，一个不屑的眼神，一叠诱人的纸币，或者是一条无法逾越的深谷。这样的距离，即便是近，但也很远。人与人之间最美的距离，就是不远不近，远中有近，近中有远，远而不离开，近而不相丢。太远的距离，只需要一份宽容，就不会走得太远而行同陌人；太近的距离，只需要一份自尊，就不会走得太近而丢了自己。不远不近的距离，多像一朵艳丽的花，一首悦耳的歌，一首优美的诗。人生路上，每个人的相遇、相识，都是一份缘，我们都是相互之间不可或缺的伴。