单选题在“成绩表”中有字段：平时成绩、期中考试、期末考试和总评成绩。其中，总评成绩=平时成绩＋期中考试×20%＋期末考试×70%，在建表时应将字段“总评成绩”的数据类型定义为（）A 文本B 长整型C 单精度D 计算

Excel表格处理操作：

考试要求：

(1)将标题字体设为“楷体”2（ ）磅，粗体．置与表格正上方居中。、

(2)计算每名学生的总评成绩。公式：总评成绩一考试成绩×80％＋平时成绩×20％。

(3)将总评成绩的最高分显示在“总评成绩”的最后一栏中。

(4)在总评成绩后插入一栏“总评”用1F函数给予每人评价．如果总评成绩大于80为“优”，其他为“一般”。

成绩报告单

姓名 考试成绩 平时成绩 总评成绩 张三 80 90 李四 60 80 王五 82 69 赵六 50 70 最高分

Excel表格处理操作(5分)

考试要求：

(1)将标题字体设为“宋体”24磅，粗体，置于表格正上方居中。

(2)计算每名学生的总评成绩。公式：总评成绩=考试成绩x65％+平时成绩x35％

(3)用函数将总评成绩的最高分显示在“总评成绩”的最后一栏中。

成绩报告单

姓名 考试成绩 平时成绩 总评成绩 李伟 92 99 张明 65 84 王华 78 92 赵月 65 "78 最高分

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

A. 平时成绩

B. 作业成绩

C. 章节练习成绩

D. 卷面成绩

数据库中有“平时成绩表”，包括“学号”、“姓名”、“平时作业”、“小测验”、“期中考试”、“平时成绩”和“能否考试”等字段，其中，平时成绩=平时作业×50%+小测验×10%+期中成绩×40%。如果学生平时成绩大于等于60分，则可以参加期末考试(“能否考试”字段为真)，否则学生不能参加期末考试。 下面的程序按照上述要求计算每名学生的平时成绩并确定是否能够参加期末考试，请在空白处填入适当的语句，使程序可以完成所需要的功能。 PrivateSub Command0_Click（ ） Dim dbAs DA0．Database Dim rsAs DA0．Recordset Dim pszyAs DA0．Field，xcy As DA0．Field，qzksAs DA0．Field Dim psAs DA0．Field，ks As DA0．FieldSet db=CurrentDb（ ） Setrs=db．Openrecordset(”平时成绩表”) Setpszy=rs．Fields(”平时作业”) Setxcy=rs．Fields(”小测验”) Setqzks=rs．Fields(”期中考试”) Setps=rs．Fields(”平时成绩”) Setks=rs．Fields(”能否考试”) Do WhileNot rs．EoF rs．Edit ps=__________ Ifps>=60 Then ks=True Else ks=False End If rs．__________ rs．MoveNext Loop rs．Close db．Close Setrs=Nothing Setdb=Nothing End Sub 横线处应填写的内容是（ ）。

A.0．5*gzks+0．1*xcy+0．4* pszy CLOSE

B.0．5*gzks+0．1*xcy+0．4*pszyUPDATE

C.0．5*pszy+0．1*xcy4+0．4*gzks CLOSE

D.0．5*pszy4+0．1*xcy4+0．4*gzksUPDATE

试题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

Excel表格处理操作：

考试要求：

(1)将标题字体设为“楷体”20磅，粗体，置于表格正上方居中。

(2)计算每名学生的总评成绩。公式：总评成绩一考试成绩X80％+平时成绩×20％。

(3)将总评成绩的最高分显示在“总评成绩”的最后一栏中。

(4)在总评成绩后插入一栏“总评”用IF函数给予每人评价，如果总评成绩大于80为“优”，其他为“一般”。

成绩报告单

姓名 考试成绩 平时成绩 总评成绩 张三 80 90 李四 60 80 王五 82 69 赵六 50 70 最高分

学生获得课程学分，需课程( )达到60分。

A.在线作业成绩

B.离线作业成绩

C.总评成绩

D.期末考试成绩

某校规定：学生的平时作业、期中练习、期末考试三项成绩分数按40%，20%，40%的比例计入学期总评成绩，小亮的平时作业、期中练习、期末考试的数学成绩依次为90分、92分、85分，小亮这学期的数学总评成绩是多少？

Excel表格处理操作：

考试要求：

(1)将标题字体设为“楷体”24磅，粗体，置于表格正上方居中。

(2)计算每名学生的总评成绩。公式：总评成绩=考试成绩×70%+平时成绩×30%。

(3)将总评成绩的最高分显示在“总评成绩”的最后一栏中。

成绩报告单

姓名 考试成绩 平时成绩 总评成绩 李宁 90 100 马伟 60 80 赵达 82 90 张方 50 70 最高分

（13）数据库中有“学生成绩表”，包括“姓名”、“平时成绩”、“考试成绩”和“期末总评”等字段。现要根据“平时成绩”和“考试成绩”对学生进行“期末总评”。规定：

“平时成绩”加“考试成绩”大于等于85分，则期末总评为“优”，“平时成绩”加“考试成绩”小于60分，则期末总评为“不及格”，其他情况期末总评为“合格”。

下面的程序按照上述要求计算每名学生的期末总评。请在空白处填入适当的语句，使程序可以完成指定的功能。

Private Sub Command0_Click()

Dim db As DAO.Database

Dim rs As DAO.Recordset

Dim pscj,kscj,qmzp As DAO.Field

Dim count As Integer

Set db=CurrentDb()

Set rs=db.OpenRecordset("学生成绩表")

Set pscj=rs.Fields("平时成绩")

Set kscj=rs.Fields("考试成绩")

Set qmzp=rs.Fields("期末总评")

count=0

Do While Not rs.EOF

【14】

If pscj+kscj>=85 Then

qmzp="优"

ElseIf pscj+kscj<60 Then

qmzp="不及格"

Else

qmzp="合格"

End If

rs.Update

count=count+1

【15】

Loop

rs.Close

db.Close

Set rs=Nothing

Set db=Nothing

MsgBox "学生人数："&count

End Sub