计算机二级vb试题及答案.docx

计算机二级vb试题及答案.docx

《计算机二级vb试题及答案.docx》由会员分享，可在线阅读，更多相关《计算机二级vb试题及答案.docx（19页珍藏版）》请在冰点文库上搜索。

计算机二级vb试题及答案

2012年3月全国计算机等级考试二级笔试试卷 

Visual Basic语言程序设计 

（考试时间90分钟，满分100分） 

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

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

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

A） 循环队列是队列的一种链式存储结构 

B．循环队列是队列的一种顺序存储结构 

C．循环队列是非线性结构 

D．循环队列是一种逻辑结构 

（2）下列叙述正确的是（　　）。

A） 栈是一种先进先出的线性表 

B．队列是一种后进后出的线性表 

C．栈和队列都是非线性结构 

D．以上三种说法都不对 

（3）一棵二叉树共有25个结点，其中5个是叶子结点，则度为1的结点数为（　　）。

A．16 

B．10 

C．6 

D．4 

（4）在下列模式中，能够给出数据库物理存储结构与物理存取方法的是（　　）。

A．外模式 

B．内模式 

C．概念模式 

D．逻辑模式 

（5）在满足实体完整性约束的条件下（　　）。

A．一个关系中应该有一个或多个候选关键字 

B．一个关系中只能有一个候选关键字 

C．一个关系中不许有多个候选关键字 

D．一个关系中可以没有候选关键字 

（6）有三个关系R、S和T如下：

（　　）。

则由关系R和S得到关系T的操作时 

A．自然连接 

B．并 

C．交 

D．差 

（7）软件生命周期中的活动不包括（　　）。

A．市场调研 

B．需求分析 

C．软件测试 

D．软件维护 

（8）下面不属于需求分析阶段任务的是（　　）。

A．确定软件系统的功能需求 

B．确定软件系统的性能需求 

C．需求规格说明书评审 

D．制定软件集成测试计划 

（9）在测试方法中，设计测试用例的主要根据是（　　）。

A．程序内部逻辑 

B．程序外部功能 

C．程序数据结构 

D．程序流程图 

（10）在软件设计中不使用的工具是（　　）。

A．系统结构图 

B．PAD图 

C．数据流图（DFD图） 

D．程序流程图 

（11）以下合法的VB变量名是（　　）。

A．case 

B．name10 

C．t-name 

D．x*y 

（12）设x是小于10的非负数。

对此陈述，以下正确的VB表达式是（　　）。

A．0≤x<10 

B．0<=x<10 

C．x>=0 and x<10 

D．x>=0 or x<=10 

（13）以下关于窗体的叙述中错误的是（　　）。

A．窗体的Name属性用于标识一个窗体 

B．运行程序时，改变窗体大小，能够触发窗体的Resize事件 

C．窗体的Enabled属性为False时，不能响应单击窗体的事件 

D．程序运行期间，可以改变Name属性值 

（14）下面定义窗体级变量a的语句中错误的是（　　）。

A．Dim a% 

B．private a% 

C．Private a As Integer 

D．Static a% 

（15）表达式Int（Rnd（0）*50）所产生的随机数范围是（　　）。

A． （0，50） 

B． （1，50） 

C． （0，49） 

D． （1，49） 

（16）设x=5，执行语句Print x=x+10，窗体上显示的是（　　）。

A．15 

B．5 

C．True 

D．False 

（17）设有如下数组声明语句：

Dim arr（-2 to 2,0 to 3）AS Integer 

该数组所包含的数组元素个数是（　　）。

A．20 

B．16 

C．15

D．12 

（18）现有由多个单选按钮构成的控件数组，用于区别该控件数组中各控件的属性是（　　）。

A．Name 

B．Index 

C．Caption 

D．Value 

（19）设有分段函数：

A．SelectCasex

　　　　　CaseIs<0

　　　　　　　　Y=5

　　　　　CaseIs<=5,Is>0

　　　　　　　　Y=2*x

　　　　　Caseelse

　　Endselect

B．Ifx<0Then

　　　　y=5

　　Elseifx<=5then

　　　　y=2*x

　　Else

 　　　　y=x*x+1

　　Endif

C．y=iif｛x<0.5，iif（x<=5.2*x，x*x+1）｝

D．Ifx<0Theny=5

　　Ifx<=5andx>=0theny=2*x

　　Ifx>5theny=x*x+1

（20）设程序中有如下语句：

X=inputbox（“输入”,“数据”,100）

Print X

运行程序，执行上述语句，输入5并单击输入对话框上的“取消“按钮，则窗体上输出（　　）。

A．0 

B．5 

C．100 

D．空白

（21）现有如下一段程序：

Option Base 1

Private Sub Command1_Click（）

Dim a

a=Array（3,5,7,9）

x=1

For i=4 to 1 Step -1

S=s+a （ i ）*x

x=x*10

Next

Print s

End Sub

执行程序，单击Command1命令按钮，执行上述事件过程，输出结果是（　　）。

A．9753 

B．3579 

C．35 

D．79

（22）设有一个命令按钮Commsand1的事件过程以及一个函数过程。

程序如下：

Private Sub Command1_Click（0

Static x As Integer

x=f（x+5）

Cls

Print x

End Sub

Private Funtion f（x As integer）As Integer

F=x+x

End Funtion

连续单击命令按钮3次，第3次单击命令按钮后，窗体上显示的计算结果是（　　）。

A．10 

B．30 

C．60 

D．70

（23）以下关于菜单设计的叙述中错误的是（　　）。

A．各菜单项可以构成控件数组

B．每个菜单项可以看成是一个控件

C．设计菜单是，菜单项的“有效” 表选，即’□有效（E）’,表示该菜单项不显示

D．菜单项只响应单击事件

（24）以下关于多窗体的叙述中，正确的是（　　）。

A．任何时刻，只有一个当前窗体

B．向一个工程添加多个窗体，存盘后生成一个窗体文件

C．打开一个窗体时，其他窗体自动关闭

D．只有第一个建立的窗体才是启动窗体

（25）窗体上有一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮，并有如下事件过程：

Private Sub Command1_Click（）

CommandDialog1.DefaultExt=”doc”

CommandDialog1.FileName=”VB.txt”

CommandDialog1.FileName=”All（*.*）|*.*|Word|*.Doc|”

CommandDialog1.FileName=1

CommandDialog1.ShowSave

End Sub

运行上述程序，如下叙述正确的是（　　）。

A． 打开的对话框中文件“保存类型”框中显示“All（*.*）”

B． 实现保存文件的操作，文件名是VB.txt

C． DefaultExt属性与FileName属性所指明的文件类型不一致，程序出错

D． 对话框的Filter属性没有指出txt类型，程序运行出错

（26）设程序中有如下数组定义和过程调用语句：

Dim a（10） As Integer

……

Call p（a）

如下过程定义中，正确的是（　　）。

A． Private Sub p（a As Integer）

B． Private Sub p（a（） As Integer）

C． Private Sub p（a（10） As Integer）

D． Private Sub p（a（n） As Integer）

（27）若要获得组合框中输入的数据，可使用的属性是（　　）。

A．Listindex

B．Caption

C．Text

D．List

（28）在窗体上画两个名称分别为Text1、Text2的文本框。

Text1的Text属性为“Database”，如图所示。

现有如下事件过程：

 Private Sub Text1_Change（）

Text2.Text=Mid（Text1,1,1）

End Sub

运行程序，在文本框Text1中原有字符之前输入a，Text2中显示的是：

（　　）。

A． DataA

B． DataB

C． aData 

D． aBase

（29）有如下程序：

Option Base !

Private Sub Command1_Click（）

Dim arr（10）

arr=Array（10,35,28,90,54,68,72,90）

For Each a In arr

If a>50 Then

Sum=Sun+a

End If

Next a

End Sub

运行上述程序时出现错误，错误之处是（　　）。

A． 数组定义语句不对，应改为Dim arr

B． 没有指明For循环的终值

C． 应在For语句之前增加Sum=0

D． Next a应改为Next

（30）要求产生10个随机整数，存放在数组arr中，从键盘输入要删除的数组元素的下标，将该元素中的数组删除，后面元素中的数据依次前移，并显示删除后剩余的数据，现有如下程序：

Option Base 1

Private Sub Command1_Click（）

Dim arr（10） AS Integer 

For i=1 to 10

arr（i）=int （Rnd*100）

Print arr（i）;

Next

x=inputbox（“输入1到10的一个整数：

”）

For i=x+1 to 10 ‘循环2

arr（i-1）=arr（i）

Next

For i=1 to 10 ‘循环3

Print arr（i）;

Next

End Sub

程序运行后发现显示的结果不正确，应该进行的修改是（　　）。

A． 产生随机数时不使用Int函数

B． 循环2的初始值应为i=x

C． 数组定义改为Dim a（11） as integer

D． 循环3是循环终值应改为9

（31）使用驱动器列表框Drive1、目录列表框Fiel1时，需要设置控件的同步，以下能够正确设置两个同步的命令是（　　）。

A．Dir1.path=Drive.pate

B．File1.path=Dir1.pate

C．File1.path=Drive1.pate

D．Drive1.Drive=Dir1.pate

（32） 以下关于弹出式菜单的叙述中，错误的是（　　）。

A．一个窗体只能有一个弹出式菜单

B．弹出式菜单在菜单编辑器中建立

C．弹出式菜单的菜单名（主菜单项）的“可见”属性通常设置为False

D．弹出式菜单通过窗体的PopupMenu方法显示

（33）有如下程序：

Private Type stu

X As String

Y As Integer

End Type

Private Sub Command1_Click（）

Dim a As stu

a.x=”ABCD”

a.y=12345

Print a

End Sub\

程序运行时出现错误，错误的原因是（　　）。

A． Type定义语句没有放在标准模块中

B． 变量声明语句有错

C． 赋值语句不对

D． 输出语句Print不对

（34）在窗体上画两个名称分别为Text1、Text2的文本框，一个名称为Lable1的标签。

窗体外观如图a所示。

要求当改变任一个文本框的内容，就会将该文本框的内容显示在标签中，如图b所示。

实现上述功能如下：

Pivate Sub Text1_Change（）

Call ShowText（Text1）

End Sub

Private Sub Text2 Change（）

Call ShowText（Text2）

End Sub

private Sub showText（T As TextBox）

Label1.Caption=”文本框中的内容是：

”&T.Text

Enb Sub

关于上述程序，以下叙述中错误的是（　　）。

A． ShowText过程的参数类型可以是Control

B． ShowText过程的参数类型可以是Variant

C． 两个过程调用语句有错，应分别改为Call ShowText（Text1.Text）、CallShowText（Text2.Text）

D． ShowText过程中的T是控件变量

（35）设有打开文件的语句如下：

Open“test.dat” For Random As #1

要求把变量a中的数据保存到该文件中，应该使用的语句是（　　）。

A． Inpur #1，a

B． Write #1.a

C． Put #1，.a

D． Get #1..a

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

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

（1）在长度为n的顺序存储的线性表中删除一个元素，最坏情况下需要移动表中的元素个数为（　　）。

（2）设循环队列的存储空间为Q（1：

30），初始状态为Front=rear=30.现经过一系列入队与退队运算后，front=16，rear=15，则循环队列中有（　　）个元素。

（3）数据库管理系统提供的数据语言中，负责数据的增、删、改和查询的是（　　）。

（4）在将E-R图转换到关系模式时，实体和联系都可以表示成（　　）。

（5）常见的软件工程方法有结构化方法和面向对象方法，类、继承以及多态性等概念属于（　　）。

（6）下面的事件过程执行时，可以把Text1文本框中的内容写到文件“file1.txt“中去。

请填空。

PivateSubCommand1_Click（）

Open“file1.txt”For    （　6　）  As#1

print   （　7　）  Text1.Text

Close#1

EndSub

（7）设窗体上有一个名称为Lable1的标签。

程序运行时，单击鼠标左键，再移动鼠标，鼠标的位置坐标会实时地显示在Lable1标签中：

单击鼠标右键则停止实时显示，并将标签中内容清除。

下面的程序可实现这一功能，请填空。

DimDownAsBoolean

PrivateSubForm_MouseDown（ButtonAsInteger，Shift AsInteger，xAsSingle，YAsSingle）

SelectCase  （　8　）  

Case1

Down=True

Case2

Down=False

EndSelect

EndSub

PrivateSubForm_MouseMove（ButtonAsInteger，Shift AsInteger，XAsSingle，YAsSingle）

If  （　9　）   

  （　10　）  =”X=”&X&” Y=”&Y

Else

Label1.Caption=””

Endif

Sub

（8）窗体上有List1、List2两个列表框，程序运行时，在两个列表框中分别选中1个项目，如图a所示，单击名称为Command1的“交换”按钮，则把选中的项目互换，互换后的位置不限，如图b所示。

下面的程序可实现这一功能，请填空。

PrivateSubCommand1_Click（）

IfList1.Text=””orList2.Text=””Then

MsgBox”请选择交换的物品！

”

Else

List1.AddItemList2.Text

List2.RemoveItem   （　11　）   

    （　12　）  

List1.RemoveItemList1.ListIndex

EndIf

EndSub

（9）设窗体上有Text1文本框和Command命令按钮，并有以下程序：

PrivateSubCommand1_Click（）

Iemp$=“”

Fork=1ToLen（Text1）

Ch$=Mid（Text1,k,1）

IfNotfound（temp,ch）Then

Temp=temp&   （　13　）  

Endif

Nextk

Text1=  （　14　）  

EndSub

PrivateFunctionfound（strAsString,chAsString）AsBoolean

ForK=1ToLen（str）

Ifch=Mid（Str,k,1）Then 

Found=   （　15　）  

ExitFunction

EndIf

Nextk

Found=False

EndFunction

运行时，在文本框中输入若干英文字母，然后单击命令按钮，则可以删去文本框中所有重复的字母。

例如，若文本框中原有字符串为“abcddbbc”，则单击命令按钮后文本框中字符串为“abcd“。

其中函数found的功能是判断字符串str中是否有字符ch，若有，函数返回True，否则返回False。

请填空。