Loop
A）3次
B）4次
C）5次
D）6次
（29）InputBox函数的返回值类型是
A）数值
B）字符串
C）变体
D）视输入的数据而定
（30）下列能够交换变量X和Y值的程序段是
A）Y=X:X=Y
B）Z=X:Y=Z:X=Y
C）Z=X:X=Y:Y=Z
D）Z=X:W=Y:Y=Z:X=Y
（31）窗体中有命令按钮Commandl,事件过程如下：
Public Function f（x As Integer） As Integer
Dim y As Integer
x=20 8,10,12,14,16
2011年9月二级access试题及答案
y=2
f=x*y
End Function
Private Sub Commandl_Click（）
Dim y As Integer
Static x As Integer
x=10
y=5
y=f（x）
Debug.Print x;y
End Sub
运行程序，单击命令按钮，则立即窗口中显示的内容是
A）10 5
B）10 40
C）20 5
D）20 40
（32）窗体中有命令按钮Commandl和文本框Text1,事件过程如下： Function result（ByVal x As Integer）As Boolean
If x Mod 2=0 Then
result=True
Else
result=False
End If
End Function
Private Sub Commandl_Click（）
x=Val（InputBox（“请输入一个整数”））
If ______ Then
Text1=Str（x）&“是偶数.”
Else
Text1=Str（x）&“是奇数.”
End If
End Sub
运行程序，单击命令按钮，输入19,在Text1中会显示“19是奇数”.那么在程序的空白处应填写
A）result（x）=“偶数”
2011年9月二级access试题及答案
B）result（x）
C）resuIt（x）=“奇数”
D）NOT result（x）
（33）窗体有命令按钮Commandl和文本框Textl,对应的事件代码如下： Private Sub Commandl_Click（ ）
For i=1 To 4
x=3
For j=1 To 3
For k=1 To 2
x=x+3
Next k
Next j
Next i
Text1 .Value=Str（x）
End Sub
运行以上事件过程，文本框中的输出是
A）6
B）12
C）18
D）21
（34）窗体中有命令按钮run34,对应的事件代码如下：
Private Sub run34_Enter（）
Dim num As Integer,a As Integer,b As Integer,i As Integer For i=1 To 10
num=InputBox（“请输入数据：”,“输入”）
If Int（num/2）=num/2 Then
a=a+1
Else
b=b+1
End If
Next i
MsgBox（“运行结果：a=”&Str（a）&“,b=”&Str（b））
End Sub
运行以上事件过程，所完成的功能是
A）对输入的10个数据求累加和
2011年9月二级access试题及答案
B）对输入的10个数据求各自的余数，然后再进行累加
C）对输入的10个数据分别统计奇数和偶数的个数
D）对输入的10个数据分别统计整数和非整数的个数
（35）运行下列程序，输入数据8, 9, 3, 0后，窗体中显示结果是
Private Sub Form _click（）
Dim sum AsInteger,m As Integer
sum=0
Do
m=InputBox（“输入m”）
sum=sum+m
Loop Until m=0
MsgBox sum
End Sub
A）0
B）17
C）20
D）21
二、填空题（每空2分，共30分）
（1）一个栈的初始状态为空。首先将元素5,4,3,2,1依次入栈，然后退栈一次，再将元素A,B,C,D依次入栈，之后将所有元素全部退栈，则所有元素退栈（包括中间退栈的元素)的顺序为【1】。
（2）在长度为n的线性表中，寻找最大项至少需要比较【2】次。
（3）一棵二叉树有10个度为1的结点，7个度为2的结点，则该二义树共有【3】结点。
（4）仅由顺序、选择（分支）和重复（循环）结构构成的程序是【4】程序。
（5）数据库设计的四个阶段是：需求分析，概念设计，逻辑设计和【5】。
（6）如果要求在执行查询时通过输入的学号查询学生信息，可以采用【6】。
（7）Access中产生的数据访问页会保存在独立文件中，其文件格式是【7】。
（8）可以通过多种方法执行宏：在其他宏中调用该宏；在VBA程序中调用该宏；
【8】发生时触发该宏。
（9）在VBA中要判断一个字段的值是否为Null,应该使用的函数是【9】。
（10）下列程序的功能是求方程：x2十y2=1000的所有整数解。请在空白处填入适当的语句，使程序完成指定的功能。
Private Sub Commandl_Click（）
Dim x as integer,y as integer
2011年9月二级access试题及答案
For x= -34 To 34
For y= -34 To 34
If【10】Then
Debug .Print x,y
End If
Next y
Next x
End Sub
（11）下列程序的功能是求算式：1+1/2 ! +1/3!+1/4!+ 前10项的和（其中n!的含义是n的阶乘）。请在空白处填入适当的语句，使程序完成指定的功能。 Private Sub Commandl_Click（）
Dim i as integer,s as single,a as single
a=1:s=0
For i=1 To 10
a=【11】
s=s+a
Next i
Debug .Print “1+1/2!十1/3!+. =”;s
End Sub
（12）在窗体中有一个名为Command12的命令按钮，Click事件功能是：接收从键盘输入的10个大于0的不同整数，找出其中的最大值和对应的输入位置。请在空白处填入适当语句，使程序可以完成指定的功能。
Private Sub Command12_Click（）
max=0
maxn=0
for i=1 To 10
num=Val（InputBox（”请输入第“&i&”个大于0的整数：“）） If【12】Then
max=num
maxn=【13】
End If
Next i
MsgBox（”最大值为第“&maxn&”个输入的“&max）
End Sub
2011年9月二级access试题及答案
（13）数据库的”职工基本情况表“有”姓名“和”职称“等字段，要分别统计教授、副教授和其他人员的数量。请在空白处填入适当语句，使程序可以完成指定的功能。
Private Sub Commands_Click（）