找回密码
 立即注册
搜索

我的总分VBA程序出错,求高手更正

3
回复
471
查看
[复制链接]

16

主题

208

帖子

49

幻币

一流武者

Rank: 3Rank: 3

积分
281
QQ
2008-9-25 07:17:00 显示全部楼层 |阅读模式
第三张PPT的总分程序出错,望高手修改。第一张,第二张分别是5道各4个选项的选择题,没出错,第三张的总分程序不会写了。
完形填空.rar (107.75 KB, 下载次数: 126)
PPT学习论坛
回复

使用道具 举报

13

主题

227

帖子

32

幻币

一流武者

Rank: 3Rank: 3

积分
280
QQ
2008-9-25 08:45:55 显示全部楼层
无极看了一下你的代码,是对象错误,请检查左边对象栏中的对象是否与你代码中的对象名一至。另外你统计总分的代码在多张幻灯片时不一定能成功,因为另一张幻灯片中的选择可能会改变前面的选择。当然,你可以把每张幻灯片中的cj2.Caption(它是不变的)值相加即为总分,不过在实际应用中,我们不会在每张幻灯片上都设置一个统分按钮和分值标签。
提几点建议:
(1)使用选项控件数组,方便操作和计数
(2)插入一个标准模块,在模块中设置一个全局的计算正确数的计数器,把每张幻灯片中的正确选择都写入这个计数器,然后就可以在统分幻灯片中利用它统分。
(3)判断一个选择是否正确的代码放在选项控件的Change事件中,把结果写到全局计数中。
现在没有时间来帮你修改代码,回去后再看看,明天会上传修改后的附件。
PPT学习论坛
回复 支持 反对

使用道具 举报

15

主题

209

帖子

44

幻币

一流武者

Rank: 3Rank: 3

积分
272
QQ
2008-9-25 08:59:23 显示全部楼层
修改后的代码在附件中.
完形填空.rar (58.52 KB, 下载次数: 38)
PPT学习论坛
回复 支持 反对

使用道具 举报

20

主题

216

帖子

57

幻币

一流武者

Rank: 3Rank: 3

积分
296
QQ
2008-9-25 10:28:22 显示全部楼层
我感到十分荣幸,能得到无极VBA老师的详尽的解答,你的作品我早就下载学习了,没放过你的每一个作品。我对VBA ppt 很感兴趣,但是没学过VBA,凭着我懂几个英文,略知一二。 THANKS . 希望无极能出多些与教学有关的PPT VBA作品供我们使用。
PPT学习论坛
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册