一 、选择题
(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

(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

(30) 有如下事件过程，单击命令按钮扣，输出结果为
Private Sub Command1_Click()
Dim b%(1 To 4) , j%, t#
For j=1 To 4
b(j) =j
Next j
t=Tax(b() )
Print "t="; t,
End Sub
Function Tax (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, Shift As Integer)
Const Alt=4
Const Key_F2= &H71
altdown%=(Shift And Alt) > 0
f2down%=(KeyCode=Key_F2)
If altdown% And f2down% Then
Text1.Text= "abl"
End If
End Sub
程序运行后，清除文本框中原有内容，如果按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=2 Then PopupMenu Bt, 2
End Sub
B．Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
PopupMenu Bt
End Sub
C．Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
PopupMenu Bt,0
End Sub
D．Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If (Button=vbLeftButton) Or (Button=vbRightButton) Then PopupMenu Bt
End Sub
正确答案: A

(33) 在窗体上画一个通用对话框，其Name属性为Cont，再画一个命令按钮，Name属性为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
Cont.FileName= ""
Cont.Flags=vbOFNFileMustExist
Cont.Filter= "All Files|*.*"
Cont.FilterIndex=3
Cont.DialogTitle= "Open File"
Co nt.Action=1
If Cont.FileName= "" Then
MsgBox "No file selected"
Else
Open Cont.FileName For Input As #1
Do While Not EOF(1)
Input #1, b$
Print b$
Loop
End If
End Sub
以下各选项，对上述事件过程描述错误的是
A．该事件过程用来建立一个Open对话框，可以在这个对话框中选择要打开的文件
B．选择后单击"打开"按钮，所选择的文件名即作为对话框的FileName属性值
C．Open对话框不仅仅用来选择一个文件，还可以打开、显示文件
D．过程中的"Cont.Action=1"用来建立Open对话框，它与Cont.ShowOpen等价
正确答案: C

(34) 已知使用Show方法的格式为：［窗体名称］.Show ［模式］，如果要使窗体是"模态型"窗体，则"模式"值为
A．True 
B．0
C．1 
D．False
正确答案: C

(35) 下面叙述不正确的是
A．对顺序文件中的数据操作只能按一定的顺序操作
B．顺序文件结构简单
C．能同时对顺序文件进行读写操作
D．顺序文件中只能知道第一个记录的位置
正确答案: C

(2) 软件工程的出现是由于 【2】 。
正确答案:  1.(软件危机的出现)

(3) 单元测试又称模块测试，一般采用 【3】 测试。
正确答案:  1.(白盒法)

(4) 数据库恢复是将数据库从 【4】 状态恢复到某一已知的正确状态。
正确答案:  1.(错误)

(5) 数据的基本单位是 【5】 。
正确答案:  1.(数据元素)

(6) 下列语句的输出结果是 【6】 。
Print Format$(6658.6, "000,000.00")
正确答案:  1.(006,658.60)

(7) 如果在D盘当前文件夹下已经存在名为PIC.dat的顺序文件，那么执行语句Open "D:＼PIC.dat" For Append As #1之后将 【7】 。
正确答案:  1.(在文件尾添加新内容)

(8) 在有下面一个程序段从文本框中输入数据，如果该数据满足条件，除以6余2，除以5余3，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。
Private Sub Command1_Click()
   num=Val(Text1.Text)
   If 【8】 Then
      Print num
   Else
       Text1.Text=""
        【9】
   End If
End Sub
正确答案:  1.(num Mod 6 = 2 And num Mod 5 = 3) 2.(Text1.SetFocus)

(9) 下面的程序的作用是利用随机函数产生10个100~300(不包含300) 之间的随机整数，打印其中7的倍数的数，并求它们的总和，请填空。
Sub TOF()
   Randomize
   Dim s As Double
   Dim a(10) As Integer
   For i=0 To 9
       【10】
   Next
   For i=0 To 9
        If 【11】 Then
           Print a(i)
           s=s + a(i)
         【12】
   Next i
   Print
   Print "S="; s
End Sub
正确答案:  1.(a(i) = Int(Rnd * 200 + 100)) 2.(a(i) Mod 7 = 0) 3.(End If)

(10) 下面的程序是计算给定函数的值，自变量x，y的值用InputBox函数输入，函数如下：
f(x,y) =
程序不完整，请填空，将程序的补充完整。
Option Explicit
Dim x As Single
Dim y As Single
Dim z As Single
Private Sub Command1_Click()
   x=Val(InputBox("x=") )
   y=Val(InputBox("y=") )
End Sub
Private Sub Command2_Click()
   If 【13】 Then
      z=x ^ 2 + y ^ 2
   ElseIf 【14】 Then
      z=x ^ 2 - 2 * y ^ 2
    【15】
      z=y ^ 2 - 3 * x ^ 2
   End If
   Form1.Print "当x，y的值为："; x, y
   Form1.Print "f(x,y) 的值为："; z
End Sub
正确答案:  1.(x > 0 And y > 0) 2.(x < 0 And y > 0) 3.(Else)