请VBA高手帮忙仿做“考试系统”或解密VBA。

weishi 发表于: 2008-4-01 09:43 来源: 扑奔PPT网

我很欣赏来自网上的一个PPT考试系统，用VBA做的，但是VBA设了密码，它又是多选题的，我想把它该成单选题。拜托啦！

请VBA高手帮忙仿做“考试系统”或解密VBA。 (294 KB, 下载次数: 99)

大家对请VBA高手帮忙仿做“考试系统”或解密VBA。的评论

lcb163 发表于 2008-4-15 21:09:27: 密码已取消，至于VBA代码修改自己看，比较简单结合自己的需要修改。

283 KB, 下载次数: 128)
weishi 发表于 2008-4-16 09:53:45: 多谢网友帮我解了vba密，我尝试了很多次想把该系统增加多些选择题，本人水平有限，无法成功，能帮忙吗？
hailaerqu 发表于 2008-4-16 11:04:40: 高手呀学习了太好了
safetywangwei 发表于 2008-11-19 19:36:02: 请问lcb163，ppt里vba工程密码如何解除的？用什么软件还是更高的方法？急需，请分享，谢谢阿，感激涕零阿:(
bcc2315 发表于 2008-11-19 21:45:48: 谢谢了，这几天我也在找，终于找到了！
jack0421 发表于 2009-9-16 12:30:01: 找到这一句代码:
If Slide1.CheckBox2.Value = True And Slide1.CheckBox3.Value = True And Slide1.CheckBox1.Value = False And Slide1.CheckBox4.Value = False Then
此为多选BC对，修改一下代码就成单选了：其余依次类推:
A对：
If Slide1.CheckBox1.Value = True And Slide1.CheckBox2.Value = False And Slide1.CheckBox3.Value = False And Slide1.CheckBox4.Value = False Then

B对：
If Slide1.CheckBox1.Value = False And Slide1.CheckBox2.Value = True And Slide1.CheckBox3.Value = False And Slide1.CheckBox4.Value = False Then

C对：
If Slide1.CheckBox1.Value = False And Slide1.CheckBox2.Value = False And Slide1.CheckBox3.Value = True And Slide1.CheckBox4.Value = False Then
D对：
If Slide1.CheckBox1.Value = False And Slide1.CheckBox2.Value = False And Slide1.CheckBox3.Value = False And Slide1.CheckBox4.Value = True Then