“学生成绩”表含有字段(学号,姓名,数学,外语,专业,总分)。下列程序的功能是:计算每名学生的总分(总分=数学+外语+专业)。请在程序空白处填入适当语句,使程序实现所需要的功能。 Private Sub Command1_Click() Dim en As New ADODB.Connection Dim FS As New ADODB.Reeordset 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 en=CurrentProject.Connection StrSQL="Select * from成绩表" rs.Open strSQL,cn,adOpenDynamic,adLockptimistic,adCmdText Set zongfen=rs.Filelds("总分") Set shuxue=rs.Filelds("数学") Set waiyu=rs.Filelds("外语") Set zhuanye=rs.Filelds("专业") Do while (14) Zongfen=shuxue+waiyu+zhuanye (15) rs.MoveNext Loop rs.close en.close Set rs=Nothing Set en=Nothing End Sub
参考答案:(14) Not rs.EOF (15) rs.Update
解析: 本题考查的是VBA编程基础。对数据库的编程,主要是对记录集的操作,当记录集没有到最后一条记录时才能进行操作,每次操作后要对数据库进行更新。