智能交互式试题一直是Flash、Authorware等软件的优势，大多数教师对用Flash、Authorware制作的交互试题羡慕不已。然而苦于自己不会操作其他软件，只能把答案设置成自定义动画显示出来。其实在PPT中应用控件和VBA代码同样可以制作出智能交互试题。说到编程，有些教师也许会觉得这是一件头痛的事，实际上我们只需掌握几个简单的语句就可以了。
下面我们用PowerPoint来做相应的演示文稿，利用其VBA功能，让那些练习也具有交互功能。
如图1，这是一个答题界面示例，可以判断答案正确性的单项选择题，下面我们来看看具体的实现过程。
图1
1．启动PowerPoint2003（其他版本操作相似），打开相应的课件演示文稿，定位到制作练习题幻灯片中，输入题干字符。
2．执行“视图→工具栏→控件工具箱”命令，展开“控件工具箱”，点击一下其中的“选项按钮”按钮，然后在幻灯片中拖拉出一个选项按钮框来。
图2
3．选中上述选项按钮框（OptionButton1），单击“控件工具箱”上的“属性”按钮，打开“属性”对话框，切换到“按分类序”标签下，展开“外观”选项，将其中的“Caption”后面的字符修改为题目相应的选项字符（如“A.病毒”），再展开“字体”选项，点击右侧的“省略号”按钮，打开“字体”对话框，设置好字体、字号等。
小贴士：控件的其他属性可以直接采用默认的属性。
4．将上述复制框复制三份（根据备选项的多少确定复制数量），分别将“Caption”属性修改为题目其他选项字符（如“B草履虫、C真菌、D细菌”）。
5．再用“控件工具箱”的“命令按钮”在幻灯片上添加一个按钮，并将其“Caption”属性修改为“判断一下吧”（或其他字符）。再双击该按钮，进入“Visual Basic编辑器”状态（如图4），将下述代码输入到出现的一组代码中间，输入完成后，关闭窗口返回。
If OptionButton1.Value = True Then
MsgBox "恭喜您,做对了！得2分！", 0 + 48, "温馨提示"
Else
MsgBox "对不起，答错了！相信自己，再来一次吧！", 0 + 48, "温馨提示"
End If
小贴士：上述代码的含义是，如果（If）选择了第1项（If OptionButton1.Value = True），按下“判断一下吧”按钮，则弹出如图2所示界面和消息（MsgBox）框（恭喜您,做对了！得2分！——消息内容；否则（Else）弹出如图3所示界面和消息（MsgBox）框（对不起，答错了！相信自己，再来一次吧！）
图3
6．将上述命令按钮复制一份，将“Caption”属性修改为“重新选择吗”），再双击该按钮，将下述代码输入到出现的一组代码中间，输入完成后，关闭窗口返回。
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
OptionButton4.Value = False
7.在演示过程中，学生进行相应的选择后，按下“判断一下吧”按钮，即可作出相应判断；如果认为选择有误，按一下“重新选择吗”按钮，即可重新选择。
