(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)
