三、使用PowerPoint中的VBA功能实现交互
1.单选题的设计与实现
（1）在幻灯片中先用文本框将单选题的题目内容设置好，然后打开“开发工具”选项卡，在“控件”选项组中单击“选项按钮”命令，在编辑区拖出三个“选项”按钮。在“选项”按钮上右击，在快捷菜单中选择“属性”，打开属性对话框，将Caption属性中的值改为：北京、上海、南京。（选择Font项可改变控件的字体和字号）。
（2）在“控件”选项组中单击“命令按钮”命令，在编辑区拖出三个“命令”按钮和一个标签按钮，在“属性”对话框中分别将三个命令按钮的Caption选项改为：重新做、下一题、提交，将标签的Caption 属性中的字符删除，如图3-34所示。
（3）为“命令”按钮添加代码。双击“重新做”按钮，进入VBA 编程环境，在其中输入：
OptionButton1.Value = False OptionButton2.Value = False OptionButton3.Value = False Label2.Caption = \
双击“提交”按钮进入VBA 编程环境，在其中输入： If OptionButton1.Value = True Then Label2.Caption = \答对了！\Else
Label2.Caption = \再想想！\End If
双击“下一题”按钮，在VBA 环境中输入： With SlideShowWindows(1).View .GotoSlide 2 End With
图3-34 单选题
提示：以上代码的涵义为在单击“重新做”按钮时，将题目重置，可重新答题。单击“提交”按钮时：如果我们选择了第一个答案，提交后会在标签中显示“答对了”，否则显示“再想想”。单击“下一题”按钮时，则跳到GotoSlide n 所指向的页面。
注意：运行程序时必须启用宏。 2.多选题的设计与实现
（1）实现方法同单选题，不过在多选题里我们选择的控件为三个复选框和三个命令按钮，效果如图3-35所示。
（2）双击“重新做”按钮进入VBA 编程环境，在VBA 环境中输入如下代码： CheckBox1.Value = False CheckBox2.Value = False CheckBox3.Value = False
双击“下一题”按钮，在VBA 环境中输入： With SlideShowWindows(1).View .GotoSlide 3 End With
双击“提交”按钮，在其中输入如下代码：
If CheckBox1.Value = True And CheckBox2.Value = False And CheckBox3.Value =True Then
MsgBox \正确\Else
MsgBox \错误\End If
图3-35 多选题
讲解：该代码的涵义为在单击“提交”按钮时：如果选择了第一个答案和第三个答案，“提交”后会弹出结果对话框。
3.填空题的设计与实现
（1）填空部分用文本框来接受用户输入的信息，在文本框的属性对话框中将“value”属性值删除。效果如图3-36所示。
图3-36 填空题
（2）双击“重新做”按钮进入VBA 编程环境，在VBA 环境中输入如下代码： TextBox1.Value = \TextBox2.Value = \
双击“下一题”按钮，在VBA 环境中输入：
With SlideShowWindows(1).View .GotoSlide 3 End With
双击“提交”按钮，在其中输入如下代码：
If (TextBox1.Value = \控制器\And TextBox2.Value = \运算器\Or (TextBox1.Value = \运算器\控制器\
Then
MsgBox \回答正确\Else
MsgBox \回答错误\End If
讲解：该代码的涵义为单击“提交”按钮时：如果输入答案为“运算器”和“控制器”，“提交”后会弹出“回答正确”的对话框；否则弹出“回答错误”的对话框。 四、使用PowerPoint中的触发器功能实现交互
1.单选题的设计与实现
（1）在幻灯片中使用文本框输入如图3-37所示的文字，注意要将题目、选项、答案提示放在不同的文本框中。
图3-37 单选题
（2）按住Shift 键将四个答案提示同时选中，打开“动画”选项卡，在“动画”选项组中给四个文本框同时添加“进入”动画，在本例中所选择的动画类型为“随机线条”。
（3）在“动画”选项卡中，单击“高级动画”选项组中的“动画窗格”按钮，打开“动画窗格”任务窗格，从中选择第一个自定义动画，单击右侧的下拉按钮，在展开的下拉列表中选择“计时”，打开“随机线条”对话框，单击“触发器”按钮，在展开的选项中选择“单击下列对象时启动效果”中的“矩形2 南京”。此步骤的作用是，当单击文本框“A、南京”时会播放文本框“南京是江苏省的省会”的进入动画。用类似的方法将其余三个答案提示的进入动画也改为相应的触发器控制即可。
2.音频、视频的控制与播放
通过三个按钮控制视频的播放，如图3-38所示。
图3-38 影片播放的控制
（1）在演示文稿中插入视频文件。
（2）制作“播放”、“暂停”、“停止”按钮，通过插入形状实现。
（2）“暂停”按钮控制的实现：单击插入的视频文件，打开“动画”选项卡，单击“高级动画”选项组中的“动画窗格”按钮，弹出“动画窗格”任务窗格。可以看到，在“动画窗格”任务窗格中已经有了这个视频文件的任务格；单击该任务格右侧的下拉按钮，在弹出的下拉列表中选择“计时”选项，弹出“暂停视频”对话框；单击“计时”选项卡，再选定“单击下列对象时启动效果”单选按钮，在右侧的下拉列表中选择“暂停按钮图片”，最后单击“确定”按钮。
（3）“播放”、“停止”按钮控制的实现：选定视频文件，在“动画”选项卡的“高级动画”选项组中单击“添加动画”下的下拉按钮，在展开的列表中选择“播放”命令，可以看到在任务窗格中增加了“播放”项；同（2）选择“播放视频”对话框的“计时”选项卡，单击“触发器”按钮，然后选中出现的“单击下列对象时启动效果”单选按钮，并在其右侧的下拉列表中选择“播放按钮图片”，观看放映或按F5，单击“播放”按钮即可开始视频播放的效果了。“停止”按钮控制实现方法类似。
3.下拉菜单的设计与实现
在PowerPoint中制作下拉菜单，效果图如图3-39所示。效果为：点击“宋词欣赏”主菜单，展开子菜单，再点击主菜单则关闭子菜单。具体实现步骤如下：
图3-39 下拉菜单效果图
（1）在PowerPoint中，利用插入形状制作如图3-39效果图中所示的主菜单“宋词欣赏”，形成“主菜单”组合。
（2）选择“主菜单”组合作为触发器。
（3）绘制一个方形作为子菜单,输入文本，将图形框与文本框组合在一起形成“子菜单”组合。
（4）选中子菜单组合，打开“动画”选项卡，单击“高级动画”选项组中“添加动画”下方的下拉按钮，在展开的列表中选择“进入”动画中的“切入”效果。然后在“动画”选项卡“动画”选项组中单击“效果选项”下方的下拉按钮，在展开的列表中选择方向：“自顶部”。
（5）选择子菜单组合，打开“动画”选项卡，单击“高级动画”选项组中的“动画窗格”按钮，弹出“动画窗格”任务窗格。在“动画窗格”任务窗格中已经有了子菜单的任务格；单击该任务格右侧的下拉按钮，在弹出的下拉列表中选择“计时”选项，弹出“切入”对话框；单击“计时”选项卡，在“计时”选项卡中单击“触发器”按钮，然后选中出现的“单击下列对象时启动效果”单选按钮，在右侧的下拉列表中选择“主菜单”组合图片，最后单击“确定”按钮。
（6）用同样方法，给“子菜单”组合再添加一个“退出”动画中的“切出”效果，并设置触发器为“主菜单”组合，方向为到顶部。
（7）制作完成：用鼠标点击 “宋词欣赏”主菜单，子菜单出来，再点击，子菜单消失，依此反复。