vb子程序和函数.ppt

vb子程序和函数在VB中，的Sub子过程分为：事件过程和通用过程8.2.1事件过程（1）窗体事件的语法PrivateSubForm_事件名(参数列表)＜语句组＞EndSub（2）控件事件的语法PrivateSub控件名_事件名(参数列表)＜语句组＞EndSub子过程的定义形式如下：[Public|Private][Static]Sub子过程名([形参表])<局部变量或常数定义>＜语句组＞[ExitSub]＜语句组＞EndSub（2）形式参数列表：形式参数通常简称“形参”，仅表示形参的类型、个数、位置，定义时是无值的，只有在过程被调用时，虚实参结合后才获得相应的值。（3）过程可以无形式参数，但括号不能省。（4）参数的定义形式：[ByVal｜ByRef]变量名[()][As类型][,…]，ByVal表示当该过程被调用时，参数是按值传递的；缺省或ByRef表示当该过程被调用时，参数是按地址传递的。8.2.3子过程的建立8.2.4过程的调用1子过程的调用子过程名[参数列表]或Call子过程名(参数列表)2函数过程的调用变量名=函数过程名([参数列表])说明：(1)参数列表称为实参或实元，它必须与形参保持个数相同，位置与类型一一对应。(2)调用时把实参值传递给对应的形参。其中值传递（形参前有ByVal说明）时实参的值不随形参的值变化而改变。而地址传递时实参的值随形参值的改变而改变。(3)当参数是数组时，形参与实参在参数声明时应省略其维数，但括号不能省。(4)调用子过程的形式有两种，用Call关键字时，实参必须加圆括号括起，反之则实参之间用“，”分隔。例：调用上面定义的Sawp子过程的形式：SCallS)大家应该也有点累了，稍作休息说明：（1）函数名：命名规则与变量名规则相同。但不能与系统的内部函数或其它通用子过程同名，也不能与已定义的全局变量和本模块中模块级变量同名。（2）在函数体内，函数名可以当变量使用，函数的返回值就是通过对函数名的赋值语句来实现的，在函数过程中至少要对函数名赋值一次。（3）AS类型：是指函数返回值的类型，若省略，则函数返回变体类型值（Variant）。（4）ExitFunction：表示退出函数过程，常常是与选择结构（If或SelectCase语句）联用，即当满足一定条件时，退出函数过程。（5）形参数列表：形参的定义与子过程完全相同。8.3.2函数的调用1、窗体/模块级过程：加Private关键字的过程，只能被定义的窗体或模块中的过程调用。2、全局级过程：加Public关键字（或缺省）的过程，可供该应用程序的所有窗体和所有标准模块中的过程调用。总结归纳过程的定义及作用域如下表（教材Pg.163）8.5过程之间参数的传递2、实际参数实际参数是指在调用Sub或Function过程时，写入子过程名或函数名后括号内的参数，其作用是将它们的数据（数值或地址）传送给Sub或Function过程与其对应的形参变量。实参可由常量、表达式、有效的变量名、数组名（后加左、右括号，如A()）组成，实参表中各参数用逗号分隔。传址与传值传址：形参得到的是实参的地址，当形参值的改变同时也改变实参的值。传值：形参得到的是实参的值，形参值的改变不会影响实参的值。PrivateSubCmdOK_Click()a%=10:b%=20:Swap1a,b‘传值Print"A1=";a,"B1=";ba=10:b=20:Swap2a,b'传地址Print"A2=";a,"B2=";bEndSub8.6高级用法(数组做为参数)2．被调过程可通过Lbound和Ubound函数确定实参数组的上、下界。3．当用数组作形参时，对应的实参必须也是数组，且类型一致。4．实参和形参结合是按地址传递，即形参数组和实参数组共用一段内存单元。例如：定义了实参数组b(1to8)，给它们赋了值，调用Sort()函数过程的形式如下：Sortb()或CallSort(b())实参数组后面的括号可以省略，但为便于阅读，建议一般不要省略为好。调用时形参数组a和实参数组b虚实结合，共用一段内存单元，如下所示。因此在Sort()过程中改变数组a的各元素值，也就相当于改变了实参数组b中对应的元素的值，当调用结束时，形参数组a成为无定义。b(1)b(2)b(3)b(4)b(5)b(6)b(7)b(8)a(1)a(2)a(3)a(4)a(5)a(6)a(7)a(8)参数为数组时虚实结合示意图补充例题：编写判断一个整数是不是素数写函数过程。如果给定的整数是素数，则返回逻辑值True，否则返回FalsePrivateSubForm_Click()Dimn%,n1%,n2%n=Val(InputBox("输入大于6的正整数"))Forn1=3ton\2step2'让n1从3开始分解n2=n-n1'求得n2