VB语言程序设计2012(总结).ppt

三、调用Function过程 语法： Function 函数名（[参数列表]） 或 Call 函数名（[参数列表]） 或 函数名（[参数列表]） 说明：无参数时，（）不能省略 调用方法同系统内部函数 例：用辗转相除法求最大公约数 Public Function Divisor(ByVal x As Integer, ByVal y As Integer) 计算x，y的最大公约数 Dim r As Integer r = x Mod y Do While r 0 x = y y = r r = x Mod y Loop Divisor = y End Function Private Sub Form_Click() Dim a, b, c As Integer a = InputBox(please input a) b = InputBox(please input b) c = Divisor(a, b) MsgBox Str$(a) + 与 + Str$(b) + 的最大公约数为： + Str$(c) End Sub 4.3 参数的传递 一、形参与实参 1.形参：被调用过程中的参数 2.实参：主调过程中的参数 3.形参的数据类型：没有声明时默认为Variant 4.形参与实参的类型以及个数必须一致，否则会出错。 5.使用可选的参数：在参数中含有Optional关键字的参数是可选的，如果某一参数为可选参数，则参数表中此参数后的其他参数也必须是可选的，并要用optional来声明。例： Public Sub exam(Optional a As Integer, Optional b As Integer) End Sub 二、参数的按值传递和按地址传递 1.按值传递参数 将参数值传递给普通过程，如果普通过程中对该变量进行了操作， 变量的值发生变化，那么变化后的该参数变量的新值不会通过其 地址传出来。传值时参数变量前面要加上“Byval” 例： Sub zerox (Byval x as single) Private Sub Form_Click() x=x-x Dim x as Single End Sub x=5 zerox x print x End Sub 执行结果为：5 2. 按地址传参数 将参数变量的地址传递给普通过程，如果普通过程中对该变量进 行了操作，变量的值发生变化，那么变化后的该参数变量的新值 将通过其地址传出来。 例： Sub zerox(a As Single) a = a - a End Sub A与x共用一个地址 运行结果：0 Private Sub Form_Click() Dim x As Single x = 5 zerox x Print x End Sub 3. 例：求5!+4!+3!+2!+1! Private Sub Form_Click() Dim sum As Integer, i As Integer For i = 5 To 1 Step -1 sum = sum + multiply(i) Next i Print sum=; sum End Sub Public Function multiply(n As Integer) As Integer multiply = 1 For i = 1 To n multiply = multiply * i Next i End Function 运行结果：153 Private Sub Form_Click() Dim sum As Integer, i As Integer For i = 5 To 1 Step -1 sum = sum + multiply(i) Next i Print sum=; sum End Sub Public Function multiply(n As Integer) As Integer multiply = 1 Do While n0 multiply = multiply * n n=n-1 Loop End Function 运行结果：120 Private Sub Form_Click() Dim sum As Integer,