一 、选择题
(1) 数据结构作为计算机的一门学科，主要研究数据的逻辑结构、对各种数据结构进行的运算，以及
A．数据的存储结构 
B．计算方法
C．数据映象
D．逻辑存储
正确答案: A

(2) 串的长度是
A．串中不同字符的个数
B．串中不同字母的个数
C．串中所含字符的个数且字符个数大于零
D．串中所含字符的个数
正确答案: D

(3) 在计算机中，算法是指
A．加工方法 
B．解题方案的准确而完整的描述
C．排序方法 
D．查询方法
正确答案: B

(4) 以下不属于对象的基本特点的是
A．分类性 
B．多态性
C．继承性 
D．封装性
正确答案: C

(5) 开发软件所需高成本和产品的低质量之间有着尖锐的矛盾，这种现象称作
A．软件投机 
B．软件危机
C．软件工程 
D．软件产生
正确答案: B

(6) 下面不属于软件设计原则的是
A．抽象 
B．模块化
C．自底向上 
D．信息隐蔽
正确答案: C

(7) 开发大型软件时，产生困难的根本原因是
A．大系统的复杂性 
B．人员知识不足
C．客观世界千变万化 
D．时间紧、任务重
正确答案: A

(8) 下列SQL语句中，用于修改表结构的是
A．ALTER 
B．CREATE
C．UPDATE 
D．INSERT
正确答案: A

(9) 数据库、数据库系统和数据库管理系统之间的关系是
A．数据库包括数据库系统和数据库管理系统
B．数据库系统包括数据库和数据库管理系统
C．数据库管理系统包括数据库和数据库系统
D．3者没有明显的包含关系
正确答案: B

(10) 关系模型允许定义3类数据约束，下列不属于数据约束的是
A．实体完整性约束 
B．参照完整性约束
C．域完整性约束 
D．用户自定义的完整性约束
正确答案: C

(11) 下列说法错误的是
A．标准模块也称程序模块文件，扩展名是.bas
B．标准模块由程序代码组成
C．标准模块只用来定义一些通用的过程
D．标准模块不附属于任何一个窗体
正确答案: C

(12) 在设计阶段，当双击窗体上的某个控件时，打开的窗口是
A．工程资源管理器窗口 
B．工具箱窗口
C．代码窗口 
D．布局窗口
正确答案: C

(13) 下列说法错误的是
A．Caption为只读属性，运行时对象的名称不能改变
B．设置Height或Width的数值单位为twip，是1点的1/20
C．Icon属性用来设置窗体最小化时的图标
D．用来激活属性窗口的快捷键是F4键
正确答案: A

(14) 下列说法不正确的是
A．对象的操作由对象的属性、事件和方法来描述
B．Visual Basic是面向对象的程序设计，Visual Basic中只有窗体和控件两种对象
C．属性是对象的特征，不同的对象有不同的属性
D．对象事件在代码窗口中体现过程
正确答案: B

(15) 要使文件列表框中的文件随目录列表框中所选择的当前目录的不同而发生变化，应该
A．在File1中的Change事件中，输入File1.Path＝Dir1.Path
B．在Dir1中的Change事件中，输入File1.Path＝Dir1.Path
C．在File1中的Change事件中，输入Dir1.Path＝File1.Path
D．在Dir1中的Change事件中，输入Dir1.Path＝File1.Path
正确答案: B

(16) 下列日期型数据正确的是
A．@January 10,1979@ 
B．#January 10,1997#
C．"January 10,1997" 
D．&January 10,1997&
正确答案: B

(17) 下面说法不正确的是
A．变量名的长度不能超过255个字符
B．变量名可以包含小数点或者内嵌的类型声明字符
C．变量名不能使用关键字
D．变量名的第一个字符必须是字母
正确答案: B

(18) 变量L的值为－8，则－L^2的值为
A．64 
B．－64
C．16 
D．－16
正确答案: B

(19) 下列程序段的执行结果为
X=2
Y=5
If X * Y < 1 Then Y=Y - 1 Else Y=-1
Print Y - X > 0
A．True 
B．False
C．-1 
D．1
正确答案: B

(20) 在计时器控件中，Interval属性的作用是
A．决定是否响应用户的操作
B．设置计时器事件之间的间隔
C．存储程序所需要的附加数据
D．设置计时器顶端和其容器之间的距离
正确答案: B

(21) 使用语句Dim A(2) As Integer 声明数组A之后，以下说法正确的是
A．A数组中的所有元素都为0
B．A数组中的所有元素值不确定
C．A数组中所有元素值都为Empty
D．执行Erase A后，A数组中所有元素值都不为0
正确答案: A

(22) 有如下事件过程，当同时按下转换键Shift和功能键F5时其最后输出的信息是
Const ShiftKey=1
Const CtrlKey=2
Const Key_F5=&H74
Const Key_F6=&H75
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode=Key_F5 And Shift=ShiftKey Then
Print "Press Shift+F5"
ElseIf KeyCode=Key_F6 And Shift=CtrlKey Then
Print "Press Ctrl+F6"
End If
End Sub
A．无任何信息 
B．Press Shift+F5
C．Press Ctrl+F6 
D．程序出错
正确答案: B

(23) 执行下列程序后，鼠标单击窗体，输出结果为 。
Private Sub Form_Click()
Print "Click";
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift _
As Integer, X As Single, Y As Single)
Print "Donw"
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift _
As Integer, X As Single, Y As Single)
Print " Up"
End Sub
A．DownUpClick 
B．ClickDownUp
C．DownClickUp 
D．UpDownClick
正确答案: A

(24) 以下事件过程可以将打开的对话框的标题改为"新时代"的是
A．Private Sub Command2_Click()
CommonDialog1.DialogTitle= "新时代"
CommonDialog1.ShowOpen
End Sub 
B．Private Sub Command2_Click()
CommonDialog1.DialogTitle= "新时代"
CommonDialog1.ShowFont
End Sub
C．Private Sub Command2_Click()
CommonDialog1.DialogTitle= "新时代"
CommonDialog1.Show
End Sub
D．Private Sub Command2_Click()
CommonDialog1.DialogTitle= "新时代"
CommonDialog1.ShowColor
End Sub
正确答案: A

(25) 如果要设计一个多窗体程序时，要设计一个封面窗体(名称(Name) 为FormCover，标题(Caption 为"多媒体演示") ，其内部的各控件及其属性见下表。
控件 名称(Name) 标题(Caption) 
图片框 Pic1 
命令按钮1 Command1 "演示" 
命令按钮2 Command2 "结束" 
则设计出的窗体可能是
A．B．
C．D．
正确答案: A

(26) 下列语句中，不能实现循环100次的是
A．N=0
Do
N=N+1
Loop Until N >=100
B．N=0
Do
N=N+1
Loop While n <100
C．N=0
N=N+1
Do
Loop Until N <100
D．N=0
Do While n <100
N=N+1
Loop
正确答案: C

(27) 单击一次命令按钮后，下列程序的执行结果为
Private Sub Command1_Click()
Dim m As Integer, I As Integer, x(10) As Integer
For I=0 To 4: x(I) =I + 1: Next I
For I=1 To 2: Call Prioc(x) : Next I
For I=0 To 3: Print x(I) ;: Next I
End Sub
Private Sub Prioc(a() As Integer)
Static I As Integer
Do
a(I) =a(I) + a(I + 1)
I=I + 1
Loop While I < 2
End Sub
A．3 4 7 5 
B．3 5 7 4
C．1 2 3 4 
D．1 2 3 5
正确答案: B

(28) 下面程序段的运行结果是
a=1
b=1
Do
a=a + 1
b=b + 1
Loop Until b > 5
Print "k="; a; Spc(4) ; "b="; b + a
A．k＝7 b＝14 
B．k＝6 b＝6
C．k＝4 b＝8 
D．k＝6 b＝12
正确答案: D

(29) 以下能够正确计算n!的程序是
A．Private Sub Command1_Click()
n=5: x=1
Do
x=x * I
I=I + 1
Loop While I < n
Print x
End Sub
B．Private Sub Command1_Click()
n=5: x=1: I=1
Do
x=x * I
I=I + 1
Loop While I < n
Print x
End Sub
C．Private Sub Command1_Click()
n=5: x=1: I=1
Do
x=x * I
I=I + 1
Loop While I <=n
Print x
End Sub
D．Private Sub Command1_Click()
n=5: x=1: I=1
Do
x=x * I
I=I + 1
Loop While I > n
Print x
End Sub
正确答案: C

(30) 下列程序段，在运行时最后输出的内容是
a=2
c=1
AAA:
c=c + a
If c < 10 Then
Print c
GoTo AAA
Else
Print "10以内的奇数显示完毕"
End If
A．3 
B．7
C．9 
D．10以内的奇数显示完毕
正确答案: D

(31) 单击命令按钮时，下列程序的执行结果为
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a=2: b=3: c=4
Print P2(c, b, A．
End Sub
Private Function P1(x As Integer, y As Integer, z As Integer)
P1=2 * x + y + 3 * z
End Function
Private Function P2(x As Integer, y As Integer, z As Integer)
P2=P1(z, x, y) + x
End Function
A．21 
B．19
C．17 
D．34
正确答案: A

(32) 单击命令按钮时，下列程序的执行结果是
Private Sub Book(x As Integer)
x=x * 2 + 1
If x < 6 Then
Call Book(x)
End If
x=x * 2 + 1
Print x;
End Sub
Private Sub Command2_Click()
Book 2
End Sub
A．23 47 
B．10 36
C．22 44 
D．24 50
正确答案: A

(33) 有如下程序：
Private Sub Command1_Click()
Dim k As Integer, m As Integer
Dim p As Integer
k=4: m=1
p=PC(k, m) : Print p;
p=PC(k, m) : Print p
End Sub
Private Function PC(a As Integer, b As Integer)
Static m As Integer, i As Integer
m=0: i=2
i=i + m + 1
m=i + a + b
PC=m
End Function
程序运行后，输出的结果为
A．4 6 
B．6 6
C．8 8 
D．10 12
正确答案: C

(34) 有如下程序：
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
a=5: b=4
Call S(a, B．
End Sub
Sub S(x As Single, y As Single)
t=x
x=t ＼ y
y=t Mod y
End Sub
在调用运行上述程序后，a和b的值分别为
A．0 0 
B．1 1
C．2 2 
D．1 2
正确答案: B

(35) 在窗体上画一个命令按钮，然后编写下列程序：
Private Sub Command12_Click()
Tt 3
End Sub
Sub Tt(a As Integer)
Static x As Integer
x=x * a + 1
Print x;
End Sub
连续三次单击命令按钮，输出的结果是
A．1 5 8 
B．1 4 13
C．3 7 4 
D．2 4 8
正确答案: B

(1) 长度为n的顺序存储线性表中，当在任何位置上插入一个元素概率都相等时，插入一个元素所需移动元素的平均个数为 【1】 。
正确答案:  1.(n/2)

(2) 用树结构表示实体类型及实体间联系的数据模型称为 【2】 。
正确答案:  1.(层次模型)

(3) 类是一个支持集成的抽象数据类型，而对象是类的 【3】 。
正确答案:  1.(实例)

(4) 数据流图的类型有 【4】 和事务型。
正确答案:  1.(变换型)

(5) 当数据的物理结构(存储结构、存取方式等) 改变时，不影响数据库的逻辑结构，从而不致引起应用程序的变化，这是指数据的 【5】 。
正确答案:  1.(物理独立性)

(6) 在修改列表框内容时，RemoveItem方法的作用是 【6】 。
正确答案:  1.(用来删除列表中指定的项目)

(7) 请填写下列空白，以实现运行后形成一个主对角线上元素值为1，其他元素为0的6×6阶矩阵。
Private Sub Command1_Click()
   Dim s(6, 6)
   For i=1 To 6
     For j=1 To 6
        If i=j Then
            【7】
        Else
            【8】
        End If
        Print 【9】
      Next j
      Print
   Next i
End Sub
正确答案:  1.(s(i, j) = 1) 2.(s(i, j) = 0) 3.(s(i, j))

(8) 以下过程的作用是将26个小写字母逆序打印出来，请补充完整。
Sub Inverse()
   For i=122 To 【10】
     Print 【11】 ;
   Next i
End Sub
正确答案:  1.(97 Step -1) 2.(Chr＄(i))

(9) 在窗体上加上一个文本控件PCSTextBox，画一个命令按钮，当单击命令按钮的时候将显示"打开文件"对话框，设置该对话框只用于打开文本文件，然后在文本控件中显示打开的文件名。请填空。
Private Sub Command1_Click()
   CommonDialog1.Filter= 【12】
   CommonDialog1.ShowOpen
   PCSTextBox.Text= 【13】
End Sub
正确答案:  1.("Text Files(*.txt) |*.txt") 2.(CommonDialog1.FileName)

(10) 随机文件使用Put语句写数据，使用 【14】 语句读数据。
正确答案:  1.(Get)

(11) 下列程序的功能是：将数据1，2，…，8写入顺序文件Num.txt中，请补充完整。
Private Sub Form_Click()
   Dim i As Integer
   Open "Num.txt"For Output As #1
   For i=1 To 8
      【15】
   Next i
   Close #1
End Sub
正确答案:  1.(Print #1, i)