16. 命令按钮控件test的单击事件过程如下: Private Sub test_click() Dim I,R R=0 For I=1 T0 5 Step 1 R=R+I Next I bResult.Caption=Str(R) End Sub 当运行窗体,单击命令按钮时,在名为bResuh的窗体标签内将显示的是______。
27. 数据库中有“平时成绩表”,包括“学号”、“姓名”、“平时作业”、“小测验”、“期中考试”、“平时成绩”和“能否考试”等字段,其中,平时成绩=平时作业×50%+小测验×10%+期中成绩×40%。如果学生平时成绩大于等于60分,则可以参加期末考试(“能否考试”字段为真),否则学生不能参加期末考试。 下面的程序按照上述要求计算每名学生的平时成绩并确定是否能够参加期末考试,请在空白处填入适当的语句,使程序可以完成所需要的功能。 Private Sub Command0_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Dim pszy As DAO.Field, xcy As DAO.Field, qzks As DAO.Field Dim ps As DAO. Field, ks As DAO.Field Set db=CurrentDb() Set rs=db. Openrecordset("平时成绩表") Set pszy=rs.Fields("平时作业") Set xcy=rs.Fields("小测验") Set qzks=rs.Fields("期中考试") Set ps=rs.Fields("平时成绩") Set ks=rs.Fields("能否考试") Do While Not rs.EOF rs.Edit ps=______ If ps>=60 Then ks=True Else ks=False End If rs.______ rs.MoveNext Loop rs.Close db.Close Set rs=Nothing Set db=Nothing End Sub 横线处应填写的内容是______。