TextBox2.Text = \End Sub
双击“选项C”按钮（OptionButton3）控件，输入下面的红色部分代码：
Private Sub OptionButton3_Click() TextBox1.Text = \ TextBox2.Text = \End Sub
就能实现作业的批改。
制作多选题的方法与此类似，只是控件要使用“复选框”。对于代码部分可以根据需要写入，这里不再重复，想参考的人可能双击实例中的控件看代码。这里我在“（）”里没有像上面一样使用文本框来显示选择的答案，而是使用了“标签”，主要是提供另一种显示的手段，其实两种选择题可以使用一样的方式。
最后说明一点，由于PowerPoint中的安全性通常设置的是“高”，在课件重新打开后上面做的选择题不能正常运行，只要把PowerPoint的安全性设置成“低”就可以了。
以上说清楚了没有不知道，我把实例一起打包给大家，参考看一看。
