PPT触发器设置
用PowerPoint 制作交互式选择题
三种不同的方式
苏州电教馆在线课程PPT2003教程
制作：赵立锋
方法一：超级简单的方法
?1.在页面上输入题目及答案选项
?2.在需要显示答案的地方，输入另外一个文本框，并输入正确的答案，如A
3.右键单击刚才输入的答案文本框A，选”
自定义动画“－－添加效果－－进入－－出
现。
4.在效果选项－－计时－－开始：
选单击时。
小结
?这种方法只是依次将答案显示出来了。?如果在教学中，学生不选择正确的答案，教师也想给学生的选择一些提示，该怎么做呢？请看方法二：用触发器显示答案
方法二：用触发器显示答案◆1、在同一个页面上，用“文本框”输入答案选项，如“A.中国”等，形状颜色等可适当美化。用“标注”制作四个答案的提示。如下图所示。
2、选中答案提示，设置答案提示的“动作设置”：按右键，选“动作设置”－－单击鼠标－－单击鼠标时的动作－－超链接到：在下拉列表中选“幻灯片…” ，然后选择“当前幻灯片”（就是有这个题目的幻灯片，注意幻灯片的编号，可在选择时看缩略图，不要选错）。四个答案提示设置相同，请分别设置。
3、设置答案提示的动画效果。右键单击其中一个答案标注文本框（如答案b的标注），在快捷菜单中执行“自定义动画”命令，然后在右边的“任务窗格”中单击“添加效果”，选择一种效果，如“向内溶解”。四个答案提示设置相同，请分别设置。
◆4、设置BCD三个错误答案的提示效果为爆炸声音，并设为“动画播放后隐藏”。
◆
选中答案提示，按右键－－自定义动画－－点选效果选项：◆选择声音：如爆炸，动画播放后：隐藏，如下图：
还没设置好，继续看下一页
为了使动画在播放后不至于立即隐藏，在对话框的“计时”选项卡
中，“速度”一栏输入4秒。并单击“触发器”按钮进行设置。触发
器的作用是使在单击按钮时启动标注动画。
这里不能选错哟！作用是：当点击D.俄罗斯按钮时，会显示提示”不对哟….“
◆设置答案A的标注时，将声音设为“鼓掌”，“播放动画后”设为“不变暗”。
◆计时选项中：速度：快速；触发器：一定要选中是A的按钮。
小结
?这个选择题的效果是：当点击三个错误答
案时，答案提示显示4秒后消失。当点击正确答案A时，提示显示不消失，并播放掌声。?此方法的原理：点击选择按钮，利用触发
器显示对应的答案提示。
?如果要根据学生的选择来统计分数的话，
则需要用到VBA了，请继续……
方法三：利用VBA制作选择题◆输入题目用文本框
12
◆设置选项按钮，名称：t1，caption：A.中国
用同样的方法制作其他三个选项：名称：t2，caption：B.美国
名称：t3，caption：C.印度
名称：t4，caption：D.俄罗斯
制作“下一题”按钮：名称：commandbutton1 caption ：下一题
1
2
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
3
正确得10分
跳转到下一页
注意这个t1，它是第一题正确选项的名称
用类似方法制作选择题二，注意：名称不能和第一题相同的哟：
名称：G1 caption: 1000
名称：G2caption: 5050
Private Sub CommandButton1_Click()If G2.Value = True Then fen(1) = 10Else fen(1) = 0End If Dim i, s s = 0For i = 0 To 1s = s + fen(i)Next sum = s End Sub
在最后一题（本例共2题）下制作“得分”按钮，输
入代码如下：
先判断本页是一个题目的答案红色部分，循环统计多道题目的总得分，如有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、根据总题目数，进行分数统计。
用For循环，如：
Dim i, s
s = 0
For i = 0 To 1
s = s + fen(i)
Next
sum = s
3、根据得分，可以用MsgBox来显示提示信息。
ex = MsgBox("全对了", vbYesNo, "汇总")