7.4 递归、作用域复习和实例.ppt

练一练: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)窗体打印几行，每行结果是什么？ 递归真题实例 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 Str