填空题

下列子过程的功能是：当前数据库文件中的“中学生表”中有字段“身高”(假定都大于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