(12)以下程序的功能是在立即窗口中输出100到200之间所有的素数，并统计输出素数的个数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub Command2_Click()
Dim i%, j%, k%, t % ‘t 为统计素数的个数
Dim b As Boolean
For i = 100 To 200
b = True
k = 2
j = Int(Sqr(i))
Do While k <= j And b
If I Mod k = 0 Then
b = 【12】
End If
k = 【13】
Loop
If b = True Then
t = t + 1
Debug.Print i
End If
Next i
Debug.Print "t="; t
End Sub
(13)数据库中有工资表，包括“姓名”、“工资”和“职称”等字段，现要对不同职称的职工增加工资，规定教授职称增加15%，副教授职称增加10%，其他人员增加5%。下列程序的功能是按照上述规定调整每位职工的工资，并显示所涨工资之总和。请在空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub Command5_Click()
Dim ws As DAO.Workspace
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim gz As DAO.Field
Dim zc As DAO.Field
Dim sum As Currency
Dim rate As Single
Set db = CurrentDb()
Set rs = db.OpenRecordset("工资表")
Set gz = rs.Fields("工资")
Set zc = rs.Fields("职称")
sum = 0
Do While Not 【14】
rs.Edit
Select Case zc
Case Is = "教授"
rate = 0.15
Case Is = "副教授"
rate = 0.1
Case Else
rate = 0.05
2010年3月计算机二级考试Access笔试试题参考答案
（1） A,B,C,D,E,5,4,3,2,1 (2) 15 (3) EDBGHFCA (4) 程序 （5） 课程
（6） Label1.Caption="性别" （7） SelFoeus （8） 4 （9） 456aBc （10） 201
（11） n Mod 5 =1 And n Mod 7=1 (12) false (13) k+1 (14) rs.EOF (15) rs.update
