递归的感悟
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
以上是关于递归的感悟的主要内容,如果未能解决你的问题,请参考以下文章