《第八章函数》-精选课件(公开).pptVIP

8.5? ?递归过程 1．递归的概念 　　通俗的讲，用自身的结构来描述自身就称为“递归”。如对阶乘运算的定义就是递归的：　　 n!=n(n-1)!???? (n-1)!=(n-1)(n-2)! 2．递归子过程和递归函数 ?? 　VB 允许一个自定义子过程或函数过程在过程体的内部调用自己，这样的子过程或函数就叫递归子过程和递归函数。递归过程包含了递推和回归两个过程。构成递归的条件是： 　（1）递归结束条件和结束时的值 （2）能用递归形式表示，并且递归向结束条件发展。 递归实例 Private Sub Command1_Click() Dim n As Integer n = 1 Call dg(n) End Sub Private Sub dg(n As Integer) dg (n + 1) End Sub 3．注意事项 　（1）递归算法设计简单，但消耗的上机时间和占据的内存空间比非递归大（2） 设计一个正确的递归过程或函数过程必须具备两点：1）具备递归条件；2）具备递归结束条件（3） 一般而言，递归函数过程对于计算阶乘、级数、指数运算有特殊效果。 递归练习 Private Function fact(ByVal n As Integer) As Long If n = 0 Or n = 1 Then fact = 1 Else fact = n * fact(n - 1) End If Print fact End Function N=3 Fact(3)=3*fact(2) Fact(2)=3*fact(1) fact(1) =1 Print fact(3) Print fact(2) Print fact(1) 1 2 6 Private Sub Command1_Click() Dim n As Integer n = 1 Call dg(n) End Sub Private Sub dg(n As Integer) print n If n 3 Then Exit Sub Else dg (n + 1) End If End Sub Private Function f (ByVal n As Integer) As Long If n = 0 Or n = 1 Then f = 1 Else f = f(n-2)+ f (n - 1) End If Print f End Function 主调程序中：x＝f(3)窗体打印几行，每行结果是什么？ 递归实例 Option Explicit Private Sub Form_Click() Dim a As Integer a = 2: Call sub1(a) End Sub Private Sub sub1(x As Integer) x = x * 2 + 1 If x 10 Then Call sub1(x) End If x = x * 2 + 1: Print x End Sub 3、Private Sub Command1_Click() Dim s As String s = LAUSIV Text1.Text = d (s, Len(s)) End Sub Private Function d (s As String, l As Integer) As String If l 1 Then d = d (s, l - 1) s = Left(s, l - 1) Right(s, 1) Mid(s, l, Len(s) - l) d = s Print d End Function 8.6? 变量、过程的作用域 1、过程的作用域 2、变量的作用域 * * Private Sub Command1_Click() Dim n As Integer n = 1 Call dg(n) End Sub Private Sub dg(n As Integer) If n 10 Then Exit Sub Else dg (n + 1) End