用PowerPoint 制作交互式选择题 三种不同的方式 苏州电教馆在线课程PPT2003教程　 制作：赵立锋

方法一：超级简单的方法 1.在页面上输入题目及答案选项 2.在需要显示答案的地方，输入另外一个文本框，并输入正确的答案，如A

3.右键单击刚才输入的答案文本框A，选”自定义动画“－－添加效果－－进入－－出现。 4.在效果选项－－计时－－开始：选单击时。

小结 这种方法只是依次将答案显示出来了。 如果在教学中，学生不选择正确的答案，教师也想给学生的选择一些提示，该怎么做呢？请看方法二：用触发器显示答案

方法二：用触发器显示答案 1、在同一个页面上，用“文本框”输入答案选项，如“A.中国”等，形状颜色等可适当美化。用“标注”制作四个答案的提示。如下图所示。

2、选中答案提示，设置答案提示的“动作设置”：按右键，选“动作设置” －－单击鼠标－－单击鼠标时的动作－－超链接到：在下拉列表中选“幻灯片…” ，然后选择“当前幻灯片” （就是有这个题目的幻灯片，注意幻灯片的编号，可在选择时看缩略图，不要选错）。四个答案提示设置相同，请分别设置。

3、设置答案提示的动画效果。右键单击其中一个答案标注文本框（如答案b的标注），在快捷菜单中执行“自定义动画”命令，然后在右边的“任务窗格”中单击“添加效果”，选择一种效果，如“向内溶解” 。 四个答案提示设置相同，请分别设置。

4、设置BCD三个错误答案的提示效果为爆炸声音，并设为“动画播放后隐藏”。 选中答案提示，按右键－－自定义动画－－点选效果选项： 选择声音：如爆炸，动画播放后：隐藏，如下图： 还没设置好，继续看下一页

为了使动画在播放后不至于立即隐藏，在对话框的“计时”选项卡中，“速度”一栏输入4秒。并单击“触发器”按钮进行设置。触发器的作用是使在单击按钮时启动标注动画。 这里不能选错哟！作用是：当点击D.俄罗斯按钮时，会显示提示”不对哟….“

设置答案A的标注时，将声音设为“鼓掌”，“播放动画后”设为“不变暗”。

小结 这个选择题的效果是：当点击三个错误答案时，答案提示显示4秒后消失。当点击正确答案A时，提示显示不消失，并播放掌声。 此方法的原理：点击选择按钮，利用触发器显示对应的答案提示。 如果要根据学生的选择来统计分数的话，则需要用到VBA了，请继续……

方法三：利用VBA制作选择题 输入题目用文本框 设置选项按钮，名称：t1，caption：A.中国 2 1

用同样的方法制作其他三个选项： 　名称：t2，caption：B.美国 　名称：t3，caption：C.印度 　名称：t4，caption：D.俄罗斯

制作“下一题” 按钮：名称：commandbutton1 caption：下一题 2 1 3 Private Sub CommandButton1_Click() If t1.Value = True Then fen(0) = 10 Else fen(0) = 0 End If With SlideShowWindows(1).View .GotoSlide (2) End With End Sub 正确得10分 注意这个t1，它是第一题正确选项的名称 跳转到下一页

用类似方法制作选择题二，注意：名称不能和第一题相同的哟： 　名称：G1 caption: 1000 　名称：G2　　caption: 5050

红色部分，循环统计多道题目的总得分，如有5个题目，修改To后面的数字为4 在最后一题（本例共2题）下制作“得分” 按钮，输入代码如下： Private Sub CommandButton1_Click() If G2.Value = True Then fen(1) = 10 Else fen(1) = 0 End If Dim i, s s = 0 For i = 0 To 1 s = s + fen(i) Next sum = s End Sub 先判断本页是一个题目的答案 红色部分，循环统计多道题目的总得分，如有5个题目，修改To后面的数字为4 注意这个G2，它是第二题正确选项的名称

设置得分控件文本框：名称为sum 最后，需要定义一下变量，方法如下： 　单击“控件工具箱”上“查看代码”控件，弹出“Microsoft visual basic”编辑器，单击“插入”-“模块”命令，弹出“模块”编辑窗口，在“模块”编辑窗口输入“public fen(1) as integer”。 运行测试一下，应该能在文本框中显示分数，正确一题得10分。

有了分数，是不是想能对得分情况作个提示啊？ 加入下面的代码，用MsgBox来显示提示： 　　If sum = 20 Then 　 ex = MsgBox("全对了", vbYesNo, "汇总") Else 　 ex = MsgBox("才对了1个", vbYesNo) End If

练习 依照前面的方法制作选择题，并能显示分数或提示。 想一想，如果要有5道或更多题目呢？该如何做？ 一定要实践一下哟！然后去学习平台讨论区交流心得体会。

小结 VBA制作选择题，注意几个方面： 1、用单选按钮，每个按钮名称设置不同，并对正确的选项进行记分。 2、根据总题目数，进行分数统计。 　1、用单选按钮，每个按钮名称设置不同，并对正确的选项进行记分。 　2、根据总题目数，进行分数统计。 　　用For循环，如： 　　　Dim i, s 　　　 s = 0 　　　　For i = 0 To 1 　　　 s = s + fen(i) 　　　 Next 　　　 sum = s 　3、根据得分，可以用MsgBox来显示提示信息。 　　　ex = MsgBox("全对了", vbYesNo, "汇总")

VBA基础介绍：http://www.cszlf.net/html/79/38/38872/1.htm 更多教程请见：http://www.cszlf.net