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

采出量。是指生产中实际采出的煤量，即实测产量。分析储量动态、计算损失率时，必须用（）。只有当采用水采、垛式、仓房式等采煤方法无法实际测算采出量时，才可以用统计产量代替，但必须进行水分、灰分、伙分和矸石量改正。