如何使ppt控件工具箱中的“单选题”显现答题状况

hawanthony

请高手指点。马上开心了，我在学习用ppt的vba做一套单项选择题，题目做好了，但是出现一个问题：在选择答案时，点击后面的答案时，前面所做的答案却不显示。比如第一题我选择“ A”，第二题我选择 “C”。这时，第一题“A”答案就不显示了，后面以此类推。总之，只有最后选择的答案才会显示出来。谢谢！

附1、2两题的代码试卷完整版（附件）

Private Sub OptionButton1_Click()
aw(1) = "A"
sm(1) = 0
End Sub

Private Sub OptionButton2_Click()
aw(1) = "B"
sm(1) = 0
End Sub

Private Sub OptionButton3_Click()
aw(1) = "C"
sm(1) = 0
End Sub

Private Sub OptionButton4_Click()
aw(1) = "D"
sm(1) = 2
End Sub

Private Sub OptionButton5_Click()
aw(2) = "A"
sm(2) = 2
End Sub

Private Sub OptionButton6_Click()
aw(2) = "B"
sm(2) = 0
End Sub

Private Sub OptionButton7_Click()
aw(2) = "C"
sm(2) = 0
End Sub

Private Sub OptionButton8_Click()
aw(2) = "D"
sm(2) = 0
End Sub