一 、选择题
(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) 下列工具中为需求分析常用工具的是
Ａ) PAD
Ｂ) PFD
Ｃ) N-S
Ｄ) 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) |
