下列子过程的功能是：当前数据库文件中的“中学生表”中有字段“身高”(假定都大于100cm)。程序能根据身高显示学生的标准体重，标准体重的公式为：标准体重=(身高-100)×0.90。请在程序空白的地方填写适当的语句，使程序实现所需的功能。
Private Sub SetAgePlusl_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 sg=rs.Fields("身高")
Set tz=rs.Fields("标准体重")
Do While Not rs.EOF
rs.Edit
tz= (14)
rs.Update
(15)
Loop
rs.Close
db.Close
Set rs=Nothing
Set db=Nothing
End Sub
参考答案：rs.MoveNext或call rs.MoveNext
解析： 下面对DAO部分对象进行说明。
Database对象：表示操作的数据库对象。
RecordSet对象：表示数据库操作返回的记录集。
Field对象：表示记录集中的字段数据信息。
EOF函数：指示当前记录位置位于Recordset对象的最后一个记录之后。属性返回布尔型值。
本题要求根据当前数据库文件中“学生表”的学生“身高”求标准体重。
空14：标准体重=(身高-100)×0.90，因此此处应填入(sg-100)*0.9。
空15：当遍历完一个记录后，记录指针移向下一条，因此此处应填入rs.MoveNext。
