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