PowerPoint附带的VBA功能使其具有了制作智能课件的能力。本文就是基于PowerPoint中的VBA来制作智能的物理课堂小测验的一个例子。

　　一、基本构想

图1

　　本例很简单，就两道题：界面如图1所示，就是题目、选项和一个按钮，在最后一道题所在的页面上把“下一题”按钮改成“得分”按钮。由界面可知，我们需要一个文本框，四个选项按钮和一个命令按钮。功能方面我希望在单击“下一题”按钮时，界面能够转到下一题;单击“得分”按钮时，在成绩文本框中能够显示出这次测验的成绩就可以了。本例的两道题的正确选项分别为“B”、“C”。

　　二、制作过程

　　1、运行PowerPoint2003，单击“文件”-“保存”命令，弹出“另存为”对话框，文件名设为“测验”，单击“保存”命令。

　　2、单击“插入”-“文本框”-“水平”命令，这时鼠标变成“1”字型，在编辑区内单击鼠标左键拖动鼠标拉出一个方框，在框内输入第一题的题目“1.人造地球卫星的轨道半径越大，则”。

　　3、下面我们来制作选项。单击“视图”-“工具栏”-“控件工具箱”命令，弹出“控件工具箱”，单击“控件工具箱”上的“选项按钮”控件，鼠标变成十字型，按下鼠标左键拖动鼠标拉出一个方框。单击“控件工具箱”上的“属性”命令，弹出“属性”对话框，把“名称”改为“ti1”，把“caption”改为“A.速度越小，周期越小”，其它设为默认。如图2所示。

图2

　　其余的三个选项的名称分别为“ti2”、“ti3”、“ti4”，“caption”分别为“B.速度越小，周期越大”、“C.速度越大，周期越小”、“D.速度越大，周期越大”。