《全国计算机二级考试vb试题.pdf》由会员分享，可在线阅读，更多相关《全国计算机二级考试vb试题.pdf（12页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、2010年 3 月全国计算机等级考试二级VB 笔试试卷(含参考答案)一、选择题（每题2 分，共 70 分）（1）下列叙述中正确的是()A)对长度为n 的有序链表进行查找，最坏情况下需要比较次数为n B)对长度为n 的有序链表进行对分查找，最坏情况下需要比较次数为（n/2）C)对长度为n 的有序链表进行对分查找，最坏情况下需要的比较次数（log2n）D)对长度为n 的有序链表进行对分查找，最坏情况下需要的比较次数（nlog2n）（2）算法的时间复杂是指()A)算法的执行时间 B)算法所处理的数据量C)算法程序中的语句或指令条数 D)算法在执行过程中所需要的基本运算次数（3）软件按功能可以分为：应
2、用软件、系统软件和支持软件（或工具软件），下面属于系统软件的是()A)编辑软件 B)操作系统 C)教务管理系统 D）浏览器（4）软件（程序）调试的任务是()A)诊断和改正程序中的错误 B)进肯能多的发现程序中的错误C)发现并改正程序中的所有错误 D)确定程序中错误的性质（5）数据流程图（DFD 图）是()A)软件概要设计的工具 B)软件详细设计的工具C)机构化方法的需求分析工具 D)面向对象方法的需求分析工具（6）软件生命周期可以分为定义阶段，开发阶段和维护阶段。详细设计属于()A)定义阶段 B)开发阶段 C)维护阶段 D)上述三个阶段（7）数据库管理系统中负责数据模式定义的语言是A）数据定义
3、语言B）数据管理语言C）数据操纵语言D）数据控制语言（8）在学生管理的关系数据库中，存取一个学生信息的数据单位是A）文件B）数据库C）字段D）记录（9）数据库设计中，用E-R 图来描述信息结构但不涉及信息在计算机中的表示，它属于数据库设计的A）需求分析阶段B）逻辑设计阶段C）概念设计阶段D）物理设计阶段（10）有两个关系R 和 T 如下：则由关系 R 得到关系 T 的操作是A）选择B）投影C）交D）并（11）在 VB 集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是（12）设 x 是整型变量，与函数f(x0,-x,x)有相同结果的代数式是A）|x|B）-|x|C）x D
4、）-x（13）设窗体文件中有下面的事件过程：Private Sub Command1_Click（）Dim s a%=100 Print a End Sub 其中变量 a 和 s的数据类型分别是A）整型，整型B）变体型，变体型C）整型，变体型D）变体型，整型（14）下面哪个属性肯定不是框架控件的属性A）Text B）Caption C）Left D）Enabled（15）下面不能在信息框中输出“VB”的是A）MsgBox VB B）x=MsgBox（VB）C）MsgBox（VB）D）Call MsgBox VB（16）窗体上有一个名称为Option1 的单选按钮数组，程序运行时，当单击某个单选
5、按钮时，会调用下面的事件过程Private Sub Option1_C1ick（Index As Integer）End Sub 下面关于此过程的参数Index 的叙述中正确的是A）Index 为 1 表示单选按钮被选中，为O 表示未选中B）Index 的值可正可负C）Index 的值用来区分哪个单选按钮被选中D）Index 表示数组中单选按钮的数量（17）设窗体中有一个文本框Text1，若在程序中执行了Text1.SetFocus，则触发A）Text1 的 SetFocus事件B）Text1 的 GotFocus 事件C）Text1 的 LostFocus 事件D）窗体的 GotFocus
6、事件（18）VB 中有 3 个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1 文本框中，则每输入一个字母A）这 3 个事件都会触发B）只触发KeyPress 事件C）只触发KeyDown、KeyUp 事件D）不触发其中任何一个事件（19）下面关于标准模块的叙述中错误的是A）标准模块中可以声明全局变量B）标准模块中可以包含一个Sub Main 过程，但此过程不能被设置为启动过程C）标准模块中可以包含一些Public 过程D）一个工程中可以含有多个标准模块（20）设窗体的名称为Form1，标题为Win，则窗体的MouseDown 事件过程的过程名是A）Form1_Mou
7、seDown B）Win_MouseDown C）Form_MouseDown D）MouseDown_Form1（21）下面正确使用动态数组的是A）Dim arr()As Integer ReDim arr(3,5)B）Dim arr()As Integer ReDim arr(50)As String C）Dim arr()ReDim arr(50)As Integer D）Dim arr(50)As Integer ReDim arr(20)（22）下面是求最大公约数的函数的首部Function gcd(ByVal x As Integer,ByVal y As Integer)As I
8、nteger 若要输出 8、12、16 这 3 个数的最大公约数，下面正确的语句是A）Print gcd(8,12)，gcd(12,16)，gcd(16,8)B）Print gcd(8,12,16)C）Print gcd(8)，gcd(12)，gcd(16)D）Print gcd(8,gcd(12,16)（23）有下面的程序段，其功能是按图1 所示的规律输出数据Dim a(3,5)As Integer For i=1 To 3 For j=1 To 5 A(i,j)=i+j Print a(i,j);Next Print Next 若要按图 2 所示的规律继续输出数据，则接在上述程序段后面的程
9、序段应该是A）For i=1 To 5 For j=1 To 3 Print a（j,i）;Next Print Next B）For i=1 To 3 For j=1 To 5 Print a（j,i）;Next Print Next C）For j=1 To 5 For i=1 To 3 Print a（j,i）;Next Print Next D）For i=1 To 5 For j=1 To 3 Print a（i,j）;Next Print Next（24）窗体上有一个Text1 文本框，一个Command1 命令按钮，并有以下程序Private Sub Commandl_Click
10、（）Dim n If Text1.Text 23456 Then n=n 1 Print 口令输入错误&n&次 End If End Sub 希望程序运行时得到左图所示的效果，即：输入口令，单击“确认口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正确的是A）在 Dim n 语句的下面添加一句：n=O B）把 Print 口令输入错误&n&次改为 Print 口令输入错误+n+次 C）把 Print 口令输入错误&n&次改为 Print 口令输入错误&Str(n)&次D）把 Dim n 改为
11、 Static n（25）要求当鼠标在图片框P1 中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是A）Private Sub P1_MouseMove（Button AS Integer,Shift As Integer,X As Single,Y As Single）Print X,Y End Sub B）Private Sub P1_MouseDown（Button AS Integer,Shift As Integer,X As Single,Y As Single）Picture.Print X,Y End Sub C）Private Sub P1_Mou
12、seMove（Button AS Integer,Shift As Integer,X As Single,Y As Single）P1.Print X,Y End Sub D）Private Sub Form_MouseMove（Button AS Integer,Shift As Integer,X As Single,Y As Single）P1.Print X,Y End Sub（26）计算二的近似值的一个公式是。某人编写下面的程序用此公式计算并输出的近似值：Private Sub Comand1_Click（）PI 1 Sign1 n=20000 For k=3 To n Sign=
13、-Sign/k PI=PI+Sign/k Next k Print PI*4 End Sub 运行后发现结果为3.22751，显然，程序需要修改。下面修改方案中正确的是A）把 For k=3 To n 改为 For k=1 To n B）把 n=20000 改为 n=20000000 C）把 For k=3 To n 改为 For k=3 To n Step 2 D）把 PI=1 改为 PI=0（27）下面程序计算并输出的是Private Sub Comand1_Click（）a=10 s=0 Do s=s+a*a*a a=a-1 Loop Until a=0 Print s End Sub
14、A）13+23+33+103 的值B）10!+3!+2!+1!的值C）（1+2+3+10）3 的值D）10 个 103 的和（28）若在窗体模块的声明部分声明了如下自定义类型和数组Private Type rec Code As Integer Caption As String End Type Dim arr（5）As rec 则下面的输出语句中正确的是A）Print arr.Code(2),arr.Caption(2)B）Print arr.Code,arr.Caption C）Print arr(2).Code,arr(2).Caption D）Print Code(2),Captio
15、n(2)（29）设窗体上有一个通用对话框控件CD1，希望在执行下面程序时，打开如图所示的文件对话框Private Sub Comand1_Click（）CD1.DialogTitle=打开文件 CD1.InitDir=CD1.Filter=所有文件|*.*|Word 文档|*.doc|文本文件|*.Txt CD1.FileName=CD1.Action=1 If CD1.FileName=Then Print未打开文件 Else Print要打开文件&CD1.FileName End If End Sub 但实际显示的对话框中列出了下的所有文件和文件夹，“文件类型”一栏中显示的是“所有文件”。
16、下面的修改方案中正确的是A）把 CD1.Action=1 改为 CD1.Action=2 B）把“CD1.Filter=”后面字符串中的“所有文件”改为“文本文件”C）在语句CD1.Action=1 的前面添加：CD1.FilterIndex=3 D）把 CD1.FileName=改为 CD1.FileName=文本文件（30）下面程序运行时，若输入395，则输出结果是Private Sub Comand1_Click（）Dim x%x=InputBox(请输入一个3 位整数)Print x Mod 10,x100,(x Mod 100)10 End Sub A）3 9 5 B）5 3 9 C
17、）5 9 3 D）3 5 9（31）窗体上有List1、List2 两个列表框，List1 中有若干列表项（见图），并有下面的程序：Private Sub Comand1_Click（）For k=List1.ListCount-1 To 0 Step-1 If List1.Selected（k）Then List2.AddItem List1.List（k）List1.RemoveItem k End If Next k End Sub 程序运行时，按照图示在List1 中选中 2 个列表项，然后单击Commandl 命令按钮，则产生的结果是A）在 List2 中插入了“外语”、“物理”两项
18、B）在 List1 中删除了“外语”、“物理”两项C）同时产生A）和 B）的结果D）把 List1 中最后 1 个列表项删除并插入到List2 中（32）设工程中有2 个窗体：Form1、Form2，Form1 为启动窗体。Form2 中有菜单。其结构如表。要求在程序运行时，在 Form1 的文本框Text1 中输入口令并按回车键（回车键的 ASCII 码为 13）后，隐藏 Form1，显示 Form2。若口令为“Teacher”，所有菜单项都可见；否则看不到“成绩录入”菜单项。为此，某人在Form1 窗体文件中编写如下程序：Private Sub Text1_KeyPress（KeyAsci
19、i As Integer）If KeyAscii=13 Then If Text1.Text=Teacher Then Form2.input.visible=True Else Form2.input.visible=False End If End If Form1.Hide Form2.Show End Sub 程序运行时发现刚输入口令时就隐藏了Form1，显示了 Form2，程序需要修改。下面修改方案中正确的是A）把 Form1 中 Text1 文本框及相关程序放到Form2 窗体中B）把 Form1.Hide、Form2.Show 两行移到2 个 End If 之间C）把 If Ke
20、yAscii=13 Then改为 If KeyAscii=Teaeher Then D）把 2 个 Form2.input.Visible 中的“Form2”删去（33）某人编写了下面的程序，希望能把Text1 文本框中的内容写到out.txt 文件中Private Sub Comand1_Click（）Open out.txt For Output As#2 Print Text1Close#2 End Sub 调试时发现没有达到目的，为实现上述目的，应做的修改是A）把 Print Text1改为 Print#2,Text1 B）把 Print Text1改为 Print Text1 C）把
21、 Print Text1改为 Write Text1D）把所有#2 改为#1（34）窗体上有一个名为Command1 的命令按钮，并有下面的程序：Private Sub Comand1_Click（）Dim arr（5）As Integer For k=1 To 5 arr（k）=k Next k prog arr（）For k=1 To 5 Print arr（k）Next k End Sub Sub prog（a（）As Integer）n=Ubound（a）For i=n To 2 step-1 For j=1 To n-1 if a（j）=0 Then Count（n）=Count（n
22、）+1 End If Next k m=count（0）For k=1 To 25 If m2 Print i End Sub 程序运行后，单击窗体，输出结果为【10】。（9）在窗体上画一个名称为Command1 的命令按钮。然后编写如下程序：Option Base 1 Private Sub Command1_Click（）Dim a（10）As Integer For i=1 To 10 a（i）=i Next Call swap（【11】）For i=1 To 10 Print a（i）;Next End Sub Sub swap（b（）As Integer）n=Ubound（b）For
23、 i=1 To n/2 t=b（i）b（i）=b（n）b（n）=t【12】Next End Sub 上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与 a(10)的值互换，a(2)与 a(9)的值互换，。请填空。（10）在窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：Private Sub Form_Click（）Open d:testsmtext1.Txt For Input As#1 Do While Not 【13】Line Input#1,aspect$Whole$=whole$
24、+aspect$+Chr$（13）+Chr$（10）Loop Text1.Text=whole$【14】Open d:testsmtext2.Txt For Output As#1 Print#1,【15】Close#1 End Sub 运行程序，单击窗体，将把磁盘文件smtext1.txt 的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。2010 年 3 月全国计算机等级考试二级 VB 笔试试卷答案选择题1-5 ADBAC 6-10 BADBA 11(D)12(B)13(C)14(A)15(D)16(C)17(B)18(A)19(B)20(A)21(A)22(D)23(A)24(D)25(C)26(C)27(A)28(C)29(C)30(B)31(C)32(B)33(A)34(B)35(D)填空题（1）A,B,C,D,E,F,5,4,3,2,1（2）15（3）EDBGHFCA（4）程序（5）课号(6)【6】2(7)7 500(8)8 Not label1.visible(9)9 Timer1.Enabled=Ture(10)10 28(11)11 a()或 a(12)12 n=n-1(13)13 EOF(1)(14)14 Close#1(15)15 Text1.Text 或 text1 dfyz 来自 http:/