简单的递归
教学目的和要求：
1．理解递归的概念和两种递归方法。
2．掌握使用递归的理由、构成递归的两个条件及其优缺点。
3．掌握VB中递归的定义和调用的具体执行过程。
www.edudown.net
百万教学资源免费下载无需注册
递归的基础知识
在一个Sub或Function过程中调用另外一个过程，称为 过程的嵌套调用。
在过程中直接地调用自己过程，即为递归过程。包含“递推”和“回归”两部分。
分为:
直接递归和间接递归

使用递归必须具备两个条件：
1、能用递归形式表示，并且递归向结束条件发展
2、递归必须具有结束的条件
www.edudown.net
百万教学资源免费下载无需注册
典型例题分析
Private Function Fact(n As Integer) As Long
If n > 1 Then
Fact = n * Fact(n - 1)
Else
Fact = 1
End If
End Function
编写递归函数求阶乘n!
www.edudown.net
百万教学资源免费下载无需注册
www.edudown.net
百万教学资源免费下载无需注册
父过程中调用：
i ＝ fact(3)
Sub fact(n As Integer)
If n = 1 Then
fact = 1
Else
fact = n * fact(n - 1)
End If
End Function
传递3
返回6
Sub fact(n As Integer)
If n = 1 Then
fact = 1
Else
fact = n * fact(n - 1)
End If
End Function
Sub fact(n As Integer)
If n = 1 Then
fact = 1
Else
fact = n * fact(n - 1)
End If
End Function
传递2
返回2
传递1
返回1
www.edudown.net
百万教学资源免费下载无需注册
编写递归函数计算Fibonacci数列第n项的值
Private Function Fibo(ByVal n As Integer) As Long
If n <= 1 Then
Fibo = n
Else
Fibo = Fibo(n - 1) + Fibo(n - 2) '递归调用
End If
End Function
www.edudown.net
百万教学资源免费下载无需注册