1，选择“工具”菜单中“宏”项里的“安全性”。
2，将“安全级”设为“中”或“低”。
3，在“工具栏”的空白处，点击右键，在弹出的菜单中选择“控件工具箱”。
4，首先利用文本框将单选题的题目输入上去，再选择“控件工具箱”中的“选项按钮”，在幻灯片上按住左键添加一个选项。
5，在该选项上击右键，在弹出的菜单中选择“属性”。记住选项的名称并将Caption项中的内容修改成选项内容，完成后即添加了一个选项，重复4－5步骤再添加两三个选项。
6，在“控件工具箱”中选择“命令按钮”，添加到幻灯片上，将命令按钮重新命名为“查看结果”，方法与“选项按钮”命名相同。
7，双击“命令按钮”或右击在弹出的菜单中选择“查看代码”，在弹出的代码框中输入
Dim no1If OptionButton1.Value = True Then no1 = "正确" Else no1 = "错误"MsgBox no1, vbOKOnly, "查看结果"
其中OptionButton1要修改为正确选项的名称。
