(13)數(shù)據(jù)庫(kù)中有“學(xué)生成績(jī)表”,包括“姓名”、“平時(shí)成績(jī)”、“考試成績(jī)”和“期末總評(píng)”等字段,F(xiàn)要根據(jù)“平時(shí)成績(jī)”和“考試成績(jī)”對(duì)學(xué)生進(jìn)行“期末總評(píng)”。規(guī)定:
“平時(shí)成績(jī)”加“考試成績(jī)”大于等于85分,則期末總評(píng)為“優(yōu)”,“平時(shí)成績(jī)”加“考試成績(jī)”小于60分,則期末總評(píng)為“不及格”,其他情況期末總評(píng)為“合格”。
下面的程序按照上述要求計(jì)算每名學(xué)生的期末總評(píng)。請(qǐng)?jiān)诳瞻滋幪钊脒m當(dāng)?shù)恼Z(yǔ)句,使程序可以完成指定的功能。
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("學(xué)生成績(jī)表")
Set pscj=rs.Fields("平時(shí)成績(jī)")
Set kscj=rs.Fields("考試成績(jī)")
Set qmzp=rs.Fields("期末總評(píng)")
count=0
Do While Not rs.EOF
【14】
If pscj+kscj>=85 Then
qmzp="優(yōu)"
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 "學(xué)生人數(shù):"&count
End Sub
相關(guān)鏈接:北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |