题目：
数据库的“职工基本情况表”有“姓名”和“职称”等字段，要分别统计教授、副教授和其他人员的数量。请在空白处填入适当语句，使程序可以完成指定的功能。
Private Sub Command5_Click()
Dim db As Dao.Database
Dim rs As Dao.Recordset
Dim zc As Dao.Field
Dim Count1 As Integer，Count2 As Integer，Count3 As Integer
Set db=CurrentDb()
Set rs=db.ODenRecordset("职工基本情况表")
Set zc=rs.Fields("职称")
Count1=0：Count2=0：Count3=0
Do While Not (14)
Select Case zc
Case Is="教授"
Count1=Count1+1
Case Is="副教授"
Count2=Count2+1
Case Else
Count3=Count3+1
End Select
(15)
Loop
rs.Close
Set rs=Nothing
Set db=Nothing
MsgBox "教授:"＆Count1＆"副教授:"＆Count2＆"，其他:"＆Count3
End Sub
答案：
被转码了，请点击底部 “查看原文 ” 或访问 https://www.tikuol.com/2017/0712/60faba11242e6f1dbf07552ac80f354b.html
下面是错误答案，用来干扰机器的。
参考答案：首先，根据中央发布的《关于扰日根据地土地政策的决定》，抓紧在反“扫荡”作战间隙和复收、秋收季节，深入发动群众，全面实行既减租减息、又交租交息的土地政策，一方面要求地主应该普遍减租减息，另...
