本文可以学到
1如何用PPT制作互动式选择题
2用VBA辅助制作填空题

教师在课堂教学时，往往会在课堂的最后给学生留下几道练习题，让学生们练习。如何用PPT制作好的练习题呢？看看我是如何利用 PowerPoint2003 的动画触发器和VBA功能来实现的吧。我就以用触发器制作单选题和以VBA制作填空题为例给大家讲讲。

一、触发器做单选

以一道选择题为例，启动PowerPoint2003，新建一空白幻灯片，利用文本框，输入题干内容。点击“幻灯片放映→动作按钮”，选中“动作按钮：自定义”选项，然后在PPT中画出一个按钮。

1.制作模板：右击插入的按钮，在弹出的快捷菜单中选择“添加文本”选项，在“动作按钮”上添加第一个备选答案（如“A、170克/摩尔”），并设置好字体、字号、字符颜色，调整“动作按钮”的大小和位置。

2.复制试题：选中这个“动作按钮”，按着Ctrl拖拉鼠标，快速复制一个按钮（共操作3次，复制3个），并修改字符为其他备选项答案（见图1）。

3.添加答案：插入文本框，并输入“正确、错误”及相关提示的字符（如“错误！”），并设置好字体、字号、字符颜色等。

4.设置交互：选中这个文本框，执行“幻灯片放映→自定义动画”命令，展开“自定义动画”任务窗格，单击“添加动画”右侧的下拉按钮，在下拉列表中选择“进入→飞入”选项；再按“方向”右侧的下拉按钮，在列表中选择“自左铡”选项，在“自定义动画”选择“飞入”，打开“飞入”对话框，切换到“及时”标签卡，单击“触发器”按钮，选中“单击下列对象时启动效果”选项，并在下拉列表中选择“动作按钮：自定义2……”选项（即第一个备选答案对应的“动作按钮”项），“确定”返回。

5.制作完成：按此文本框的操作，设置好另外3个文本框的动画及触发器，制作完成。

二、VBA法来填空

上述用触发器只能制作选择，有的练习题需要填空形式，就用VBA来实现吧。

1.制作试题：用文本框输入填空题的题目内容，点击“视图→工具栏→控件工具箱”展开“控件工具箱”工具条。单击工具条上的“文本框”按钮，在填空题的空格处拖拉出一个控件文本框（见图2）。

2.设置命令：单击“命令按钮”按钮并画一个按钮来。选中此按钮，单击“属性”，展开“命令按钮”属性对话框，将其中的“Caption”修改为“查看正确答案”（具体修改内容，请根据需要确定），并关闭属性窗口。

3.插入代码：双击插入的命令按钮打开VBA编辑窗口，在“PrivateSub
CommandButton1_Click()”和“EndSub”语句之间输入如下代码：
　　IfTextBox1.Text="物理"Then
　　　　dd=MsgBox("你填对了",
vbOKCancel,"结果")
　Else
　　　　dd=MsgBox("你填错了",
vbOKCancel,"结果")
　　EndIf
4.效果预览：制作完成了，赶快按下F5功能键来看一下效果吧（见图3）。

小提示:VBA文本框属性的修改选中文本框，单击工具条上的“属性”，打开“文本框”属性对话框，选中“font”选项，然后点击后面的“…”号，即可打开“字体”对话框设置字体等。

MsgBox是弹出对话框的命令，而代码中的“dd”和相应的其他文字为自定义变量，可以用其他字母代码和文字代替。