13-第6章-过程-3

• 递归调用执行的二个重要过程
– 递推 – 回归
• 注意
– 递归隐含着循环 – 递归编程，一定要有递推结束的条件，否则会出现死循环
• 使用递归编程必须满足的条件
– 当前的问题与上一个问题相似 – 上一个问题比当前问题简单
5
2.递归过程
• 递归编程示例
① 求阶乘 N！(P146)
N!
1
当N=0或N=1时
A
B
C
7
3.变量的作用域
• 过程级变量
– 在过程中用Private或Dim定义的变量 – 只在过程内有效
• 模块级变量
– 在模块的通用声明段，用Private或Dim定义的变量 – 模块内的所有过程均可访问 – 模块级变量在整个模块中有意义
• 全局变量
– – – – 在标准模块中，用Public定义的变量 工程内的所有过程均可访问 全局变量在整个程序中有意义 注意：全局变量有副作用，应慎重使用
17
6. 创建和设置启动过程
• 创建启动过程
– 新建标准模块，并在其中定义启动过程 Sub Main – 方法：“工程”=》“添加模块”=》定义启动过程Sub Main – 启动过程例： Public Sub main() Form2.Show End Sub
• 设置启动过程
– “工程”=》“工程属性”=》通用页中的“启动对 象”=》选择 启动过程
– 无参数：Call 过程名 – 有参数：Call 过程名（参数表）
• 直接语句调用过程
– 无参数：过程名 – 有一个参数：过程名（参数） – 有二个以上参数： 过程名 参数1，参数2，..
3
1.过程的几种调用
• 以函数形式或者语句形式调用函数
– – – 无参数：函数名 有参数：函数名（参数1） 有参数：函数名 参数1,参数2，。。。
N*(N-1)! 当N>1时
② 用递归方法求二个数的最大公约数（P154）
1.R=m mod n 2.若R=0 则Gcd=n 3.否则Gcd=Gcd(n,R)
6
2.递归过程
• 递归编程示例
③ 梵塔问题
• 从A搬到C • 一次搬一个 • 任何情况满足 • 上小下大 1. A上的N-1个盘 => B 2. A上的第N个盘 => C 3. B上的N-1个盘 => C
第6章 过程
（三）
苏州大学计算机学院 陈建明
jmchen@
1
主要内容
1. 2. 3. 4. 5. 6. 过程的几种调用 递归过程 变量的作用域（作用范围） 同名变量 静态变量 创建和设置启动过程
2
1.过程的几种调用
• 过程的几种调用
– 调用方式 – 嵌套调用 – 递归调用
• 用Call 语句1的窗体文件 Form1.frm
Option Explicit Public gbf As String „gbf是在窗体模块 Form1中定义的全局变量 Private Sub Form_Load( ) gbf=“gbf是在Form1中定义的全局变量” End Sub Private Sub Form_Click( ) Print “在窗体 Form1中打印:” Print “gba 变量内容：”; gba Print “gbf 变量内容：”; gbf Print Form2.Show End Sub
8
模块级变量示例
• Option Explicit • Dim TS1 As String • Private Sub Form_Load() • TS1 = "测试变量作用域" • End Sub • Private Sub Form_Activate() • Print "在Form_Activate事件过程中"; TS1 • Call ShowTt1 • End Sub • Private Sub ShowTt1() • Print "在过程ShowTS1中"; TS1 • End Sub
12
4. 同名变量
• 在变量的不同定义点，可以定义同名变量 • 同名变量是变量名相同的不同变量 • 在访问同名变量时，当不同作用域的同名 变量发生冲突时，优先访问局限性大的变 量 • 变量的限定访问方式
– 模块名.变量名 – 模块名.过程名.变量名
13
同名变量示例
• Option Explicit • Public x As Integer, y As Integer, z As Integer • Private Sub Form_Load() • x = 10 • y = 20 • z = 35 • End Sub • Private Sub Form_Activate() • call P1 • Print "x,y,z="; x, y, z • End Sub • Private Sub P1 • Dim x As Integer • x = 135 • Print "x,y,z="; x, y, z • End Sub
9
全局变量示例
• 标准模块文件 Moudle1.bas
– – – – – – – – Option Explicit Public gba As String '在标准模块中定义的全局变量 Private Sub Main() 'Sub Main 是启动对象 gba = "gba是在Moudle1.bas中定义的全局变量" Load Form1 Load Form2 Form1.Show End Sub
无参数：Call 函数名 有参数：Call 函数名（参数表）
• • •
用Call 语句调用函数
– –
过程的嵌套调用
–
– –
在过程体中调用另一个过程，这种情况称为过程的嵌套调用
逐级调用 逐级返回
4
嵌套调用的执行过程
2.递归过程
• 过程的递归
– 在一个过程体中出现调用自已，这种情况称递归 – 直接递归：自已直接调用自己 – 间接递归：通过调用其它过程来调用自已
14
同名变量示例
• • 运行结果：
x,y,z=135 20 x,y,z=10 20 35 35
上例中在窗体模块Form1.frm中声明了一个全局变量x; 在通用过程P1中声明了一个局部变量x ① 在通用过程P1内部引用x时，访问的是局部变量（不专 门指明时，优先访问局限性大的变量） ② 而在该通用过程之外引用变量x时，所访问的是全局变 量 ③ 如要在通用过P1内部引用全局变量x时，需指明全局变 量所在模块 – 如：Print Form1.x
18
编程举例
• 08春等级考试上机题
19
上机实验11
1.教材P159第1-（4）题 2.教材P160第2题（用递归做） 3.教材P160第7题（用递归做）
20
„调标准模块中的全局变量 „调本窗体模块中的全局变量
11
全局变量示例
• 窗体2的窗体文件 Form2.frm
Option Explicit Private Sub Form_Click( ) Print “在窗体 Form2 中打印” Print “gba 变量内容”; gba Print “gbf 变量内容”: Form1.gbf End Sub
15
5. 静态变量
• 一般变量（用DIM、Public、Private定义 的变量）在退出定义点的过程或模块后， 其值不再保留，变量无意义 • 静态变量在退出定义点的过程或模块后， 变量有效，其值仍然保留 • 定义静态变量的关键字为：Static
16
静态变量示例
Private Sub Command1_Click() Dim k As Integer k=5 Call Static_Variable(k) Print “第一调用:K=”; k k=5 Call Static_Variable(k) Print “第二次调用:K=”; k End Sub Private Sub Static_Variable( n As Integer) Static Sta As Integer Sta = n + Sta n = Sta + n End Sub