二级VISUALBASIC-25-2_真题-无答案

二级VISUAL BASIC-25-2

(总分71,考试时间90分钟)

一、选择题

1. 以下程序运行后，输出结果是____。

For i=1 To 3

Print Tab(3*j);2*(j-1)

Next j

Print

A. 1325 B. 19 25

C. 024 D. 135

2. 下列选项，不属于模块间耦合的是

A. 数据耦合 B. 同构耦合

C. 异构耦合 D. 公用耦合

3. 设用复制、粘贴的方法建立了一个命令按钮数组Command1，以下对该数组的说法错误的是

A. 命令按钮的所有Caption属性都是Command1

B. 在代码中访问任意一个命令按钮只需使用名称Command1

C. 命令按钮的大小都相同

D. 命令按钮共享相同的事件过程

4. 下列不属于软件工程三要素的是

A. 工具 B. 过程

C. 方法 D. 环境

5. 一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Public X

As Integer，在Model1中有语句Public Y As Integer，则以下叙述中正确的是____。

A. 变量X、Y的作用域相同 B. Y的作用域是Model1

C. 在Form1中可以直接使用X D. 在Form2中可以直接使用X和Y

6. 窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序如下：

Private Type x

a As Integer:b As Integer

End Type

Private Sub Command1_Click()

Dim y As x

y.a=InputBox("")

If y.a2=y.a/2 Then

y.b=y.a*y.a

Else

y.b=Fix(y.a/2)

End If

=y.b

End Sub

对以上程序，下列叙述中错误的是

A. x是用户定义的类型

B. InputBox函数弹出的对话框中没有提示信息

C. 若输入的是偶数，y.b的值为该偶数的平方

D. Fix(y.a/2)把y.a/2的小数部分四舍五入，转换为整数返回

7. 下列程序段正确的是____。

A. Dim a As Integera=array(1,2,3,4)

B. Dim a(),b()a=array(1,2,3,4):b=a

C. Dim a As Varianta=array(1,"asd",true)

D. Dim a() As Varianta=array(1,2,3,4)

8. Command1_Click()事件代码如下：

Private Sub Command1_Click()

Dim x As Integer, Y As Integer

x = 6 : Y : 8

Call ABC(X, Y)

Print X; Y

End Sub

Private Sub ABC(ByVal X As Integer，Y As Integer)

X = X + 4

Y = Y = 2

End Sub

事件发生后，X和Y的值分别为 ______。

A. 6, 8 B. 10, 10

C. 10, 8 D. 6, 10

9. 下列叙述中，不属于软件需求规格说明书的作用的是_______。

A. 便于用户、开发人员进行理解和交流

B. 反映出用户问题的结构，可以作为软件开发工作的基础和依据

C. 作为确认测试和验收的依据

D. 便于开发人员进行需求分析

10. 将E-R图转换到关系模式时，实体与联系都可以表示成________。

A. 属性 B. 关系

C. .键 D. .域

11. 下列说法不正确的是

A. 对象的操作由对象的属性、事件和方法来描述

B. Visual Basic是面向对象的程序设计，Visual Basic中只有窗体和控件两种对象

C. 属性是对象的特征，不同的对象有不同的属性

D. 对象事件在代码窗口中体现过程

12. 下列关于栈的描述错误的是______。

A. 栈按"先进后出"组织数据 B. 栈是特殊的线性表，只能在一端插入或删除数据

C. 栈具有记忆功能 D. 栈只能顺序存储

13. 以下说法错误的是 ______。

A. 函数过程没有返回值 B. 子过程没有返回值

C. 函数过程可以带参数 D. 子过程可以带参数

14. 窗体上有一个名称为Command1的命令按钮，其单击事件过程如下：

Private Sub Command1_Click()

Dim x As Integer, y As Integer

Static z As Integer

x=3:y=5:z=y

Call f(x, y, z)

Print x; y; z

End Sub

Private Sub f(ByVal a As Integer, ByRef b As Integer, c As Integer)

a=a+a:b=b+b:c=c+c

End Sub

运行程序，单击命令按钮时，3个标签中显示的内容分别是

A. 3 5 5 B. 3 5 10

C. 3 10 5 D. 3 10 10

15. 在数据管理技术发展过程中，文件系统与数据库系统的主要区别是数据库系统具有______。

A. 数据无冗余 B. 数据可共享

C. 专门的数据管理软件 D. 特定的数据模型

16. 两个或两个以上的模块之间关联的紧密程度称为____。

A. 耦合度 B. 内聚度

C. 复杂度 D. 连接度

17. Mid("Hello Everyone"，7，3) 的执行结果是

A. yon B. every

C. Eve D. one

18. 下列叙述中正确的是____

A. 为了建立一个关系，首先要构造数据的逻辑关系

B. 表示关系的二维表中各元组的每一个分量还可以分成若干数据项

C. 一个关系的属性表称为关系模式

D. 一个关系可以包括多个二维表

19. 多窗体操作中，窗体文件的扩展名是______ 。

A. .bas B. .vbp

C. .frm D. .cls

20. 如果要在窗体上使用2组单选按钮，每组都可以有一个被选中，则应该做的是

A. 把l组单选按钮画在窗体的左边，另1组画在右边

B. 先画2组单选按钮，再画2个框架控件把2组单选按钮分别框起来

C. 先画2个框架控件，再把2组单选按钮分别画在不同的框架中

D. 因为1个窗体中只有1个单选按钮可以被选中，所以需要使用2个窗体

21. 当组合框的Style属性设置为何值时，组合框称为简单组合框?

A. 0 B. 1

C. 2 D. 3

22. 对用MsgBox显示的消息框，下面 ______ 是错的。

A. 可以有一个按钮 B. 可以有两个按钮

C. 可以有三个按钮 D. 可以有四个按钮

23. 以下叙述中错误的是____。

A. 在程序运行时，通用对话框控件是不可见的

B. 在同一个程序中，用不同的方法(如ShowOpen或Showsave等)打开的通用对话框具有不同的作用

C. 调用通用对话框控件的ShowOpen方法，可以直接打开在该通用对话框中指定的文件

D. 调用通用对话框控件的ShowColor方法，可以打开颜色对话框

24. Mid("HelloEveryone"，7,3)的执行结果是____。

A. ong B. every

C. Eve D. one

二、填空题

1. Visual Basic中的控件分为3类，它们是________、ActiveX控件和可插入对象。

2. 在菜单编辑器中建立一个菜单，其主菜单项的名称为nmuEdit，Visible属性为False。程序运行后，如果用鼠标右键单击窗体，则弹出与mnvEdit对应的菜单。以下是实现上述功能的程序，请填空。

Private Sub Form________(Button As Integer, Shift As Integer,

X As Single, Y As Single)

If Button = 2 Then

________mnuEdit

End If

End Sub

3. 菜单编辑器可分为3个部分，即数据区、________和菜单项显示区。

4. 在单链表中，要删除一个指定的结点，必须要找到该结点的______。

5. 编写一个程序把一维数组的各元素反序存放。在主过程中调用subl过程把从键盘上输入的10个元素反序存放后再输出。根据题意，请完善下列程序。

Private Sub subl(b()As Integer, ByVal n As Integer)

Dim i As Integer, j As Integer, t As Integer

________

j=n

Do While i＜j

t=b(i):b(i)=b(j):b(j)=t

i=i+1:j=j-1

Loop

End Sub

Private Sub Command1_Click()

Dim a(1 To 10)As Integer, i As Integer

Randomize

For i=1 To 10

a(i)=Int(100*RnD) +1

Next i

For i=________

Print a(i);

Next i

Print

Call________

For i=i To 10

Print a(i);

Next i

Print n

End Sub

6. 软件设计模块化的目的是______。

7. 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：

Option Base 1

Private Sub Command1_Click()

Dim a(10)As Integer

For i=1 To 10

a(i)=i

Next

Call swap(______)

For i=1 To 10

Print a(i)；

Next

End Sub

Sub swap(b()As Integer)

n=Ubound(b)

For i=1 To n/2

t=b(i)

b(i)=b(n)

b(n)=t

______

Next

End Sub

上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换……。请填空。

8. 顺序存储方法是把逻辑上相邻的结点存储在物理位置________的存储单元中。

9. 高度为h(h＞O)的二叉树最少有________个结点。

10. 在面向对象方法中，类的实例称为______。

11. 在鼠标事件过程MouseDown和MouseUp中，参数Button的值为1、2、4时，分别代表按下鼠标的______、______和______按钮。

12. 下列程序执行时，要求输入一个密码，如果密码不正确，则显示出非法用户的对话框。请填空。

Const PassWord="12345678"

Dim inpass As String

inpass=______("请输入你的密码"，"输入密码")

If inpass=PassWord Then Exit Sub

Else

______"对不起!你是非法用户。"，vbOKOnly＋vbCritical，"拒绝"

Unload Me

End If

13. 成本效益分析的目的是从________角度评价开发一个项目是否可行。

14. 为了使复选框禁用(即呈现灰色)，应把它的Value属性设置为______。