《2020年新编全国计算机等级考试二级VB语言笔试试题及答案名师精品资料..docx》由会员分享，可在线阅读，更多相关《2020年新编全国计算机等级考试二级VB语言笔试试题及答案名师精品资料..docx（13页珍藏版）》请在三一文库上搜索。
1、 2005 年 9 月全国计算机等级考试二级笔试试卷公共基础知识和 Visual Basic 语言程序设计(考试时间 90 分钟，满分 100 分)一、选择题(每小题 2 分,共 70 分)下列各题 A)、B)、C)、D)四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。（1）下列叙述中正确的是A程序设计就是编制程序C。B程序的测试必须由程序员自己去完成C程序经调试改错后还应进行再测试 D程序经调试改错后不必进行再测试（2）下列数据结构中，能用二分法进行查找的是A。A顺序存储的有序线性表 B线性链表 C二叉链表 D有序线性链表（3）下列关于栈的描述正确的是
2、C。A在栈中只能插入元素而不能删除元素B在栈中只能删除元素而不能插入元素C栈是特殊的线性表，只能在一端插入或删除元素D栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素（4）下列叙述中正确的是D。A一个逻辑数据结构只能有一种存储结构B数据的逻辑结构属于线性结构，存储结构属于非线性结构C一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率D一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率（5）下列描述中正确的是C。A软件工程只是解决软件项目的管理问题B软件工程主要解决软件产品的生产率问题C软件工程的主要思想是强调在软件开发过程中需要应用工程化原则D软件
3、工程只是解决软件开发中的技术问题（6）在软件设计中，不属于过程设计工具的是D。APDL(过程设计语言) BPAD图 CN-S 图 DDFD 图（7）下列叙述中正确的是A。A软件交付使用后还需要进行维护B软件一旦交付使用就不需要再进行维护C软件交付使用后其生命周期就结束 D软件维护是指修复程序中被破坏的指令（8）数据库设计的根本目标是要解决A。A数据共享问题 B数据安全问题 C大量数据存储问题 D简化数据维护 （9）设有如下关系表:RA12SA3TA123B12C23B121C233则下列操作中正确的是B。ATRS BTRSCTRS DTR/S（10）数据库系统的核心是B。A数据模型 B数据库管
4、理系统C数据库 D数据库管理员（11）假定一个 Visual Basic 应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是B。A只保存窗体模块文件B分别保存窗体模块、标准模块和工程文件C只保存窗体模块和标准模块文件 D只保存工程文件（12）为了清除窗体上的一个控件，下列正确的操作是A按回车键C。B按 Esc 键C选择（单击）要清除的控件，然后按Del 键D选择（单击）要清除的控件，然后按回车键（13）以下叙述中错误的是C。A打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B当程序运行时，双击一个窗体，则触发该窗体的DblClick 事件CVisu
5、al Basic 应用程序只能以解释方式执行D事件可以由用户引发，也可以由系统引发（14）设 a=2, b=3, c=4, d=5, 下列表达式的值是D。Not a=c Or 4*c=b2 And ba+cA-1B1CTrue DFalse（15）设 a = 5，b = 10，则执行 c = Int(b - a) * Rnd + a) + 1 后，c 值的范围为A510 B69 C610 D59C。（16）在窗体上画一个命令按钮，名称为 Command1，然后编写如下事件过程：Private Sub Command1_Click()a$ = software and hardwareb$ =
6、Right(a$, 8)c$ = Mid(a$, 1, 8)MsgBox a$, b$, c$, 1End Sub 运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是Asoftware and hardware Bsoftware Chardware D-1C。（17）在窗体上画一个命令按钮和一个文本框，其名称分别为Command1 和 Text1，把文本框的 Text 属性设置为空白，然后编写如下事件过程：Private Sub Command1_Click()a = InputBox(Enter an integer)b = InputBox(Enter an integer)Te
7、xt1.Text = b + aEnd Sub程序运行后，单击命令按钮，如果在输入对话框中分别输入 8 和 10，则文本框中显示的内容是A。A108B18C810 D出错（18）在窗体上画两个文本框，其名称分别为Text1 和 Text2，然后编写如下程序：Private Sub Form_Load()ShowText1.Text = Text2.Text = Text1.SetFocusEnd SubPrivate Sub Text1_Change()Text2.Text = Mid(Text1.Text, 8)End Sub程序运行后，如果在文本框 Text1 中输入 BeijingChi
8、na，则在文本框 Text2 中显示的内容是B。ABeijingChinaBChinaCBeijing DBeijingC（19）在窗体上画一个列表框和一个命令按钮，其名称分别为List1 和 Command1，然后编写如下事件过程：Private Sub Form_Load()List1.AddItem Item 1List1.AddItem Item 2List1.AddItem Item 3End SubPrivate Sub Command1_Click()List1.List(List1.ListCount) = AAAAEnd Sub程序运行后，单击命令按钮，其结果为B。A把字符串
9、“AAAA”添加到列表框中，但位置不能确定B把字符串“AAAA”添加到列表框的最后（即“Item 3”的后面）C把列表框中原有的最后一项改为“AAAA”D把字符串“AAAA”插入到列表框的最前面（即“Item 1”的前面） （20）假定有如下事件过程：Private Sub Form_Click()Dim x As Integer, n As Integerx = 1n = 0Do While x 28x = x * 3n = n + 1LoopPrint x, nEnd Sub程序运行后，单击窗体，输出结果是A。A81 4B56 3C28 1 D243 5（21）有如下程序：Private
10、Sub Form_Click()Dim Check, CounterCheck = TrueCounter = 0DoDo While Counter 20Counter = Counter + 1If Counter = 10 ThenCheck = FalseExit DoEnd IfLoopLoop Until Check = FalsePrint Counter, CheckEnd Sub程序运行后，单击窗体，输出结果为D。A15 0 B20 -1 C10 True D10 False（22）有如下程序：Private Sub Form_Click()Dim i As Integer,
11、 sum As Integersum = 0For i = 2 To 10If i Mod 2 0 And i Mod 3 = 0 Thensum = sum + iEnd IfNext iPrint sumEnd Sub 程序运行后，单击窗体，输出结果为A12 B30 C24 D18A。（23）在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim array1(10, 10) As IntegerDim i As Integer, j As IntegerFor i = 1
12、To 3For j = 2 To 4array1(i, j) = i + jNext jNext iText1.Text = array1(2, 3) + array1(3, 4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是A12 B13 C14 D15A。（24）在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click()Dim a1(4, 4), a2(4, 4)For i = 1 To 4For j = 1 To 4a1(i, j) = i + ja2(i, j) = a1(i, j) + i + jNe
13、xt jNext iPrint a1(3, 3); a2(3, 3)End Sub程序运行后，单击命令按钮，在窗体上输出的是A6 6 B10 5 C7 21 D6 12D。（25）有如下程序：Option Base 1Private Sub Form_Click()Dim arr, SumSum = 0arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)For i = 1 To 10If arr(i) / 3 = arr(i) 3 ThenSum = Sum + arr(i)End IfNext iPrint Sum End Sub程序运行后，单击窗体，
14、输出结果为C。A25B26C27 D28（26）在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a(5) As StringFor i = 1 To 5a(i) = Chr(Asc(A) + (i - 1)Next iFor Each b In aPrint b;NextEnd Sub程序运行后，单击命令按钮，输出结果是AABCDE B1 2 3 4 5 CabcdeA。D出错信息（27）以下关于函数过程的叙述中，正确的是D。A如果不指明函数过程参数的类型，则该参数没有数据类型B函数过程的返回值可以有多个C当数组作为函数过程的参数时
15、，既能以传值方式传递，也能以引用方式传递D函数过程形参的类型与函数返回值的类型没有关系（28）函数过程 F1 的功能是：如果参数 b 为奇数，则返回值为 1，否则返回值为 0。以下能正确实现上述功能的代码是B。AFunction F1(b As Integer)If b Mod 2 = 0 ThenReturn 0ElseReturn 1End IfEnd FunctionBFunction F1(b As Integer)If b Mod 2 = 0 ThenF1 = 0ElseF1 = 1End IfEnd FunctionCFunction F1(b As Integer)If b Mo
16、d 2 = 0 ThenF1 = 1ElseF1 = 0 End IfEnd FunctionDFunction F1(b As Integer)If b Mod 2 0 ThenReturn 0ElseReturn 1End IfEnd Function（29）以下关于 KeyPress 事件过程中参数 KeyAscii 的叙述中正确的是A。AKeyAscii 参数是所按键的 ASCII 码 BKeyAscii 参数的数据类型为字符串CKeyAscii 参数可以省略 DKeyAscii 参数是所按键上标注的字符（30）设窗体上有一个名为 Text1 的文本框，并编写如下程序：Private
17、Sub Form_Load()ShowText1.Text = Text1.SetFocusEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Print 程序设计End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)Print Visual Basic;End Sub程序运行后，如果在文本框中输入字母“ a”，然后单击窗体，则在窗体上显示的内容是C。AVisual Basi
18、cB程序设计CVisual Basic 程序设计 Da 程序设计（31）假定有下表所列的菜单结构：名称 层次appearbigicon1（主菜单）2（子菜单）2（子菜单）标 smallicon要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个“”。以下正确的事件过程是C。APrivate Sub bigicon_Click()bigicon.Checked = FalseEnd SubBPrivate Sub bigicon_Click() Me. appear.bigicon.Checked = TrueEnd SubCPrivate Sub bigicon_Click()bi
19、gicon.Checked = TrueEnd SubDPrivate Sub bigicon_Click()appear.bigicon.Checked = TrueEnd Sub（32）假定通用对话框的名称为 CommonDialog1，命令按钮的名称为 Command1，则单击命令按钮后，能使打开的对话框的标题为“New Title”的事件过程是APrivate Sub Command1_Click()CommonDialog1.DialogTitle = New TitleCommonDialog1.ShowPrinterEnd SubC。BPrivate Sub Command1_C
20、lick()CommonDialog1.DialogTitle = New TitleCommonDialog1.ShowFontEnd SubCPrivate Sub Command1_Click()CommonDialog1.DialogTitle = New TitleCommonDialog1.ShowOpenEnd SubDPrivate Sub Command1_Click()CommonDialog1.DialogTitle = New TitleCommonDialog1.ShowColorEnd Sub（33）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是A任何时刻
21、最多只有一个窗体是活动窗体D。B不能把标准模块设置为启动模块C用 Hide 方法只是隐藏一个窗体，不能从内存中清除该窗体D如果工程中含有 Sub Main 过程，则程序一定首先执行该过程（34）假定在工程文件中有一个标准模块，其中定义了如下记录类型Type BooksName As String * 10TelNum As String * 20End Type要求当执行事件过程 Command1_Click 时，在顺序文件 Person.txt 中写入一条记录。下列能够完成该操作的事件过程是APrivate Sub Command1_Click()Dim B As BooksA。Open c
22、:Person.txt For Output As #1 B.Name = InputBox(输入姓名)B.TelNum = InputBox(输入电话号码)Write #1, B.Name, B.TelNumClose #1End SubBPrivate Sub Command1_Click()Dim B As BooksOpen c:Person.txt For Input As #1B.Name = InputBox(输入姓名)B.TelNum = InputBox(输入电话号码)Print #1, B.Name, B.TelNumClose #1End SubCPrivate Sub
23、Command1_Click()Dim B As BooksOpen c:Person.txt For Output As #1Name = InputBox(输入姓名)TelNum = InputBox(输入电话号码)Write #1, BClose #1End SubDPrivate Sub Command1_Click()Dim B As BookOpen c:Person.txt For Input As #1Name = InputBox(输入姓名)TelNum = InputBox(输入电话号码)Print #1, B.Name, B.TelNumClose #1End Sub（3
24、5）目录列表框的 Path 属性的作用是B。A显示当前驱动器或指定驱动器上的某目录下的文件名B显示当前驱动器或指定驱动器上的目录结构C显示根目录下的文件名D显示指定路径下的文件2 分，共 30 分）请将每空的正确答案写在答题卡【1】【15】序号的横线上，答在试卷上不得分。（1）数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段，其中数据独立性最高的阶段是【1】。（2）算法复杂度主要包括时间复杂度和【2】复杂度。 （3）在进行模块测试时，要为每个被测试的模块另外设计两类模块：驱动模块和承接模块（桩模块）。其中 【3】 的作用是将测试数据传送给被测试的模块，并显示被测试模块所产生的结果
25、。（4）一棵二叉树第六层（根结点为第一层）的结点数最多为（5）数据结构分为逻辑结构和存储结构，循环队列属于【4】【5】个。结构。（6）设有以下函数过程：Function fun(m As Integer) As IntegerDim k As Integer, sum As Integersum = 0For k = m To 1 Step -2sum = sum + kNext kfun = sumEnd Function若在程序中用语句 s = fun(10) 调用此函数，则 s 的值为【6】。（7）在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的 Click 事件过程。程序运行后，
26、在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到 Text1 中。例如，若在 Text1中 输 入 的 是 abDfdb ， 则 单 击 Command1 按 钮 后 Text1 中 显 示 的 字 符 串 是ZYXWVUTSRQPONMLKJIHGEC。请填空。Private Sub Command1_Click( )Dim str As String, s As String, c As Stringstr = UCase(Text1)s = c = ZWhile c = AIf InStr(str, c) =
27、0 Thens =End Ifc = Chr$(Asc(c)Wend【7】【8】)If s ThenText1 = sEnd IfEnd Sub（8） 在 n 个运动员中选出任意 r 个人参加比赛，有很多种不同的选法，选法的个数可以用公式计算。下图窗体中 3 个文本框的名称依次是 Text1、Text2、Text3。程 序运行时在 Text1、Text2 中分别输入 n 和 r 的值，单击 Command1 按钮即可求出选法的个数，并显示在 Text3 文本框中(见下图)。请填空。Private Sub Command1_Click( )Dim r As Integer, n As Integ
28、ern = Text1r = Text2Text3 = fun(n) / fun(End Sub【9】) / fun(r)Function fun(n As Integer) as longDim t As Long【10】For k = 1 To nt = t * kNextfun = tEnd Function（9）以下是一个比赛评分程序。在窗体上建立一个名为 Text1 的文本框数组，然后画一个名为 Text2 的文本框和名为 Command1 的命令按钮。运行时在文本框数组中输入 7 个分数，单击“计算得分”命令按钮，则最后得分显示在Text2 文本框中（去掉一个最高分和一个最低分后的
29、平均分即为最后得分），如图所示。请填空。Private Sub Command1_Click( )Dim k As IntegerDim sum As Single, max As Single, min As Singlesum = Text1(0)max = Text1(0)min =【11】【12】For k =To 6If max Text1(k) Thenmin = Text1(k)End Ifsum = sum + Text1(k)Next kText2 = (End Sub【13】) / 5（10）如图所示，在列表框 List1 中已经有若干人的简单信息，运行时在 Text1 文
30、本框（即“查找对象”右边的文本框）输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2 文本框中。若有多个匹配的列表项，则只显示第1 个匹配项；若未找到，则在 Text2 中显示“查无此人”。请填空。Private Sub Command1_Click()Dim k As Integer, n As Integer, found As Booleanfound = Falsen = Len(k = 0【14】)While k List1.ListCount And Not foundIf Text1 = Left$(List1.List(k), n)
31、 ThenText2 =【15】found = TrueEnd Ifk = k + 1WendIf Not found ThenText2 = 查无此人End IfEnd Sub 2005 年 9 月全国计算机等级考试二级 VB 笔试试卷（含参考答案）1- 5】 CACDC 【 6-10】 DAABB11-15】 BCCDC 【16-20】 CABBA21-25】 DAADC 【26-30】 ADBAC31-35】 CCDAB填空题1】数据库系统 【2】空间 【3】驱动模块4】32 【5】存储结构 【6】307】s&c 【8】-1 【9】n-r10】t=1 【11】text1(0) 【12】113】（sum-max-min） 【14】text1.text 【15】list1.list(k)