老师们经常用PPT来制作教学课件，现在很多学校都期末考试了，当然也有的职业中学正准备进行期末考试。想想如何对学生进行测验和考试，我们用PowerPoint2003制作了电子考卷系统。其中主要使用了VBA功能，下面我们就来看看如何在PowerPoint中制作电子考卷。

打开PPT新建空白文档，我们先保存文档，点击“视图→工具栏→VisualBASIC”打开VisualBASIC工具栏，点击“控件工具箱”调出控件工具箱，在“控件工具箱”中点击“命令按钮”，用鼠标在空白幻灯片上拖出一个大小适合的按钮，即“CommandButton1”，在按钮上点击鼠标右键并选择“属性”，在“CommandButton1”的属性框中把它的Caption（标题）改为“输入学生姓名”，并在按钮下方插入文本框（点击“插入→文本框→水平”即可实现）并输入第1题的题目，再点选控件工具箱中的“选项按钮”制作一选择按钮，并右键打开其属性，将Caption里的“OptionButton1”改为“A”，再将这个按钮复制三个，分别将Caption的值改为B、C和D，最后加入一动作按钮（点击“幻灯片放映→动作按钮→前进或下一项”即可插入），当做完本题后能进入到下一题。

小提示
如果要把记录的文本保存在指定文件夹中，只需在Open语句后加上相应路径，如“Open"d:\exam"&xm&".txt"ForAppendAsnf”即可在D盘的exam文件夹中建立文本文件。

试卷头的制作

要记录学生所做的试题答案和统计得分，要定义公用的数组和变量，双击“输入学生姓名”按钮打开MicrosoftVisualBasic（VBA）窗口，点击“插入→模块”，并在“演示文稿1－模块1（代码）”窗口中进行输入：
publicxmasstring
publicda(50)asstring
publicdf(50)asinteger
其中xm变量用于记录考生姓名，数组da(50)用于记录考生各题所选择的答案，df(50)数组用于记录各个答案的得分。这里设置的数组上界是50，如果题目更多，可加大。对于xm，我们可以用InputBox()函数来记录考生姓名，再把值赋给xm，即xm=InputBox("输入考生姓名")。

试题的制作
为每个题目的各个答案输入记录答案和得分代码，双击答案A选项输入代码即可.

小知识
为了防止考生在考试时查看源代码，可在代码编写视图（双击任一个选项按钮即可打开）下点击“视图→工程资源管理器”，用鼠标右键点“VBAProject”，选择“VBAProject属性”，在“保护”标签卡中选中“查看时锁定工程”，再输入密码即可保护。

制作交卷页

试卷做完了，当然得提交查看成绩。在最后一题的幻灯片中就没有进入到下一题的按钮了，而是“交卷”按钮，双击这个按钮，输入如下代码：
PrivateSubCommandButton1_Click()
Dimi,j,s,nfAsInteger
nf=FreeFile
s=0
Fori=1To50'累加各题，试题数有几个，就将50改为相应的数字。
s=s+df(i)

Next
Openxm&".txt"ForAppendAsnf'用输入的姓名作文件名，在当前文件夹中建立一个文本文件。
Forj=1To50'把各个题号和所选择的答案按顺序写入到这个文本文件中去，这里的50应该改成试题数。
Print#nf,Str(j)&da(j);
Nextj
Print#nf,Str(s)'把得分写入到文本文件的最后。
Closenf
EndSub
这段代码使用VBA的文本文件功能记录考生各个题目所选择的答案和得分，实现了自动判卷。电子考卷系统下载地址： http://work.newhua.com/cfan/200713/exam.ppt