利用PowerPoint宏技术制作电子试卷.docVIP

利用PowerPoint的宏技术制作电子试卷 　　摘要： 利用PowerPoint的宏技术制作电子试卷，简单实用，可以完成对单项选择题、多项选择题及填空题的自动判卷、统计分数的功能，实现无纸化考试形式，大大减轻广大教师繁重的工作。 　　关键词： PowerPoint宏技术 控件 电子试卷 制作 　　 　　作为一名教员，我们经常使用PowerPoint制作课件进行教学，并取得了较好的教学效果。以前当需要对学员进行测验和考试时，我们要打字排版印试卷，考试完毕后还要改卷，进行成绩统计等工作，非常烦锁。其实，利用PowerPoint的宏技术可以制作简易的电子试卷，本文在此介绍利用PowerPoint的宏技术实现单项选择、多项选择及填空题的判卷、统计分数等任务。 　　 　　一、准备工作 　　 　　当需要使用PPT的宏技术时，必须单击“工具”→“宏”→“安全性”→“低”，否则控件代码不会生效。（见图1） 　　 　　 　　二、创建单项选择题 　　 　　（一）界面设计 　　新建一个PowerPoint文档，命名为“考试”保存；选择一个空白版式幻灯片，单击菜单栏“视图”→“工具栏”→“控件工具箱”，使用“控件工具箱”中的工具“命令按钮”制作出“姓名输入”按钮，即用鼠标点击“命令按钮”，并在空白幻灯片上拖出一个“CommandButton1”,点击鼠标右键在“CommandButton1”的属性框中把它的Caption（标题）属性改为“姓名输入”；在这个命令按钮的下方用插入文本框输入单项选择题以及对应的题目，再点击“控件工具箱”中的“选项按钮”制作出选择答案A、B、C、D，并分别修改它们的标题属性，得到相应的答案选项；并在下方加入几个动作按钮，以方便链接到相关的页面。（见图2） 　　 　　（二）代码设计 　　为了能记录每位学员做各个题目的答案和统计其得分，要定义公用变量和数组，双击图2 中的“姓名输入”按钮进入VBA代码编写窗口，选择菜单项“插入”下的“模块”，在模块编辑窗口中输入代码： 　　Public xm As String’XM变量用于记录考生姓名 　　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) = 0 　　End Sub 　　Private Sub OptionButton2_Click() 　　aw(1) = ″B″ 　　sm(1) = 0 　　End Sub 　　Private Sub OptionButton3_Click() 　　aw(1) = ″C″ 　　sm(1) = 2’表示它是正确答案，选择这个答案得2分，其它答案得0分 　　End Sub 　　Private Sub OptionButton4_Click() 　　aw(1) = ″D″ 　　sm(1) = 0 　　End Sub 　　单项选择题的第一题就设计完成了，对于第二题只需要改变题目内容，答案记录为aw(2)，得分记录为sm(2)即可，依此类推，即可完成对单项选择题的设计工作。 　　 　　三、创建多项选择题 　　 　　（一）界面设计 　　对于多项选择题，其界面与单项选择题的界面类似，使用“控件工具箱”下的“复选框”设计出四个答案选项即可，为了合并答案选项，必须添加一个命令按钮，设计界面见图3。 　　 　　（二）代码设计 　　分别双击四个答案选项，输入如???代码： 　　Private Sub CheckBox1_Click() 　　dx(1) = ″A″ 　　End Sub 　　Private Sub CheckBox2_Click() 　　dx(2) = ″B″ 　　End Sub 　　Private Sub CheckBox3_Click() 　　dx(3) = ″C″ 　　End Sub 　　Private Sub CheckBox4_Click() 　　dx(4) = ″D″ 　　End Sub