介绍几个简单/经典的递归/循环迭代计算过程：

fenglingdongwdn

香川群子 发表于 2018-7-19 11:16
If n Then dgSum = dgSum(n - 1) + n
这是一个IF语句的省略形式。
实际上相当于  If n Then dgSum =  ...

谢谢老师，我之前不理解的地方就是if n，因为我一直写代码都是if n = XX 或者if n <> XX then 这下我就明白了，是不是所有的if 语句中都可以直接写变量后边不用加限定条件，系统都默认为变量的限定条件是>=1?

香川群子

fenglingdongwdn 发表于 2018-7-19 11:59
谢谢老师，我之前不理解的地方就是if n，因为我一直写代码都是if n = XX 或者if n  XX then 这下我就明白 ...

系统对于数值t的判定是：
If t=0 Then False Else True

即，非零数值，不管是整数还是小数，不管正数还是负数，都是True
只有正好=整数0值，才是False

利用这一条规则，可以简写If 判断语句

即：
If n Then → 等效于 If n<>0 Then

如果需要判断 If n=0 Then 则无法简写。

fenglingdongwdn

明白了，谢谢老师。之前用过一个你做的凑数代码解决了我的一个问题，真的是非常感谢！

fenglingdongwdn

香川群子 发表于 2018-7-19 14:17
系统对于数值t的判定是：
If t=0 Then False Else True

明白了，谢谢老师。之前用过一个你做的凑数代码解决了我的一个问题，真的是非常感谢！像我这种没有基础，从零自学的人来说，看一些代码学习解决问题有的时候挺困难的。很多时候一些常识性的东西我都看不懂，百度又不知道怎么搜索遇到的问题。

fhb197999

留个足迹，便于后续学习，谢谢分享

mx200200

好资料，十分感谢分享。

香川群子

汉诺威塔递归：
Dim k
Sub test()
    n = InputBox("n<=9", "haonoi", 5)
    [a1].CurrentRegion = ""
    [a1] = Left("123456789ABCDEFG", n)
    k = 1: Call dg(n, "A", "B", "C")
    MsgBox k
End Sub
Sub dg(n, a, b, c)
    If n = 1 Then
        Call Output(n, a, b, c)
    Else
        Call dg(n - 1, a, c, b)
        Call Output(n, a, b, c)
        Call dg(n - 1, b, a, c)
    End If
End Sub
Sub Output(n, a, b, c)
    k = k + 1
    Cells(k, a) = Mid(Cells(k - 1, a), 2)
    Cells(k, b) = Cells(k - 1, b)
    Cells(k, c) = n & Cells(k - 1, c)
    Cells(k, 4) = a & "->" & c & " " & n
End Sub

larer

一个递归的应用,请看我的帖子:http://club.excelhome.net/thread-1470105-1-1.html

ExcelHomeFM

学习理解一下，未会实际应用......

gjj136138139

这是我看到的唯一一个把汉诺塔问题解答的全过程形象的输出到电子表格上对应的A,B，C3列的程序，必须点赞！！