“学生成绩”表含有字段(学号,姓名,数学,外语,专业,总分)。下列程序的功能是:计算每名学生的总分(总分=数学+外语+专业)。请在程序空白处填入适当语句,使程序实现所需要的功能。 Private Sub Command1_Click( ) Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim zongfen As New ADODB.Fileld Dim shuxue As New ADODB. Fileld Dim waiyu As New ADODB. Fileld Dim zhuanye As New ADODB. Fileld Dim strSQL As Sting Set cn = CurrentProject.Connection StrSQL = “Select*from成绩表” rs.OpenstrSQL, cn, adOpenDynamic, adLockptimistic, adCmdText Set zongfen = rs.Filelds(“总分”) Set shuxue = rs.Filelds(“数学”) Set waiyu = rs.Filelds(“外语”) Set zhuanye = rs.Filelds(“专业”) Do while 【1】 Zongfen = shuxue + waiyu + zhuanye 【2】 rs.MoveNext Loop rs.close cn.close Set rs = Nothing Set cn = Nothing End Sub
2()