PowerPoint是大家喜欢的一种课件制作工具，做演示型课件轻轻松松，但是如果课件中有填空题、选择题或判断题，并要求作智能反馈的时候，PowerPoint似乎就显得力不从心。其实，这是一种误解，PowerPoint对于这类交互也是可以轻松完成的，不过，您得使用VBA代码。

填空题

点击菜单命令“视图/工具栏/控件工具箱”，打开控件工具箱工具栏，点击其中的“文字框”控件。在幻灯片需要的位置拖拉鼠标得到合适大小的文本输入框。单击选中它，然后单击右键，在弹出的右键菜单中选择“属性”命令，打开它的属性设置对话框。在这里，可以根据需要对输入框的背景色、输入文本的颜色和字体等内容进行设置，如图1所示。

<图1>

选中该文本输入框，右击，选择“查看代码”命令，打开代码编辑窗口，如图2所示。点击右上方的下拉按钮，在弹出的下拉列表中选择“LostFocus”。这样做的目的是：当文本输入完成、鼠标离开这个文本框的时候，就会出现在下面设置好的反馈信息。

找到代码编辑窗口的这两行代码：
Private Sub TextBox1_LostFocus()
End Sub
在这两行文本中间插入如下代码：
If TextBox1.Value = "李白" Then
MsgBox"不错，你填对了。恭喜您！",vbOKOnly,"填空题"
Else
MsgBox"不对吧？再想想，也许您就能想起正确答案呢！",vbOKOnly,"填空题"
TextBox1.Text = ""
End If

说明：本例中这个填空题的正确答案就是“李白”，至于另外两句话分别表示答对或答错时课件的反馈信息，制作中可以根据实际自行更改。
如果有多个填空题，那么需要将上面代码中的TextBox1替换为TextBox2、TextBox3等，依此类推。

单项选择题

利用“控件工具箱”中的“选项按钮”，在幻灯片适当位置放四个单选按钮，以表示A、B、C、D四个选项（题干可用文本框另行输入）。选中第一个单选按钮，点击右键，在右键菜单中选择“属性”命令，打开这个按钮的属性设置对话框。选中“Caption”右侧的内容，将其删除，改为“李白”（这就是该选项的内容了，同时就是正确答案）；在“AutoSize”的右侧点击一下，然后点击在最右边出现的下拉按钮，选择其中的“True”。同样的方法，在“BackStyle”右侧的下拉列表中选择“0-fmBackStyleTransparent”使按钮的背景透明，点击“Font”右侧的选择按钮，选择合适的字体和字号。其余三个按钮也用同样的方法添加选项内容，同时完成上述设置。

现在可以选中窗口中的“李白”单选项，右击，在右键菜单中选择“查看代码”命令，然后在打开的代码编辑窗口中输入如下代码：
Private Sub OptionButton1_Click()
MsgBox ("真不错，您做对了")
End Sub
这是答对题的反馈。其余三个按钮也给它们添加代码，不过，反馈的那句话可就不能是“真不错，您做对了”。全部完成后，就可以放映了。

多项选择题

有了前面的基础，多项选择题也容易做了。先利用“控件工具箱”中的“复选框”按钮，在幻灯片编辑窗口中放一个复选项。和前面一样，在右键菜单中选择“属性”命令，打开属性设置对话框。这里的设置与单选项的设置差不多。需要将“AutoSize”设置成“True”，这样复选项就会根据内容的多少调整复选框的大小，在“BackColor”处设置此选项的背景颜色，将“Caption”的值改为需要的选项。参照前面的操作就可以了。

用同样的方法再放三个复选框，以代表A、B、C、D四个选项，分别进行设置。
再在右键菜单中选择“查看代码”命令，在代码编辑窗口中输入如下代码：
Private Sub CommandButton1_Click()
End Sub
在这两句代码中间插入以下代码：
If CheckBox1.Value = True And CheckBox2.Value = True And CheckBox4.Value = True And CheckBox3.Value = False Then
MsgBox"厉害，选对了！",vbOKOnly,"多项选择题"
Else
MsgBox "不好意思，您做错了。再仔细想想？",vbOKOnly,"多项选择题"
CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.Value = False
End If
看出来了吗？这个实例中正确答案应该是选“ABD”。其他答案可以更改一下If这一语句中的复选框名称就可以了。

是非判断题

仔细想想，是非判断题其实就是只有两个选项的单项选择题。完全可以放两个单选按钮，分别代表“是”和“非”。然后按前面单项选择题的制作方法操作。这里就不罗嗦了。

好了，有了上面这些，在PowerPoint中制作智能交互就不是件很难的事了，读者也一定做得到的。如果需要制作的是一份交互性的试卷，那么这个工作量就显得比较大了。可以复制相应的代码然后根据具体问题进行修改，这样可以在一定程度上减少工作量。此外，本例制作的交互效果是建立在学生的上机操作基础上的，所以，制作完成后，应将PowerPoint保存成PPS格式文件，这样，学生双击此文件时即可运行演示过程，以避免学生对试题进行编辑。

来源： 《信息技术教育》2004年12期 （作者单位：山东省寿光市潍坊科技职业学院 262700）