vb过程

与子过程一样，可以在“代码编辑器”窗口中直 接输入代码来创建函数过程，也可以使用“添加过 程”对话框来创建函数过程，只是在选择类型时要 选择“函数”。
例如，以下函数RectArea可计算并返回矩形的面 积：
Private Function RectArea(a As Single, _
b As Single) As Single
'求阶乘（N!）的函数过程 Private Function jc(N As Integer) As Long Dim i As Integer, p As Long p = 1 For i = 1 To N p = p * i '累乘 Next jc = p '对函数名赋值，返回函数值 End Function
4.3.2 传址
按地址传送时传送的是实参的地址，在调用时，被调用 过程直接将接受到的地址里的值进行修改，从而实参值被改 变。所以执行完调用语句后，实参的值将会有所改变。 按址传递形参的语法特点： • 形式变量前没有修饰词；
【例4】编写一个计算矩形面积的Sub过程，然后调用该过程计算矩形 面积。 Private Function rectArea(a As Single, b As Single) As Single RectArea = a * b End Function Private Sub Form_Click() Dim a As Single, b As Single, s as single a = Val(InputBox("请输入矩形长度?")) b = Val(InputBox("请输入矩形宽度?"))
第4章
过程
4.1 子过程的定义和调用 4.2 函数过程的定义和调用 4.3 参数传送 4.4 过程的作用域
4.5 递归
【例】1!+2!+3!+……n!
将多次被重复使用的程序段设计成一个 具有一定功能的独立程序段，即为通用过程。
4.1 子过程
4.1.1 子过程的定义
4.1.2 子过程的调用
例7：求1！～n！之和
Public Function fac(n%) As Integer fac = 1 For i = 1 To n fac = fac * i Next i End Function 分析： Private Sub Command1_Click() (1)函数过程： Dim sum as integer,k As integer 完成求任一数n！ For k = 1 To 5 (2)Command1_Click中： Sum = Sum + fac(k) 各阶乘值的累加,和 Next 函数调用及输出 print Sum
1. 通用过程的语法格式
通用过程的语法格式如下： [Public | Private] [Static] Sub 过程名([形参表]) [局部变量或常数声明] [语句块] [Exit Sub] [语句块] End Sub Public可选的。表示所有模块的所有其它过程都可访问这个 Sub 过程。 Private可选的。表示只有在包含其声明的模块中的其它过程可以访问该 Sub 过程。 Friend可选的。只能在类模块中使用。表示该 Sub 过程在整个工程中都是可见的， 但对对象实例的控制者是不可见的。 Static可选的。表示在调用之间保留 Sub 过程的局部变量的值。
在VB中，的Sub子过程分为：事件过程和通用 过程 1. 事件过程 （1）窗体事件的语法 Private Sub Form_事件名(参数列表) ＜语句组＞ End Sub
（2）控件事件的语法 Private Sub 控件名_事件名(参数列表) ＜语句组＞ End Sub
4.1.1 通用过程的定义
2. 通用过程的创建
创建通用过程有两种方法：使用“添加过程”对话 框；直接在代码编辑器窗口中输入过程代码。 （1）使用“添加过程”对话框创建。 （2）直接在代码编辑器窗口中输入。
图 【添加过程】对话框
图 过程模板
【例1】
编一个交换两个整型变量值的子过程。
Private Sub Swap( X As Integer, Y As Integer) Dim temp As Integer Temp=X : X=Y : Y=Temp End Sub Private Sub command1_click() Dim a%,b% a=val(inputbox(“a=“)) b=val(inputbox(“b=“)) print “a=“;a,”b=“,b call swap(a,b) print “a=“;a,”b=“,b End Sub
多边形的的面积
area c(c x)(c y )(c z ) 1 c ( x y z) 2
【例6】计算1～10阶乘之和。运行结果如图所示。 思路：首先编制一个求阶乘（N!）的函数过程，在窗体的 单击事件中调用此过程，依次求出1!、2!…10!的值，并将 其累加。 代码如下：
RectArea = a * b End Function
a
【例3】计算多边形的面积
g
S1 c e
b S2 d
如： Public Function area(x!,y!,z!) As Single c=0.5*(x+y+z) area=sqr(c*(c-x)*(c-y)*(c-z)) End Function 注意： • 函数不能作为独立语句使用调用，必须与其他成分结 合使用 • 实参列表中的参数个数、位置和类型与形参一一对应
Private Sub Form_Click()
'单击窗体
Dim Sum As Long, i As Integer
'在循环中调用函数过程求1～10的阶乘并累加 For i = 1 To 10
Sum = Sum + jc(i)
Next Print " 1!+2!+...+10! ="; Sum End Sub '显示结果
4.1.2 子过程的调用
子过程的Sub与End Sub之间的语句序列称为过程体， 每次调用子过程都会执行过程体中的语句。在程序 中，既可以调用通用过程，也可以调用事件过程。
1. 调用通用过程
调用子过程有两种方法：使用Call语句；直接使用 过程名。语法格式如下： Call 过程名[(实参表)] 或者： 过程名 [实参表]
4.3 参数传送
4.3.1 传值
4.3.2 传址
4.3.1 传值
按值传送时传送的不是实参的值，仅传送实参变量的副 本，执行完调用语句后，调用程序中的实参值不会改变。
按值传递形参的语法特点： • 在相应的形式变量前加“ByVal”关键词 如：Public Sub test(ByVal j As Integer) …… End Sub
4.2.1 函数过程的定义
函数过程的定义与子过程的定义相似。不同的是， 由于函数过程可以返回一个值，因此要在定义中加 入返回值类型说明。语法格式为：
[Private|Public] [Static] Function 函数名([形参表]) [As 类型]
[语句块] [函数名=表达式] [Exit Function] [语句块] [函数名=表达式]
调用事件过程实际上就是执行事件过程中的语句序列， 如同通用过程一样，亦可起到复用和简化代码的作用。
4.2 函数过程
4.2.1 函数过程的定义 4.2.2 函数过程的调用
Function（函数）过程也是独立的过程，可 读取参数、执行一系列语句并改变其参数的值， 这一点与前面介绍的Sub过程相同。Function过程 与子过程不同的是：子过程没有返回值，只能作 为独立的基本语句被调用，不能出现在表达式中； 而Function过程有返回值，既可以出现在表达式 中，也可以作为独立的语句被调用。
说明： （1）[Public | Private]：可选。指定过程的作用范围。若省略，则 默认为Public（全局）。 （2）Static：可选。指定本过程内的所有局部变量均为静态变量。 （3）过程名：命名规则与变量命名规则相同。无参数时，过程名后的 括号不能省略。 （4）形参表：形参表类似于变量声明，指明本过程被调用时传送给本 过程的变量个数和类型。若有多个变量，各变量之间用逗号间隔。形参 表中出现的参数称为形式参数，简称形参。每个形参的格式为： [ByVal | ByRef] 形参名[()][ As 类型] ByVal表示该参数按值传递，ByRef表示该参数按地址传递（默认）。 （5）Exit Sub语句表示立即退出子过程，通常将其置于选择结构中。 （6）在过程内不能再定义过程，但可以调用其他过程。
说明：
（1）实参表是实际参数（简称实参）列表，若有多个参数， 参数之间要用逗号间隔。各实参与形参在参数列表中的位置 相互对应，实参与对应位置的形参必须是同一类型，可以是 常数、变量、数组元素或表达式。
（2）当用Call语句调用子过程时，若有参数，则参数必须 放在圆括号内；若无参数，则省略过程名后的圆括号。 （3）若不使用Call关键字，则过程名后不能加括号。若有 参数，则参数直接跟在过程名之后，参数与过程名之间用空 格间隔，参数与参数之间用逗号间隔。
2. 调用事件过程
在程序中不仅可以调用通用过程，也可以调用事件过程， 二者的语法格式相同。
例如： '执行窗体加载事件过程中的语句 Form_Load '或：Call Form_Load '调用命令按钮cmdAdd的单击事件过程
command1_Click
'或：Call command1_Click
s= rectarea(3, 5)
Call Recarea(A, B) ‘recarea a,b’ End Sub