powerpoint 中实现人与幻灯片互动答题.pdfVIP

PowerPoint 中实现人与幻灯片互动答题 在公司员工培训过程中，通常用 PowerPoint将教学内容制成课件向学员进 行讲解演示，为了增加教学的演示效果和学员的参与兴趣，倘若在幻灯片中能够 显示多选、单选、判断和填空等类型的答题，然后由学员进行选择或判断，并由 电脑给出正确 （或错误）提示信息，即可实现人与幻灯片交互答题的功能。然而， PowerPoint并没有提供现成的功能为大家所使用。为此，本文通过采用 VBA 编 程的方式来为大家化解这一难题，让你随心所欲地设计出交互式答题幻灯片。 一、编程原理与策划 1.多选题型 在设计多项选择答题时，由于存在着多个答案由学员来选择判断，因此可以 使用复选框（CheckBox ）控件来实现这个功能。在书写VBA 逻辑表达式时，多 个条件之间用and或or连接，表示同时满足几个（或其中一个）条件。例如复 选框 CheckBox1 和 CheckBox2 代表的选项是正确的，则使用如下表达式： if CheckBox1. Value = True And CheckBox2. Value = True Then MsgBox 选择正确。, vbOKOnly. 结果 Else MsgBox 选择错误！正确答案是A和 B!, vbOKOnly. 提示 End if 2. 单选／判断题型 设计单选（或判断）题时，由于正确答案只有一个，因此由单选按钮 （OptionButton）控件来实现这个功能。例如 OptionButtonl代表的答案是正确的， 则使用表达式： If OptionButtonl. Value = True Then ex = MsgBox（您答对了 !请继续回答下 一个问题。, vbOKOnly ）； 如果 OptionButton2代表的答案是错的，则使用表达式： If OptionButton2. Value = True Then ex = MsgBox（正确答案是 A ，请继续 努力!，vbOKOnly ）。 3. 填空题型 对于填空题，由于所填写的答案是文本． 所以只要使用文本框（TextBox） 控件即可实现。代码如下： If textBox1.Value = 答案内容 Then MsgBox 答案正确 !, vbOKOnly. 结果 Else MsgBox 回答错误！正确答案是答案内容 !, vbOKOnly. 提示 End if 二、幻灯课件轻松设计 1.在幻灯片 Slide1中设计多选答题界面 （1）启动 PowerPoint 2003，选择视图 工具栏| 控件工具箱| 命令，打开控 件工具箱工具栏。首先将幻灯片 Slide1（默认新建）设置为空白版式，并将其 保存为幻灯片答题演示.ppt文件，然后在幻灯片中放置标签（ Label）、复选框 （CheckBox ）、按钮（CommandButton ）等控件。 （2）将Label1的Caption属性修改为在 Flash8中，元件类型包括；复选 框 CheckBox （1~4）的Caption属性依次修改为影片剪辑、实例、声音和 按钮；按钮CommandButton (1~3)的Caption属性分别修改为判断、下一题 和重新选择。 （3）在幻灯片Slide1中用鼠标右键单击任意按钮（例如 判断），然后选 择快捷菜单中的查看代码命令，接着在打开的窗口中输入本文提供的 Slide1 代码即可。 小提示： 取消单击鼠标切换幻灯片的方法是：选择 幻灯片放映 |幻灯片切换命令，在右侧的 幻灯片切换窗格中，将换片方式一栏下的单击鼠标时复选框的勾选标记取消，然后单 击应用于所有幻灯片按钮。 2. 在幻灯片 Slide2中设计单选或判断答题界面 （1）选择插入 |新幻灯片 命令，或者按下 Ctrl+M组合键，新建幻灯片 Slide2，并将其设置为空白版式。 （2）在幻灯片中放置 Label1 标签控件，并将Caption属性修改为不需要 播放器能够自动播放的 Flash文件类型是；然后放置四个单选按钮 OptionButton （1~4）控件，将其 Caption属性分别设置为 A .exe、B .FLA、C .fla和 D .html；接着再放置三个按钮