Dim db As DAO .Database
Dim rs As DAO .Recordset
Dim zc As DAO .Field
Dim Countl As Integer,Count2 As Integer,Count3 As Integer Set db=CurrentDb（）
Set rs=db .OpenRecordset（”职工基本情况表“）
Set zc=rs .Fields（”职称“）
Countl=0 : Count2=0 : Count3=0
Do While Not【14】rs.eof
Select Case zc
Case Is=”教授“
Countl=Countl+1
CaseIs=”副教授“
Count2=Count2+1
Case Else
Courit3=Count3+1
End Select
【15】rs.movenext
Loop
rs .Close
Set rs=Nothing
Set db=Nothing
MsgBox”教授：“&Count1&”,副教授：“&Count2 &”,其他：“&count3 End Sub
2011年9月二级access试题及答案
答案
选择题：
1-5.BCDAA
1-6.DDCAA
11-15.BDACB
16-20.DDBAB
21-25.ADDAA
26-30.ACCBC
31-35.BBDCC
填空题：
1.1DCBA2345
2.㏒2（n）
3.25
4.结构化程序设计
5.物理设计
6.参数
7.html
8.控件事件 或 事件
9.isnull
10.x*x+y*y=1000 或 X^2+Y^2=1000
11.a*(1/i)
12.num>=max 或 num>max
13.i
14.rs.eof
15.rs.movenext