内容发布更新时间 : 2024/11/2 19:19:11星期一 下面是文章的全部内容请认真阅读。

Me!1Num.Caption=Round(count,1) End If count= (13) ElSe count=0 End If End Sub

（分数：4.00）

填空项1:__________________ （正确答案：Notflag）

解析：[解析] 本题主要涉及对“开始/停止”按钮的设置，按钮状态需要在运行和不能运行之间实现切换，这需要flag状态的转换，且受下面程序pause=Not pause的启发，此处应为flag=Not flag。 填空项1:__________________ （正确答案：count+0.1）

解析：[解析] 在有关计时的子过程Form_Timer() 中，计时间隔为0.1秒，当flag=True但pause=False时，执行Me !1Num.Caption=Round(count，1)，即在当前窗体上显示计时时间；当flag=True但．pause=True时，程序应以0.1秒为单位继续计时，即 count=count+0.1；当flag=False时，计时器清零，重新计时，即count=0。

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

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

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

Prirate Sub Command0_Click() Dim db As DAO.DatabaSe Dim rs As DAO.RecordSet

Dim pscj, ksej, 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=Nothinq

MsgBox \学生人数：\End Sub

（分数：4.00）

填空项1:__________________ （正确答案：rs.Edit）

解析：[解析] 本题考查数据库编程的相关知识。对于表中的每条记录，在循环遍历时首先应使其可以修改，因此答案为rs.Edit。此类题在历年考题中出现频率较高，考生应多归纳总结。 填空项1:__________________ （正确答案：rs.MoveNext）

解析：[解析] 本题考查程序设计和连接对象使用的综合知识。由于循环要保证修改数据表内每一条记录，当打开一个数据表时当前记录为第一条记录，随后应该在循环中移动当前记录指针来遍历整个数据表，rs是当前打开的数据表，数据表的MoveNext方法可以使当前记录指针下移一条记录，所以在第二个空白处应该填入rs.MoveNext。