PowerPoint中实现人和幻灯片互动答题.docVIP

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；接着再放置三个按钮 CommandButton（1~3），并将其Caption属性分别修改为重新选择、上一题和下一题。参照上文的方法，输入本文提供的 S1ide2代码。 小提示： 判断答题的所有设置与单选答题类似，只不过是设计两个选项√和×，这两个符号可以先在Word中插入，然后再复制到幻灯片中即可。 3. 在幻灯片Slide3中设计填空答题界面 新建空白版式幻灯片Slide3，放置Label1标签，将其Caption属性修改为在计算机中，数字化图形有两种表示法：位图和，然后放置一个文本框TextBox1；接着再放置三个按钮CommandButton（1~3）控件，并将其Caption属性分别修改为查看答案、