高级语言程序设计教程——Visual Basic 6.0 中文版 教学课件 作者 张露2 第9章.pptVIP

第9章　Visual Basic中的过程和函数　;定义过程;定义过程;调用过程;通用过程和事件过程;Function过程（函数）;调用function过程作为一个语句 可以放在赋值语句中，也可以放在打印语句中，也可以放在函数中作为参数，例如： 求123，564，1002，以及321的最大公约数 可以通过以下方法来实现： Sub form_activate() dim a,b,c,d,ab,cd a=123:b=564:c=1002:d=321 ab=gcd(a,b) cd=gcd(c,d) print gcd(ab,cd) End sub;形参和实参 形参是在sub或function过程定义中出现的参数表，实参则是在调用过程中给定的参数表。例如：;按位置传递 实际参数和形式参数的次序必须相匹配，即位置必须一致 传送时，名称不要求一致，但是参数个数必须相同，位置也必须相同（主要是类型） 形参各变量间用逗号隔开，变量可以是： 字符串，数组名（带有左右括号） 实际参数可以是： 常数、表达式、变量名、数组名（带有左右括号） 设：sub testsub(a as integer,array() as single,recvar as rectype,c as string) Type rectype rand as string*12 serialnum as long End type Dim recv as rectype Call testsub(x,a(),recv,”dephone”) 指名传递 就是把实参显式地指定给形参，用:=将形参和实参连接起来。例如： Sub addsum(first,second,third) c=(first+second)*third print c End sub Addsum 4,6,8 与;参数按照两种方法传递（传地址和传值） 传地址也叫做引用，默认情况下均为传地址；传值只传递实际参数，这种情况下，系统把需要传递的变量复制到一个临时单元中，然后该临时单元的地址被传递给过程，保证原实参地址中的值不发生改变。 看下面例子： sub power （x as integer, byval y as integer） x=x+100 y=y*6 print “x=“;x, ”y=”;y end sub Sub command2_click() dim a as integer, b a=100:b=23 print “the powers:” power a, b print “the command:” print “a=”;a, ” b=”;b End sub;例题辨析;数组参数的传递 数组作为参数时，只能传地址，不能传值 使用数组参数时，要在数组名后加上括号（），以区别于一般变量参数 例如 call s (p (), q)，数组作为参数时，形参和实参使用同一段内存地址 也就是说，假设形参是P（），实参是q()，则调用后p（1）=q（1）…… 求数组最大值：;可选参数 11页例子中，参数中的z前有一个optional，表示该参数可选，在调用时可以通过ismissing（）函数来判断其有无。 例如：sub multi (first, sec, optional third) n=first*sec if not ismissing(third) then n=n*third print n Private sub form_click() multi 10,20 //结果200 End sub Private sub command1_click() multi 10,20,3 //结果600 End sub 可变参数 Print函数可以输出任意多个数据，输出的数据就是它的参数，他是一个可变参数的函数。Vb中可以建立这种可变参数的过程，用paramarray命令来定义，格式如下： Sub 过程名 ( paramarray 数组名) 数组名是一个形式参数，只有括号和名称，无上下界，省略变量类型(默认variant)，可以和任意类型的变量相匹配。 举例见上面文本框;Vb允许用对象（窗体、控件最为参数） 用对象作参数语法如下： sub 过程名（形参表） 语句