计算机基础与Visual Basic程序设计(第三版)第九章 过程

Sub tryout(ByRef x as integer, ByRef y as integer) x=x+100 y=y*6 print “x=“;x.”y=“;y 传址： End Sub X=110 Sub Form_click() a=110 Dim a%,b% a=10:b=20 tryout a,b Print “a=“;a,”b=“;b End Sub
例：写出下列程序的运行结果
Sub tryout(ByVal x as integer, ByVal y as integer) x=x+100 传值： y=y*6 X=110 print “x=“;x.”y=“;y End Sub a=10 Sub Form_click() Dim a%,b% a=10:b=20 tryout a,b Print “a=“;a,”b=“;b End Sub
9.1 事件过程与通用过程
VB子程序分类图
过程 VB中有两类子程序 函数 事件过程 窗体事件过程（如：Form_Click( )） 控件事件过程（如:Command1_Click( )） 通用过程（自定义过程Sub） 内部函数（如：Sin(3.14/6) ） 通用函数（自定义函数Function）
过程可以有参数，也可以不带任何参数。根据需要而定
格式为：[ByVal|ByRef]变量名[( )] [AS 数据类型][,……] ByVal 表示按值传递；ByRef 表示按地址传递 6、过程内不能再定义过程，过程定义也不能写在事件过程内
9.2 通用过程（Sub过程）
如：Sub Tryout( x as integer , y as integer)
要执行一个过程，必须调用该过程。调用的方法为： 方法1．使用Call语句 格式：Call 过程名[(实参列表)] 方法2. 将过程名作为语句使用: 格式： 过程名 <实参列表> 特点： Sub 过程的调用是一句独立的语句。 例：要调用前面的Tryout过程，可以使用下面两种方式： Call Tryout(a , b) 或 Tryout a , b
参数为数组时虚实结合示意图
可选参数和可变参数
1、 可选参数
在过程的形参列表中加入Optional关键字，就可以指定过程 的参数为可选的。如果指定了可选参数，则参数表中此参数后面 的其它参数也必是可选的，并且要用Optional关键字来声明。
例6：求两个数的和的函数过程。
lt6.vbp
函数过程： Public Function mysum (first As Integer, second As Long, Optional third ) mysum = first + second If Not IsMissing(third) Then mysum = mysum + third End Function
[ <语句块> ] [ <函数过程名> =<表达式> ] ‘ 返回值语句 [ Exit Function ] End Function 注意： • 在函数体内，函数名可以当变量名使用，函数的返回值就是通过对函数名的赋值语句来实现的。 即函数值通过函数名返回。 • 函数体中的Exit Function语句的功能是强制退出函数并返回 • 函数过程需要返回的值的类型由 As<类型> 设置。
3、 数组作过程的参数
调用时形参数组a和实参数组b虚实结合，共用一段内存单 元，如图 6-7 所示。因此在 Sort() 过程中改变数组 a 的各元素值，
也就相当于改变了实参数组 b中对应的元素的值，当调用结束
时，形参数组a成为无定义。 b(1) a(1) b(2) a(2) b(3) a(3) b(4) a(4) b(5) a(5) b(6) a(6) b(7) a(7) b(8) a(8)
y=120 b=120
3、 数组作过程的参数
Visual Basic允许把数组作为实参传送到过程中。数组作参数是通过传 地址方式传送。在传送数组时，除遵守参数传送的一般规则外，还应注意 以下几点： 1．为了把一个数组的全部元素传送给一个过程，应将数组名分别写 入形参表中，并略去数组的上下界，但括号不能省略。 Private Sub Sort(a() As single) ……
y=120 b=20
2、 按址传递——变量的引用 • 传址方式是将实参在内存的地址传递给形参，也就是实参、 形参公用内存的“地址”。 • 在VB中，按址传递数据是在形参前加上ByRef（默认方式）。 • 这种传递方式是一种双向的数据传递，即调用时实参将值传 递给形参；调用结束由形参将操作结果返回给实参。当用传 址方式时，实参只能是变量、数组名，不能是常数、表达式。 • 修改前例题 ByVal ByRef 再写其运行结果
9.3 Function 过程（自定义函数）
Function 过程 与Sub 过程 的主要区别是： Function 过程可通过函数名返回一个值到调用的过程 1、 声明 Function 过程（函数定义） 格式：
[Public|Private] [Static] Function 函数过程名 [(<参数列表>)] [As<类型>]
函数体
2、 调用 Function 过程
Function 过程的调用，与标准函数（内部函数）相同。 通常用在表达式中 格式：函数名(<实参列表>) 特点：不能独立成为语句，必须参加表达式的运算。 如1：下面是已知直角三角形两直角边的值，计算斜边的函数。 function myfun(A as integer,B as integer) as string myfun=sqr(A*A+B*B) End function Sub Command1_Click( ) a=val(text1.text) : b= val(text2.text) label1.caption=myfun( a , b) End Sub
9.4 参数传递
不同模块（过程）之间数据的传递方式：
通过全局变量实现各过程中共享数据
(即在“通用”部份定义的变量，由该模块所有过程共享)
按值传递(单向传递) 通过过程调用实参与形参的结合实现 按地址传递(双向传递)
9.4 参数传递
Sub 过程和 Function 函数过程中的 < 参数列表 > 中的参数称为形式参数（形 参），在程序中调用 Sub过程和 Function函数过程时 <参数列表 >中称为 实际参数（实参） 。 • 在调用过程时，就是把“实参”依次按位置传递给被调用过程的“形 参” ，然后执行被调用过程中的语句。参数传递时相当于给变量赋初值。 • 如： Print greatcd(x, y) Public Function greatcd(m As Integer, n As Integer)
事件过程——是对发生的事件进行处理的程序段
通用过程和通用函数——是由用户根据自己的需要定义和编写
的、可供事件过程多次调用的程序段
它们都不直接与特定的事件相关联
9.2 通用过程（Sub过程）
• Sub 过程是指以规定语法结构组织的、可以被重复调用的、具有特定功能的、相对独 立的程序段。 • Sub过程不与任何特定的事件过程相关联，只能由别的过程调用 1、 声明 Sub 过程(定义) 声明 Sub 过程就是在窗体或标准模块的代码窗口编写一个能实现预期功能的语句 块。 声明Sub过程的语法格式为： [Private | Public] [Static] Sub 过程名([<形参列表>]) [<语句块1>] [Exit Sub] 过程体 [<语句块2>] End Sub 注意： Sub 过程名无值，无类型。
x=x+100 y=y*6 Print x,y End Sub
7、建立通用过程可以使用以下两种方法：
① “工具”——”添加过程” ② 在标准模块或窗体模块中， 直接输入通用过程的代码。 8、子过程名不返回值，只能通过形式参数与调用语句通信 9、过程体中的Exit Sub 表示强制退出过程返回其中形参“a( )”即为数组。
3、 数组作过程的参数
2 ．被调过程可通过 Lbound 和 Ubound 函数确定实参数组的上、下界。 3．当用数组作形参时，对应的实参必须也是数组，且类型一致。 4．实参和形参结合是按地址传递，即形参数组和实参数组共用一段 内存单元。 例如：定义了实参数组b(1 to 8)，给它们赋了值，调用Sort()函数过程 的形式如下： Sort b( ) 或 Call Sort( b() ) 实参数组后面的括号可以省略，但为便于阅读，建议一般不要省略 为好。
第9章 过 程与函数
9.1 事件过程与通用过程
过程的定义:
在设计一个规模较大、复杂程度较高的程序时，往往根据需要按功 能将程序分解成若干个相对独立的部分，然后对每个部分分别编写一段 程序，这些程序段称为过程。
过程是构成程序逻辑部件的基本单位，将程序分割成较小的逻辑部件 可以简化程序设计任务，结构化设计就是建立在这个思路之上。 每个过程完成一个具有特定目的的任务。
说明：
1、每个通用过程都有一个过程名（由用户自己指定，规定同变量名），同一模块中过程名不得 重复。 2、过程前加上Public关键字或缺省，则该过程为全局级过程，可以被应用程序的所有窗体模块 或标准模块中的过程调用（在窗体中定义，调用时应加窗体名）。 3、过程前加上Private关键字，则该过程为模块级过程，只有在声明它的模块中才可以调用此 过程。 4、在过程名前加上Static关键字，表明该过程的变量都是静态变量。 5、形参列表是传递到过程中的变量名(多个时用“,”分隔),它指明了调用时传递给过程的参数的 类型和个数.
例2：将前面的两个Sub过程改为Function过程。 Private Function triarea(x As Double, y As Double, z As Double) Dim s As Double s = (x + y + z) / 2 triarea = Sqr((s - x) * (s - y) * (s - z) * s) End Function Private Sub Command1_Click() Dim a#, b#, c#, s#, intYesorNo% a = Val(Text1.Text) : b = Val(Text2.Text) c = Val(Text3.Text) If a + b > c And b + c > a And c + a > b Then Print " 面积 ="; triarea(a, b, c) Else intYesorNo = suberr( ) ‘ 无参数时，括号不能省略 End If End Sub