（ 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 Currenc y

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