本章主要内容通用过程Su.pptVIP

Private Sub Form_Load() Dim n As Integer, m As Double Show n = Val(InputBox(输入1～15之间的整数)) If n 1 Or n 15 Then MsgBox 错误数据, 0, 检查数据 End End If m= fac(n) Print n; != ; m End Sub Private Function fac(n) As Double If n 1 Then fac = n * fac(n - 1) 递归调用 Else fac = 1 n=1时，结束递归 End If End Function 说明：当n1时，在Fac过程中调用Fac过程，然后n减1，再次调用Fac过程，这种操作一直持续到n=1为止。例如，当n=3时，求Fac(3)变成求3×Fac(2)，求Fac(2)变成求2×Fac(1)，而Fac(1)为1，递归结束。以后再逐层返回，递推出Fac(2)及Fac(3)的值 注意，在某次调用Fac过程时并不是立即得到Fac(n)的值，而是一次又一次地进行递归调用，到Fac(1)时才有确定的值，然后通用过程逐层返回中依次算出Fac(2)、Fac(3)的值 Form_Load过程 m=Fac(3) Fac过程 调用 Fac(3)值 为6 参数n为3 Fac=3*Fac(2) Fac过程 调用 Fac(2)值 为2 参数n为2 Fac=2*Fac(1) Fac过程 调用 Fac(1)值 为1 参数n为1 Fac=1 递归调用过程(n=3) 求两个正整数n和m的最大公约数，解题方法见例5.8 也可采用递归调用方法来求解，递归终止条件是余数为0 Private Sub Form_Load() Show m = Val(InputBox(输入m的值)) n = Val(InputBox(输入n的值)) Print m; 和; n; 的最大公约数是：; gys(n, m) End Sub Private Function gys(n, m) p = n Mod m If p = 0 Then 终止条件 gys = m Else gys = gys(m, p) m→n,p→m,再调用 End If End Function 例7.10 用递归方法求两个正整数n和m的最大公约数 变量的作用域(空间)和生存期(时间) 7.4.1 代码模块的概念 应用程序通常包括窗体文件(.frm)、模块文件(.bas)和类模块(.cls) 应用程序 工程文件 (.vbp) 窗体模块 文件(.frm) Sub 过程 Function 过程 事件 过程 声明 部分 类模块 文件(.cls) 标准模块 文件(.bas) Sub 过程 Function 过程 声明 部分 Sub Main 过程 7.4 变量的作用范围 变量根据所处的位置或被定义不同，其作用范围也不同 局部变量、模块级变量和全局变量 1. 局部变量 在一个过程内部用Dim或Static声明的变量称为局部变量。只能在本过程中有效。在一个窗体中，不同过程中定义的局部变量可以同名。例如，在一个窗体中定义