第4章 函数与过程

4‰Ô 数与过 Ž> 与过 数 Ž>
现 教 术
JOEL
录
4.1
过
编写与调
4.2
参数传递
4.3
•ö‚G 设计 块
4.4
…D …D 结
现代教
技术
JOEL
教学重点
Sub过程及Function过程的定义与调用 过程调用中数据的传递。
现代教
技术
JOEL
利用过程的优点
大程序分成若干小过程，便于调试；
过程可使程序划分成离散的逻辑单元，每个单元都比无过程 的整个程序容易调试。
用户自定义的过程有4种： Sub 过程：无返回值 Function 过程：有返回值 “Property”保留字开始的为属性过程 “Event”保留字开始的事件过程
现代教 技术
JOEL
事件过程
（1）窗体事件的语法 ） Private Sub Form_事件名 参数列表 事件名(参数列表 事件名 参数列表) 语句组＞ ＜语句组＞ End Sub （2）控件事件的语法 ） Private Sub 控件名 事件名 参数列表 控件名_事件名 参数列表) 事件名(参数列表 语句组＞ ＜语句组＞ End Sub
现代教
技术
JOEL
编写一个计算矩形面积的Sub过程，然 过程， 例 编写一个计算矩形面积的 过程 后调用该过程计算矩形面积
Private Sub Form_Click() Dim a, b a = InputBox("请输入矩形的长") a = Val(a) b = InputBox("请输入矩形的宽") b = Val(b) recarea a, b End Sub Sub recarea(rlen, rwid) Dim area area = rlen * rwid MsgBox "矩形面积为" & area End Sub
现代教
技术
JOEL
调用Function过程 调用 过程
调用形式如下： 调用形式如下： 函数名（实参列表） 函数名（实参列表） 说明： 说明： 在调用时实参和形参的数据类型、顺序、 在调用时实参和形参的数据类型、顺序、个数必 须匹配。函数调用只能出现在表达式中，其功能是求 须匹配。函数调用只能出现在表达式中， 得函数的返回值。 得函数的返回值。
Private Sub Swap(x%,y%) Dim temp% Temp=X X=Y Y=Temp End Sub
现代教 技术
JOEL
例 编一个交换两个整型变量值的子过程
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
现代教
技术
JOEL
Function过程 过程
Sub过程不直接返回值，可以作为独立的基本语句调 用，而Function过程要返回一个值 格式如下:
[Static][Private][Public]Function 函数名 (参数表列 [As类型 函数名[ 参数表列 参数表列)] 类型] 类型
<语句块 语句块> 语句块 [函数名 表达式 函数名=表达式 函数名 表达式] [Exit Function] <语句块 语句块> 语句块 End Function
Private限定所编制的函数只限于在本窗体中被调用； Public声明该函数可以被其他窗体、模块调用；选项 Private是缺省值。Static声明函数名以及函数中声明的 局部变量都是静态变量。
参数的定义有2种形式：ByVal是按值传递的，过程调用时实 参的值不随形参的值变化而改变；缺省或ByRef是按地址传 递的，过程调用时实参的值随形参值的改变而改变。
s=1 For I = 1 To x s=s*In
现代教 技术
JOEL
4.1.1 函数过程的编写与调用
在VB中，的Sub子过程分为：事件过程和通用过程,事 件过程由系统提供，发生某件事情（如Click、Load、 Change)时，做出相应的程序段。 在Visual Basic中可以使用两类通用过程，其中由 Sub…End Sub定义的过程叫做子过程或Sub过程，而 由Function…End Function定义的过程叫做函数过程 或Function过程，与Sub过程不同的是Function函数 过程将返回一个值 。
现代教
技术
JOEL
Private Function Prime(n As Integer) As Boolean Prime( 函数名为prime，形参为n Dim k%,Yes As Boolean 函数名为prime，形参为n，由调用 Yes=True 处的实参向其传送需判断的数值。 For k = 2 To Int(Sqr(n)) Int(Sqr(n)) If n Mod k = 0 Then Yes=False : Exit For 函数返回值(函数名prime的值) 函数返回值(函数名prime的值) Next k 应为Boolean类型：n 应为Boolean类型：n是素数则 Prime = Yes End Function 返回True，否则返回False。 返回True，否则返回False。 Private Sub Form_Click() Form_Click() Dim a As Integer a = Val(InputBox(“输入一个正整数N=”)) Val(InputBox( 输入一个正整数N=” If prime(a) Then Print a；“是素数” a； 是素数” Else Print a；“不是素数” a； 不是素数” End If 编制函数过程，用于判断1 编制函数过程，用于判断1个整数是否是素数。 End Sub
程序中重复的段落放在单个过程中，可以调用。
一个程序中的过程，往往不必修改或只需稍作改动，便可以 成为另一个程序的构件,减少代码的重复。
现代教
技术
JOEL
Private Sub Form_Click() Form_Click() Dim sum As Double, n As Integer, m As m ! Integer C= m = Val(InputBox("Enter data m :", Val(InputBox("Enter n!(m − n)! "Enter data", 15)) n = Val(InputBox("Enter data n :", Val(InputBox("Enter "Enter data", 10)) sum = fac(m) / (fac(n) * fac(m - n)) Form1.Print "sum="; sum Function fac(x As Integer) As Double End Sub Dim s As Double, I As Integer
现代教 技术
JOEL
4.3.2 变量作用域
局部量 模块级量 全局量 局部量 在事件、函数、Sub过程中用Dim语句声明的变量(包 括数组)，或用Const语句声明的符号常量是局部量。 局部量的作用域限于它们所在的过程，而不能被其他 过程引用。 它们是不同的变量，作用域限于各自所在的过程。
说明： 说明：
1）在函数体内，函数名可以当变量使用，函数的返回值就是通 ）在函数体内，函数名可以当变量使用， 过对函数名的赋值语句来实现的， 过对函数名的赋值语句来实现的，在函数过程中至少要对函数名 赋值一次。 赋值一次。
现代教
技术
JOEL
3）AS类型：是指函数返回值的类型，若省略，则函数 ） 是指函数返回值的类型， 是指函数返回值的类型 若省略， 返回变体类型值（ 返回变体类型值（Variant）。 ）。 4）Exit Function：表示退出函数过程，常常是与选择 表示退出函数过程， ） 表示退出函数过程 结构（ 或 语句） 结构（If或Select Case语句）联用，即当满足一定 语句 联用， 条件时，退出函数过程。 条件时，退出函数过程。
传值是单向传递数据 传值是单向传递数据！
传地址则是双向传递数据 传地址则是双向传递数据
Private Sub CmdOK_Click() ！ Dim a%,b% a = 10: b = 20 Swap1 a, b ‘传 值 Print "A1="; a, "B1="; b a = 10: b = 20 Swap2 a, b '传地址 Print "A2="; a, "B2="; b End Sub
现代教 技术
JOEL
4.1.2 调用Sub过程 调用 过程
子过程的调用 参数列表] 子过程名(参数列表 参数列表) 子过程名 [参数列表 或 Call 子过程名 参数列表 参数列表 说明： 说明： 称为实参或实元， （1）参数列表称为实参或实元，它必须与形参保持个数相同， ）参数列表称为实参或实元 它必须与形参保持个数相同， 位置与类型一一对应。 位置与类型一一对应。 （2）调用时把实参值传递给对应的形参。其中值传递（形参 ）调用时把实参值传递给对应的形参。其中值传递（ 前有ByVal说明）时实参的值不随形参的值变化而改变。而地址 说明） 前有 说明 时实参的值不随形参的值变化而改变。 传递时实参的值随形参值的改变而改变。 传递时实参的值随形参值的改变而改变。 （3）当参数是数组时，形参与实参在参数声明时应省略其维 ）当参数是数组时，形参与实参在参数声明时应省略其维 但括号不能省。 数，但括号不能省。 关键字时， （4）调用子过程的形式有两种，用Call关键字时，实参必须 ）调用子过程的形式有两种， 关键字时 加圆括号括起，反之则实参之间用“ 分隔。 加圆括号括起，反之则实参之间用“，”分隔。 调用上面定义的Swap子过程的形式： 子过程的形式： 例：调用上面定义的 子过程的形式 Swap a,b Call Swap(a,b) 1