09年全国计算机发二级考试VB模拟试题二

09年全国计算机发二级考试VB模拟试题二（附答案）

知识点复习：记录：计算机处理数据的基本单位，由若干个相互关联的数据项组成。相当于表格中的一行。 文件：记录的集合，相当于一张表。

文件类型：顺序文件、随机文件、二进制文件。 一 、选择题

(1)由两个栈共享一个存储空间的好处是 A)减少存取时间，降低下溢发生的机率 B)节省存储空间，降低上溢发生的机率 C)减少存取时间，降低上溢发生的机率 D)节省存储空间，降低下溢发生的机率 正确答案: B

(2)设有两个串p和q，求q在p中首次出现位置的运算称作 A)连接

B)模式匹配 C)求子串 D)求串长 正确答案: B

(3)n个顶点的连通图中边的条数至少为 A)0 B)1 C)n-1 D)n

正确答案: C

(4)对象实现了数据和操作的结合，是指对数据和数据的操作进行 A)结合 B)隐藏 C)封装 D)抽象

正确答案: C

(5)下列叙述中，正确的是 A)软件就是程序清单

B)软件就是存放在计算机中的文件 C)软件应包括程序清单及运行结果 D)软件包括程序和文档 正确答案: D

(6)软件设计中，有利于提高模块独立性的一个准则是 A)低内聚低耦合 B)低内聚高耦合 C)高内聚低耦合 D)高内聚高耦合 正确答案: C

(7)软件生命周期中花费时间最多的阶段是 A)详细设计 B)软件编码 C)软件测试 D)软件维护 正确答案: D

(8)下列4项中说法不正确的是 A)数据库减少了数据冗余 B)数据库中的数据可以共享

C)数据库避免了一切数据的重复 D)数据库具有较高的数据独立性 正确答案: C

(9)下列4项中，必须进行查询优化的是 A)关系数据库 B)网状数据库 C)层次数据库 D)非关系模型 正确答案: A

(10)最常用的一种基本数据模型是关系数据模型，它的表示应采用 A)树 B)网络 C)图

D)二维表 正确答案: D

(11)下列说法不正确的是

A)对象的可见性可设为True或False B)标题的属性值可设为任何文本

C)属性窗口中属性可以按字母顺序排列

D)某些属性的值可以跳过不设置，系统自动设为空值 正确答案: D

(12)要设置窗体为固定对话框，并包含控制菜单栏和标题栏，但没有最大化和最小化按钮，设置的操作是 A)设置BoderStyle的值为FixedToolWindow B)设置BoderStyle的值为Sizable ToolWindow C)设置BoderStyle的值为FixedDialog D)设置BoderStyle的值为Sizable 正确答案: C

(13)下面的控件可作为其他控件容器的是 A)PictureBox和Data B)Frame和Image

C)PictureBox和Frame D)Image和Data 正确答案: C

(14)如果要将文本框作为密码框使用时，应设置的属性为 A)Name B)Caption

C)PasswordChar D)Text

正确答案: C

(15)有关程序代码窗口的说法错误的是

A)在窗口的垂直滚动条的上面，有一个\拆分栏\，利用它可以把窗口分为两个部分，每个窗口显示代码的一部分

B)双击控件设计窗体即可打开程序代码窗口

C)在程序代码的左下角有两个按钮，可以选择全模块查看或者是过程查看 D)默认情况下，窗体的事件是Load 正确答案: A

(16)VisualBasic中的数值可以用十六进制或八进制表示，十六进制数的开头符是&H，八进制数的开头符号是

A)$O B)&O C)$E D)&E

正确答案: B

(17)MsgBox函数的返回值的类型为 A)数值型 B)变体类型 C)字符串型 D)日期型 正确答案: A

(18)使\计算机技术\在当前窗体上输出的语句是 A)Print \计算机技术\

B)Picture.Print \计算机技术\ C)Printer.Print \计算机技术\ D)Debug.Print \计算机技术\ 正确答案: A

(19)用来设置文本框有无滚动条的属性是 A)ScrollBars B)MultiLine C)SelText D)SelLength 正确答案: A

(20)当Esc键与单击该命令按钮作用相同时，此命令按钮的什么属性被设置为True？ A)Style B)Default C)Caption D)Cancel

正确答案: D

(21)在VisualBasic种，要使标签的标题栏靠右显示，则将其Alignment属性设置为 A)0 B)2 C)1 D)3

正确答案: C

(22)属性BorderColor的作用是 A)设置直线颜色和形状边界颜色 B)设置直线或形状背景颜色

C)设置直线或形状边界线的线型 D)设置形状的内部颜色 正确答案: A

(23)下面哪个程序段能够正确实现如果A

B)If A

D)If A

考生答案: 正确答案: C

(24)下列程序段的执行结果为 a=2 b=0

Select Case a Case 1

Select Caseb Case 0

Print \ Case 1

Print \ End Select Case 2

Print \ EndSelect A)**0** B)**1** C)**2** D)0

正确答案: C

(25)在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分虽为Label1、Label2，标题分别为空白和\共有文件\的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签Label1中显示当前文件夹中文件的数量。如图所示。

能够正确实现上述功能的程序是 A)Private Sub Dir1_Change() File1.Path=Dir1.Path End Sub

Private Sub Dive1_Change() Dir1.Path=Drive1.Drive

Label1.Caption=File1.ListCount End Sub

B)Private Sub Dir1_Change() File.Path=Dir1.Path End Sub

PrivateSub Dive1_Change() Dir1.Path=Drive1.Drive Label1.Caption=File1.List End Sub

C)Private Sub Dir1_Change() File1.Path = Dir1.Path

Label1.Caption = File1.ListCount EndSub

Private Sub Drive1_Change() Dir1.Path = Drive1.Drive

Label1.Caption = File1.ListCount End Sub

D)Private SubDir1_Change() File1.Path=Dir1.Path

Label1.Caption=File1.ListCount End Sub

Private SubDive1_Change() Dir1.Path=Drive1.Drive Label1.Caption=File1.List End Sub 正确答案: C

(26)设有声明语句 Option Base 1

Dimb(-1 To 10, 2 To 9, 20)As Integer 则数组b中全部元素的个数 A)2310 B)1920 C)1500 D)1658

正确答案: B

(27)单击命令按钮，下列事件过程的执行结果为 Private Sub Command1_Click() Dim x As Integer, y As Integer x=40: y=72

Call PtoP(x, y) Print x; y End Sub

Public SubPtoP(Byval n As Integer, ByVal m As Integer) n=n ＼ 10+2 m=m ＼10+2 End Sub A)0 8 B)40 72 C)4 50 D)78 50 正确答案: B

(28)下列程序的执行结果为

Private Sub Command1_Click() Dim p AsInteger, q As Integer p=12: q=20

Call Value(p, q) Print p;q End Sub

Private Sub Value(ByVal m As Integer, ByVal n As Integer) m=m * 2: n=n - 5 Print m; n End Sub A)20 12 20 15 B)12 20 12 25 C)24 15 12 20

D)24 12 12 15

考生答案: 正确答案: C

(29)在窗体上画一个命令按钮，然后编写如下程序： Private SubCommand3_Click() Cop 2 Cop 3 Cop 4 End Sub

Sub Cop (aAs Integer) Static x As Integer x=x + a Print x; EndSub

程序运行后，单击命令按钮，输出结果为 A)2 3 4 B)2 5 9 C)3 5 4 D)2 4 3 正确答案: B

(30)有如下事件过程，单击命令按钮扣，输出结果为 Private SubCommand1_Click() Dim b%(1 To 4), j%, t# For j=1 To 4 b(j)=j Next j

t=Tax(b())

Print \ End Sub

FunctionTax (a()As Integer) Dim t#, i% t=1

For i=2 To UBound(A) t=t * a(i) Next i Tax=t

End Function A)t＝18 B)t＝24 C)t＝30 D)t＝32 正确答案: B

(31)设在窗体上有一个文本框，然后编写如下的事件过程：

Private Sub Text1_KeyDown(KeyCode As Integer, ShiftAs Integer) Const Alt=4

Const Key_F2=&H71

altdown%=(ShiftAnd Alt)> 0 f2down%=(KeyCode=Key_F2) If altdown% And f2down%Then Text1.Text=\ End If EndSub

程序运行后，清除文本框中原有内容，如果按Shift+F2键，则在文本框中显示的是 A)Alt+F2 B)abl

C)随机出几个数 D)不发生变化 正确答案: D

(32)设已经在菜单编辑器中设计了窗体的快捷菜单，其顶级菜单为Bt，取消其\可见\属性，运行时，在以下事件过程中，可以使快捷菜单相应鼠标右键菜单的是

A)Private Sub Form_MouseDown(Button As Integer, Shift As Integer,_ X As Single, Y As Single)

If Button=2Then PopupMenu Bt, 2