利用交互设置选择题答案问题

user_imdxh

查看了论坛中有关用ppt制作交互考试的相关例子，感觉很有启发。想利用ppt制作一个帮助学生检查知识的习题系统，在设置“核查答案”函数时，感觉里面有很多重复代码，就想再添加一个设置答案的按钮，便于制作。即通过点击附件中“设置答案”钮可以自动设置“核查答案”中的有关参数。谢谢！
已经利用case语句解决了重复输入代码问题。谢谢。

uid9yt5mnq

这是什么代码？怎么出这么多结果？

87232188

单选代码：
Private Sub CommandButton4_Click()
    If Slide1.CheckBox1.Value = True And Slide1.CheckBox2.Value = False And Slide1.CheckBox3.Value = False And Slide1.CheckBox4.Value = False Then
        MsgBox "选对了！", 64, "真厉害！"
    Else
        MsgBox "错了", 16, "重新选择"
    End If
End Sub

bests

双选代码 AC对
Private Sub CommandButton4_Click()
    If Slide1.CheckBox1.Value = True And Slide1.CheckBox2.Value = False And Slide1.CheckBox3.Value = True And Slide1.CheckBox4.Value = False Then
        MsgBox "选对了！", 64, "真厉害！"
    Else
        MsgBox "错了", 16, "重新选择"
    End If
End Sub