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

1、WORD格式2005年9月全国计算机等级考试二级笔试试卷公共根底知识和Visual Basic 语言程序设计专业资料整理WORD格式(考试时间90 分钟，总分值100 分)专业资料整理WORD格式一、选择题 (每题 2 分,共 70 分 )以下各题A) 、 B) 、C)、 D) 四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。专业资料整理WORD格式1以下表达中正确的选项是A 程序设计就是编制程序C程序经调试改错后还应进展再测试C。B程序的测试必须由程序员自己去完成D程序经调试改错后不必进展再测试专业资料整理WORD格式2以下数据构造中，能用二分法进展查

2、找的是 A 顺序存储的有序线性表 B 线性链表AC二叉链表。D有序线性链表专业资料整理WORD格式3以下关于栈的描述正确的选项是C。专业资料整理WORD格式A 在栈中只能插入元素而不能删除元素B在栈中只能删除元素而不能插入元素C栈是特殊的线性表，只能在一端插入或删除元素D栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素4以下表达中正确的选项是D。A 一个逻辑数据构造只能有一种存储构造B数据的逻辑构造属于线性构造，存储构造属于非线性构造C一个逻辑数据构造可以有多种存储构造，且各种存储构造不影响数据处理的效率D一个逻辑数据构造可以有多种存储构造，且各种存储构造影响数据处理的效率5以下描述中

3、正确的选项是C。A 软件工程只是解决软件工程的管理问题B软件工程主要解决软件产品的生产率问题C软件工程的主要思想是强调在软件开发过程中需要应用工程化原那么D软件工程只是解决软件开发中的技术问题6在软件设计中，不属于过程设计工具的是D。A PDL( 过程设计语言 )B PAD 图C N-S 图 D DFD 图7以下表达中正确的选项是A。A 软件交付使用后还需要进展维护B软件一旦交付使用就不需要再进展维护C软件交付使用后其生命周期就完毕D软件维护是指修复程序中被破坏的指令8数据库设计的根本目标是要解决A。A 数据共享问题B数据平安问题C大量数据存储问题 D 简化数据维护专业资料整理WORD格式9设

4、有如下关系表 :RSTABCABCABC112313112223223313那么以下操作中正确的选项是B。ATRSBTRSC TRSDTR/S10数据库系统的核心是B。A 数据模型B 数据库管理系统C数据库D数据库管理员11假定一个Visual Basic 应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是B。A 只保存窗体模块文件B 分别保存窗体模块、标准模块和工程文件C只保存窗体模块和标准模块文件D 只保存工程文件12为了去除窗体上的一个控件，以下正确的操作是C。A 按回车键B按 Esc 键C选择单击要去除的控件，然后按Del 键D选择单击要去除的控件，然后按回

5、车键13以下表达中错误的选项是C。A 翻开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B当程序运行时，双击一个窗体，那么触发该窗体的DblClick 事件C Visual Basic 应用程序只能以解释方式执行D事件可以由用户引发，也可以由系统引发14设 a=2, b=3, c=4, d=5,以下表达式的值是D。Not a=c Or 4*c=b2 And ba+cA -1B 1C TrueD False15设 a = 5，b = 10 ，那么执行c = Int(b - a) * Rnd + a) + 1后，c值的X围为C。A 510B 69C 6 10D 5 916在窗体上画

6、一个命令按钮，名称为Command1 ，然后编写如下事件过程：Private Sub Command1_Click()a$ = software and hardwareb$ = Right(a$, 8)c$ = Mid(a$, 1, 8)MsgBox a$, b$, c$, 1End Sub专业资料整理WORD格式2专业资料整理WORD格式运行程序，单击命令按钮，那么在弹出的信息框的标题栏中显示的是C。专业资料整理WORD格式A software and hardwareB softwareC hardwareD -1专业资料整理WORD格式17在窗体上画一个命令按钮和一个文本框，其名称分别

7、为Command1和Text1，把文本专业资料整理WORD格式框的 Text 属性设置为空白，然后编写如下事件过程：Private Sub Command1_Click()a = InputBox(Enter an integer)b = InputBox(Enter an integer)Text1.Text = b + aEnd Sub专业资料整理WORD格式程序运行后，单击命令按钮，如果在输入对话框中分别输入容是A。8 和10，那么文本框中显示的内专业资料整理WORD格式A108B 18C810D出错专业资料整理WORD格式18在窗体上画两个文本框，其名称分别为Text1 和Text2，

8、然后编写如下程序：专业资料整理WORD格式Private Sub Form_Load()ShowText1.Text = Text2.Text = Text1.SetFocusEnd SubPrivate Sub Text1_Change()Text2.Text = Mid(Text1.Text, 8)End Sub程序运行后，如果在文本框Text1 中输入BeijingChina ，那么在文本框Text2 中显示的内容是B 。A BeijingChinaB ChinaC BeijingD BeijingC专业资料整理WORD格式19在窗体上画一个列表框和一个命令按钮，其名称分别为List1和

9、Command1，然后编专业资料整理WORD格式写如下事件过程：专业资料整理WORD格式Private Sub Form_Load()List1.AddItem Item 1List1.AddItem Item 2List1.AddItem Item 3End SubPrivate Sub Command1_Click()List1.List(List1.ListCount) = AAAAEnd Sub专业资料整理WORD格式程序运行后，单击命令按钮，其结果为B。专业资料整理WORD格式A 把字符串“ AAAA 添加到列表框中，但位置不能确定B把字符串“AAAA 添加到列表框的最后即“Item

10、 3的后面C把列表框中原有的最后一项改为“AAAA D把字符串“ AAAA 插入到列表框的最前面即“Item 1的前面专业资料整理WORD格式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。A814B563C 281D243521有如下程序：Private Sub Form_Click()Dim Check, CounterCheck = TrueCou

11、nter = 0DoDo While Counter 20Counter = Counter + 1If Counter = 10 ThenCheck = FalseExit DoEnd IfLoopLoop Until Check = FalsePrint Counter, CheckEnd Sub程序运行后，单击窗体，输出结果为D。A 150B 20-1C 10TrueD 10False22有如下程序：Private Sub Form_Click()Dim i As Integer, sumAs Integersum = 0For i = 2 To 10If i Mod 2 0 And i

12、 Mod 3 = 0 Thensum = sum + iEnd IfNext iPrint sumEnd Sub专业资料整理WORD格式4专业资料整理WORD格式程序运行后，单击窗体，输出结果为A。专业资料整理WORD格式A12B 30C24D 18专业资料整理WORD格式23在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编专业资料整理WORD格式写如下事件过程：Private Sub Command1_Click()Dim array1(10, 10) As IntegerDim i As Integer, j As IntegerFor i = 1 To

13、 3For j = 2 To 4array1(i, j) = i + jNext jNext iText1.Text = array1(2, 3) + array1(3, 4)End Sub专业资料整理WORD格式程序运行后，单击命令按钮，在文本框中显示的值是A。专业资料整理WORD格式A12B 13C14D 15专业资料整理WORD格式24在窗体上画一个命令按钮，其名称为Command1 ，然后编写如下事件过程：专业资料整理WORD格式Private Sub Command1_Click()Dim a1(4, 4), a2(4, 4)For i = 1 To4For j = 1 To4a1(

14、i, j) = i + ja2(i, j) = a1(i, j) + i + jNext jNext iPrint a1(3, 3); a2(3, 3)End Sub专业资料整理WORD格式程序运行后，单击命令按钮，在窗体上输出的是D。专业资料整理WORD格式A 66B 105C 721D 612专业资料整理WORD格式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

15、= arr(i) 3 ThenSum = Sum + arr(i)End IfNext iPrint Sum专业资料整理WORD格式End Sub程序运行后，单击窗体，输出结果为C。A 25B 26C27D 2826在窗体上画一个命令按钮，然后编写如下事件过程：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 ABCDEB 1 2 3 4 5C ab

16、cdeD出错信息27以下关于函数过程的表达中，正确的选项是D。A 如果不指明函数过程参数的类型，那么该参数没有数据类型B函数过程的返回值可以有多个C当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递D函数过程形参的类型与函数返回值的类型没有关系28函数过程F1 的功能是：如果参数b 为奇数，那么返回值为1，否那么返回值为0。以下能正确实现上述功能的代码是B。A Function F1(b As Integer)If b Mod 2 = 0 ThenReturn 0ElseReturn 1End IfEnd FunctionB Function F1(b As Integer)I

17、f b Mod 2 = 0 ThenF1=0ElseF1=1End IfEnd FunctionC Function F1(b As Integer)If b Mod 2 = 0 ThenF1=1ElseF1=0专业资料整理WORD格式6专业资料整理WORD格式End IfEnd FunctionD Function F1(b As Integer)If b Mod 2 0 ThenReturn 0ElseReturn 1End IfEnd Function专业资料整理WORD格式29以下关于KeyPress 事件过程中参数KeyAscii的表达中正确的选项是A。专业资料整理WORD格式A K

18、eyAscii C KeyAscii参数是所按键的参数可以省略ASCII码B KeyAscii D KeyAscii参数的数据类型为字符串参数是所按键上标注的字符专业资料整理WORD格式30设窗体上有一个名为Text1 的文本框，并编写如下程序：Private 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

19、 Text1_KeyDown(KeyCode As Integer, Shift As Integer)Print Visual Basic;End Sub程序运行后，如果在文本框中输入字母“a，然后单击窗体，那么在窗体上显示的内容是C 。A Visual BasicB 程序设计CVisual Basic 程序设计D a 程序设计（ 31假定有下表所列的菜单构造：名称层次appear1主菜单bigicon2子菜单smallicon2子菜单要求程序运行后，如果单击菜单项“大图标，那么在该菜单项前添加一个“。以下正确的事件过程是C。A Private Sub bigicon_Click()bigi

20、con.Checked = FalseEnd SubB Private Sub bigicon_Click()专业资料整理WORD格式Me. appear.bigicon.Checked = TrueEnd SubC Private Sub bigicon_Click()bigicon.Checked = TrueEnd SubD Private Sub bigicon_Click()appear.bigicon.Checked = TrueEnd Sub32假定通用对话框的名称为CommonDialog1 ，命令按钮的名称为Command1，那么单击命令按钮后，能使翻开的对话框的标题为“Ne

21、w Title 的事件过程是C。A Private Sub Command1_Click()CommonDialog1.DialogTitle = New TitleCommonDialog1.ShowPrinterEnd SubB Private Sub Command1_Click()CommonDialog1.DialogTitle = New TitleCommonDialog1.ShowFontEnd SubC Private Sub Command1_Click()CommonDialog1.DialogTitle = New TitleCommonDialog1.ShowOpen

22、End SubD Private Sub Command1_Click()CommonDialog1.DialogTitle = New TitleCommonDialog1.ShowColorEnd Sub33如果一个工程含有多个窗体及标准模块，那么以下表达中错误的选项是D。A 任何时刻最多只有一个窗体是活动窗体B不能把标准模块设置为启动模块C用 Hide 方法只是隐藏一个窗体，不能从内存中去除该窗体D如果工程中含有Sub Main 过程，那么程序一定首先执行该过程34假定在工程文件中有一个标准模块，其中定义了如下记录类型Type BooksName As String * 10TelNum

23、 As String * 20End Type要求当执行事件过程Command1_Click 时，在顺序文件Person.txt 中写入一条记录。以下能够完成该操作的事件过程是A。A Private Sub Command1_Click()Dim B As BooksOpen c:Person.txt For Output As #1专业资料整理WORD格式8专业资料整理WORD格式B.Name = InputBox( 输入XX )B.TelNum = InputBox( 输入)Write #1, B.Name, B.TelNumClose #1End SubB Private Sub Com

24、mand1_Click()Dim B As BooksOpen c:Person.txt For Input As #1B.Name = InputBox( 输入XX )B.TelNum = InputBox( 输入)Print #1, B.Name, B.TelNumClose #1End SubC Private Sub Command1_Click()Dim B As BooksOpen c:Person.txt For Output As #1Name = InputBox( 输入XX )TelNum = InputBox( 输入)Write #1, BClose #1End SubD

25、 Private Sub Command1_Click()Dim B As BookOpen c:Person.txt For Input As #1Name = InputBox( 输入XX )TelNum = InputBox( 输入)Print #1, B.Name, B.TelNumClose #1End Sub35目录列表框的Path 属性的作用是B。A 显示当前驱动器或指定驱动器上的某目录下的文件名B 显示当前驱动器或指定驱动器上的目录构造C显示根目录下的文件名D 显示指定路径下的文件2 分，共 30 分请将每空的正确答案写在答题卡【1】【 15】序号的横线上，答在试卷上不得分。1

26、数据管理技术开展过程经过人工管理、文件系统和数据库系统三个阶段，其中数据独立性最高的阶段是【1】。专业资料整理WORD格式2算法复杂度主要包括时间复杂度和【2】复杂度。专业资料整理WORD格式3在进展模块测试时，要为每个被测试的模块另外设计两类模块：驱动模块和承接模块桩模块。其中【 3】的作用是将测试数据传送给被测试的模块，并显示被测试模块所产生的结果。4一棵二叉树第六层根结点为第一层的结点数最多为【4】个。5数据构造分为逻辑构造和存储构造，循环队列属于【5】构造。6设有以下函数过程：Function fun(m As Integer) As IntegerDim k As Integer,

27、sum As Integersum = 0For k = m To 1 Step-2sum = sum + kNext kfun = sumEnd Function假设在程序中用语句s = fun(10)调用此函数，那么s 的值为【6】。7在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母不区分大小写，单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1 中。例如，假设在Text1中输入的是abDfdb ，那么单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLK

28、JIHGEC。请填空。Private Sub Command1_Click( )Dim str As String, s As String, c As Stringstr = UCase(Text1)s = c = ZWhile c = AIf InStr(str, c) = 0 Thens =【7】End Ifc = Chr$(Asc(c)【8】)WendIf s ThenText1 = sEnd IfEnd Sub8在 n 个运发动中选出任意r 个人参加比赛，有很多种不同的选法，选法的个数可以用公式计算。以下图窗体中3 个文本框的名称依次是Text1、 Text2、Text3。程专业资料

29、整理WORD格式10专业资料整理WORD格式序运行时在 Text1、Text2 中分别输入 n 和 r 的值，单击 Command1 按钮即可求出选法的个数，并显示在 Text3 文本框中 (见以下图 )。请填空。专业资料整理WORD格式Private Sub Command1_Click( )Dim r As Integer, n As Integern = Text1r = Text2Text3 = fun(n) / fun(【9】End Sub) / fun(r)专业资料整理WORD格式【 10】For k = 1 To nt = t * kNextfun = tEnd Function

30、9以下是一个比赛评分程序。在窗体上建立一个名为 Text1 的文本框数组，然后画一个名为 Text2 的文本框和名为 Command1 的命令按钮。运行时在文本框数组中输入 7 个分数，单击“计算得分命令按钮，那么最后得分显示在 Text2 文本框中去掉一个最高分和一个最低分后的平均分即为最后得分，如下图。请填空。Private Sub Command1_Click( )Dim k As IntegerDim sum As Single, max As Single, min As Singlesum = Text1(0)max = Text1(0)min =【 11】For k =【 12】

31、To 6If max Text1(k) Thenmin = Text1(k)End Ifsum = sum + Text1(k)Next kText2 = (【13】) / 5End Sub10如下图，在列表框List1 中已经有假设干人的简单信息，运行时在Text1 文本框即“查找对象右边的文本框输入一个姓或XX，单击“查找按钮，那么在列表框中进展查找，假设找到，那么把该人的信息显示在Text2 文本框中。假设有多个匹配的列表项，那么只显示第1 个匹配项；假设未找到，那么在Text2 中显示“查无此人。请填空。Private Sub Command1_Click()Dim k As Inte

32、ger, n As Integer, found As Booleanfound = Falsen = Len(【 14】)k = 0While k List1.ListCount And Not foundIf Text1 = Left$(List1.List(k), n) ThenText2 =【15】found = TrueEnd Ifk = k + 1WendIfNot found ThenText2 = 查无此人 End IfEnd Sub专业资料整理WORD格式12专业资料整理WORD格式2005 年 9 月全国计算机等级考试二级VB 笔试试卷含参考答案专业资料整理WORD格式1-

33、 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)专业资料整理WORD格式人与人之间的距离虽然摸不着，看不见，但的确实确是一杆实实在在的秤。真与假，善与恶，美与丑，尽在秤杆上可以看出；人心的大小，胸

34、怀的宽窄，拨一拨秤砣全然知晓。人与人之间的距离，不可太近。与人太近了，常常看人不清。一个人既有优点，也有缺点，所谓人无完人，金无赤足是也。初识时，走得太近就会模糊了缺乏，宠之；时间久了，原本的美丽之处也成了瑕疵，嫌之。与人太近了，便随手可得，有时得物，据为己有，太过贪财；有时得人，为己所用，也许贪色。贪财也好，贪色亦罢，都是一种贪心。与人太近了，最可悲的就是会把自己丢在别人身上，找不到自己的影子，忘了回家的路。这世上，根本没有零距离的人际关系，因为人总是有一份自私的，人与人之间太近的距离，易滋生事端，恩怨相随。所以，人与人相处的太近了，便渐渐相远。人与人之间的距离也不可太远。太远了，就像放飞的风筝，过高断线。太远了，就像南徙的大雁，失群哀鸣。太远了，就像失联的旅人，形单影只。专业资料整理WORD格式14专业资料整理WORD格式人与人之间的距离，有时，先远后近；有时，先近后远。这每次的变化之中，总是有一个难以忘记的故事或者一段难以割舍的情。有时候，人与人之间的距离，突然间近了，其实还是远；突然间远了，肯定是伤了谁。人与