(11)下列程序的功能是找出被5、7除，余數為1的最小的5個正整數。請在程序空白處填入適當的語句，使程序可以完成指定的功能。

　　Private Sub Form_Click()

　　Dim Ncount %, n%

　　n = n + 1

　　If 【11】 Then

　　Debug.Print n

　　Ncount =Ncount + 1

　　End If

　　Loop Until Ncont = 5

　　End Sub

　　(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

　　End Select

　　sum = sum + gz * rate

　　gz = gz + gz * rate

　　【15】

　　rs.MoveNext

　　Loop

　　rs.Close

　　db.Close

　　Set rs = Nothing

　　Set db = Nothing

　　MsgBox "漲工資總計:" & sum

　　End Sub