.
一 、选择题
(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的值为Fixed ToolWindow
B) 设置BoderStyle的值为Sizable ToolWindow
C) 设置BoderStyle的值为Fixed Dialog
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) Visual Basic中的数值可以用十六进制或八进制表示，十六进制数的开头符是&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) 在Visual Basic种，要使标签的标题栏靠右显示，则将其Alignment属性设置为
A) 0
B) 2
C) 1
D) 3
正确答案: C
(22) 属性BorderColor的作用是
A) 设置直线颜色和形状边界颜色
B) 设置直线或形状背景颜色
C) 设置直线或形状边界线的线型
D) 设置形状的内部颜色
正确答案: A
(23) 下面哪个程序段能够正确实现如果A
A) If A
A=-1
Print A
B) If A
A=-1:Print A
C) If A
A=1:Print A
Else
A=-1:
End If
D) If A
A=-1
Print A
Print A
正确答案: C
.(24) 下列程序段的执行结果为
a=2
b=0
Select Case a
Case 1
Select Case b
Case 0
Print "**0**"
Case 1
Print "**1**"
End Select
Case 2
Print "**2**"
End Select
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
Private Sub 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
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
Label1.Caption = File1.ListCount
End Sub
(D) Private Sub Dir1_Change()
File1.Path=Dir1.Path
Label1.Caption=File1.ListCount
End Sub
Private Sub Dive1_Change()
Dir1.Path=Drive1.Drive
Label1.Caption= File1.List
End Sub
正确答案: C
.(26) 设有声明语句
Option Base 1
Dim b(-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 Sub PtoP(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 As Integer, 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 Sub Command3_Click()
Cop 2
Cop 3
Cop 4
End Sub
Sub Cop (a As Integer)
Static x As Integer
x=x + a
Print x;
End Sub
程序运行后，单击命令按钮，输出结果为
A) 2 3 4
B) 2 5 9
C) 3 5 4
D) 2 4 3
正确答案: B
.