第8讲 第7章 过程2

' 部分过程代码略
c= Str(gcb(a, b)) ' 调用函数过程gcd
' 部分过程代码略 End Sub 根据参数传递方式的不同，可以把参数分为按 值传递和按地址传递两种。
2012-10-13 机械工业出版社 7
第7章-过程7.4.2 来自传递与地址传递1．按值传递
如果过程定义中，在形参前面加上了关 键字ByVal，则该参数采用按传值方式进 行参数传递。在调用过程时，系统将实 参值复制到一个临时存储单元中，并将 临时单元与形参结合，完成实参把值传 递给形参的使命。
10 20
2000H 2002H ...
形参 x=110 → 形参y=6600→
110
3100H
6600 3102H ...
图7-11(a) 过程调用前的实参
2012-10-13
机械工业出版社
图7-11(b) 过程调用中的形参
13
第7章-过程
7.4.2 值传递与地址传递 2．按地址传递
按地址传递是系统默认的参数传递方式。按地 址传递是当调用过程时，系统将实参的地址传 给形参，使形参和实参具有相同的地址，也就 是说，形参和实参共享同一存储单元，这就意 味着对形参的任何操作变成了对相应实参的操 作，实参的值会随过程体内对形参的改变而改 变，即按地址传递是双向的。
2012-10-13 机械工业出版社 17
图7-12 【例7-9】的运行结果
第7章-过程
7.4.2 值传递与地址传递 （2）子过程temp调用时形参x和y获得了实参a 和b的地址，即形参x和实参a使用同一存储单 元，形参y和实参b使用同一存储单元，实参a 和b的值10和20就是给形参x和y的值，并将形 参x的值10加100得110保存在形参x和实参a共 用的存储单元中，再将形参x的值110乘60得 6600保存在形参y和实参b共用的存储单元中。
（2）调用子过程temp时，系统给此过程的形参x和y在 内存中分配临时存储单元，并将实参a和b的值10和 20复制了一份后，分别传递给了形参x和y。
2012-10-13 机械工业出版社 12
第7章-过程
7.4.2 值传递与地址传递
（3）在子过程temp内，执行语句x = x + 100和y = x * 60后，形参 x的值改变为110，形参y的值改变为6600，如图7-11(b)所示。 （4）过程调用结束时，形参x和y所占用的临时存储单元同时被释 放，而实参a和b的存储单元仍保留原值10和20，如图7-11(c)所示。
编写程序代码如下：
Public Function sum (b () As Integer) As Integer ' 形参数组b不能带有维数
Dim i%, x%
2012-10-13 机械工业出版社 23
第7章-过程
7.4.3 数组参数的传递 x=0
For i = LBound(b) To UBound(b)
2012-10-13 机械工业出版社 14
第7章-过程
7.4.2 值传递与地址传递 【例7-8】按地址传递举例。
Sub temp(x As Integer, y As Integer)
' x和 y是形参，按地址传递
x = x + 100 y = x * 60
Print "调用过程中的参数：", "x="; x, "y="; y
20
第7章-过程
7.4.3 数组参数的传递 1．形参数组的要求
（1）一般不声明数组的大小，但不能省略括号， 其格式如下：
形参数组名() As 类型 （2）形参是数组时，只能采用地址传递方式， 即定义形参数组时，前面不能加ByVal关键字。 （3）在过程体内，可以使用LBound函数和 UBound函数来确定形参数组的下标变化范围。
2012-10-13 机械工业出版社 25
第7章-过程
7.4.4 对象型参数的传递
Visual Basic 允许对象，即窗体或控件作为过 程的参数。在有些情况下，可大大简化程序设 计，提高编程效率。 如果使用窗体作为形参，其类型为Form，而 对应的实参应为窗体的名称。
形参x=110
内存 地址 110 2000H
2000H 2002H ... 实参b=6600 形参y=6600
6600 2002H ...
6600 2002H ...
图7-13(a) 过程调用前的实参
图7-13(b) 过程调用中的形参
图7-13(c) 过程调用后的实参
2012-10-13
机械工业出版社
内存 地址 内存 地址 内存 地址 实参a=10→ 实参b=20→ 10 20 2000H 2002H ... 3100H 3102H ... 图7-11(c) 过程调用后的实参
实参a=10→
实参b=20→
10
20
2000H
2002H ... 3100H 3102H ...
实参 a=10 →
实参 b=20 →
Private Function gcb(x As Integer, y As Integer) As Integer
' 过程代码略
End Function
2012-10-13 机械工业出版社 6
第7章-过程
7.4.1 形参和实参 Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
' 用Lbound和Ubound函数确定实参数组的下界和上界
If b(i) < 0 Then x = x + b(i) End If Next i sum = x End Function
2012-10-13 机械工业出版社 24
第7章-过程
7.4.3 数组参数的传递
Private Sub Form_Click() Dim a%(10), s%, i% Print "数组中的各元素为：" For i = 1 To 10 a(i) = Int(Rnd * 100) - 50 Print a(i); Next i Print 图7-15 【例7-11】运行结果 s = sum(a()) ' 调用时使用数组作为实参 Print "数组中所有负整数之和为："; s End Sub 程序的运行结果如图7-15所示。
2012-10-13 机械工业出版社 8
第7章-过程
7.4.2 值传递与地址传递 被调过程的操作是在形参自己的临时存储单 元中进行的，当过程调用结束时，形参所占 用的临时存储单元也同时被释放。因此，在 过程体内对形参所作的任何变动，都不会影 响到实参，即按值传递是单向的。
2012-10-13
机械工业出版社
Call temp(a, b)
End Sub
' a和 b是实参
Print "调用后实参： ", "a="; a, "b="; b
2012-10-13
机械工业出版社
11
第7章-过程
7.4.2 值传递与地址传递
程序的运行结果如图7-10所示。
可以看出：
图7-10 【例7-8】运行结果
（1）调用子过程temp之前，实参a和b在内存中对应 的存储单元分别存放着10和20，如图7-11(a)所示。
End Sub
Private Sub Form_Click()
Dim a As Integer, b As Integer a = 10
2012-10-13 机械工业出版社 10
第7章-过程
7.4.2 值传递与地址传递 b = 20
Cls
Print "调用前实参： ", "a="; a, "b="; b
机械工业出版社
2012-10-13
3
第7章-过程
Private Function JieCheng(n%) As Long Dim s As Long, i% s=1 For i = 1 To n s=s*i Next JieCheng = s End Function
2012-10-13 机械工业出版社 4
2012-10-13
机械工业出版社
18
第7章-过程
7.4.2 值传递与地址传递
（3）在子过程temp内，执行语句x = x + 100和y = x * 60后，形参x的值改变为110，形参y的值 改变为6600。因为形参x和实参a共享一个存储 单元，形参y和实参b共享一个存储单元，所以， 实参a和b的值也随之分别改变为110和6600， 如图7-13(b)所示。
End Sub
2012-10-13 机械工业出版社 15
第7章-过程
7.4.2 值传递与地址传递
Private Sub Form_Click()
Dim a As Integer, b As Integer
a = 10 b = 20 Cls Print "调用前实参： ", "a="; a, "b="; b
2012-10-13 机械工业出版社 2
第7章-过程
2、Private Sub Form_Click() Dim n%, i%, s As Long Do n = Val(InputBox("请输入一个5～10范围内的自然数")) Loop While n < 5 Or n > 10 For i = 1 To n s = s + JieCheng(i) Next Print "1!+2!+……+" & n & "!=" & s End Sub