数据库中有工资表，包括“姓名”、“工资”、“职称”，现要对不同职称的职工增加工资，规定教授职称增加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=01
Case else
rate=0.05
End Select
sum=sum+gz*rate
gz=gz+gz*rate
(15)
rs.MoveNext
Loop
rs.Close
db.Close
setrs=Nothing
setdb=Nothing
MsgBox "涨工资总计:"＆sum
End Sub

发生职业病危害事故或者有证据证明危害状态可能导致职业病危害事故发生时，卫生行政部门可以采取下列临时控制措施，但不包括（）

A.责令暂停导致职业病危害事故的作业

B.封存造成职业病危害事故的材料和设备

C.封存可能导致职业病危害事故发生的材料和设备

D.组织，控制职业病危害事故现场

E.责令用人单位人停业整顿