第7章 过的程.ppt

7.1 过程概述 过程（或称为子程序）是完成特定功能的一组程序代码，它以一个名字来标识，用此名字来实现调用。 过程主要分两类：一类是由系统提供，包括内部函数与事件过程；另一类是用户根据需要自定义的过程（通用过程），它可以单独的创建，提供给事件过程或其他的通用过程调用。其中内部函数与事件过程在其他章节中介绍，在此只介绍通用过程。 7.2 Function过程 在VB中，函数分为内部函数和外部函数。内部函数是系统预先编制的、能完成常用的、特定功能的程序代码，而外部函数是用户根据需要通过Function定义的过程，它的代码就是实现函数功能的，并且将得到一个值（函数值）。 7.2.1 函数过程的定义 1．Function过程定义的格式 [Static]|[Private]|[Public]Function 过程名[（参数列表）][As 类型]过程体（函数体） [语句组] [过程名=表达式] [Exit Function] [语句组] End Function 2．说明 （1）Function过程以Function开头，以End Function结束，之间的程序代码是实现函数功能的程序语句序列。 （2）过程名也称之为函数名，它的命名规则与变量名相同，不允许与系统保留字同名。 （3）Static、Private、Public的含义如下： ① Static：指定本函数过程中的局部变量在内存中的默认存储方式。 ② Private：指定本函数过程是私有（函数）过程，表明它只能被本模块中的其它过程所访问，而不能被其它模块中的过程所访问。 ③ Public：指定本函数过程是公有（函数）过程，可以被本程序中的任何过程调用。 （4）参数列表：包含了在调用时与主调过程之间需要进行数据传递的变量名或数组名。参数列表的格式如下： [ByVal|ByRef]变量名[（）][As 类型][，[ByVal|ByRef]变量名[（）][As 类型]……] （5）过程的定义不允许出现嵌套定义，即不能在一个过程体内再定义另一个过程。 （6）As类型：函数过程名的类型的，即定义本函数值的类型。 （7）过程体：过程体中是实现函数（过程）功能的代码。在函数过程体中，一般是至少需对过程名赋值一次，最后一次执行的赋值即是本函数的函数值。若未对过程名赋值，或虽然有此赋值语句，但是未执行，那么此函数值为0或空串（根据函数的类型确定）。 例如： Function BinarySearch(Lower As Integer,Upper As Integer) As Boolean … If Lower=Upper Then BinarySearch=True Exit Function Else BinarySearch=False End If … End Function 【例7.1】编写一个计算两个数据x与y的最大公约数（gcd）的函数过程。 程序如下： Function gcd(Byval x as Integer,Byval y As Integer) As Integer Do While y0 r=x Mod y x=y y=r Loop gcd=x End Function 例如计算1+2+…+n=10000的最小n值： Function jsn(x As Integer) As Integer Dim i As Integer, y As Integer i = 1 y = 0 Do While True y = y + i If y = x Then jsn = i 将计算结果返回 Exit Function 中途退出 End If i = i + 1 Loop End Function 7.2.2 Function过程的调用 Function过程的调用比较简单，它可以像使用vbVB的内部函数一样来调用Function过程。实际上，Function过程就是一个函数，它与内部函数并无什么区别，只不过内部函数由系统提供，而Function过程是由用户根据需要由自己定义的。 【例7.2】设计求任意整数n的阶乘的函数，并计算从3到9的阶乘之和。 程序如下： Private Sub Form_Load() Show Dim i As Integer, sum As Long For i = 3 To 9 sum = sum + fact(i) Next i Print 阶乘之和为：; sum End Sub Function fact(x As Integer) As Long