强势发布：再做VBA汉诺塔动画演示

mmwwdd

人生，总不能重来，就是命运

aoe1981

　　发现了香川汉诺演示动画附件的一个秘密：
　　

　　我只是将其复位过程代码做了一下小注释：

1. Sub Reset()
   
2.     n = Range("E1")
   
3.     For i = 0 To 26
   
4.         t = Chr(i \ 9 + 65) & "_" & (i Mod 9 + 1)
   
5.         ActiveSheet.Shapes(t).Visible = True 'IIf(i < n, True, False)
   
6.     Next
   
7. End Sub

复制代码

　　原来，这个演示最大可以做9个金片吧，虽然吧在复制粘贴大于9的数值时会由于找不到图形对象报错，但其有效性最大数值比我的8考虑得还要宽，呵呵，可谓“四两拨千斤”！

aoe1981

香川演示附件中所谓金片的移动，其实是一种视觉上的假象，通过控制在三个塔上的圆图形对象的显示与隐藏替代性地实现了“移动”……

这个思路也是极好的，我可以事先在正视图中设好三根针，以及最多9＊3＝27个金片，然后用代码控制其显示与隐藏，不过，此种思路下，估计针得分截显示，否则，可以想到的是，当金片数少时，针的下面会空出许多，感觉此时金片似乎是飘在上面的……

呵呵，怪不得是那样简洁的代码……

aoe1981

目前不得其解的是：香川演示附件中按下ESC键后，到底对正在执行的代码产生了什么样的影响？为什么看不到这些相关的代码？到底是如何做到的呢？

aoe1981

写了一小段测试代码：

1. Sub ss()
   
2. For i = 1 To 100
   
3. Application.Wait Now() + TimeValue("00:00:01")
   
4. j = j + i
   
5. Next i
   
6. Range("a1") = j
   
7. End Sub

复制代码

猜测下：估计这个在代码执行过程中按下ESC改变代码运行时间的操作是针对wait的，如果是其他估计不行吧……

aoe1981

比如下面代码，按死了ESC，也是没有啥反应的：

1. Sub ss()
   
2. For i = 1 To 100
   
3.     For k = 1 To 2000
   
4.         DoEvents
   
5.     Next k
   
6.     j = j + i
   
7. Next i
   
8. Range("a1") = j
   
9. End Sub
   

复制代码

看来，这个效果只能针对wait了，只是wait的缺点是不能达到毫秒级别的等待……

aoe1981

又回过头测试了下liulang0808的演示附件，我从一开始就非常喜欢他的直观形象，只是在我的电脑上，当金片数输入为5个及以上时，就会进入假死状态：“未响应”，于是中间的动态演示过程便看不到了，直到代码执行完后，出现最终结果……不知道大家可否遇到过类似的问题，也可能是我的电脑慢的缘故吧……

lm1221

三个都看了，赏心悦目，应该会对递归的理解有好处吧，还没认真去学习递归，信心不足，老感觉逾越不了，呵呵！

aoe1981

lm1221 发表于 2014-11-30 11:06
三个都看了，赏心悦目，应该会对递归的理解有好处吧，还没认真去学习递归，信心不足，老感觉逾越不了，呵呵 ...

我是被这个帖子领进门的，经典递归例子（简单的）：一个是阶乘，一个是汉诺塔，搞明白这两个应该算是入门了……
http://club.excelhome.net/thread-217298-1-1.html

liulang0808

兄弟给力啊，很好