第六章 过程1

10
4.子过程与函数过程区别：
(1)函数过程名有值，有类型，在函数体内至少赋值一次； 例：MyReplace = s 子过程名无值，无类型，在子过程体内不能对子过程名赋值
(2)调用时，子过程调用是一句独立的语句。 例： F1 (1, 2)
函数过程不能作为单独的语句加以调用，必须参与表达式运算 (3)一般当过程有一个函数值，使用函数过程较直观； 反之若过程无返回值，或有多个返回值，使用子过程较直观。
e
area (x!,
f
y!,
g
z!)
Public Function area(x!, y!, z!) As Single Dim c! c = 1 / 2 * (x + y + z) area = Sqr(c * (c - x) * (c - y) * (c - z)) End Function
8
3.4.2
11
【例】 3.15 分别编一计算某级数部分和的子过程和函数过程， 并调用。（p102,V6J06-04）
x x 级数为： x 1 ... ... 2! n!
函数过程实现求部分级数和
Function jishu1(x!, eps#) As Double Dim n%, s#, t# n = 1: s = 0: t = 1 Do While (Abs(t) >= eps) s = s + t t = t * x / n n = n + 1 Loop jishu1 = s
End Function
f1 = jishu1(2#, 0.000001) ' 调用函数过程 Call jishu2(f2, 2#, 0.000001)‘ 调用子过程 或 jishu2 f2,2#,0.00001
3.4.3 参数传递
指主调过程的实参传递给被调过程的形参。
1. 传址与传值
传址： 形参得到的是实参的地址，当形参值的改变同时也改变实参的值。 传值： 形参得到的是实参的值，形参值的改变不会影响实参的值。 【例】 3.16 两个变量的交换。(p103,V6J06-05)Sub Swap2(x%, y%) Sub Swap1(ByVal x%, ByVal y%) t% = x: x = y: y = t t% = x: x = y: y = t End Sub End Sub Private Sub Command1_Click() 传地址 ByVal 传值 a% = 10: b% = 20: Swap1 a, b '传值 a a Print "A1="; a, "B1="; b 实参 10 10 a = 10: b = 20: Swap2 a, b '传址 x x Print "A2="; a, "B2="; b End Sub
18
3. 静态变量
局部变量声明： Dim 声明，随过程的调用而分配存贮单元，每次调用都对变量 初始化；过程体结束，变量的内容自动消失，存储单元释放。 Static 声明，每次调用过程，变量保持原来的值。 声明形式：Static 变量名 [AS 类型] Static Function 函数过程名([参数列表]) [As 类型] Static Sub 子过程名[(参数列表)] 过程名前加Static，表示该过程内的局部变量都是静态变量。 【例】 3.19 (p107,V6J06-09) Private Function sum(n As Integer) Private Sub Form_Click() Dim j As Integer Dim i% ，isum% j=j+n For i = 1 To 5 sum = j isum = sum(i) End Function Print isum Next i End Sub 结果为：1，2，3，4，5 Static j As Integer，结果？
9
2.子过程的定义
Sub 子过程名[(参数列表)] 局部变量 / 常数定义 语句 [Exit Sub] 语句 End Sub Sub F1 (x !, y !) Dim t#, s% ...
End Sub
3.子过程的调用
或
子过程名 [参数列表] Call 子过程名 (参数列表)
F1 1 , 2 Call F1 (1 , 2)
Visual Basic 6.0
程序设计
生物医学工程系：汪冬
Email:wd_lulu@
Phone:65485551-3394
3.4
3.4.1 3.4.2 3.4.3 3.4.4
过
程
函数过程的定义和调用 子过程的定义和调用 参数传递 变量、过程的作用域
2
过
程
用户自定义过程将功能模块定义为一个个过程，供事 件过程多次调用。
无参数时，函数过程名后的括号不能省略，这是函数过程的标志。
4. 函数名 = 返回值
在函数体内至少对函数名赋值一次
5. [Exit Function] ： 表示退出函数过程 引例（V6J06-01）: Public Function area(x!, y!, z!) As Single 6
3.函数过程的调用
用户自定义过程： 以Sub保留字开始的为子过程； √ 以Function保留字开始的为函数过程； √ 以Property保留字开始的为属性过程； 以Event保留字开始的为事件过程。
3
3.4.1
函数过程的定义和调用
a
S1
b
S2
1. 引例（V6J06-01）
已知多边形的各条边的长度，要计算多边形的面积。 计算多边形面积，可将多边形分解成若干个三角形。 g S3 e 计算三角形面积的公式如下： f 1 area c(c x)(c y)(c z) c ( x y z ) x
调用形式：函数过程名([参数列表]) 参数列表：实参或实元，它必须与形参个数相同， 位置与类型一一对应 。可以是同类型的常量、变量 、表达式。
7
程序运行的流程 ：
Sub command1_click() …… 输入若干个三角形边长 S=area(a,b,c)+area(c,d,e) S=S+area(e,f,g) Print S End Sub
3.4.4 变量பைடு நூலகம்过程的作用域
作用域：变量、过程随所处的位置不同，可被访问 的范围。
1.过程的作用域 窗体/模块级：加Private关键字的过程，只能被 定义的窗体或模块中的过程调用 全局级：加Public关键字（缺省）的过程，可供 该应用程序的所有窗体和所有标准模块中的过程调 用
15
2. 变量的作用域
函数过程的不足：
子 过 程
（1）不是为了获得某个函数值，而是为了某种功能的处理，如例1.1。 （2） 要获得多个结果。
1.引例（v6j06-03）
编写一个两个数交换的过程供多次调用。 Swap (x,y)子过程的定义 主调程序调用Swap子过程 Public Sub Swap(x, y) Private Sub Form_Click() Dim t Dim a, b t=x a = 10 x=y b = 20 y=t Call Swap (a, b) End Sub Print "a=";a,"，b="; b End Sub
调用tim,求 t1
a
i 1
5
i
和 t 2 bi
i 3
8
(p103,V6J06-07)
Function tim(a() As Integer) 调用： Dim t#， i% Sub Command1_Click() t=1 Dim a%(1 To 5)，b%(3 To 8) For i = Lbound(a) To Ubound(a) … t = t * a(i) t1# = tim(a()) Next i t2 #= tim(b()) tim = t Print t1， t2 End Function End Sub
小结
1）当某变量必须为其他窗体/模块调用时，使用 全局变量 2）同理，必须在过程间调用变量时，使用窗体/ 模块级变量 3）由于不同的过程中允许存在相同名称变量， 且互不相干，故为利于程序调试，可使用局部 变量 4）当需重复调用某过程，又要求保留调用后的 变量值时，采用静态变量
20
局部变量：在过程内用声明的变量，只能在本过程中使用 窗体/模块级变量：在“通用声明”段中用Dim或用Private 声明的变量,可被本窗体 / 模块的任何过程访问 全局变量：在“通用声明”段中用Public语句声明的变量， 可被本应用程序的任何过程或函数访问
16
例如在下面一个标准模块文件中不同级的变量声明： Public Pa As integer ' 全局变量 Private Mb As string *10 ' 窗体/模块级变量 Sub F1( ) Dim Fa As integer ' 局部变量 … End Sub Sub F2( ) Dim Fb As Single ' 局部变量 … End Sub
2
n
xn 精度为： eps n!
子过程实现求部分级数和
Sub jishu2(s#, x!, eps#)
Dim n%, t# n = 1: s = 0: t = 1 Do While (Abs(t) >= eps) s = s + t t = t * x / n n = n + 1 Loop
End Sub
5
注意：
1. 函数过程名：命名规则与变量命名规则相同。
2. As类型：函数返回值的类型，若类型说明默认，则返回变 体类型值。
3. 参数列表形式: [ByVal]变量过程名[( )][As 类型]