一 、选择题
(1) 假设线性表的长度为n，则在最坏情况下，冒泡排序需要的比较次数为
A．log2n 
B．n2
C．O(n1..5)
D．n(n-1)/2
正确答案: D

(2) 算法分析的目的是
A．找出数据结构的合理性 
B．找出算法中输入和输出之间的关系
C．分析算法的易懂性和可靠性 
D．分析算法的效率以求改进
正确答案: D

(3) 线性表L=(a1,a2,a3,…ai，…an)，下列说法正确的是
A．每个元素都有一个直接前件和直接后件
B．线性表中至少要有一个元素
C．表中诸元素的排列顺序必须是由小到大或由大到小
D．除第一个元素和最后一个元素外，其余每个元素都有一个且只有一个直接前件和直接后件
正确答案: D

(4) 在单链表中，增加头结点的目的是
A．方便运算的实现
B．使单链表至少有一个结点
C．标识表结点中首结点的位置
D．说明单链表是线性表的链式存储实现
正确答案: A

(5) 软件工程的出现是由于
A．程序设计方法学的影响 
B．软件产业化的需要
C．软件危机的出现 
D．计算机的发展
正确答案: C

(6) 软件开发离不开系统环境资源的支持，其中必要的测试数据属于
A．硬件资源 
B．通信资源
C．支持软件 
D．辅助资源
正确答案: D

(7) 在数据流图(DFD．中，带有名字的箭头表示
A．模块之间的调用关系 
B．程序的组成成分
C．控制程序的执行顺序 
D．数据的流向
正确答案: D

(8) 分布式数据库系统不具有的特点是
A．数据分布性和逻辑整体性 
B．位置透明性和复制透明性
C．分布性 
D．数据冗余
正确答案: D

(9) 关系表中的每一横行称为一个
A．元组 
B．字段
C．属性 
D．码
正确答案: A

(10) 下列数据模型中，具有坚实理论基础的是
A．层次模型 
B．网状模型
C．关系模型 
D．以上3个都是
正确答案: C

(11) 下列说法正确的是
A．对象的可见性可设为True或False
B．标题的属性值不可设为任何文本
C．属性窗口中属性只能按字母顺序排列
D．某些属性的值可以跳过不设置，自动设为空值
正确答案: A

(12) 下列关于退出Visual Basic系统的方法的描述错误的是
A．打开Visual Basic主窗体的"文件"菜单，执行其中的"退出"命令
B．按快捷键Alt+Q退出
C．单击Visual Basic主窗体右上角的"关闭"按钮
D．按快捷键Alt+E退出
正确答案: D

(13) 单击窗体上的关闭按钮时，触发的事件是
A．Form_Initialize( ) 
B．Form_Load( )
C．Form_Unload( ) 
D．Form_Click( )
正确答案: C

(14) 在代码编辑器中，续行符是用来换行书写同一个语句的符号，用以表示续行符的是
A．一个空格加一个下划线"_" 
B．一个下划线"_"
C．一个造字符"-" 
D．一个空格加一个连字符"－"
正确答案: A

(15) 为了暂时关闭计时器，应把该计时器控件的哪个属性设置为False？
A．Visible 
B．Timer
C．Enabled 
D．Interval
正确答案: C

(16) 以下关于Visual Basic数据类型的说法，不恰当的是
A．Visual Basic 6.0提供的数据类型主要有字符串型和数值型，此外还有字节、货币、对象、日期、布尔和变体数据类型等
B．目前Decimal数据类型只能在变体类型中使用
C．用户不能定义自己的数据类型
D．布尔型数据只能取两种值，用两个字节存储
正确答案: C

(17) 以下各项，可以作为Visual Basic变量名的是
A．Book 
B．2_Seek
C．123.58 
D．Book－1
正确答案: A

(18) 表达式(3 / 2 + 1) * (5 / 2 + 2) 的值是
A．11.25 
B．3
C．6.125 
D．4
正确答案: A

(19) 关于自定义对话框概念的说明，错误的是
A．建立自定义对话框时必须执行添加窗体的操作
B．自定义对话框实际上是VB的窗体
C．在窗体上还要使用其他控件才能组成自定义对话框
D．自定义对话框不一定要有与之对应的事件过程
正确答案: D

(20) 下面Change事件过程中，文本框控件Text1用来接收数字字符的输入，该事件过程的作用是
Private Sub Text1_Change()
Text2.Text=Str(6.28 * Val(Text1.Text) )
End Sub
A．将在文本框Text1输入的数字变为数值
B．将在文本框Text1输入的数字作为半径，求圆的周长并转换为字符串
C．只要Text1中的内容一改变，Text2中显示的圆周长也随之改变
D．事件过程中的Val函数和Str函数使用错误，事件过程不能执行
正确答案: C

(21) 用什么语句可以选择指定的表项或取消已选择的表项？
A．列表框.Selected(索引值)
B．列表框名.Selected(索引值) =True|False
C．列表框.Selected
D．列表框名.Selected＝True|False
正确答案: B (22) 用于将屏幕上的对象分组的控件是
A．列表框 
B．组合框
C．标签 
D．框架
正确答案: D

(23) 以下说法不正确的是
A．使用ReDim语句可以改变数组的维数
B．使用ReDim语句可以改变数组的类型
C．使用ReDim语句可以改变数组的每一维的大小
D．使用ReDim语句可以改变对数组中的所有元素进行初始化
正确答案: B

(24) 有如下事件过程：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If (Button And 3) =3 Then
Print "OK"
End If
End Sub
程序运行后，为了在窗体上输出"OK"，应当按下的鼠标键是
A．左键 
B．右键
C．同时按下左键和右键 
D．按什么都不显示
正确答案: D

(25) 在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮，要求单击命令按钮时，打开一个保存文件的对话框，该窗口的标题为"Save"，缺省文件名称为"SaveFile"，在"文件类型"栏中显示*txt，则能够满足上述要求的程序是
A．Private Sub Command1_Click()
CommonDialog1.FileName= "SaveFile"
CommonDialog1.Filter= "AllFiles|*.*|(*.txt) |*.txt|(*.doC．|*.doc"
CommonDialog1.FilterIndex=2
CommonDialog1.DialogTitle= "Save"
CommonDialog1.Action=2
End Sub
B．Private Sub Command1_Click()
CommonDialog1.FileName= "SaveFile"
CommonDialog1.Filter= "AllFiles|*.*|(*.txt) |*.txt|(*.doC．|*.doc"
CommonDialog1.FilterIndex=1
CommonDialog1.DialogTitle= "Save"
CommonDialog1.Action=2
End Sub
C．Private Sub Command1_Click()
CommonDialog1.FileName= "Save"
CommonDialog1.Filter= "AllFiles|*.*|(*.txt) |*.txt|(*.doC．|*.doc"
CommonDialog1.FilterIndex=2
CommonDialog1.DialogTitle= "SaveFile"
CommonDialog1.Action=2
End Sub
D．Private Sub Command1_Click()
CommonDialog1.FileName= "SaveFile"
CommonDialog1.Filter= "AllFiles|*.*|(*.txt) |*.txt|(*.doC．|*.doc"
CommonDialog1.FilterIndex=1
CommonDialog1.DialogTitle= "Save"
CommonDialog1.Action=1
End Sub
正确答案: A

(26) 阅读下面的程序段：
For a=1 To 2
For b=1 To a
For c=b To 2
I=I + 1
Next
Next
Next
Print I
执行上面的三重循环后，I的值为
A．4 
B．5
C．6 
D．9
正确答案: B

(27) 设有下面的循环：
i=0
While i <=1
i=i + 3
Print i
Wend
则运行后的输出结果是
A．1 
B．2
C．3 
D．4
正确答案: C

(28) 设有下面的循环：
i=1
Do
i=i + 3
Print i
Loop Until I> 
程序运行后要执行3次循环体，则条件中I的最小值为
A．6 
B．7
C．8 
D．9
正确答案: B

(29) 执行以下语句过程，在窗体上显示的内容是
Option Base 0
Private Sub Command3_Click()
Dim d
d=Array("a", "b", "c", "d")
Print d(1) ; d(3)
End Sub
A．ab 
B．bd
C．ac 
D．出错
正确答案: B

(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．6
正确答案: A

(31) 有如下程序段：
Private Sub Command1_Click()
Dim a As Integer
a=2
For i=1 To 3
Print G(A．
Next i
End Sub
Function G(a As Integer)
b=0
Static c
b=b + 1
c=c + 1
G=a + b + c
End Function
运行上面的程序后，单击命令按钮，输出结果为
A．1 2 3 
B．2 3 4
C．4 5 6 
D．1 4 6
正确答案: C (32) 单击命令按钮时，下列程序的运行结果为
Private Sub Command1_Click()
Print MyBM(23, 18)
End Sub
Public Function MyBM(m As Integer, n As Integer) As Integer
Do While m <> n
Do While m > n: m=m - n: Loop
Do While m < n: n=n - m: Loop
Loop
MyBM=m
End Function
A．0 
B．1
C．3 
D．5
正确答案: B

(33) 有如下的程序：
Private Sub Command1_Click()
Dim k As Integer, m As Integer
Dim P As Integer
k=4: m=1
P=Pid(k, m) : Print P;
P=Pid(k, m) : Print P
End Sub
Private Function Pid(a As Integer, b As Integer)
Static m As Integer, i As Integer
m=5: i=2
i=i + m + 1
m=i + a + b
Pid=m ＼ 2
End Function
单击命令按钮后，输出结果为
A．2 2 
B．4 4
C．55 
D．6 6
正确答案: D

(34) 下面4个CT函数中是用来判断用户输入的数是否为奇数的，是奇数的返回1，否则返回0，其中正确的是
A．Function CT(ByVal a As Integer) 
If a Mod 2=0 Then 
Return 0 
Else 
Return 1 
End if 
End Function
B．Function CT(ByVal a As Integer)
If a Mod 2=0 Then
CT=0
Else
CT=1
End if 
End Function
C．Function CT(ByVal a As Integer) 
If a Mod 2=0 Then 
CT=1 
Else 
CT=0 
End if 
End Function 
D．Function CT(ByVal a As Integer)
If a Mod 2=0 Then
Return 1
Else
Return 0
End if
End Function
考生答案: 正确答案: B

(35) 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim m As Integer, n As Integer, p As Integer
m=3: n=5: p=0
Call Y(m, n, p)
Print Str(p)
End Sub
Sub Y(ByVal i As Integer, ByVal j As Integer, k As Integer)
k=i + j
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A．4 
B．6
C．8 
D．10
正确答案: C

(2) 将代数式 转换成程序设计中的表达式为 【2】 。
正确答案:  1.(SQR(x^2+y^2) /(a+b))

(3) 软件危机出现于60年代末，为了解决软件危机，人们提出了 【3】 的原理来设计软件，这就是软件工程诞生的基础。
正确答案:  1.(软件工程学)

(4)  【4】 是数据库设计的核心。
正确答案:  1.(数据模型)

(5) 在关系模型中，把数据看成一个二维表，每一个二维表称为一个 【5】 。
正确答案:  1.(关系)

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

(7) 已知B的ASCII码为66，以下程序统计由键盘输入的字符串中各英文字母的使用次数
Dim 【8】
For i=65 To 90
   pp(i) =0
Next
x$=InputBox("Enter a string", x$)
x$=UCase$(x$)
For i=1 To 【9】
   n=Asc(Mid$(x$, i, 1) )
   If n >=65 And n <=90 Then
       【10】
   End If
Next i
For i=65 To 90
   If pp(i) > 0 Then
      Print Chr$(i) ; pp(i)
   End If
Next
正确答案:  1.(pp(65 To 90)) 2.(Len(x＄)) 3.(pp(n) = pp(n）+ 1)

(8) 下面运行程序后，单击命令按钮，输出的结果是 【11】 。
Private Sub Command1_Click()
   Dim a%(1 To 4) , b%(3 To 6) , i%, s1#, s2#
   For i=1 To 4
     a(i) =i
   Next i
   For i=3 To 6
     b(i) =i
   Next i
   s1=YAS(A)
   s2=YAS(b)
   Print "s1="; s1; "s2="; s2
End Sub
Function YAS(a() As Integer)
   Dim t#, i%
   t=1
   For i=LBound(A) To UBound(A)
     t=t * a(i)
     Next i
     YAS=t
End Function
正确答案:  1.(s1=24  s2=360)

(9) 如果存在如下过程：
Private Function FMax(a() As Integer)
   Dim First As Integer, Last As Integer, i As Integer
   First=LBound(A)
   Last=UBound(A)
   Max=a(First)
   For i=First To Last
     If a(i) > Max Then Max=a(i)
   Next i
   FMax=Max
End Function
在窗体上添加一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
   ReDim m(1 To 4) As Integer
   m(1) =20: m(2) =30: m(3) =50: m(4) =100
   c=FMax(m)
   Print c
End Sub
单击命令按钮，其输出结果为 【12】 。
正确答案:  1.(100)

(10) 在窗体上加上一个文本框控件TextBox，画一个命令按钮，当单击命令按钮的时候将显示"保存文件"对话框，设置该对话框可用于保存文本文件(默认) 和Word文档，然后在文本框控件中显示保存的文件名，请填空。
Private Sub Command1_Click()
   CommonDialog1.Filter= 【13】
   CommonDialog1.Filter= 【14】
   CommonDialog1.ShowSave
   TextBox.Text= 【15】
End Sub
正确答案:  1.("文本文件(*.txt) |*.txt|Word文档|*.doc") 2.(1) 3.(CommonDialog1.)