下列子过程的功能是：当前数据库文件中“教师表”中的字段有“职称”、“基本工资”、“总工资”。职称为“教授”的“总工资”=“基本工资”+1000；“副教授”的“总工资”=“基本工资”+500，请在程序空白的地方填写适当的语句，使程序实现所需的功能。 Private Sub SetAgePlus1_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Dim sa As DAO.Field Dim tz As DAO.Field Set db=CurrentDb() Set rs=db.OpenRecordset("教师表") Set gz=rs.Fields("基本工资") Set sum=rs.Fields("总工资") Do While Not rs. (14) rs.Edit If 职称="教授" sum= (15) Else If 职称="副教授" sum=gz+500 rs.Update rs.MoveNext Loop rs.Close db.Close Set rs=Nothing Set db=Nothing End Sub