数据库技术与程序设计 (51).ppt

《数据库技术与程序设计 (51).ppt》由会员分享，可在线阅读，更多相关《数据库技术与程序设计 (51).ppt（21页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、过程与函数数据库技术与程序设计过程与函数 解决复杂问题时，人们通常将一个大的、复杂解决复杂问题时，人们通常将一个大的、复杂的问题分解成若干个小的、简单的问题来解决。的问题分解成若干个小的、简单的问题来解决。这种解决问题的思路称为模块化。这种解决问题的思路称为模块化。模块化容易实现分工协作，利于团队开发，可模块化容易实现分工协作，利于团队开发，可使程序更加简练，可读性更强，便于调试和维护。使程序更加简练，可读性更强，便于调试和维护。利用这种思想，利用这种思想，VBAVBA提供了模块和过程概念。提供了模块和过程概念。一个应用系统包含多个模块，一个模块可以包含多一个应用系统包含多个模块，一个模块可以

2、包含多个过程。个过程。数据库技术与程序设计过程与函数VBA过程可以细分为以下几种：以以FunctionFunction保留字开始，称为函数过程；保留字开始，称为函数过程；以以SubSub保留字开始，称为保留字开始，称为SubSub过程；过程；以以EventEvent保留字开始，称为事件过程。保留字开始，称为事件过程。以以PropertyProperty保留字开始，称为属性过程；保留字开始，称为属性过程；数据库技术与程序设计过程与函数Public Sub 组合数()Dim m As Integer,n As Integer,i As IntegerDim j,c As Longm=Val(Inp

3、utBox(please input integral number M：)n=Val(InputBox(please input integral number N(NM):)i=1:j=1 Do While i=m j=j*i i=i+1 Loop c=j i=1:j=1 Do While i=n j=j*i i=i+1 Loop c=c/j i=1:j=1 Do While i=m-n j=j*i i=i+1 Loop c=c/jDebug.Print c=,cEnd Sub例：若不借助过程的设计例：若不借助过程的设计概念，计算组合数概念，计算组合数 C C值的值的程序：程序：数据库技术

4、与程序设计过程与函数Public Sub 组合数()Dim m As Integer,n As Integer,i As IntegerDim j,c As Longm=Val(InputBox(please input integral number M：)n=Val(InputBox(please input integral number N(NM):)i=1:j=1Do While i=m j=j*i i=i+1Loopc=ji=1:j=1Do While i=n j=j*i i=i+1Loopc=c/ji=1:j=1Do While i=m-n j=j*i i=i+1Loopc=c/

5、jDebug.Print c=,cEnd Sub数据库技术与程序设计过程与函数i=1:j=1Do While i=m-nj=j*ii=i+1Loopc=c/ji=1:j=1Do While i=nj=j*ii=i+1Loopc=c/ji=1:j=1Do While i=mj=j*ii=i+1Loopc=j数据库技术与程序设计过程与函数因此因此，必须把计算阶乘的功能独立出来，使之成为，必须把计算阶乘的功能独立出来，使之成为一个子程序。将阶乘过程定义为一个子程序。将阶乘过程定义为SubSub过程，就可以过程，就可以反复调用（这就叫做反复调用（这就叫做“代码复用代码复用”）。）。数据库技术与程序设计

6、过程调用程序改写：使用Sub过程，求排列组合数。Public j As Long 公有变量，要在两个Sub中传递值，所以要在两个Sub之外声明Public Sub 组合数()Dim m,n As IntegerDim c As Longm=Val(InputBox(please input integral number M：)n=Val(InputBox(please input integral number N(NM):)Call jc2(m)c=jCall jc2(n)c=c/jCall jc2(m-n)c=c/jDebug.Print C=,cEnd SubPublic Sub jc

7、2(ByVal x As Integer)Dim i As Integeri=1:j=1Do While i=x j=j*i i=i+1LoopEnd Sub数据库技术与程序设计过程调用操作演示Public j的位置执行哪个程序，从中调用另一个数据库技术与程序设计过程调用定义Sub过程命令格式Public|PrivateStatic Sub()Exit SubEnd Sub功能：定义一个Sub过程，并命名为形参数据库技术与程序设计过程调用调用Sub过程命令格式子过程名 或：Call 子过程名()功能：调用一个已定义的Sub过程。实参数据库技术与程序设计过程调用Public j As Long

8、Public Sub 组合数()Call jc2(m)c=jCall jc2(n)c=c/jCall jc2(m-n)c=c/jEnd Sub调用过程数据库技术与程序设计过程调用定义过程定义过程Public Sub jc2(ByVal x As Integer)Dim i As Integeri=1:j=1Do While i=x j=j*i i=i+1LoopEnd Sub数据库技术与程序设计过程调用Public Sub jc2(ByVal x As Integer)Call jc2(m)说明说明的命名规则与变量名规则相同。Sub()中的参数称为形参（Call子过程名()中的参数称为实参），

9、只有在过程被调用时，实参传送给形参才能获得相应的值。中可以有多个形参，他们之间要用“,”隔开，每一个参数都要按如下格式定义：ByVal|ByRef 变量名 as 类型。形参默认ByRef，表示形参是按地址传递；若ByVal关键字，则表示形参是按值传递。关于过程定义时使用Public，Private或者Static进行指定。Exit Sub语句使程序流程立即从一个Sub过程中退出。数据库技术与程序设计函数调用 前面，我们前面，我们学习过学习过VBAVBA提供的提供的系统函数。为了系统函数。为了实现特定的功能，我们也可以定义自己的函数，也实现特定的功能，我们也可以定义自己的函数，也就是定义就是定义

10、FunctionFunction过程。过程。数据库技术与程序设计函数调用定义格式Public|PrivateStaticFunction ()AsExit Function函数名=返回值End Function功能：定义一个以为名的Function过程。Function过程通过参数的传递得到结果，返回一个函数值。数据库技术与程序设计函数调用调用Function过程调用Function过程的语句格式如下：函数名（）功能：调用一个已定义的Function过程，我们不妨将Function定义的函数称为自定义函数，以便于与系统库函数和过程加以区别。数据库技术与程序设计函数调用Public Sub 组合

11、数2()Dim m As Integer,n As IntegerDim c As Longm=Val(InputBox(please input integral number M：)n=Val(InputBox(please input integral number N(NM):)c=jc(m)/jc(n)/jc(m-n)Debug.Print c=,cEnd Sub例：利用函数过程来计算排列组合数。函数调用数据库技术与程序设计函数调用Function jc(ByVal x As Integer)As LongDim i As Integer,j As Longi=1:j=1Do Whi

12、le i=x j=j*i i=i+1Loopjc=j 注意返回与函数名同名的变量End Function例：利用函数过程来计算排列组合数。函数定义函数定义数据库技术与程序设计函数调用Function jc(ByVal x As Integer)As Longc=jc(m)/jc(n)/jc(m-n)说明说明的命名规则与变量名规则相同。不能与其他过程名、函数名和变量同名。在函数体内部，函数的返回值就是通过给的赋值语句来实现的：jc=j，在函数过程中至少要对函数名赋值一次。As 是指函数返回值的类型，若省略，则函数返回变体类型。中的形参的定义与Sub过程完全相同。Exit Function语句使程序流程立即从一个函数过程中退出。数据库技术与程序设计函数调用自定义函数Function过程与Sub过程调用的区别：自定义函数过程必须有返回值，函数名有类型约定。子过程名没有值或者说不需要返回值，过程名没有类型约定，不能在子过程体内对子过程名赋值。