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