打印本文 
关闭窗口 (1) 下列叙述中正确的是
A．线性表是线性结构
B．栈与队列是非线性结构
C．线性链表是非线性结构
D．二叉树是线性结构
正确答案: A
(2) 非空的循环单链表head的尾结点(由p所指向) ，满足
A．p->next==NULL
B．p==NULL
C．p->next=head
D．p=head
正确答案: C
(3) 已知数据表A中每个元素距其最终位置不远，为节省时间，应采用的算法是
A．堆排序
B．直接插入排序
C．快速排序
D．直接选择排序
正确答案: B
(4) 对建立良好的程序设计风格，下面描述正确的是
A．程序应简单、清晰、可读性好
B．符号名的命名只要符合语法
C．充分考虑程序的执行效率
D．程序的注释可有可无
正确答案: A
(5) 下列不属于结构化分析的常用工具的是
A．数据流图
B．数据字典
C．判定树
D．PAD图
正确答案: A
(6) 在软件生产过程中，需求信息的给出是
A．程序员
B．项目管理者
C．软件分析设计人员
D．软件用户
正确答案: D
(7) 下列工具中为需求分析常用工具的是
A．PAD
B．PFD
C．N-S
D．DFD
正确答案: D
(8) NULL是指
A．0
B．空格
C．未知的值或无任何值
D．空字符串
正确答案: C
(9) 数据库的故障恢复一般是由
A．数据流图完成的
B．数据字典完成的
C．DBA完成的
D．PAD图完成的
正确答案: C
(10) 下列说法中，不属于数据模型所描述的内容的是
A．数据结构
B．数据操作
C．数据查询
D．数据约束
正确答案: C
(11) Visual Basic程序设计采用的编程机制是
A．可视化
B．面向对象
C．事件驱动
D．过程结构化
正确答案: C
(12) Visual Basic 6.0分为3种版本，不属于这3种版本的是
A．学习版
B．专业版
C．企业版
D．业余版
正确答案: D
(13) 确定窗体控件启动位置的属性是
A．Width和Height
B．Width或Height
C．StartUpPositon
D．Top和Left
正确答案: C
(14) 新建一个窗体，其BorderStyle属性设置为Fixed Single，但运行时却没有最大化和最小化按钮，可能的原因是
A．BorderStyle的值设为Fixed.Single，此项设置值的作用即禁止最大化和最小化按钮
B．窗体的MaxButton和MinButton值设为False
C．正常情况下新建的窗体都没有最大化和最小化按钮
D．该窗体可用鼠标拖动边框的方法改变窗体的大小
正确答案: B
(15) 新建一个列表框，要实现对列表项可以复选，应设置的属性是
A．ScrollBars
B．MultiSelect
C．DataField
D．Stretch
正确答案: B
(16) 下列叙述中，正确的是
A．控件数组的每一个成员的Caption属性值都必须相同
B．控件数组的每一个成员的Index属性值都必须不相同
C．控件数组的每一个成员都执行不同的事件过程
D．对已经建立的多个类型相同的控件，这些控件不能组成控件数组
正确答案: B
(17) 可以在常量的后面加上类型说明符以显示常量的类型，可以表示整型常量的是
A．％
B．＃
C．！
D．$
正确答案: A
(18) 在Visual Basic中，下列两个变量名相同的是
A．Japan和Ja_pan
B．English和ENGLish
C．English和Engl
D．China和Chin
正确答案: B
(19) 表达式(7 ＼ 2 + 1) * (8 ＼ 2 + 2) 的值为
A．4.58
B．5.69
C．24
D．22
正确答案: C
(20) 表达式x=Sqr(a^2-5) +sqr(b^2-5) 的类型是
A．算术表达式
B．逻辑表达式
C．关系表达式
D．字符表达式
正确答案: C
(21) 与List1.Text属性值相同的是
A．List1.ListCount
B．List1.List(ListCount-1)
C．List1.ListIndex
D．List1.List(List.ListIndex)
正确答案: D
(22) 当把框架的何属性设置为False时，其标题会变灰，框架中所有的对象均被屏蔽？
A．Name
B．Enabled
C．Caption
D．Visible
正确答案: B
(23) 设执行以下程序段时依次输入2，4，6，执行结果为
Dim a(4) As Integer
Dim b(4) As Integer
For k=0 To 2
a(k + 1) =Val(InputBox( "Enter data:") )
b(3 - k) =a(k + 1)
Next k
Print b(k)
A．2
B．4
C．6
D．0
正确答案: A
(24) 编写如下事件过程：
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If Shift＝6 And Button＝2 Then
Print "PC"
End If
End Sub
程序运行后，为了在窗体上输出"PC"，应执行的操作为
A．同时按下Shift键和鼠标左键
B．同时按下Ctrl，Alt键和鼠标右键
C．同时按下Shift键和鼠标右键
D．同时按下Ctrl，Alt键和鼠标左键
正确答案: B
(25) 如果在窗体上添加一个通用对话框控件DBT，那么语句"DBT.Action=4"的作用是
A．显示"打开文件" 对话框
B．显示"保存文件"对话框
C．显示"字体"对话框
D．显示"打印"对话框
正确答案: C
(26) 下列说明中，不属于随机文件特点的是
A．可以随意读取随机文件中任一记录的数据
B．随机文件没有只读或只写的操作方式，随机文件只要一打开，就既可读又可写
C．随机文件的操作是以记录为单位进行的
D．随机文件的读、写操作语句与顺序文件的读写操作语句一样
正确答案: D
(27) 执行下面的程序后，输出的结果是
x=1
For j=1 To 4
x=x - 1: y=0
For k=1 To 4
x=x + 1: y=y + 1
Next k
Next j
Print x; y
A．1 4
B．13 4
C．12 8
D．20 6
正确答案: B
(28) 有如下程序段，该程序段执行完后，执行循环的次数是
total=0
Counter=1
Do
Print Counter
total=total + Counter
Print total
Counter=Counter + 1
If total > 10 Then
Exit Do
End If
Loop While Counter <=10
A．5
B．10
C．15
D．20
正确答案: A
(29) 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command _Click()
s=0
Do
s=(s + 1) (s + 2)
Number=Number + 1
Loop Until s >=30
Print Number, s
End Sub
程序运行后，输出的结果是
A．2 3
B．3 182
C．5 12
D．10 20
正确答案: B
(30) 有如下程序：
Private Sub Command1_Click()
a$= "A WORKER IS HERE"
x=Len(a$)
For i=1 To x - 1
b$=Mid$(a$, i, 3)
If b$= "WOR" Then S=S + 1
Next
Print S
End Sub
单击命令按钮，程序运行结果为
A．1
B．2
C．3
D．5
正确答案: A
(31) 单击命令按钮时，下列程序的执行结果是
Private Sub Command1_Click()
BT 4
End Sub
Private Sub BT(x As Integer)
x=x * 2 + 1
If x < 6 Then
Call BT(x)
End If
x=x * 2
Print x;
End Sub
A．15
B．16
C．17
D．18
正确答案: D
(32) 单击窗体时，下列程序的执行结果是
Private Sub Invert(ByVal xstr As String, ystr As String)
Dim tempstr As String
Dim I As Integer
I=Len(xstr)
Do While I >=1
tempstr=tempstr + Mid(xstr, I, 1)
I=I - 1
Loop
ystr=tempstr
End Sub
Private Sub Form_Click()
Dim s1 As String, s2 As String
s1= "abcdef"
Invert s1, s2
Print s2
End Sub
A．abcdef
B．afbecd
C．fedcba
D．defabc
正确答案: C
(33) 在窗体上画一个命令按钮，然后编写下列程序：
Private Sub Command1_Click()
Dim a As Single, b As Single
a=6: b=2
RC a, b
Print a, b
End Sub
Sub RC(x As Single, y As Single)
i=x
x=i / y
y=i Mod y
End Sub
A．4 3
B．1 1
C．3 0
D．2 6
正确答案: C
(34) 有如下事件过程：
Private Sub Command1_Click()
Dim m As Integer, n As Integer
m=2: n=1
Print "m="; m; "n="; n
Call TOD(m, n)
Print "m="; m; "n="; n
End Sub
Sub TOD(x, y)
x=x ^ 2
y=y ^ 3
End Sub
程序运行后，输出的结果为
A．m＝2，n＝1
m＝1，n＝2
B．m＝2，n＝1
m＝4，n＝1
C．m＝1，n＝2
m＝1，n＝4
D．m＝1，n＝2
m＝2，n＝4
考生答案: 正确答案: B
(35) 有如下事件过程：
Private Sub Command1_Click()
Dim i As Integer
For i=1 To 2
DC
Next i
End Sub
Sub DC()
Dim x As Integer, m As String
Static y, n
x=x + 1
y=y + 1
m=m &"*": n=n & "#"
Print x, y, m, n
End Sub
程序运行后，输出的结果是
A．1 1 * #
1 1 * #
B．1 1 * #
1 2 * #
C．1 1 * #
1 1 * ##
D．1 1 * #
1 2 * ##
正确答案: D
二 、填空题
(1) 冒泡排序算法在最好的情况下的元素交换次数为 【1】 。
正确答案: 1.(0)
(2) 在最坏情况下，堆排序需要比较的次数为 【2】 。
正确答案: 1.(O(nlog2n))
(3) 若串s="MathTypes"，则其子串的数目是 【3】 。
正确答案: 1.(46)
(4) 软件开发环境是全面支持软件开发全过程的 【4】 集合。
正确答案: 1.(软件工具)
(5) 关系数据库的关系演算语言是以 【5】 为基础的DML语言。
正确答案: 1.(谓词演算)
(6) 下列语句的输出结果是 【6】 。Print Format$(1258.6, "000,000.00")
正确答案: 1.(001,258.60)
(7) 关系式x≤-5或x≥5所对应的布尔表达式是 【7】 。
正确答案: 1.(x<=-5 Or x>=5)
(8) 对随机文件数据存取是以 【8】 为单位进行操作的。
正确答案: 1.(一个记录)
(9) 在窗体上有一个名称为Label1的标签和一个名称List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Labe1中显示所选中的项目，如图所示。请在空白处填入适当的内容，将程序补充完整。
Private Sub Form_Load()
List1.AddItem "北京"
List1.AddItem "上海"
List1.AddItem "河北"
End Sub
Private Sub List1 【9】 ()
Labe1.Caption= 【10】
End Sub
正确答案: 1.(DblClick) 2.(List1.Text)
(10) 执行语句Open "TC.dat" For Random As #1 Len=50后，对文件TC.dat中的数据能执行的操作是 【11】 。
正确答案: 1.(既可以读，也可以写)
(11) 下面程序的功能是统计字符串中"i"的个数，请填空。
Sub COU()
a$="Beijing University of Technology"
Dim n As Integer
n=Len(a$)
For i=1 To n
b$= 【12】
If 【13】 Then x=x + 1
Next i
Print "x="; x
End Sub
正确答案: 1.(Mid＄(a＄, i, 1) ) 2.(b＄ = "i")
(12) 下列事件过程的功能是：建立一个名为Datal的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填入适当的内容，将程序补充完整。
Private Type Ang
K As Integer
Sinx As Single
Cosx As Single
End Type
Dim Ksc As Ang
Private Sub Form_Click()
Dim Y As Single
Open 【14】
Y=3.14159 / 180
For I=1 To 90
Ksc.K=I
Ksc.Sinx=Sin(I * Y)
Ksc.Cosx=Cos(I * Y)
【15】
Next I
Close #2
End Sub
正确答案: 1.("c:＼Data1.txt" For Random As #2 Len = 10) 2.(Put #2, I)
打印本文 关闭窗口