VB二级辅导.docx

目 录2005年4月全国计算机等级考试二级笔试试卷12005年4月全国计算机等级考试二级VB笔试参考答案82005年9月全国计算机等级考试二级笔试试卷92005年9月全国计算机等级考试二级VB笔试参考答案172006年4月全国计算机等级考试二级笔试试卷182006年4月全国计算机等级考试二级VB笔试参考答案252006年9月全国计算机等级考试二级笔试试卷262006年9月全国计算机等级考试二级VB笔试参考答案332007年4月全国计算机等级考试二级笔试试卷342007年4月全国计算机等级考试二级VB笔试参考答案422007年9月全国计算机等级考试二级笔试试卷432007年9月全国计算机等级考试二级VB笔试参考答案512008年4月全国计算机等级考试二级笔试试卷522008年4月全国计算机等级考试二级VB笔试参考答案592008年9月全国计算机等级考试二级笔试试卷602008年9月全国计算机等级考试二级VB笔试参考答案682009年3月全国计算机等级考试二级笔试试卷692009年3月全国计算机等级考试二级VB笔试参考答案762009年9月全国计算机等级考试二级笔试试卷772009年9月全国计算机等级考试二级VB笔试参考答案842010年3月全国计算机等级考试二级笔试试卷852010年3月全国计算机等级考试二级VB笔试参考答案922010年9月全国计算机等级考试二级笔试试卷932010年9月全国计算机等级考试二级VB笔试参考答案1002011年3月全国计算机等级考试二级笔试试卷1012011年3月全国计算机等级考试二级VB笔试参考答案1082011年9月全国计算机等级考试二级笔试试卷1092011年9月全国计算机等级考试二级VB笔试参考答案1162005年4月全国计算机等级考试二级笔试试卷2005年4月全国计算机等级考试二级笔试试卷Visual Basic 语言程序设计（考试时间90分钟，满分100分)一、选择题（第小题2分，共70分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。（1） 数据的存储结构是指A）存储在外存中的数据B）数据所占的存储空间量C）数据在计算机中的顺序存储方式D）数据的逻辑结构在计算机中的表示（2） 下列关于栈的描述中错误的是A）栈是先进后出的线性表B）栈只能顺序存储C）栈具有记忆作用D）对栈的插入与删除操作中，不需要改变栈底指针（3） 对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是A）冒泡排序为n/2B）冒泡排序为n C）快速排序为nD）快速排序为n(n-1)/2（4） 对于长度为n的线性表进行顺序查找，在最坏情况下所需要的比较次数为A）log2nB）n/2C）nD）n+1（5） 下列对于线性链表的描述中正确的是A）存储空间不一定是连续，且各元素的存储顺序是任意的B）存储空间不一定是连续，且前件元素一定存储在后件元素的前面C）存储空间必须连续，且前件元素一定存储在后件元素的前面D）存储空间必须连续，且各元素的存储顺序是任意的（6） 下列对于软件测试的描述中正确的是A）软件测试的目的是证明程序是否正确B）软件测试的目的是使程序运行结果正确C）软件测试的目的是尽可能多地发现程序中的错误D）软件测试的目的是使程序符合结构化原则（7） 为了使模块尽可能独立，要求A）模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强B）模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱C）模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱 D）模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强（8） 列描述中正确的是A）程序就是软件B）软件开发不受计算机系统的限制C）软件既是逻辑实体，又是物理实体D）软件是程序、数据与相关文档的集合（9） 数据独立性是数据库技术的重要特点之一。所谓数据独立性是指A）数据与程序独立存放B）不同的数据被存放在不同的文件中C）不同的数据只能被对应的应用程序所使用D）以上三种说法都不对（10） 用树形结构表示实体之间联系的模型是A）关系模型B）网状模型C）层次模型D）以上三个都是（11） 在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是：- 116 -A）Private Sub Text1_Change()Command1.Caption=计算机等级考试End SubB）Private Sub Command1_Click()Caption=计算机等级考试End SubC）Private Sub Form1_Click()Text1.Caption=计算机等级考试End SubD）Private Sub Command1_Click()Text1.Text=计算机等级考试End Sub（12） 设a=5，b=4，c=3，d=2，下列表达式的值是 3 2 * b Or a = c And b c Or c dA）1B）TrueC）FalseD）2（13） 设a=Microsoft Visual Basic，则以下使变量b的值为VisualBasic的语句是A）b=Left(a, 10)B）b=Mid(a, 10)C）b=Right(a, 10)D）b=Mid(a, 11, 10)（14） 假定有如下的窗体事件过程，程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息是：Private Sub Form_Click()a$ = Microsoft Visual Basicb$ = Right(a$, 5)c = Mid(a$, 1, 9)MsgBox a$, 34, b$, c$, 5End SubA）Microsoft VisualB）MicrosoftC）BasicD）5（15） 设a=a，b=b，c=c，d=d，执行语句x=IIf(aD），A，B)后，x的值为：A）aB）bC）BD）A（16） 为了使命令按钮(名称为Command1）右移200，应使用的语句是A）Command1.Move -200B）Command1.Move 200C）Command1.Left=Command1.Left+200D）Command1.Left= Command1.Left-200（17） 在窗体上画一个文本框，然后编写如下事件过程，程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容是：Private Sub Form_Click()x = InputBox(请输入一个整数)Print x + Text1.TextEnd SubA）123B）456C）579D）123456（18） 在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False,程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序，在_处应填入的内容是Private Sub Command1_Click()Timer1._End SubPrivate Sub Timer1_Timer()Text1.Text = TimeEnd SubA）Enabled=TrueB）Enabled=FalseC）Visible=TrueD）Visible=False（19） 假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是：A）选择图片框，然后按Del键B）执行语句Picture1.Picture=LoadPicture()C）执行语句Picture1.Picture=D）选择图片框，在属性窗口中选择Picture属性，然后按回车键（20） 在窗体上画一个List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列能正确实现上述操作的程序是A）Private Sub List1_Click()Label1.Caption = List1.ListIndexEnd SubB）Private Sub List1_Click()Label1.Name = List1.ListIndexEnd SubC）Private Sub List1_Click()Label1.Name = List1.TextEnd SubD）Private Sub List1_Click()Label1.Caption = List1.TextEnd Sub2005年4月全国计算机等级考试二级笔试试卷VB（21） 在窗体上画一个命令按钮，名称为Command1，然 后编写如下事件过程：Private Sub Command1_Click()Dim i As Integer, x As IntegerFor i = 1 To 6If i = 1 Then x = iIf i 0 And a 10 And a 20 And a c Thend = d + x(i): c = x(i)Elsed = d - cEnd IfNext iPrint dEnd Sub程序运行后,如果单击命令按钮,则在窗体上输入的内容为A）10B）16C）12D）20（32） 设有如下程序：Private Sub Command1_Click()Dim c As Integer, d As Integerc = 4d = InputBox(请输入一个整数)Do While d 0If d c Thenc = c + 1End Ifd = InputBox(请输入一个整数)LoopPrint c + dEnd Sub程序运行后,单击命令按钮如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0,则输出结果是：A）12B）11C）10D）9（33） 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入以下字符串：Microsoft Visual Basic Programming，然后编写如下事件过程:Private Sub Command1_Click()Open d:tempoutf.txt For Output As #1For i = 1 To Len(Text1.Text)c = Mid(Text1.Text, i, 1)If c = A And c = Z ThenPrint #1, LCase(C)；End IfNext iCloseEnd Sub程序运行后,单击命令按钮,文件outf.txt中的内容是：A）MVBPB）mvbpC）MD）mVvBbP p（34） 在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Dim SW As BooleanFunction func(X As Integer) As IntegerIf X 20 ThenY = XElseY = 20 + XEnd Iffunc = YEnd FunctionPrivate Sub Command1_Click()Dim intNum As IntegerintNum = InputBox()If SW ThenPrint func(intNum)End IfEnd SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)SW = FalseEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)SW = TrueEnd Sub程序运行后,单击命令按钮,将显示一个输入对话框,如果在对话框中输入25,则程序的执行结果是：A）输出0B）输出25C）输出45D）无任何输出（35） 设有如下通用过程：Public Sub fun(a() As Integer, x As Integer)For i = 1 To 5x = x + a(i)NextEnd Sub在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程：Private Sub Command1_Click()Dim arr(5) As Integer, n As IntegerFor i = 1 To 5arr(i) = i + iNextfun arr, nText1.Text = Str(n)End Sub程序运行后,单击命令按钮,则在文本框中显示的内容是A）30B）25C）20D）15二、填空题（每空2分，共30分）请将每一个空的正确答案写在答题卡【1】【15】序号的横线上，答在试卷上不得分。注意：以命令关键字填空的必须拼写完整。（1） 某二叉树中度为2的结点有18个，则该二树中有 【1】 个叶子结点。（2） 在面向对象方法中，类的实例称为 【2】 。（3） 诊断和改正程序中错误的工作通常称为 【3】 。（4） 在关系数据库中，把数据表示成二维表，每一个二维表称为 【4】 。（5） 问题处理方案的正确而完整的描述称为 【5】 。（6） 以下语句Print Int(12345.6789*100+0.5)/100的输出结果是： 【6】.（7） 在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程：Private Sub Form_Click()Text1.Text = VB程序设计End SubPrivate Sub Text1_Change()Picture1.Print VBProgrammingEnd Sub程序运行后,单击窗体,在文本框中显示的内容是 【7】 ，而在图片框中显示的内容是 【8】 。（8） 阅读下面的程序，程序运行后,单击窗体，输出结果是 【9】 Private Sub Form_Click()Dim Check As Boolean, Counter As IntegerCheck = TrueCounter = 5DoDo While Counter 0Print sEnd Sub以上程序的功能是 【10】 ，程序运行后，单击窗体,输出结果为 【11】 （10） 设有如下程序：Option Base 1Private Sub Command1_Click()Dim arr1Dim Min As Integer, i As Integerarr1 = Array(12, 435, 76, -24, 78, 54, 866, 43)Min = 【12】 For i = 2 To 8If arr1(i) Min Then 【13】 Next iPrint 最小值是:; MinEnd Sub以上程序的功能是用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中的最小值,请填空。（11） 在名称为Form1的窗体上画一个文本框,其名称为Text1,在属性窗口中把文本框的MultiLine属性设置为True,然后编写如下事件过程：Private Sub Form_Click()Open d:testsmtext1.txt For Input As #1Do While Not 【14】 Line Input #1, aspect$whole$ = whole$ + aspect$ + Chr(13) + Chr(10)LoopText1.Text = whole$Close #1Open d:testsmtext2.txt For Output As #1Print #1, 【15】 Close #1End Sub上述程序的功能是,把磁盘文件smtext1.txt 的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件smtext2.txt.请填空。2005年4月全国计算机等级考试二级笔试参考答案2005年4月全国计算机等级考试二级VB笔试参考答案一、选择题（1）D）（2）B）（3）D）（4）C）（5）A）（6）C）（7）B）（8）D）（9）D）（10）C）（11）A）（12）B）（13）B）（14）C）（15）D）（16）C）（17）D）（18）A）（19）B）（20）D）（21）A）（22）B）（23）C）（24）D）（25）B）（26）C）（27）D）（28）B）（29）B）（30）A）（31）C）（32）D）（33）B）（34）D）（35）A）二、填空题【1】19【2】对象【3】程序调试【4】关系【5】算法【6】12345.68【7】VB程序设计【8】VB Programming【9】10【10】求18的和【11】36【12】arr1(1)【13】min=arr1(i)【14】EOF(1)【15】Text1.Text（或whole$）2005年9月全国计算机等级考试二级笔试试卷2005年9月全国计算机等级考试二级笔试试卷Visual Basic 语言程序设计（考试时间90分钟，满分100分)一、选择题（每小题2分，共70分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。（1） 下列叙述中正确的是A）程序设计就是编制程序B）程序的测试必须由程序员自己去完成C）程序经调试改错后还应进行再测试D）程序经调试改错后不必进行再测试（2） 下列数据结构中，能用二分法进行查找的是A）顺序存储的有序线性表B）线性链表C）二叉链表D）有序线性链表（3） 下列关于栈的描述正确的是A）在栈中只能插入元素而不能删除元素B）在栈中只能删除元素而不能插入元素C）栈是特殊的线性表，只能在一端插入或删除元素D）栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素（4） 下列叙述中正确的是A）一个逻辑数据结构只能有一种存储结构B）数据的逻辑结构属于线性结构，存储结构属于非线性结构C）一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率D）一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率（5） 下列描述中正确的是A）软件工程只是解决软件项目的管理问题B）软件工程主要解决软件产品的生产率问题C）软件工程的主要思想是强调在软件开发过程中需要应用工程化原则D）软件工程只是解决软件开发中的技术问题（6） 在软件设计中，不属于过程设计工具的是A）PDL（过程设计语言）B）PAD图C）N-S图D）DFD图（7） 下列叙述中正确的是A）软件交付使用后还需要进行维护B）软件一旦交付使用就不需要再进行维护C）软件交付使用后其生命周期就结束D）软件维护是指修复程序中被破坏的指令（8） 数据库设计的根本目标是要解决A）数据共享问题B）数据安全问题C）大量数据存储问题D）简化数据维护（9） 设有如下关系表： R S T ABCABCABC1123 13112223223313则下列操作中正确的是A）TRSB）TRSC）TRSD）TR/S（10） 数据库系统的核心是A）数据模型B）数据库管理系统C）数据库D）数据库管理员（11） 假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。为保存该应用程序，以下正确的操作是A）只保存窗体模块文件B）分别保存窗体模块、标准模块和工程文件C）只保存窗体模块和标准模块文件D）只保存工程文件（12） 为了清除窗体上的一个控件，下列正确的操作是A）按回车键B）按Esc键C）选择（单击）要清除的控件，然后按Del键D）选择（单击）要清除的控件，然后按回车键（13） 以下叙述中错误的是A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B）当程序运行时，双击一个窗体，则触发该窗体的DblClick事件C）Visual Basic应用程序只能以解释方式执行D）事件可以由用户引发，也可以由系统引发（14） 设a=2, b=3, c=4, d=5, 下列表达式Not a=c Or 4*c=b2 And ba+c的值是A）-1B）1C）TrueD）False（15） 设a = 5，b = 10，则执行 c = Int(b A) * Rnd + A) + 1后，c值的范围为A）510B）69C）610D）59（16） 在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：Private Sub Command1_Click()a$ = software and hardwareb$ = Right(a$, 8)c$ = Mid(a$, 1, 8)MsgBox a$, , b$, c$, 1End Sub运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是A）software and hardwareB）softwareC）hardwareD）1（17） 在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：Private Sub Command1_Click()a = InputBox(Enter an integer)b = InputBox(Enter an integer)Text1.Text = b + aEnd Sub程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是A）108B）18C）810D）出错（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中输入BeijingChina，则在文本框Text2中显示的内容是A）BeijingChinaB）ChinaC）BeijingD）BeijingC（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程序运行后，单击命令按钮，其结果为A）把字符串“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）81 4B）56 3C）28 1D）243 5（21） 有如下程序：Private 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程序运行后，单击窗体，输出结果为A）15 0B）20 -1C）10 TrueD）10 False（22） 有如下程序：Private Sub Form_Click()Dim i As Integer, sum As Integersum = 0For i = 2 To 10If i Mod 2 0 And i Mod 3 = 0 Thensum = sum + iEnd IfNext iPrint sumEnd Sub程序运行后，单击窗体，输出结果为A）12B）30C）24D）18（23） 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim array1(10, 10) As IntegerDim i As Integer, j As IntegerFor i = 1 To 3For j = 2 To 4array1(i, j) = i + jNext jNext iText1.Text = array1(2, 3) + array1(3, 4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是A）12B）13C）14D）15（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 + jNext jNext iPrint a1(3, 3); a2(3, 3)End Sub程序运行后，单击命令按钮，在窗体上输出的是A）6 6B）10 5C）7 21D）6 12（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 Sub程序运行后，单击窗体，输出结果为A）25B）26C）27D）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）ABCDEB）1 2 3 4 5C）abcdeD）出错信息（27） 以下关于函数过程的叙述中，正确的是A）如果不指明函数过程参数的类型，则该参数没有数据类型B）函数过程的返回值可以有多个C）当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递D）函数过程形参的类型与函数返回值的类型没有关系（28） 函数过程F1的功能是：如果参数b为奇数，则返回值为1，否则返回值为0。以下能正确实现上述功能的代码是：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 = 1End 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事件过程中参数KeyAscii的叙述中正确的是A）KeyAscii参数是所按键的ASCII码B）KeyAscii参数的数据类型为字符串C）KeyAscii参数可以省略D）KeyAscii参数是所按键上标注的字符（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 Text1_KeyDown(KeyCode As Integer, Shift As Integer)Print Visual Basic;End Sub程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是A）Visual BasicB）程序设计C）Visual Basic程序设计D）a程序设计（31） 假定有下表所列的菜单结构：标题名称层次显示appear 1（主菜单）大图标bigicon 2（子菜单）小图标smallicon 2（子菜单）要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个“”。以下正确的事件过程是A）Private Sub bigicon_Click()bigicon.Checked = False End 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，命令按钮的名称为Command1，则单击命令按钮后，能使打开的对话框的标题为“New Title”的事件过程是A）Private Sub Command1_Click()CommonDialog1.DialogTitle = New TitleCommonDialog1.ShowPrinterEnd SubB）Private Sub Command1_Click()CommonDi