2011年9月全国计算机等级考试二级Access笔试试题及参考答案(3)

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

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说公务员考试2011年9月全国计算机等级考试二级Access笔试试题及参考答案(3)在线全文阅读。