7.3 递归及变量作用域.ppt

上节课复习 知识要点 7.5 递归过程（难点） 如果在嵌套调用的过程中调用的是过程自身，这种过程也叫递归过程。 递归是一种十分有用的程序设计技术。由于很多的数学模型和算法设计方法本来就是递归的。比如：求阶乘，求指数等。 用递归过程描述它们比用非递归方法 简洁易读，可理解性好， 算法的正确性证明也比较容易 2. 递归算法的结构 递归算法的表达式通常由一个递归式和一个初始（或边界）条件式组成。 例如： 求N! 裴波拉契数列 1 n=1 F(n)= 1 n=2 F(n-2)+F(n-1) n≥3 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 End Function 调用阶乘的程序 Private Sub Form_Click( ) Dim N as Integer, F as Long N = InputBox(“输入一个正整数”) F=fact(N) Print N;”!=“;F End Sub 练一练:1 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)窗体打印几行，每行结果是什么？ 课堂练习: 题目：求数列前n项之和。数列表达式为 4. 无限递归 Private Sub Command1_Click() Dim n As Integer n = 1 Call dg(n) End Sub Private Sub dg(n As Integer) call dg (n + 1) End Sub 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 递归真题实例 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 7.6 变量的作用域 变量的作用域 “变量的作用域”指的是变量的“有效范围”或“作用范围”。只有在该范围内，变量才有意义。 根据说明变量的语句及说明位置，变量可分为： 过程级变量（局部变量） 模块级变量 全局变量 Option Explicit Dim TestString As String Private Sub Form_ Activate () Debug.Print 在Form_Activate 事件过程中; TestString Call ShowTestString End Sub Private Sub Form_Load() TestString = 测试变量作用域 End Sub Private Sub ShowTestString() Debug.Print 在过程ShowTestString 中; TestString End Sub 例子 教材P147 全局变量的缺点：容易造成错误 Option Explicit Public X As Integer, Y As Integer, Z As Integer Private Sub Form_Activate() Conflict_X Debug.Print X,Y 和 Z 是, X, Y,