利用ＰｏｗｅｒＰｏｉｎｔ的宏技术制作电子试卷.docx

    利用ＰｏｗｅｒＰｏｉｎｔ的宏技术制作电子试卷    王读祥摘要： 利用PowerPoint的宏技术制作电子试卷，简单实用，可以完成对单项选择题、多项选择题及填空题的自动判卷、统计分数的功能，实现无纸化考试形式，大大减轻广大教师繁重的工作关键词： PowerPoint宏技术 控件 电子试卷 制作作为一名教员，我们经常使用PowerPoint制作课件进行教学，并取得了较好的教学效果以前当需要对学员进行测验和考试时，我们要打字排版印试卷，考试完毕后还要改卷，进行成绩统计等工作，非常烦锁其实，利用PowerPoint的宏技术可以制作简易的电子试卷，本文在此介绍利用PowerPoint的宏技术实现单项选择、多项选择及填空题的判卷、统计分数等任务一、准备工作当需要使用PPT的宏技术时，必须单击“工具”→“宏”→“安全性”→“低”，否则控件代码不会生效见图1）二、创建单项选择题（一）界面设计新建一个PowerPoint文档，命名为“考试”保存；选择一个空白版式幻灯片，单击菜单栏“视图”→“工具栏”→“控件工具箱”，使用“控件工具箱”中的工具“命令按钮”制作出“姓名输入”按钮，即用鼠标点击“命令按钮”，并在空白幻灯片上拖出一个“CommandButton1”,点击鼠标右键在“CommandButton1”的属性框中把它的Caption（标题）属性改为“姓名输入”；在这个命令按钮的下方用插入文本框输入单项选择题以及对应的题目，再点击“控件工具箱”中的“选项按钮”制作出选择答案A、B、C、D，并分别修改它们的标题属性，得到相应的答案选项；并在下方加入几个动作按钮，以方便链接到相关的页面。

见图2）（二）代码设计为了能记录每位学员做各个题目的答案和统计其得分，要定义公用变量和数组，双击图2 中的“姓名输入”按钮进入VBA代码编写窗口，选择菜单项“插入”下的“模块”，在模块编辑窗口中输入代码：Public xm As StringXM变量用于记录考生姓名Public aw(3) As String数组aw(3)用于记录考生各题所选择的答案，这儿的3表示有3道题Public sm(3) As Integer数组sm(3)用于记录各题的得分，这儿的3表示有3道题Public dx(4) As String数组dx(4)用于记录多项选择题每项的选择Private Sub CommandButton1_Click()xm = InputBox(″输入考生姓名……″)用InputBox（）函数记录考生输入的姓名End Sub分别双击答案A、B、C和D选项按钮，输入如下代码：Private Sub OptionButton1_Click()aw(1) = ″A″sm(1) = 0End SubPrivate Sub OptionButton2_Click()aw(1) = ″B″sm(1) = 0End SubPrivate Sub OptionButton3_Click()aw(1) = ″C″sm(1) = 2表示它是正确答案，选择这个答案得2分，其它答案得0分End SubPrivate Sub OptionButton4_Click()aw(1) = ″D″sm(1) = 0End Sub单项选择题的第一题就设计完成了，对于第二题只需要改变题目内容，答案记录为aw(2)，得分记录为sm(2)即可，依此类推，即可完成对单项选择题的设计工作。

三、创建多项选择题（一）界面设计对于多项选择题，其界面与单项选择题的界面类似，使用“控件工具箱”下的“复选框”设计出四个答案选项即可，为了合并答案选项，必须添加一个命令按钮，设计界面见图3二）代码设计分别双击四个答案选项，输入如下代码：Private Sub CheckBox1_Click()dx(1) = ″A″End SubPrivate Sub CheckBox2_Click()dx(2) = ″B″End SubPrivate Sub CheckBox3_Click()dx(3) = ″C″End SubPrivate Sub CheckBox4_Click()dx(4) = ″D″End SubPrivate Sub CommandButton1_Click()aw(2) = dx(1) & dx(2) & dx(3) & dx(4)将选择的答案进行合并组合If CheckBox1.Value = True And CheckBox2.Value = True And CheckBox3.Value = True And CheckBox4.Value Then对于此题，只有四个答案全部选择，才得5分，其余答案得0分。

sm(2) = 5Elsesm(2) = 0End IfEnd Sub注意一点：选择完你认为正确的答案以后，必须单击“答题认证”，完成对答案正确与否的判断四、创建填空题（一）界面设计设计的界面如图4，添加一个文本框即可二）代码设计Private Sub TextBox1_LostFocus()aw(3) = TextBox1.TextIf UCase$(TextBox1) = ″CPU″ Then判断此题的答案的大写为CPU即可得3分，其余答案不得分sm(3) = 3Elsesm(3) = 0End IfEnd Sub五、创建提交界面在最后一张幻灯片上，添加一个“提交”按钮，见图5单击“提交”按钮，输入如下代码：Private Sub CommandButton1_Click()Dim i, j, s, nf As Integernf = FreeFiles = 0For i = 1 To 3累加各题分数s = s + sm(i)NextOpen ″D:＼test＼″& xm & ″.txt″ For Append As nf用输入的姓名作文件名，在D盘的test文件夹下创建一个文本文件For j = 1 To 3把各个题号和所选择的答案按顺序写入到这个文本文件中去Print #nf,″第″ & Str(j) & ″题″ & aw(j);Next jPrint #nf,″总分为：″& Str(s)把得分写入到这个文本文件的最后Close nfWith Application.PresentationsFor i =.Count To 1 Step -1.Item(i).Close使用此方法，PowerPoint 关闭打开的演示文档，并且不提示用户保存所做的工作NextEnd WithEnd Sub最后，为了防止考生进行考试时，查看其中的代码，在代码编写状态下，单击“视图”下的“工程资源管理器”，用鼠标右键点击“VBAProject”，在其属性对话框中选择“保护”标签选项输入密码实现密码保护。

教员还可以将D盘的Test文件夹进行隐藏，防止学员更改其中的考试相关资料将PowerPoint的VBA技术实现客观题考试的相关技术应用于平时测验、结束考试中，能够极大地提高广大教员的工作效率，能使广大教员从繁琐的出卷、改卷工作中解脱出来，将更多的精力放在提高教学效果上参考文献：［1］张峋.Excel VBA入门与典型实例［M］.北京：清华大学出版社，2007：264-289.［2］武马群.计算机应用技术基础［M］.北京：中国宇航出版社，2003：237-243.  -全文完-。