用Point 制作交互式选择题 - 苏州教师培训网.pptVIP

用PowerPoint 制作交互式选择题 三种不同的方式 方法一：超级简单的方法 1.在页面上输入题目及答案选项 2.在需要显示答案的地方，输入另外一个文本框，并输入正确的答案，如A 小结 这种方法只是依次将答案显示出来了。 如果在教学中，学生不选择正确的答案，教师也想给学生的选择一些提示，该怎么做呢？请看方法二：用触发器显示答案 方法二：用触发器显示答案 小结 这个选择题的效果是：当点击三个错误答案时，答案提示显示4秒后消失。当点击正确答案A时，提示显示不消失，并播放掌声。 此方法的原理：点击选择按钮，利用触发器显示对应的答案提示。 如果要根据学生的选择来统计分数的话，则需要用到VBA了，请继续…… 方法三：利用VBA制作选择题 输入题目用文本框 设置得分控件文本框：名称为sum 加入下面的代码，用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, 汇总) VBA基础介绍：/html/79/38/38872/1.htm 更多教程请见： * * 苏州电教馆在线课程PPT2003教程　 制作：赵立锋 3.右键单击刚才输入的答案文本框A，选”自定义动画“－－添加效果－－进入－－出现。 4.在效果选项－－计时－－开始：选单击时。 1、在同一个页面上，用“文本框”输入答案选项，如“A.中国”等，形状颜色等可适当美化。用“标注”制作四个答案的提示。如下图所示。 2、选中答案提示，设置答案提示的“动作设置”：按右键，选“动作设置” －－单击鼠标－－单击鼠标时的动作－－超链接到：在下拉列表中选“幻灯片…” ，然后选择“当前幻灯片” （就是有这个题目的幻灯片，注意幻灯片的编号，可在选择时看缩略图，不要选错）。四个答案提示设置相同，请分别设置。 3、设置答案提示的动画效果。右键单击其中一个答案标注文本框（如答案b的标注），在快捷菜单中执行“自定义动画”命令，然后在右边的“任务窗格”中单击“添加效果”，选择一种效果，如“向内溶解” 。 四个答案提示设置相同，请分别设置。 4、设置BCD三个错误答案的提示效果为爆炸声音，并设为“动画播放后隐藏”。 选中答案提示，按右键－－自定义动画－－点选效果选项： 选择声音：如爆炸，动画播放后：隐藏，如下图： 还没设置好，继续看下一页 为了使动画在播放后不至于立即隐藏，在对话框的“计时”选项卡中，“速度”一栏输入4秒。并单击“触发器”按钮进行设置。触发器的作用是使在单击按钮时启动标注动画。 这里不能选错哟！作用是：当点击D.俄罗斯按钮时，会显示提示”不对哟….“ 设置答案A的标注时，将声音设为“鼓掌”，“播放动画后”设为“不变暗”。 计时选项中：速度：快速；触发器：一定要选中是A的按钮。 1 2 设置选项按钮，名称：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 　名称：G2　　caption: 5050 Private Sub Command