全国VB二级真题及答案.docx

全国VB二级真题及答案.docx

《全国VB二级真题及答案.docx》由会员分享，可在线阅读，更多相关《全国VB二级真题及答案.docx（16页珍藏版）》请在冰豆网上搜索。

全国VB二级真题及答案

2005年9月第22次全国计算机等级考试二级VB考试真题

一、选择题（每小题2分，共70分）

　下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的.请将正确选项填涂在答题卡相应位置上，答在试卷上不得分.

C

（1）下列叙述中正确的是

　　A）程序设计就是编制程序             B）程序的测试必须由程序员自己去完成

　　C）程序经调试改错后还应进行再测试   D）程序经调试改错后不必进行再测试

A

（2）下列数据结构中，能用二分法进行查找的是

　　A）顺序存储的有序线性表    B）线性链表

　　C）二叉链表                D）有序线性链表

C（3）下列关于栈的描述正确的是

　　A）在栈中只能插入元素而不能删除元素

　　B）在栈中只能删除元素而不能插入元素

　　C）栈是特殊的线性表，只能在一端插入或删除元素

　　D）栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素

D（4）下列叙述中正确的是

　　A）一个逻辑数据结构只能有一种存储结构

　　B）数据的逻辑结构属于线性结构，存储结构属于非线性结构

　　C）一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率

　　D）一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率

C（5）下列描述中正确的是

　　A）软件工程只是解决软件项目的管理问题

　　B）软件工程主要解决软件产品的生产率问题

　　C）软件工程的主要思想是强调在软件开发过程中需要应用工程化原则

　　D）软件工程只是解决软件开发中的技术问题

D（6）在软件设计中，不属于过程设计工具的是

　　A）PDL（过程设计语言）B）PAD图

　　C）N-S图D）DFD图

A（7）下列叙述中正确的是

　　A）软件交付使用后还需要进行维护

　　B）软件一旦交付使用就不需要再进行维护

　　C）软件交付使用后其生命周期就结束

　　D）软件维护是指修复程序中被破坏的指令

A（8）数据库设计的根本目标是要解决

　　A）数据共享问题B）数据安全问题

　　C）大量数据存储问题D）简化数据维护

（9）设有如下关系表：

　　则下列操作中正确的是

　　A）T＝R∩S  B）T＝R∪S  C）T＝R×S  D）T＝R/S

B（10）数据库系统的核心是

　　A）数据模型 B）数据库管理系统　　C）数据库  D）数据库管理员

B（11）假定一个VisualBasic应用程序由一个窗体模块和一个标准模块构成.为了保存该应用程序，以下正确的操作是

　　A）只保存窗体模块文件          　　B）分别保存窗体模块、标准模块和工程文件

　　C）只保存窗体模块和标准模块文件　　D）只保存工程文件

C（12）为了清除窗体上的一个控件，下列正确的操作是

A） 按回车键　

B） 按Esc键

C）选择（单击）要清除的控件，然后按Del键

　　D）选择（单击）要清除的控件，然后按回车键

C（13）以下叙述中错误的是

　　A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件

　　B）当程序运行时，双击一个窗体，则触发该窗体的DblClick事件

　　C）VisualBasic应用程序只能以解释方式执行

　　D）事件可以由用户引发，也可以由系统引发

D（14）设a=2，b=3，c=4，d=5，下列表达式的值是

　　Nota<=cOr4*c=b^2Andb<>a+c

　　A）-1  B）1  C）True  D）False

C（15）设a=5，b=10，则执行

c=Int（（b-a）*Rnd+a）+1

后，c值的范围为

　　A）5～10  B）6～9  C）6～10  D）5～9

C（16）在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：

　　Private Sub Command1_Click（）

　　  a$="softwareandhardware"

　  　b$=Right（a$，8）

　  　c$=Mid（a$，1，8）

　  　MsgBox a$，，b$，c$，1

　　EndSub

　　运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是

　　A）softwareandhardware  B）software   C）hardware  D）1

A（17）在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：

　　Private Sub  Command1_Click（）

　　     a=InputBox（"Enteraninteger"）

　　     b=InputBox（"Enteraninteger"）

　　     Text1.Text=b+a

　　End  Sub

　　程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是

A）108  B）18  C）810  D）出错

B（18）在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：

　　Private  Sub  Form_Load（）

　　   Show

　　   Text1.Text=""

　　   Text2.Text=""

　　   Text1.SetFocus

　　EndSub

　　Private Sub  Text1_Change（）

　　  Text2.Text=Mid（Text1.Text，8）

　　EndSub

　　程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的内容是

　　A）BeijingChina   B）China   C）Beijing    D）BeijingC

B（19）在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程：

　　Private Sub  Form_Load（）

　　    List1.AddItem  "Item1"

　　    List1.AddItem  "Item2"

　　    List1.AddItem   "Item3"

　　EndSub

　　Private Sub  Command1_Click（）

　　   List1.List（List1.ListCount）="AAAA"

　　EndSub

　　程序运行后，单击命令按钮，其结果为

　　A）把字符串“AAAA”添加到列表框中，但位置不能确定

　　B）把字符串“AAAA”添加到列表框的最后（即“Item3”的后面）

　　C）把列表框中原有的最后一项改为“AAAA”

　　D）把字符串“AAAA”插入到列表框的最前面（即“Item1”的前面）

A（20）假定有如下事件过程：

　　Private Sub  Form_Click（）

　　  Dim x As Integer，n As Integer

　　  x=1

　　  n=0

　　  Do  While  x<28

　　    x=x*3

　　    n=n+1

　　  Loop

　  　Print  x，n

　　EndSub

　　程序运行后，单击窗体，输出结果是

　　A）814     B）563　　C）281   D）2435

D（21）有如下程序：

　　Private  Sub    Form_Click（）

　　  Dim  Check，Counter

　　  Check=True

　    Counter=0

　　  Do

　　    Do  While   Counter<20

　　       Counter=Counter+1

　　      If  Counter=10  Then

　　           Check=False

　　           Exit  Do

　　      EndIf

　　   Loop

　　 Loop Until  Check=False

　　 Print  Counter，Check

　　EndSub

　　程序运行后，单击窗体，输出结果为

　　A）15   0    B）20 -1　　C）10  True  D）10  False

A（22）有如下程序：

　　Private  Sub  Form_Click（）

　　   Dim I As  Integer，sum  As  Integer

　   　sum=0

　　   For i=2 To 10

　　     If  I Mod 2 <> 0 And I Mod 3=0 Then

　　       sum=sum+i

　   　 EndIf

　　 Next i

　　Print  sum

　　EndSub

　　程序运行后，单击窗体，输出结果为

　　A）12  B）30  C）24  D）18

A（23）在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

　　Private Sub  Command1_Click（）

　　    Dim   array1（10，10） As  Integer

　　    Dim I As Integer， j As Integer

　　    For i=1 To 3

　　        For j=2 To  4

　　            array1（i，j）=i+j

　　        Next  j

　　    Next  i

　　    Text1.Text=array1（2，3）+array1（3，4）

　　EndSub

　　程序运行后，单击命令按钮，在文本框中显示的值是

　　A）12   B）13   C）14   D）15

D（24）在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：

　　Private  Sub   Command1_Click（）

　　  Dim  a1（4，4），a2（4，4）

　　  For  i=1 To  4

　　      For j=1 To  4

　　          a1（i，j）=i+j

　　          a2（i，j）=a1（i，j）+i+j

　　      Next j

　　  Next i

　　  Print  a1（3，3）；a2（3，3）

　　EndSub

　　程序运行后，单击命令按钮，在窗体上输出的是

　　A）6 6   B）10  5   C）7  21    D）6  12

C（25）有如下程序：

　　Option Base  1

　　Private  Sub   Form_Click（）

　　  Dim  arr，Sum

　　  Sum=0

　　  arr=Array（1，3，5，7，9，11，13，15，17，19）

　　  For i=1 To 10

　　     If  arr（i）/3=arr（i）\3   Then

　       　Sum=Sum+arr（i）

　　    EndIf

　　 Nexti

　 　Print  Sum

　　EndSub

　　程序运行后，单击窗体，输出结果为

　　A）25      B）26      C）27     D）28

A（26）在窗体上画一个命令按钮，然后编写如下事件过程：

　　Private  Sub    Command1_Click（）

　　  Dim a（5） As   String

　　  For i=1 To  5

　　      a（i）=Chr（Asc（"A"）+（i-1））

　　  Next  i

　　  For Each  b In  a

　　   Print   b；

　　  Next

　　EndSub

　　程序运行后，单击命令按钮，输出结果是

A）ABCDE    B）12345　　C）abcde    D）出错信息

d（27）以下关于函数过程的叙述中，正确的是

　　A）如果不指明函数过程参数的类型，则该参数没有数据类型

　　B）函数过程的返回值可以有多个

　　C）当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递

　　D）函数过程形参的类型与函数返回值的类型没有关系

b（28）函数过程F1的功能是：

如果参数b为奇数，则返回值为1，否则返回值为0.以下能正确实现上述功能的代码是

　　A）Function  F1（ b As Integer）

　　    If b Mod 2=0 Then

　　      Return   0

　　    Else

　　      Return 1

　　    EndIf

　　End    Function

　　B）Function  F1（ b As  Integer）

　　   If bMod2=0 Then

　　       F1=0

　　   Else

　　       F1=1

　　   End If

　　EndFunction

　　C）Function F1（bAs Integer）

　 　If b Mod2=0   Then

　　     F1=1

　　  Else

　　     F1=0

　　  EndIf

　　End Function

　　D）FunctionF1（bAsInteger）

　　  IfbMod2<>0Then

　　   Return 0

　　 Else

　 　 Return 1

　　 EndIf

　　End  Function

a（29）以下关于KeyPress事件过程中参数KeyAscii的叙述中正确的是

　　A）KeyAscii参数是所按键的ASCII码

　　B）KeyAscii参数的数据类型为字符串

　　C）KeyAscii参数可以省略

　　D）KeyAscii参数是所按键上标注的字符

C（30）设窗体上有一个名为Text1的文本框，并编写如下程序：

　　Private Sub Form_Load（）

　　 Show

　　 Text1.Text=""

　　 Text1.SetFocus

　　EndSub

　　PrivateSubForm_MouseUp（ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle）

　　    Print   "程序设计"

　　EndSub

　　PrivateSubText1_KeyDown（KeyCodeAsInteger，ShiftAsInteger）

　　     Print   "VisualBasic"；

　　EndSub

　　程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是

　　A）VisualBasic     B）程序设计　　C）VisualBasic程序设计   D）a程序设计

　　c（31）假定有下表所列的菜单结构：

　　━━━━━━━━━━━━━━━━━━━━

　　标题    名称       层次

　　────────────────────

　　显示    appear     1（主菜单）

　　大图标  bigicon    2（子菜单）

　　小图标  smallicon  2（子菜单）

　　━━━━━━━━━━━━━━━━━━━━

　　要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个“？

”.以下正确的事件过程是

　　A）Private Sub  bigicon_Click（）

　      　bigicon.Checked=False

　　  EndSub

　　B）Private Sub  bigicon_Click（）

　　     Me.appear.bigicon.Checked=True

　　  EndSub

　　C）Private Sub bigicon_Click（）

　　     bigicon.Checked=True

　  　EndSub

　　D）Private Sub  bigicon_Click（）

　　    appear.bigicon.Checked=True

　 　EndSub

C（32）假定通用对话框的名称为CommonDialog1，命令按钮的名称为Command1，则单击命令按钮后，能使打开的对话框的标题为“NewTitle”的事件过程是

　　A）Private Sub  Command1_Click（）

　       CommonDialog1.DialogTitle="NewTitle"

　　     CommonDialog1.ShowPrinter

　　  End  Sub

　　B）Private Sub   Command1_Click（）

　　      CommonDialog1.DialogTitle="NewTitle"

　　      CommonDialog1.ShowFont

　　  End Sub

　　C）Private Sub  Command1_Click（）

　　      CommonDialog1.DialogTitle="NewTitle"

　　      CommonDialog1.ShowOpen

　　  EndSub

　　D）Private  Sub    Command1_Click（）

　      　CommonDialog1.DialogTitle="NewTitle"

　　      CommonDialog1.ShowColor

　　  End   Sub

d（33）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是

　　A）任何时刻最多只有一个窗体是活动窗体

　　B）不能把标准模块设置为启动模块

　　C）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体

　　D）如果工程中含有SubMain过程，则程序一定首先执行该过程

A（34）假定在工程文件中有一个标准模块，其中定义了如下记录类型

　　Type Books

　　   Name As String*10

　     TelNum As  String*20

　　EndType

　　要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录.下列能够完成该操作的事件过程是

A）Private Sub   Command1_Click（）

　　DimBAsBooks

　   　Open"c：

\Person.txt"For Output As #1

　   　B.Name=InputBox（"输入姓名"）

　   　B.TelNum=InputBox（"输入电话号码"）

　　Write#1，B.Name，B.TelNum

　　Close#1

　　EndSub

　　B）Private Sub  Command1_Click（）

　  　Dim B As  Books

　  　Open"c：

\Person.txt"ForInputAs#1

　　  B.Name=InputBox（"输入姓名"）

　　  B.TelNum=InputBox（"输入电话号码"）

　  　Print#1，B.Name，B.TelNum

　  　Close#1

　  　EndSub

　　C）Private Sub  Command1_Click（）

　    　Dim B As  Books

　　    Open"c：

\Person.txt"ForOutputAs#1

　　    Name=InputBox（"输入姓名"）

　　    TelNum=InputBox（"输入电话号码"）

　　   Write#1，B

　　   Close#1

　　EndSub

　　D）Private Sub  Command1_Click（）

　  　Dim B As  Book

　  　Open "c：

\Person.txt" For Input As #1

　  　Name=InputBox（"输入姓名"）

　　  TelNum=InputBox（"输入电话号码"）

　  　Print#1，B.Name，B.TelNum

　　  Close #1

　　EndSub

b（35）目录列表框的Path属性的作用是

　　A）显示当前驱动器或指定驱动器上的某目录下的文件名

　　B）显示当前驱动器或指定驱动器上的目录结构

　　C）显示根目录下的文件名

　　D）显示指定路径下的文件

二、填空题（每空2分，共30分）

　　请将每空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分.

（1）数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段，其中数据独立性最高的阶段是【1】.数据库系统

（2）算法复杂度主要包括时间复杂度和【2空间】复杂度.

　（3）在进行模块测试时，要为每个被测试的模块另外设计两类模块：

驱动模块和承接模块（桩模块）.其中【3驱动模块】的作用是将测试数据传送给被测试的模块，并显示被测试模块所产生的结果.

　（4）一棵二叉树第六层（根结点为第一层）的结点数最多为【432】个.

　（5）数据结构分为逻辑结构和存储结构，循环队列属于【5存储】结构.

　（6）设有以下函数过程：

　　Function fun（mAsInteger）AsInteger

　　  DimkAsInteger，sumAsInteger

　　  sum=0

　　  For k=m To 1 Step -2

　     　sum=sum+k

　　  Next  k

　　  fun=sum

　　End  Function

　　若在程序中用语句s=fun（10）调用此函数，则s的值为【630】.

　（7）在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程.程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中.例如，若在Text1中输