” 学生成绩 ” 表含有字段 （ 学号 ， 姓名 ， 数学 ， 外语 ， 专业 ， 总分 ） 。 下列程序的功能是 ： 计算每名学生的总分（总分 = 数学 + 外语 + 专业）。请在程序空白处添入适当语句，使程序实现所需要的功能。Private sub command1_click()Dim cn as new adodb.connectionDim rs as new adodb.recordsetDim zongfen as adodb.fieldDim shuxue as adodb.fieldDi

” 学生成绩 ” 表含有字段 （ 学号 ， 姓名 ， 数学 ， 外语 ， 专业 ， 总分 ） 。 下列程序的功能是 ： 计算每名学生的总分（总分 = 数学 + 外语 + 专业）。请在程序空白处添入适当语句，使程序实现所需要的功能。

Private sub command1_click()

Dim cn as new adodb.connection

Dim rs as new adodb.recordset

Dim zongfen as adodb.field

Dim shuxue as adodb.field

Dim waiyu as adodb.field

Dim zhuanye as adodb.field

Dim strsql as string

Set cn=currentproject.connection

Strsql= ” select * from 成绩表 ”

Rs.open strsql,cn,adopondynamic,adlockoptimistic,adcmdtext

Set zongfen=rs.fields( “ 总分 ” )

Set shuxue=rs.fields( “ 数学 ” )

Set waiyu=rs.fields( “ 外语 ” )

Set zhuanye=rs.fields( “ 专业 ” )

Do while ___ 14 ____

Zongfen=shuxue+waiyu+zhuanye

_____ 15 _____

Rs.movenext

Loop

Rs.close

Cn.close

Set rs=nothing

Set cn=nothing

End sub