user_imdxh 发表于 2016-4-12 13:20:27

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

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

uid9yt5mnq 发表于 2016-4-12 15:04:25

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

87232188 发表于 2016-4-12 16:02:03

单选代码:
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 发表于 2016-4-12 17:25:27

双选代码 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]
查看完整版本: 利用交互设置选择题答案问题