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

aoe1981

最后一个值得注意或标记的事项是：
本来对图形对象的方法、属性就不甚了解，学习这些知识主要靠了宏录制和查看帮助。期间，比较令人烦恼的是，在2010中即使保存为2003文件格式，录制到的图形对象操作的宏语句还是与2003中的有差别的，我一开始做的附件在2010中，拿到2003中一试，有些宏录制的图形对象操作的语句不能运行或者是运行后完全不是那么回事！
为此特意在代码中保留了两行多余的代码，如下：
    For i = 1 To 3
        zb2(i, 1) = zb1(n, 1) + zb1(n, 3) / 2 + (zb1(n, 3) + ljj) * (i - 1): zb2(i, 3) = zb2(i, 1)
        zb2(i, 2) = zb1(1, 2) - 60: zb2(i, 4) = zb1(n, 2) + h * 2
       '.Shapes.AddConnector(msoConnectorStraight, zb2(i, 1), zb2(i, 2), zb2(i, 3), zb2(i, 4)).Name = Chr(64 + i)'2010录制
        .Shapes.AddLine(zb2(i, 1), zb2(i, 2), zb2(i, 3), zb2(i, 4)).Name = Chr(64 + i) '2003录制
        .Shapes(Chr(64 + i)).Select
        With Selection.ShapeRange
            .Line.Weight = 4
            '.Line.ForeColor.ObjectThemeColor = msoThemeColorText1'2010录制
            .Line.ForeColor.SchemeColor = 64 '2003录制
            .ZOrder msoSendToBack
        End With
    Next i
蓝色部分来自2010中宏录制，在2003中运行会出错，反倒相应下面的语句，录制自2003中，高低版本通用！
这作为测试得到的一个高低版本差别对比知识吧。

aoe1981

香川动画演示附件中的下列功能值得学习：
“2、演示中按下ESC即可快速进行到底。”

也不知能不能在我的附件思路中成功套用，抽空一定研究、试用下。

作为下一个问题。

aoe1981

另外：关于标题中的“强势”字眼，本身就是一个主观色彩、感情色彩很强的词语，从严密的逻辑来说，不具有精确的特点，须正视之。

或许，正解应当是：追求一种广告效应以及一种暂时满足的兴奋感。

就代码核心而言，最有力的部分仍是香川的递归汉诺塔代码，非常赞同5楼朋友的看法：递归是个好办法。学习递归，至少可以看懂些，会套用，确实很方便，或许换作以前，比如，我回复香川《经典汉诺塔游戏》一帖的早期时候，的确是办不到的。

在此，向各路真大侠们致以敬意！！！

向你们学习，道路很远！！！

mmwwdd

我也是多年来才明白递归的原理，实际讲课老师应该多讲讲在怎样递归，我买了一本数学书《数列，递推，递归》

mmwwdd

后来又买了《大话数据结构》

mmwwdd

实际学生不明白是如何递归

mmwwdd

讲课时都没讲明白

mmwwdd

现在我明白了

mmwwdd

我当时是学专业的计算机，但在讲《数据结构》时，老师并不太热心，只是应付，如果说数据结构是计算机基础的话，我会好好学的

aoe1981

mmwwdd 发表于 2014-11-29 15:12
我当时是学专业的计算机，但在讲《数据结构》时，老师并不太热心，只是应付，如果说数据结构是计算机基础的 ...

确实，想来，美好而珍贵的学习时代总是有些许遗憾……那就趁现在，以不至于浪费太多的有效年华……