下呼吸道感染诊断应排除非感染性原因所致的下呼吸道的胸片的改变如

A．肺栓塞

B．心力衰竭

C．肺水肿

D．肺癌等

E．肺脓肿

数据库中有工资表，包括“姓名”、“工资”和“职称”等字段，现要对不同职称的职工增加工资，规定教授职称增加15%，副教授职称增加10%，其他人员增加5%。下列程序的功能是按照上述规定调整每位职工的工资，并显示所涨工资的总和。请在空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub Command3_Click()
Dim ws As DAO.Workspaee
Dim db As DAO.Database
Dim rs As DAO.Reeordset
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 ze
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