用PowerPoint 制作交互式选择题

VBA基础介绍： /html/79/38/38872/1.ht m
更多教程请见：
用PowerPoint 制作交互式选择题
三种不同的方式
苏州电教馆在线课程PPT2003教程 制作：赵立锋
方法一：超级简单的方法
1.在页面上输入题目及答案选项 2.在需要显示答案的地方，输入另外一个 文本框，并输入正确的答案，如A
3.右键单击刚才输入的答案文本框A，选” 自定义动画“－－添加效果－－进入－－出 现。
方法三：利用VBA制作选择题
输入题目用文本框 设置选项按钮，名称：t1，caption：A.中国
2
1
用同样的方法制作其他三个选项： 名称：t2，caption：B.美国 名称：t3，caption：C.印度 名称：t4，caption：D.俄罗斯
制作“下一题” 按钮：名称：commandbutton1 2
caption：下一题
1 3
注意这个t1， 它是第一题 正确选项的 名称
Private Sub CommandButton1_Click() If t1.Value = True Then fen(0) = 10 正确得10分 Else fen(0) = 0 End If With SlideShowWindows(1).View .GotoSlide (2) 跳转到下一页 End With End Sub

想一想，如果要有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, "汇总")
4.在效果选项－－计时－－开始： 选单击时。
小结
这种方法只是依次将答案显示出来了。 如果在教学中，学生不选择正确的答案， 教师也想给学生的选择一些提示，该怎么 做呢？请看方法二：用触发器显示答案
方法二：用触发器显示答案
1、在同一个页面上，用“文本框”输入答案选项，如“A.中国”等，形 状颜色等可适当美化。用“标注”制作四个答案的提示。如下图所示。
有了分数，是不是想能对得分情况作个提示啊？
加入下面的代码，用MsgBox来显示提示：
If sum = 20 Then
ex = MsgBox("全对了", vbYesNo, "汇总") Else
ex = MsgBox("才对了1个", vbYesNo)
End If
练习
依照前面的方法制作选择题，并能显示分数或提示。
设置得分控件文本框：名称为sum
最后，需要定义一下变量，方法如下： 单击“控件工具箱”上“查看代码”控件，弹出“Microsoft visual basic” 编辑器，单击“插入”-“模块”命令，弹出“模块”编辑窗口，在“模块”编 辑窗口输入“public fen(1) as integer”。 运行测试一下，应该能在文本框中显示分数，正确一题得10分。
4、设置BCD三个错误答案的提示效果为爆炸声音，并设为“动画播 放后隐藏”。
选中答案提示，按右键－－自 定义动画－－点选效果选项：
选择声音：如爆炸，动画播放后： 隐藏，如下图：
还没设置好，继续看下一页
为了使动画在播放后不至于立即隐藏，在对话框的“计时”选项卡 中，“速度”一栏输入4秒。并单击“触发器”按钮进行设置。触发 器的作用是使在单击按钮时启动标注动画。
2、选中答案提示，设置答案提示的“动作设置”：按右键，选“动作 设置” －－单击鼠标－－单击鼠标时的动作－－超链接到：在下拉列表 中选“幻灯片„” ，然后选择“当前幻灯片” （就是有这个题目的幻灯 片，注意幻灯片的编号，可在选择时看缩略图，不要选错）。四个答案提 示设置相同，请分别设置。
3、设置答案提示的动画效果。右键单击其中一个答案标注文本框 （如答案b的标注），在快捷菜单中执行“自定义动画”命令，然后 在右边的“任务窗格”中单击“添加效果”，选择一种效果，如“向 内溶解” 。 四个答案提示设置相同，请分别设置。
用类似方法制作选择题二，注意：名称不能和第一题相 同的哟：
名称：G1
名称：G2
caption: 1000
caption: 5050
在最后一题（本例共2题）下制作“得分” 按钮，输 入代码如下：
注意这个G2，它 是第二题正确选 项的名称
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 总得分，如有5 s = s + fen(i) 个题目，修改To Next 后面的数字为4 sum = s End Sub
这里不能选错哟！作用是：当点击D.俄罗斯按钮时，会显示提示”不对哟….“
设置答案A的标注时，将声音设为“鼓掌”，“播放动画后”设为“不 变暗”。
计时选项中：速度：快速；触发器：一定要选中是A的按钮。
小结
这个选择题的效果是：当点击三个错误答 案时，答案提示显示4秒后消失。当点击正 确答案A时，提示显示不消失，并播放掌声。 此方法的原理：点击选择按钮，利用触发 器显示对应的答案提示。 如果要根据学生的选择来统计分数的话， 则需要用到VBA了，请继续……