利用交互设置选择题答案问题
查看了论坛中有关用ppt制作交互考试的相关例子,感觉很有启发。想利用ppt制作一个帮助学生检查知识的习题系统,在设置“核查答案”函数时,感觉里面有很多重复代码,就想再添加一个设置答案的按钮,便于制作。即通过点击附件中“设置答案”钮可以自动设置“核查答案”中的有关参数。谢谢!已经利用case语句解决了重复输入代码问题。谢谢。 这是什么代码?怎么出这么多结果? 单选代码:
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 双选代码 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
页:
[1]