论文部分内容阅读
老师们经常用PPT来制作教学课件，现在很多学校都期末考试了，当然也有的职业中学正准备进行期末考试。想想如何对学生进行测验和考试吧，我们用PowerPoint 2003制作了电子考卷系统。其中主要使用了VBA功能，下面我们就来看看如何在PowerPoint中制作电子考卷。
打开PPT新建空白文档，我们先保存文档，点击“视图→工具栏→Visual BASIC”打开Visual BASIC工具栏，点击“控件工具箱”调出控件工具箱，在“控件工具箱”中点击“命令按钮”，用鼠标在空白幻灯片上拖出一个大小适合的按钮，即“CommandButton1”，在按钮上点击鼠标右键并选择“属性”，在“CommandButton1”的属性框中把它的Caption（标题）改为“输入学生姓名”，并在按钮下方插入文本框（点击“插入→文本框→水平”即可实现）并输入第1题的题目，再点选控件工具箱中的“选项按钮”制作一选择按钮，并右键打开其属性，将Caption里的“OptionButton1”改为“A”，再将这个按钮复制三个，分别将Caption的值改为B、C和D，最后加入一动作按钮（点击“幻灯片放映→动作按钮→前进或下一项”即可插入），当做完本题后能进入到下一题（效果见图1）。
图1
小提示
如果要把记录的文本保存在指定文件夹中，只需在Open语句后加上相应路径，如“Open "d:\exam" & xm & ".txt" For Append As nf”即可在D盘的exam文件夹中建立文本文件。
试卷头的制作
要记录学生所做的试题答案和统计得分，要定义公用的数组和变量，双击“输入学生姓名”按钮打开Microsoft Visual Basic（VBA）窗口，点击“插入→模块”，并在“演示文稿1－模块1（代码）”窗口中进行输入：
public xm as string
public da(50) as string
public df(50) as integer
其中xm变量用于记录考生姓名，数组da(50)用于记录考生各题所选择的答案，df(50)数组用于记录各个答案的得分。这里设置的数组上界是50，如果题目更多，可加大。对于xm，我们可以用InputBox()函数来记录考生姓名，再把值赋给xm，即xm=InputBox("输入考生姓名")。
试题的制作
为每个题目的各个答案输入记录答案和得分代码，双击答案A选项输入代码即可（效果见图2），具体操作请见http://blog.cfan.com.cn/index.php/76976/action_viewspace_itemid_113288。
图2
小知识
为了防止考生在考试时查看源代码，可在代码编写视图（双击任一个选项按钮即可打开）下点击“视图→工程资源管理器”，用鼠标右键点“VBAProject”，选择“VBAProject属性”，在“保护”标签卡中选中“查看时锁定工程”，再输入密码即可保护。
制作交卷页
试卷做完了，当然得提交查看成绩。在最后一题的幻灯片中就没有进入到下一题的按钮了，而是“交卷”按钮，双击这个按钮，输入如下代码：
Private Sub CommandButton1_Click()
Dim i, j, s, nf As Integer
nf = FreeFile
s = 0
For i = 1 To 50'累加各题，试题数有几个，就将50改为相应的数字。
s = s + df(i)
Next
Open xm & ".txt" For Append As nf '用输入的姓名作文件名，在当前文件夹中建立一个文本文件。
For j = 1 To 50'把各个题号和所选择的答案按顺序写入到这个文本文件中去，这里的50应该改成试题数。
Print #nf, Str(j) & da(j);
Next j
Print #nf, Str(s)'把得分写入到文本文件的最后。
Close nf
End Sub
这段代码使用VBA的文本文件功能记录考生各个题目所选择的答案和得分，实现了自动判卷。
电子考卷系统下载地址：http://work.newhua.com/cfan/200713/exam.ppt
打开考试系统时点击“启动宏”，按F5键开始考试。答完后点击“交卷”即可在相应目录下找到以考生命名的文本文件，最后数字即为得分。
电子考卷系统的默认密码是cfan，大家可进入查看源代码。
打开PPT新建空白文档，我们先保存文档，点击“视图→工具栏→Visual BASIC”打开Visual BASIC工具栏，点击“控件工具箱”调出控件工具箱，在“控件工具箱”中点击“命令按钮”，用鼠标在空白幻灯片上拖出一个大小适合的按钮，即“CommandButton1”，在按钮上点击鼠标右键并选择“属性”，在“CommandButton1”的属性框中把它的Caption（标题）改为“输入学生姓名”，并在按钮下方插入文本框（点击“插入→文本框→水平”即可实现）并输入第1题的题目，再点选控件工具箱中的“选项按钮”制作一选择按钮，并右键打开其属性，将Caption里的“OptionButton1”改为“A”，再将这个按钮复制三个，分别将Caption的值改为B、C和D，最后加入一动作按钮（点击“幻灯片放映→动作按钮→前进或下一项”即可插入），当做完本题后能进入到下一题（效果见图1）。
图1
小提示
如果要把记录的文本保存在指定文件夹中，只需在Open语句后加上相应路径，如“Open "d:\exam" & xm & ".txt" For Append As nf”即可在D盘的exam文件夹中建立文本文件。
试卷头的制作
要记录学生所做的试题答案和统计得分，要定义公用的数组和变量，双击“输入学生姓名”按钮打开Microsoft Visual Basic（VBA）窗口，点击“插入→模块”，并在“演示文稿1－模块1（代码）”窗口中进行输入：
public xm as string
public da(50) as string
public df(50) as integer
其中xm变量用于记录考生姓名，数组da(50)用于记录考生各题所选择的答案，df(50)数组用于记录各个答案的得分。这里设置的数组上界是50，如果题目更多，可加大。对于xm，我们可以用InputBox()函数来记录考生姓名，再把值赋给xm，即xm=InputBox("输入考生姓名")。
试题的制作
为每个题目的各个答案输入记录答案和得分代码，双击答案A选项输入代码即可（效果见图2），具体操作请见http://blog.cfan.com.cn/index.php/76976/action_viewspace_itemid_113288。
图2
小知识
为了防止考生在考试时查看源代码，可在代码编写视图（双击任一个选项按钮即可打开）下点击“视图→工程资源管理器”，用鼠标右键点“VBAProject”，选择“VBAProject属性”，在“保护”标签卡中选中“查看时锁定工程”，再输入密码即可保护。
制作交卷页
试卷做完了，当然得提交查看成绩。在最后一题的幻灯片中就没有进入到下一题的按钮了，而是“交卷”按钮，双击这个按钮，输入如下代码：
Private Sub CommandButton1_Click()
Dim i, j, s, nf As Integer
nf = FreeFile
s = 0
For i = 1 To 50'累加各题，试题数有几个，就将50改为相应的数字。
s = s + df(i)
Next
Open xm & ".txt" For Append As nf '用输入的姓名作文件名，在当前文件夹中建立一个文本文件。
For j = 1 To 50'把各个题号和所选择的答案按顺序写入到这个文本文件中去，这里的50应该改成试题数。
Print #nf, Str(j) & da(j);
Next j
Print #nf, Str(s)'把得分写入到文本文件的最后。
Close nf
End Sub
这段代码使用VBA的文本文件功能记录考生各个题目所选择的答案和得分，实现了自动判卷。
电子考卷系统下载地址：http://work.newhua.com/cfan/200713/exam.ppt
打开考试系统时点击“启动宏”，按F5键开始考试。答完后点击“交卷”即可在相应目录下找到以考生命名的文本文件，最后数字即为得分。
电子考卷系统的默认密码是cfan，大家可进入查看源代码。