递归的感悟

Posted zhanglei1371

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了递归的感悟相关的知识,希望对你有一定的参考价值。

 求n阶乘的VB函数过程。  
Private Function F( byval n As Integer ) As long  
    If n=1 Then  
        F=1  
    Else:  
        F=n*F(n-1)  
    End If  
End Function  
让我们来跟踪这个程序的计算过程,令n=4调用这个函数,用下面的形式来表示递归求解的过程:  
(1)F(4)=4×F(3)      n=4调用函数过程F(3)  2)F(3)=3×F(2)      n=3调用函数过程F(2)  3)F(2)=2×F(1)      n=2调用函数过程F(1)  4)F(1)=1             n=1求得F(1)的值  5)F(2)=2×1=2       回归,n=2,求得F(2)的值  6)F(3)=3×2=6       回归,n=3,求得F(3)的值  7)F(4)=4×6=24      回归,n=4,求得F(4)的值求
 
Private Function Fibo(ByVal n As Integer) As Integer  
                    函数的返回值为第n个斐波那契数  
    If (n=0) Then  
        Fibo=0  
    ElseIf n=1 Then  
        Fibo=1  
    Else: Fibo=Fibo(n-1)+Fibo(n-2)  
    End If  
End Function  
  
Dim q, le, ss  
Sub 排列组合()  
On Error Resume Next  
ss = ""  
strA = "运行下看"  
le = Len(strA)  
    处理 strA, le  
MsgBox ss  
End Sub  
Function 处理(strA, le)  
    For i = 1 To Len(strA)  
        a = Mid(strA, i, 1)  
        sy = Left(strA, i - 1) & Right(strA, Len(strA) - i)  
        q = q & a  
     If Len(q) = le Then  
     ss = ss & q & Chr(13)  
     End If  
        处理 sy, le  
    Next  
q = Left(q, Len(q) - 1)  
End Function  
  
  
Sub sdf()  
    a = "中文论坛"  
    l = Len(a)  
    For i = 1 To 4  
        For j = 1 To 4
Function F(n)  
    If n = 1 Then  
        F = 1  
        Else:  
        F = n * F(n - 1)  
    End If  
      
End Function  
Function e(n)  
    If n = 1 Then  
        e = 1  
    Else  
        e = e(n - 1) + F(n)  
    End If  
End Function
Sub sdf()  
    a = "中文论坛"  
    l = Len(a)  
    For i = 1 To 4  
        For j = 1 To 4  
            For k = 1 To 4  
                For l = 1 To 4  
                    If Mid(a, i, 1) <> Mid(a, j, 1) And Mid(a, i, 1) <> Mid(a, k, 1) And Mid(a, i, 1) <> Mid(a, l, 1) And Mid(a, j, 1) <> Mid(a, k, 1) _  
                    And Mid(a, j, 1) <> Mid(a, l, 1) And Mid(a, k, 1) <> Mid(a, l, 1) Then  
                    Debug.Print Mid(a, i, 1) & Mid(a, j, 1) & Mid(a, k, 1) & Mid(a, l, 1)  
                    End If  
                Next  
            Next  
        Next  
    Next  
  
  
End Sub  
双重递归  
Sub 计算阶乘和() 1!+2!+3!+…+n! ;使用双重递归完成  
    Debug.Print e(5)  
End Sub  
  
  
  
  
word表格转为分数:  
Dim s  
Sub sdf()  
s = ""  
Dim ta As Table, ro As Row  
Dim ta1 As Table  
    Set ta = Me.Tables(1)  
    处理 ta, s  
    s = "eq " + Replace(s, Chr(13), "")  
    ta.Delete  
Selection.InsertAfter s  
Application.Run "insertfieldchars"  
Selection.Fields.Update  
End Sub  
Function 处理(ta As Table, s)  
    For i = ta.Rows.Count To 1 Step -1  
        If ta.Rows(i).Cells(1).Tables.Count > 0 Then  
            For j = 1 To ta.Rows(i).Cells(1).Tables.Count  
                处理内表 ta.Rows(i).Cells(1).Tables(1)  
            Next  
            i = i + 1  
        Else  
                m = Replace(ta.Rows(i).Cells(1).Range.Text, Chr(13) & Chr(7), "")  
                If s = "" Then  
                    s = m  
                Else  
                    s = "\f(" + m + "," + s + ")"  
                End If  
            End If  
        Next  
    End Function  
Function 处理内表(ta As Table)  
    处理 ta, s  
    ta.Select  
    ta.Delete  
    Selection.TypeText s  
    s = ""  
End Function  
    
Excel 如何用递归将嵌套表中数字换成分数形式?-Word-ExcelHome技术论坛 -  http://club.excelhome.net/forum.php?mod=viewthread&tid=1177443  

 

以上是关于递归的感悟的主要内容,如果未能解决你的问题,请参考以下文章

关于递归算法学习的点滴感悟

Github的学习过程和使用感悟

二叉树感悟

JavaScript - 代码片段,Snippets,Gist

刷题感悟- Binary Tree Path Sum

executePendingTransactions 的递归入口