vb过程(1)

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