11. 数据库中有“平时成绩表”,包括“学号”、“姓名”、“平时作业”、“小测验”、“期中考试”、“平时成绩”和“能否考试”等字段,其中,平时成绩=平时作业×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 横线处应填写的内容是______。
26. 有表“Emp”,包括“Eno”“Ename”“Eage”“Esex”“Edate”和“Eparty”等字段。下面程序段的功能是:在窗体文本框“tValue”内输入年龄条件,单击“删除”按钮后删除所有该年龄的职工记录。 Private Sub btnDelete_Click() Dim strSQL As String strSQL="delete from Emp" If IsNull(Me!tValue)=True Or IsNumeric(Me!tValue)=False Then MsgBox "年龄值为空或非有效数值!", vbCritical, "Error" Me!tValue. SetFocus Else strSQL=strSQL & "where Eage=" & Me!tValue If MsgBox("确认删除?(Yes/No)", vbQuestion+vbYesNo, "确认")=vbYes Then DoCmd. ______ strSQL MsgBox "completed!",vbInformation, "Msg" End If End If End Sub 按照功能要求,画线处应填写的是______。