本作业为计算平时成绩用，并没有实际作业内容。 对于无补交作业情况的同学，只需提交共享课程已公布成绩截图，评分时就会给予在钉钉群已公布成绩单中的共享课平时成绩。 有补交作业的同学还需在附件中上传补交作业，然后会给予在钉钉群中已公布成绩单的共享课平时成绩。。 本作业成绩占到总成绩的40%。

此题为判断题(对，错)。

A.作业成绩

B.视频点播

C.直播面授

D.交流互动

A离线作业

B学生网上学习行为

C在线作业

D以上选项都不对

A.作业成绩*20%+视频点播成绩*10%+交流互动*10%

B.作业成绩*30%+视频点播成绩*5%+交流互动*5%

C.作业成绩*30%+视频点播成绩*8%+交流互动*2%

D.作业成绩*30%+视频点播成绩*10%+交流互动*5%

课程总评成绩一般由以下几个部分组成?( )

A. 平时成绩

B. 作业成绩

C. 章节练习成绩

D. 卷面成绩

试题13

数据库中有“平时成绩表”，包括“学号”“姓名”“平时作业”“小测验”“期中考试”“平时成绩”和“能否考试”等字段，其中，平时成绩=平时作业*50%+小测验*10%+期中成绩*40%，如果学生平时成绩大于等于60分，则可以参加期末考试（“能否考试”字段为真），否则学生不能参加期末考试。

下面的程序按照上述要求计算每名学生的平时成绩并确定是否能够参加期末考试。请在空白处填入实弹的语句，使程序可以完成所需要的功能。

Private Sub Command0_Click()

Dim db As Single

Dim rs As Single

Dim pazy 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=__【14】____

If ps >=60 Then

ks=True

Else

Ks=False

End If

rs.___【15】___

rs.MoveNext

Loop

rs.close

db.close

Set rs = Nothing

Set db=Nothing

End Sub