（4）在其中选择“浪漫”后，点击“确定”按钮，则应用了该主题。5.综合应用题
单击试题查阅窗口中的“综合应用题”命令按钮，在题文窗口将显示综合应用题的试题，综合应用题试题查阅窗口如下图所示。
综合应用题共一题，30分。
综合应用题试题查阅窗口
参考答案：
第一步，创建窗体及设置“退出”控件
（1）单击“数据库”下的“窗体”对象，再单击“新建”按钮，出现“新建窗体”对话框，在对话框中双击“设计视图”，出现窗体“设计”器，在窗体上设置上一个命令按钮，放开鼠标后，弹出一个“命令按钮向导”框。
（2）在“命令按钮向导”“类别”列表中选中“窗体操作”类别，再在“操作”列表框中选中“关闭窗体”。单击“下一步”按钮。
（3）选取“文本”单选框后，单击“完成”按钮，按钮名称为“退出”。
第二步：设置“执行过程”按钮及编写事件过程。
（1）在窗体上放置一个命令按钮，命名为“执行过程”。
（2）打开“执行过程”按钮的属性设置框，单击其“事件”选项卡，在“单击”事件右侧的下拉框中选“事件过程”。
（3）单击按钮进入 VBA编程环境，并编写本题所要求的事件过程。
（4）“执行过程”按钮的单击事件过程为如下：
Private Sub 执行过程 -Click()
Dim ws As DAO.Workspace
Dim db As DAO.Database
Dim rs As DAO.RecordSet
Dim fb As DAO.Field
Set ws =DBEingine.Workspaces(0)
Set db =ws.OpenDatabase( " c:＝＝＼考生文件夹＼教学管理.mdb " )
Set rs=bd.OpeRecordSet( " 学生表 " )
Set fb=rs.Fields( " 年龄 " )
Do While Not rs. EOF
rs.Edit
fd=fd+1
rs.Updata
rs.moveNext
Loop
rs.Close
rs.MoveNext
Loop
rs.Close
db.Close
Set rS=Nothing
Set db=Nothing
End Sub
第三步：引用DAO库。在VBA的编程环境VBE中，打开“工具”菜单并单南击“引用”命令，则弹出引用对话框。从“可使用的引用”列表中选中“Microsoft DAO3.6 Object Library”并按“确定”即可。
第四步：打开窗体，单击“执行过程”按钮，即可实现本题要求。