vb过程

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