PowerPoint 中实现人与幻灯片互动答题.doc

PowerPoint 中实现人与幻灯片互动答题在公司员工培训过程中，通常用PowerPoint将教学内容制成课件向学员进行讲解演示，为了增加教学的演示效果和学员的参与兴趣，倘若在幻灯片中能够显示多选、单选、判断和填空等类型的答题，然后由学员进行选择或判断，并由电脑给出正确（或错误）提示信息，即可实现人与幻灯片交互答题的功能。然而，PowerPoint并没有提供现成的功能为大家所使用。为此，本文通过采用VBA编程的方式来为大家化解这一难题，让你随心所欲地设计出交互式答题幻灯片。一、编程原理与策划1. 多选题型在设计多项选择答题时，由于存在着多个答案由学员来选择判断，因此可以使用复选框（CheckBox）控件来实现这个功能。在书写VBA逻辑表达式时，多个条件之间用and或or连接，表示同时满足几个（或其中一个）条件。例如复选框 CheckBox1和CheckBox2代表的选项是正确的，则使用如下表达式：if CheckBox1. Value = True And CheckBox2. Value = True ThenMsgBox 选择正确。, vbOKOnly. 结果ElseMsgBox 选择错误！正确答案是A和B!, vbOKOnly. 提示End if2. 单选判断题型设计单选（或判断）题时，由于正确答案只有一个，因此由单选按钮（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 = 答案内容 ThenMsgBox答案正确!, vbOKOnly. 结果ElseMsgBox回答错误！正确答案是答案内容!, vbOKOnly. 提示End if二、幻灯课件轻松设计1. 在幻灯片Slide1中设计多选答题界面（1）启动PowerPoint 2003，选择视图|工具栏|控件工具箱命令，打开控件工具箱工具栏。首先将幻灯片Slide1（默认新建）设置为空白版式，并将其保存为幻灯片答题演示.ppt文件，然后在幻灯片中放置标签（Label）、复选框（CheckBox）、按钮（CommandButton）等控件。（2）将Label1的Caption属性修改为在Flash8中，元件类型包括；复选框CheckBox（14）的Caption属性依次修改为影片剪辑、实例、声音和按钮；按钮CommandButton (13)的Caption属性分别修改为判断、下一题和重新选择。（3）在幻灯片Slide1中用鼠标右键单击任意按钮（例如判断），然后选择快捷菜单中的查看代码命令，接着在打开的窗口中输入本文提供的Slide1代码即可。小提示：取消单击鼠标切换幻灯片的方法是：选择幻灯片放映|幻灯片切换命令，在右侧的幻灯片切换窗格中，将换片方式一栏下的单击鼠标时复选框的勾选标记取消，然后单击应用于所有幻灯片按钮。2. 在幻灯片Slide2中设计单选或判断答题界面（1）选择插入|新幻灯片命令，或者按下Ctrl+M组合键，新建幻灯片Slide2，并将其设置为空白版式。（2）在幻灯片中放置Label1标签控件，并将Caption属性修改为不需要播放器能够自动播放的Flash文件类型是；然后放置四个单选按钮 OptionButton（14）控件，将其Caption属性分别设置为A .exe、B .FLA、C .fla和D .html；接着再放置三个按钮 CommandButton（13），并将其Caption属性分别修改为重新选择、上一题和下一题。参照上文的方法，输入本文提供的 S1ide2代码。小提示：判断答题的所有设置与单选答题类似，只不过是设计两个选项和，这两个符号可以先在Word中插入，然后再复制到幻灯片中即可。3. 在幻灯片Slide3中设计填空答题界面新建空白版式幻灯片Slide3，放置Label1标签，将其Caption属性修改为在计算机中，数字化图形有两种表示法：位图和，然后放置一个文本框TextBox1；接着再放置三个按钮CommandButton（13）控件，并将其Caption属性分别修改为查看答案、上一题和重新填空。并按上文的方法，输入本文提供的SIide3代码。小提示：编程时答案文本一定要用半角的双引号括起来，倘若有几个空一起判断，方法同多速答题。三、人机互动答题演示（1）学员在PowerPoint 2003中打开幻灯片答题演示.ppt文件，只要按下F5键，即可出现多选答题界面，在答题在Flash8中，元件类型包括中共有影片剪辑、实例、声音和按钮四个答案供学员选择。倘若学员勾选了影片剪辑和按钮复选框后，单击判断按钮，电脑即可给出选择正确的提示信息；如果是其他判断组合，电脑则会给出选对了一个（或选择错误!正确答案是影片剪辑和按钮!）的提示。单击重新选择按钮，即可重新练习。如果想要进行下一题的判断选择，请单击下一题按钮继续。小提示：按ESC键，则退出幻灯片播放。（2）出现单选答题界面，在答题不需要播放器能够自动播放Flash的文件类型是：中也提供了四个答案A .exe，B .FLA、C .fla和D .html，不过正确的只有一个，当学员单击A .exe时电脑给出选择正确的提示信息，其他选项均给出错误提示信息。单击重新选择按钮可以重新选择练习。倘若此时对上一题还想练习一番，学员可以通过单击上一题按钮来实现。好了，单击下一题继续答题训练。（3）最后出现的是填空答题界面，在答题在计算机中，数字化图形有两种表示法：位图和中，要求学员在文本框里输入答案，倘若输入的是矢量图形，电脑会给出回答正确的提示，输入其他答案则给出错误提示信息。单击重新填空按钮，文本框里则出现请双击鼠标后填入你的答案!提示信息，双击鼠标后输入正确答案即可。小提示：关闭幻灯片右键单击快捷莱单和显示弹出式工具栏的方法是：选择工具|选项命令，在打开的窗口中单击视图选项卡，然后在幻灯片放映一栏中将对应的复选框勾速标记取消即可源代码：Slide1:幻灯片Slide1代码：判断按钮Private Sub CommandButton1_Click()If CheckBox1.Value = True And CheckBox4.Value = True ThenMsgBox 选择正确。, vbOKOnly, 结果ElseIf CheckBox1.Value = True Or CheckBox4.Value = True ThenMsgBox 选对了一个。, vbOKOnly, 提示ElseMsgBox 选择错误！正确答案是影片剪辑和按钮！, vbOKOnly, 提示End IfEnd IfEnd Sub下一题 按钮Private Sub CommandButton2_Click()If MsgBox(是否继续？, vbYesNo + vbQuestion, 下一题) = vbYes ThenWith SlideShowWindows(1).View.GotoSlide 2End WithEnd IfEnd Sub重新选择按钮Private Sub CommandButton3_Click()CheckBox1.Value = FalseCheckBox2.Value = FalseCheckBox3.Value = FalseCheckBox4.Value = FalseEnd SubSlide2:幻灯片Slide2代码：重新选择按钮Private Sub CommandButton1_Click()OptionButton1.Value = FalseOptionButton2.Value = FalseOptionButton3.Value = FalseOptionButton4.Value = FalseEnd Sub下一题按钮Private Sub CommandButton2_Click()If MsgBox(是否继续？, vbYesNo + vbQuestion, 下一题) = vbYes ThenWith SlideShowWindows(1).View.GotoSlide 3End WithEnd IfEnd Sub上一题按钮Private Sub CommandButton3_Click()If MsgBox(是否继续？, vbYesNo + vbQuestion, 上一题) = vbYes ThenWith SlideShowWindows(1).View.GotoSlide 1End WithEnd IfEnd Sub退出按钮Private Sub CommandButton4_Click()With SlideShowWindows(1).View.ExitEnd WithEnd Sub正确选择Private Sub OptionButton1_Click()If OptionButton1.Value = True Then ex = MsgBox(您答对了！请继续回答下一个问题。, vbOKOnly)End Sub错误选择Private Sub OptionButton2_Click()If OptionButton2.Value = True Then ex = MsgBox(正确答案是A，请继续努力！, vbOKOnly)End Sub错误选择Private Sub OptionButton3_Click()If OptionButton3.Value = True Then ex = MsgBox(正确答案是A，请继续努力！, vbOKOnly)End Sub错误选择Private Sub OptionButton4_Click()If OptionButton4.Value = True Then ex = MsgBox(正确答案是A，请继续努力！, vbOKOnly)End SubSlide3:幻灯片Slide3代码：填空判断提示按钮Private Sub CommandButton1_Click()If TextBox1.Value = 矢量图形 ThenMsgBox 选择正确!, vbOKOnly, 结果ElseMsgBox 回答错误!正确答案是矢量图形！, vbOKOnly, 提示End IfEnd Sub上一题按钮Private Sub CommandButton2_Click()If MsgBox(是否继续？, vbYesNo + vbQuestion, 上一题) = vbYes Then