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

1、WOR格 式2005年9月全国计算机等级考试二级笔试试卷公共基础知识和Visual Basic语言程序设计(考试时90分钟，满100 分)间分、选择题(每小题2分,共70分)F列各题A)、B) 、C)、D)四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。(1)下列叙述中正确的是C。A .程序设计就是编制程序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. 软件工程

3、的主要思想是强调在软件开发过程中需要应用工程化原则D. 软件工程只是解决软件开发中的技术问题(6) 在软件设计中，不属于过程设计工具的是D。A . PDL(过程设计语言)B . PAD 图C. N-S 图 D . DFD 图(7) 下列叙述中正确的是AA .软件交付使用后还需要进行维护C.软件交付使用后其生命周期就结束(8) 数据库设计的根本目标是要解决A .数据共享问题B.数据安全问题B. 软件一旦交付使用就不需要再进行维护D. 软件维护是指修复程序中被破坏的指令A。C. 大量数据存储问题D.简化数据维护(9)设有如下关系 表：RF=S=r|=J'B,C3BCABC-o-O1 3rx

4、1-B-1匕 o乙111二o2322H3则下列操作中正确的是B。A. T=RQSB.T= RUSC. T = RX SD.T=R/S(10)数据库系统的核心是B 。A .数据模型B .数据库管理系统C.数据库D.数据库管理员(11 )假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是 B。A .只保存窗体模块文件B .分别保存窗体模块、标准模块和工程文件C.只保存窗体模块和标准模块文件D .只保存工程文件(12)为了清除窗体上的一个控件，下列正确的操作是CA .按回车键B. 按Esc键C. 选择(单击)要清除的控件，然后按Del键D.

5、 选择(单击)要清除的控件，然后按回车键(13)以下叙述中错误的是CA .打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B. 当程序运行时，双击一个窗体，则触发该窗体的DbICIick 事件C. Visual Basic应用程序只能以解释方式执行D. 事件可以由用户引发，也可以由系统引发(14 )设a=2, b=3, c=4, d=5,下列表达式的值是 DA . -1B .1C.TrueD.False(15 )设 a = 5范围为,b = 10，贝U执行Cc = Int(b - a) * Rnd + a) + 1oA . 5 -10B.6 9C. 62 10 D. 5 9C

6、ommand1,然后编写如下事件过程:后，c值的Not a<=c Or 4*c=bA2 And b<>a+c(16)在窗体上画一个命令按钮，名称为Private Sub Command1_Click()a$ = "software and hardware"b$ = Right(a$, 8)c$ = Mid(a$, 1,8)MsgBox a$, b$, c$, 1End Sub专业资料整理A. 108B.18C. 810D.出错Command1 和 Text1，把文本810,则文本框中显示的内和运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是CA

7、 . software andB. softwaC. hardwarD. -1hardwareree(17)在窗体上画一个命令按钮和一个文本框，其名称分别 为框的Text属性设置为空白，然后编写如下事件过程：Private Sub Command1_Click()a = lnputBox("Enter an integer")b = InputBox("Enter an integer")Text1.Text = b + aEnd Sub(18 )在窗体上画两个文本框，其名称分别 为Private Sub Form_Load()Text1 Text2，然

8、后编写如下程序: 和ShowText1.Text =""Text2.Text =""Text1.SetFocusEnd SubPrivate Sub Text1_Change() 2.Text = Mid(Text1.Text, 8)End Sub程序运行后，如果在文本框Text1中输入BeijingChina ，则在文本框Text2 中显示的内容是A . BeijingChinaB . China C. BeijingD. BeijingC(19)在窗体上画一个列表框和一个命令按钮，其名称分别 为写如下事件过程：Private Sub Form_Loa

9、d()List1.AddItem "Item 1"List1.AddItem "Item 2"List1.AddItem "Item 3"End SubList和Command!然后编1Private Sub Command1_Click()List1. List(List1. ListCount) = "AAAA"End Sub程序运行后，单击命令按钮，其结果为B oA .把字符串“ AAAA ”添加到列表框中，但位置不能确定B.把字符串“ AAAA ”添加到列表框的最后(即“ Item 3 ”的后面)程序运行后

10、，单击命令按钮，如果在输入对话框中分别 输入容是AoC. 把列表框中原有的最后一项改为“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。A. 814B. 563C. 28 1 D. 2435(21)有如下程序：Private Sub Form_C

11、lick()Dim Check, CounterCheck = TrueCounter = 0DoDo While Counter < 20 Counter = Counter + 1If Counter = 10 ThenCheck = FalseExit DoEnd IfLoopLoop Until Check = FalsePrint Counter, CheckEnd Sub程序运行后，单击窗体，输出结果为D。A . 15 0B. 20 -1 C. 10 True D . 10 False(22)有如下程序：Private Sub Form_Click()Dim i As Int

12、eger, sumAs Integersum = 0For i = 2 To 10If i Mod 2 <> 0 And i Mod 3 = 0 Then sum = sum + iEnd IfNext iPrint sumEnd Sub程序运行后，单击窗体，输出结果为AA. 12B. 3C. 24 D. 180(23)在窗体上画一个名称Text的文本框和一个名称Commandl的命令按钮，为1 为写如下事件过程：Private Sub Command1_Click()Dim array1(10, 10) As IntegerDim i As Integer, j As Integ

13、erFori = 1 To 3然后编Forj = 2 To 4array1(i, j) = i + jNext jNext iText1.Text = array1(2, 3) + array1(3, 4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是A. 12B. 1C. 14D. 153(24)在窗体上画一个命令按钮，其名称 为Private Sub Command1_Click()Dim a1(4, 4), a2(4, 4)For i = 1 To 4Forj = 1 To4a1(i, j) = i + ja2(i, j) = a1(i, j) + i + jNext jN

14、ext iPrint a1(3, 3); a2(3, 3)End Sub程序运行后，单击命令按钮，在窗体上输出的是A .6B. 15 C.21607Command1，然后编写如下事件过程:DD.126(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 SumEnd Su

15、b程序运行后，单击窗体，输出结果为CA . 25 B. 26C. 27 D. 28(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程序运行后，单击命令按钮，输出结果是A。A . ABCDE B . 1 2 3 4 5C. abcdeD.出错信息(27) 以下关于函数过程的叙述中，正确的是D。A .如果不指明函数过

16、程参数的类型，则该参数没有数据类型B. 函数过程的返回值可以有多个C. 当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式 传递D.函数过程形参的类型与函数返回值的类型没有关系0。以下(28) 函数过程 F1的功能是：如果参数b为奇数，则返回值为 1,否则返回值为 能正确实现上述功能的代码是B 。A . Function F1(b As Integer)If b Mod 2 = 0 ThenReturn 0ElseReturn 1End IfEnd FunctionB. Function F1(b As Integer)If b Mod 2 = 0 ThenF1=0ElseF1=1

17、End IfEnd FunctionC. Function F1(b As Integer)If b Mod 2 = 0 ThenF1=1ElseF1=0End IfEnd FunctionD. Function F1(b As Integer)If b Mod 2 <> 0 ThenReturn 0ElseReturn 1End IfEnd Function（29）以下关于KeyPress事件过程中参 数A . KeyAs参数是所按键ASCI 码cii的参数可以省IC. KeyAsc略KeyAsci的叙述中正确的是AiB. KeyAsc参数的数据类型为字符串 ii参数是所按键上标

18、注的字D. KeyAsci 符Text1的文本框，并编写如下程序:(30)设窗体上有一个名为Private Sub Form_Load()ShowText1.Text =""Text1.SetFocusEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, 丫 As Single)Print "程序设计"End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)Pri

19、nt "Visual Basic"End Sub程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是C 。A . Visual Basic B .程序设计C. Visual Basic程序设计 D. a 程序设计(31)假定有下表所列的菜单结构：处1名称层次appear1 （主菜单）bigicon2 （子菜单）smallicon2 （子菜单）要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个“”。以下正确的事件过程是C。A . Private Sub bigicon_Click（）bigicon.Checked = FalseEnd

20、SubB. Private Sub bigicon_Click()Me. appear.bigicon.Checked = TrueEnd SubC. Private Sub bigicon_Click()bigicon.Checked = TrueEnd SubD. Private Sub bigicon_Click()appear.bigicon.Checked = TrueEnd Sub(32) 假定通用对话框的名称为CommonDialog1，命令按钮的名称为Command!则单击命令按钮后，能使打开的对话框的标题为“New Title ”的事件过程是 C。A . Private Su

21、b Command1_Click()CommonDialogl.DialogTitle = "New Title"CommonDialogl.ShowPrinterEnd SubB. Private Sub Command1_Click()CommonDialogl.DialogTitle = "New Title"CommonDialogl.ShowFontEnd SubC. Private Sub Command1_Click()CommonDialogl.DialogTitle = "New Title"CommonDialog

22、l.ShowOpenEnd SubD. Private Sub Command1_Click()CommonDialogl.DialogTitle = "New Title"CommonDialogl.ShowColorEnd Sub(33) 如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是D。A .任何时刻最多只有一个窗体是活动窗体B. 不能把标准模块设置为启动模块C. 用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体D. 如果工程中含有 Sub Main过程，则程序一定首先执行该过程(34) 假定在工程文件中有一个标准模块，其中定义了如下记录类型Type

23、BooksName As String * 10TelNum As String * 20End Type要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是A。A . Private Sub Command1_Click()Dim B As BooksOpen "c:Person.txt" For Output As #18B.Name = lnputBox（"输入姓名"）B.TelNum = InputBox（"输入电话号码”）Write #1, B.Name, B.

24、TelNumClose #1End SubB. Private 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 SubC. Private Sub Command1_Click（）Dim B As BooksOpen "c:Person.txt"

25、 For Output As #1Name = InputBox（"输入姓名"）TelNum = InputBox（"输入电话号码 "）Write #1, BClose #1End SubD. Private Sub Command1_Click（）Dim B As BookOpen "c:Person.txt" For Input As #1Name = InputBox（"输入姓名"）TelNum = InputBox（"输入电话号码 "）Print #1, B.Name, B.TelNum

26、Close #1End Sub(35) 目录列表框的Path属性的作用是BA .显示当前驱动器或指定驱动器上的某目录下的文件名B .显示当前驱动器或指定驱动器上的目录结构D .显示指定路径下的文件2分，共30 分)请将每空的正确答案写在答题卡【1】【15】序号的横线上，答在试卷上不得分(1 )数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段，其中数据独 立性最高的阶段是【1】。(2) 算法复杂度主要包括时间复杂度和【2】复杂度。(3) 在进行模块测试时，要为每个被测试的模块另外设计两类模块：驱动模块和承接模块(桩模块)。其中【3】 的作用是将测试数据传送给被测试的模块，并显示被测

27、试模块所产生的结果。(4) 一棵二叉树第六层(根结点为第一层)的结点数最多为【4】个。(5) 数据结构分为逻辑结构和存储结构，循环队列属于【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 Fun cti on若在程序中用语句s = fun(1O)调用此函数，则s的值为 【6】(7) 在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件

28、过程。程序运行后，在文本框中输入一串英文字母(不区分大小写)，单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Textl中。例如，若在Textl中输入的是abDfdb ，贝U单击Commandl 按钮后 Textl 中显示的字符串是 ZYXWVUTSRQPONMLKJIHGEC 。请填空。Private Sub Command1_Click()Dim str As String, s As String, c As Stringstr = UCase(Textl)s =""c = "Z"While c >= &qu

29、ot;A"If InStr(str, c) = 0 Thens =【7】End Ifc = Chr$(Asc(c)【8 】)WendIf s <> "" ThenTextl = sEnd IfEnd SubrJ(8) 在n个运动员中选出任意 r个人参加比赛，有很多种不同的选法，选法的个数可以用公式计算。下图窗体中3个文本框的名称依次是Textl、Text2、Text3。程10序运行时在Textl、Text2中分别输入n和r的值，单击Commandl按钮即可求出选法的 个数，并显示在Text3 文本框中（见下图）。请填空。Private Sub Comm

30、and1_Click()Dim r As Integer, n As Integern = Text1)/ fun(r)r = Text2Text3 = fun(n) / fun(End Sub【10】For k = 1 To nt = t * kNextfun = tEnd Function（9）以下是一个比赛评分程序。在窗体上建立一个名为Textl的文本框数组，然后画一个名为Text2的文本框和名为 Commandl的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分Private Sub Command1_

31、Click()Dim k As IntegerDim sum As Single, max As Single, min As Singlesum = Text1(0)max = Text1(0)min =【11】ToFor k =【12 】6If max < Text1(k) Thenmax = Text1(k)End IfIf min > Text1(k) Then min = Text1(k)End Ifsum = sum + Text1(k)Next kText2 =(【13 】End Sub(10 )如图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1

32、文本框(即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查。请填空。找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”Forml丁 3 J _JC3 J-3 J 及勇異男-p-一主¥5 升”fir兵 红成淮花方佶亮立 采車马李Private Sub Command1_Click()Dim k As Integer, n As Integer, found As Booleanfound = Falsen = Len(【14 】)k = 0While k < L

33、ist1. ListCount And Not foundIf Text1 = Left$(List1. List(k), n) ThenText2 =【15】found = TrueEnd Ifk = k + 1WendIf Not found ThenText2 ="查无此人"End IfEnd Sub122005年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 1 307】s&c