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

weishi · 发表于 2009-9-27 22:58

那位同志能帮我改正一下这个PPT的核对答案编程错在哪？未拖放前，点击页面答案本该是错的，但却反馈出是对的，编程错在哪呢？

ngcg · 发表于 2009-9-28 09:19

源程序已被你改动，所以无法正常运作。
英文的极限很大，待我有空，才把答案安排在两行。

cloze.rar (152.72 KB, 下载次数: 20)

weishi · 发表于 2009-9-28 10:46

一定要帮我哦, 我真的很喜欢这种效果.
两年前我就提出了,可是一直每人帮我.

ngcg · 发表于 2009-10-2 13:23

Cloze2.rar (160.75 KB, 下载次数: 41)
已按你的构思修改，希望这是你所要的。
祝你中秋节快乐。

ngcg · 发表于 2009-10-2 13:45

源程序修改为：
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

weishi · 发表于 2009-10-2 23:18

多谢，也祝老师家庭美满幸福。我等了两年的心愿终于实现了！

tangqingfu · 发表于 2011-4-13 18:14

谢谢黄老师的分享！

qazxsw21 · 发表于 2011-4-14 16:32

好好学习，谢谢了

		自动登录	找回密码
密码			免费注册

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