数据库中有工资表，包括“姓名”、“工资”和“职称”等字段，现要对不同职称的职工增加工资，规定教授职称增加15%，副教授职称增加10%，其他人员增加5%。下列程序的功能是按照上述规定调整每位职工的工资，并显示所涨工资的总和。请在空白处填入适当的语句，使程序可以完成指定的功能。 PrivateSubCommand5_Click（） DimwsasDAO.Workspace DimdbasDAO.Database DimrsasDAO.Recordset DimgzasDAO.Field DimzcasDAO.Field DimsumasCurrency DimrateasSingle Setdb＝CurrentDb（） Setrs＝db.OpenRecordset（"工资表"） Setgz＝rs.Fields（"工资"） SetZC＝rs.Fields（"职称"） Sum＝0 DoWhileNot（？） rs.Edit SelectCasezc CaseIs＝"教授" rate＝0.15 CaseIs＝"副教授" rate＝0.1 Caseelse rate＝0.05 EndSelect Sum＝sum＋gz*rate gz＝gz＋gz*rate （？） rs.MoveNext Loop rs.ClOse db.Close Setrs＝Nothing setdb＝Nothing MsgBcx"涨工资总计："&sum EndSub
参考答案：rs.EOF；rs.Update
解析：
DoWhile-Loop语句是在条件式结果为真时，执行循环体，并持续到条件式结果为假或执行到选择性 Exit Do语句而退出循环。在程序中，本循环的作用是遍历记录，所以本循环的条件式为“rs.EOF”(EOF函数的作用是判断是否到达记录的结尾，在到达结尾前，该函数的返回值都是false)。通过条件语句“Select Case-End Select”为不同职称的职工增加相应的工资，量后使用语句“rs.Update”提交该结果。