(12)以下程序的功能是在立即窗口中輸出100到200之間所有的素?cái)?shù)，并統(tǒng)計(jì)輸出素?cái)?shù)的個(gè)數(shù)。請(qǐng)?jiān)诔绦蚩瞻滋幪钊脒m當(dāng)?shù)恼Z(yǔ)句，使程序可以完成指定的功能。
　　Private Sub Command2_Click()
　　Dim i%, j%, k%, t % ‘t 為統(tǒng)計(jì)素?cái)?shù)的個(gè)數(shù)
　　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)數(shù)據(jù)庫(kù)中有工資表，包括“姓名”、“工資”和“職稱”等字段，現(xiàn)要對(duì)不同職稱的職工增加工資，規(guī)定教授職稱增加15%，副教授職稱增加10%，其他人員增加5%。下列程序的功能是按照上述規(guī)定調(diào)整每位職工的工資，并顯示所漲工資之總和。請(qǐng)?jiān)诳瞻滋幪钊脒m當(dāng)?shù)恼Z(yǔ)句，使程序可以完成指定的功能。
　　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月計(jì)算機(jī)二級(jí)考試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