1、实际应用中的大部分应用软件都很庞大，需要多个人共同合作完成程序的编写。将所有代码都写在一起，不仅不利于多人合作，也不便于修改和维护。经验表明，要开发和维护一个大的应用程序，最好的方法就是分而治之（divide and conquer），即将大的应用程序分解为小的彼此之间相对独立的程序块，这称为结构化编程的程序设计方法。使用这种方法可以很大程度地简化大型应用程序的设计、开发和维护。本章我们就来介绍VB.NET中的两种类型的通用过程，即Sub子过程和Function函数过程。6.1 什么是过程6.2 Sub子过程6.3 Function函数过程6.4 为过程传递参数过程是一条或多条语句组成的语句块
2、，通常按照逻辑组织起来，能够完成一定的任务。VB.NET中的过程主要有Sub子过程和Function函数过程两种。一般来说，应用程序中的每行代码都处于某个过程中，如Main、Button1_Click等。可以提高程序的可读性。过程代码可以重用。一个过程在创建之后，可以在程序的任何一个地方调用。使得应用程序更容易调试、修改和维护。更便于多人协同合作开发。Public：被该修饰符修饰的过程称为公共过程，可以在应用程序的任何地方被访问。Private：被该修饰符修饰的过程称为私有过程，仅能由声明该过程的类或者模块访问。Shared：被该修饰符修饰的过程称为共享过程，不与声明该过程的类的实例相关联，可
3、以通过类名来直接访问。Protected：被该修饰符修饰的过程称为受保护过程，仅能由声明该过程的类及其派生类访问。Friend：被该修饰符修饰的过程称为友元过程，可以由包含该过程声明的应用程序中的任何类或者模块中访问。Protected Friend：被该修饰符修饰的过程称为受保护的友元过程，可以从同一程序集、声明该过程的类及其派生类中访问。Sub子过程由关键字Sub开头，End Sub结尾，其语法格式如下。访问修饰符 Sub 子过程名(参数列表)过程体 End Sub 子过程名是将要创建的子过程的名称，其命名规则同变量命名规则，采用字母和下划线开头，由字母、数字和下划线组成。参数列表是在子过
4、程中使用的参数，个数可以是0个或者多个。该项可选，如果不止一个参数，则使用逗号分开。参数的传递有传值和引用两种，详见6.4节。过程体则是组成该过程的语句集合。Step1：新建VB.NET项目，单击菜单栏中的【文件】【新建项目】命令，在【模板】列表框中选择【Windows窗体应用程序】，在【名称】文本框中输入“Greeting”。Step2：进行窗体界面设计。Step3：创建Greeting子过程。1 Sub Greeting(ByVal name As String)2 Dim msg As String3 If name Then4 msg=Glad to meet you,&name&!5
5、 Else6 msg=You havent tell me your name yet!7 End If8 MsgBox(msg,0,Best Wishes!)9 End SubStep4：调用过程Greeting。1 Private Sub btn_OK_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles btn_OK.Click2 Greeting(tb_name.Text)3 End Sub过程定义包含过程头、过程体和End Sub关键字。过程头由Sub关键字开始，后跟过程名，之后是一对圆括号括起
6、来的形参列表。形参列表中包含对形参变量的声明。如果有多个参数，则用逗号分割。过程调用采用“过程名（实参列表）”的形式。对于过程头形参列表中每一个形参来说，调用时都必须有一个实参与之相对应，二者类型必须一致，即实参的值能够赋值给相应的形参变量。当然，实参也可以是常量或者表达式，只要类型与形参一致即可。Function函数过程简称函数，由关键字Function开头，End Function结尾，其基本结构如下。Function 函数名(参数列表)As 返回值类型函数体 End Function二者唯一不同的地方在于，Function函数的参数列表之后比Sub子过程多了一项As 返回值类型。这是因为
7、，Function函数允许函数体运行结束后，向调用过程返回一个结果，称为返回值，其类型由As 返回值类型来定义。Function函数有且仅有一个返回值。Step1：新建VB.NET项目，选择Windows窗体应用程序，并命名为FactorialCalculator。Step2：窗体设计。Step3：编写用于计算阶乘的Function函数Fac。1 Function Fac(ByVal n As Integer)As Long2 Dim result As Long3 result=14 Do While n 05 result=result*n6 n=n-17 Loop8 Fac=result
8、9 End Function Step4：调用Fac函数。1 Private Sub btn_Calculate_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles btn_Calculate_Click2 tb_result.Text=Fac(Val(tb_num.Text)3 End Sub函数定义包含函数头、函数体和End Function关键字。函数头由Function关键字开始，后跟函数名，之后是一对圆括号括起来的形参列表。形参列表中包含对形参变量的声明。如果有多个参数，则用逗号分割。形参列表
9、后面是关键字As 返回值类型，用于定义函数返回值的类型。函数调用采用“变量名=函数名（实参列表）”的形式。实参和形参也必须一一对应。与Sub子过程不一样的地方在于，由于Function函数有返回值，因此在调用时需要将该值赋值给某个变量。注意，该变量类型应该与函数返回值类型一致。Sub子过程和Function函数都可以有零到多个形参，在实际调用的时候需要由实参与之一一对应，这个过程就称为参数传递。通常，可以通过两种方式把实参传递给过程，即按值传递（也称为传值）和按引用传递（也称为传地址），因此参数可以分为值类型参数（以ByVal关键字标识）和引用类型参数（以ByRef关键字标识）两种。VB.NE
10、T中的参数默认都是ByVal类型的。当实参按值传递时，仅仅是将实参的值赋值给形参变量。在被调用过程中，对该形参变量的修改不会影响到调用过程中实参变量的值。与此相反，当实参按引用传递时，被调用过程可以直接访问甚至修改实参变量。Swap1，参数采用按值传递Sub Swap1(ByVal x As Short,ByVal y As Short)Dim t As Short t=x x=y y=tEnd SubSwap2，参数采用按引用传递Sub Swap2(ByRef x As Short,ByRef y As Short)Dim t As Short t=x x=y y=tEnd Suba=10b
11、=20 Swap1(a,b)MessageBox.Show(a=&a.ToString()&;b=&b.ToString()a=10b=20 Swap1(a,b)MessageBox.Show(a=&a.ToString()&;b=&b.ToString()？XSwap1采用的是按值传递，被调用时，实参a将值10传递给形参变量x，实参b将值20传递给形参变量y。在过程内部，x和y的值进行了交换，即x值变为20，y值变为10，但是此次交换并没有影响到被调用过程中变量a和b的值。因此，Swap1过程调用结束后，a和b的值没有发生变化。而Swap2采用的是按引用传递，被调用时，实参a将变量a地址传递
12、给形参变量x，实参b将变量b的地址传递给形参变量y。此时，变量a和变量x指向同一个内存单元，变量b和变量y指向同一个内存单元。之后在过程内部，x和y的值进行了交换。由于x和y分别指向变量a和b的内存单元，因此此次交换也同时影响到了被调用过程中变量a和b。因此，Swap2过程调用结束后，a和b的值成功的进行了交换。按值传递方式，仅传递变量的值，实参变量和形参变量分别指向内存中的不同空间。而按引用传递方式，传递的是变量的地址，实参变量和形参变量指向内存中的同一个空间。10 10 a x 10 a x 如果要将子过程中的运算结果返回调用过程，参数传递时应该选用传地址方式；此时实参必须是同类型的变量名
13、，而不能是常量或表达式。形参是数组、自定义类型、对象等数据时，必须使用传地址方式。除此之外，通常使用传值方式，以减少被调过程和调用过程之间的关联。在定义过程的时候，可以指定过程的参数是可选的，即在调用该过程时，不需要为这些可选的参数提供实参与之对应。其中，可选参数由关键字Optional指明。下面的代码是一个计算乘积的函数Multi，其第3个参数是可选参数。1 Function Multi(ByVal fir As Integer,ByVal sec As Integer,Optional ByVal third As Integer=1)As Integer 2 Return fir*sec
14、*third 3 End Function下面的代码调用Multi函数计算两个数的乘积。1 Dim Result As Integer 2 Result=Multi(10,20)下面的代码调用Multi函数计算三个数的乘积。1 Dim Result As Integer 2 Result=Multi(10,20,30)通常，调用过程时传递的参数个数不能超出过程声明指定的数目，那么，如果在过程声明的时候参数个数并不确定，需要在调用该过程的时候才能确定参数个数，能否实现呢？比如如何实现一个能够计算多个整数乘积的Multi函数？这样的过程我们称为可变参数过程。VB.NET对于可变参数过程的实现，采用
15、参数数组的方式，即不单独声明每个参数，而是声明一个参数数组，允许过程接受一组值作为参数。其中参数数组使用关键字ParamArray声明。下面的代码声明了一个使用参数数组的Multi函数。1 Function Multi(ByVal ParamArray numbers()As Integer)As Integer 2 Dim n,x As Integer 3 n=1 4 For Each x In numbers 5 n=n*x 6 Next x 7 Return n 8 End Function下面的代码调用该函数计算任意多个整数的乘积。Dim Result As IntegerResult
16、=Multi(2,4,6,7,8)下面的代码将数组传递给参数数组。Dim a As Integer()=new Integer(5)2,3,6,7,8Result=Multi(a)在调用Sub或Function过程时，可以按位置传递参数（即按照参数出现在过程定义中的顺序）或者按名称传递参数，而不考虑位置。按名称传递参数时，指定参数的声明名称，后接冒号（：）和等号（=），后面是参数值。可以按照任意的顺序提供命名参数。下面代码是一个带有三个参数的Sub过程。1 Sub studentInfo(ByVal name As String,_ 2 Optional ByVal age As Short=
17、0,_ 3 Optional ByVal birth As Date=#1/1/2000#)4 5 Debug.WriteLine(Name=&name&_ 6 ;age=&CStr(age)&_ 7 ;birth date=&CStr(birth)8 End Sub可以按位置传递参数（以逗号分隔）来调用studentInfo过程，代码如下。studentInfo(Mary,19,#9/21/1981#)如果在一个按位置排列的参数列表中省略可选参数，必须用逗号保留它的位置。下面的示例调用了没有age参数的studentInfo过程。studentInfo(Mary,#9/21/1981#)另一种方法是，可以按名称传递参数（同样以逗号分隔）来调用studentInfo过程，代码如下。studentInfo(age:=19,birth:=#9/21/1981#,name:=Mary)在单个过程调用中，可以同时按位置和按名称提供参数，代码如下。studentInfo(Mary,birth:=#9/21/1981#)
