VBA编程-创建递归过程

时　间:2022-11-03 07:50:10
作　者:福哥(QQ86053924)   ID：1784  城市：成都
摘　要:过程只有有限的空间量供变量使用。 过程每次调用自身时，都会有更多空间被占用。 调用自身的过程称为递归过程。 不断调用自身的递归过程最终会导致错误。
正　文:

过程只有有限的空间量供变量使用。 过程每次调用自身时，都会有更多空间被占用。 调用自身的过程称为递归过程。 不断调用自身的递归过程最终会导致错误。 例如：

VBA复制

Function RunOut(Maximum)

 RunOut = RunOut(Maximum)

End Function

当两个过程无限期地相互调用或者永远无法满足某个用于限制递归的条件时，此错误可能不太明显。 递归确实有它自己的用途。 例如，以下过程使用递归函数计算因子。

VBA复制

Function Factorial(N)

    If N <= 1 Then '已到达递归调用的结尾。

        Factorial = 1 '（N=0）所以返回结果

    Else '如果N>0，请再次调用Factorial。

        Factorial = Factorial(N - 1) * N

    End If

End Function

应测试递归过程以确保它不会太多次调用自身从而导致内存不足。 如果出现错误，请确保您的过程没有无限期地调用它自身。 随后，尝试通过以下方法节省内存：

·         消除不必要的变量。

·         使用除 Variant 之外的 数据类型。

·         重新评估过程逻辑。 通常可以用嵌套循环代替递归。