(29) 下列程序段的执行结果为
a=6
For k=1 To 0
a=a + k
Next k
Print k; a
A) -1 6
B) -1 16
C) 1 6
D) 11 21
正确答案: C
(30) 下列程序段的执行结果为
a=1
b=1
For I=1 To 3
f=a + b
a=b
b=f
Print f;
Next I
A) 2 3 6
B) 2 3 5
C) 2 3 4
D) 2 2 8
正确答案: B
(31) 下列过程定义语句中，形参个数为不确定数量的过程是
A) Private Sub Pro3(x As Double,y As Single)
B) Private Sub Pro3(Arr(3),Option x,Option y)
C) Private Sub Pro3(ByRef x,ByVal y,Arr( ))
D) Private Sub Pro3(ParamArray Arr( ))
正确答案: D
(32) 单击命令按钮时，下列程序的执行结果为
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x=12: y=32
Call PCS(x, y)
Print x; y
End Sub
Public Sub PCS(ByVal n As Integer, ByVal m As Integer)
n=n Mod 10
m=m Mod 10
End Sub
A) 12 32
B) 2 32
C) 2 3
D) 12 3
正确答案: A
(33) 单击一次命令按钮后，下列程序的执行结果是
Private Sub Command1_Click()
s=P(1) + P(2) + P(3) + P(4)
Print s
End Sub
Public Function P(N As Integer)
Static Sum
For i=1 To N
Sum=Sum + i
Next i
P=Sum
End Function
A) 15
B) 25
C) 35
D) 45
正确答案: C
(34) 下列程序的执行结果为
Private Sub Command1_Click()
Dim s1 As String, s2 As String
s1="abcdef"
Call Invert(s1, s2)
Print s2
End Sub
Private Sub Invert(ByVal xstr As String, ystr As String)
Dim tempstr As String
i=Len(xstr)
Do While i >=1
tempstr=tempstr + Mid(xstr, i, 1)
i=i - 1
Loop
ystr=tempstr
End Sub
A) fedcba
B) abcdef
C) afbecd
D) defabc
正确答案: A
(35) 阅读下列程序：
Private Sub Command1_Click()
Dim i As Integer, k As Integer
k=2
For i=1 To 3
Print H(k) ;
Next i
End Sub
Function H(j As Integer)
a=0
Static b
a=a + 1
b=b + 1
H=a*b + j
End Function
程序运行后，单击命令按钮输出结果是
A) 2 3 4
B) 3 4 5
C) 5 6 7
D) 3 5 6
正确答案: B
二 、填空题
(1) 数据结构分为逻辑结构与存储结构，线性链表属于 【1】 。
正确答案: 1.(存储结构)
(2) 在面向对象方法中，类之间共享属性和操作的机制称为 【2】 。
正确答案: 1.(继承)
(3) 耦合和内聚是评价模块独立性的两个主要标准，其中 【3】 反映了模块内各成分之间的联系。
考生答案: 1.()
正确答案: 1.(内聚)
(4) 一个项目具有一个项目主管，一个项目主管可管理多个项目，则实体"项目主管"与实体"项目"的联系属于 【4】 的联系。
正确答案: 1.(一对多或1∶N)
(5) 数据库设计分为以下6个设计阶段：需求分析阶段、 【5】 、逻辑设计阶段、物理设计阶段、实施阶段、运行和维护阶段。
正确答案: 1.(数据库概念设计阶段)
(6) 新建一个工程，内有两个窗体，窗体Form1上有一个命令按钮Command1，单击该按钮，Form1窗体消失，显示Form2窗体，程序如下：
Private Sub Command1_Click()
【6】
Form2. 【7】
End Sub
试补充完整。
正确答案: 1.(Me.Hide或Form1.Hide或Unload Me) 2.(Show)
(7) 用户可以用 【8】 语句定义自己的数据类型。
正确答案: 1.(Type)
(8) 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
x=0
Do Until x=-1
a=InputBox("请输入第一个数字a的值")
a=Val(A)
b=InputBox("请输入第二个数字b的值")
b=Val(b)
x=InputBox("请输入第三个数字x的值")
x=Val(x)
a=a + b + x
Loop
Print a
End Sub
在程序运行后，单击命令按钮，在对话框中分别输入5，4，8，5，8，-1，输出结果为 【9】 。
正确答案: 1.(12)
(9) 当对象得到焦点时，会触发 【10】 事件，当对象失去焦点时将触发 【11】 事件。
正确答案: 1.(GotFocus) 2.(LostFocus)
(10) 把窗体的KeyPreView属性设置为True，并编写如下两个事件过程：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Print KeyCode
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print KeyAscii
End Sub
程序运行后，如果按下B键，则在窗体上输出的数值是 【12】 和 【13】 。
正确答案: 1.(66) 2.(98)
(11) 在文件对话框中，假定有一个名为"fc.exe"的文件，它位于"d:＼pp"目录下，则"FileName"属性的值为 【14】 ；FileTitle属性的值为 【15】 。
正确答案: 1.(d:\pp\ fc.exe) 2.(fc.exe)
