找回密码
 立即注册
搜索

能核对答案拖放式填空的 VBA编程错误

7
回复
722
查看
[复制链接]

8

主题

202

帖子

16

幻币

一流武者

Rank: 3Rank: 3

积分
217
QQ
2016-4-12 13:20:11 显示全部楼层 |阅读模式
那位同志能帮我改正一下这个PPT的核对答案编程错在哪?未拖放前,点击页面答案本该是错的,但却反馈出是对的,编程错在哪呢?
PPT学习论坛
回复

使用道具 举报

15

主题

203

帖子

44

幻币

一流武者

Rank: 3Rank: 3

积分
258
QQ
2016-4-12 14:35:25 显示全部楼层
源程序已被你改动,所以无法正常运作。
英文的极限很大,待我有空,才把答案安排在两行。
cloze.rar (152.72 KB, 下载次数: 74)
PPT学习论坛
回复 支持 反对

使用道具 举报

17

主题

219

帖子

39

幻币

一流武者

Rank: 3Rank: 3

积分
268
QQ
2016-4-12 15:32:26 显示全部楼层
一定要帮我哦, 我真的很喜欢这种效果.
两年前我就提出了,可是一直每人帮我.
PPT学习论坛
回复 支持 反对

使用道具 举报

21

主题

205

帖子

61

幻币

一流武者

Rank: 3Rank: 3

积分
272
QQ
2016-4-12 15:32:38 显示全部楼层

Cloze2.rar (160.75 KB, 下载次数: 223)
PPT学习论坛
回复 支持 反对

使用道具 举报

12

主题

210

帖子

44

幻币

一流武者

Rank: 3Rank: 3

积分
267
QQ
2016-4-12 15:54:15 显示全部楼层
源程序修改为:
If UBound(s) < 5 Then
      nCol = (UBound(s) + 1)
      LMarg = (sldWid - tWidth * nCol)  (nCol + 1)
      RowGap = 0
    Else
      nCol = (UBound(s) + 1) / 2
      LMarg = (sldWid - tWidth * nCol)  (nCol + 1)
      RowGap = 20
    End If
PPT学习论坛
回复 支持 反对

使用道具 举报

22

主题

231

帖子

67

幻币

一流武者

Rank: 3Rank: 3

积分
316
QQ
2016-4-12 15:58:12 显示全部楼层
多谢,也祝老师家庭美满幸福。我等了两年的心愿终于实现了!
PPT学习论坛
回复 支持 反对

使用道具 举报

15

主题

229

帖子

30

幻币

一流武者

Rank: 3Rank: 3

积分
267
QQ
2016-4-12 17:13:50 显示全部楼层
谢谢黄老师的分享!
PPT学习论坛
回复 支持 反对

使用道具 举报

16

主题

212

帖子

57

幻币

一流武者

Rank: 3Rank: 3

积分
291
QQ
2016-4-12 17:27:48 显示全部楼层
好好学习,谢谢了
PPT学习论坛
回复 支持 反对

使用道具 举报

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