vb6.0第五课

一、参数
1、 形参：出现在sub过程和function过程中。
2、实参：调用参数时传递值

二、参数按值和按地址传递
在VB中传递参数有两种方式：按值传递、按地址传递。其中按地址传递，又称为“引用”。
1、按值传递参数
按值传递使用Byval定义参数。使用时，程序为形参在内存中临时分配一个内存单元，并将实参的值传递到这个内存单元中。当过程中改变形参的值时，则只是改变形参内存单元中的值，实参的值不会改变。
如：

Private sub test( byval a as integer, byval b as  integer)
   A=a+20
   B=b+0
   Print “a=” & a , “b=”& b
End sub

Private sub cmdtest_click()
    Dim num1 as integer ,  num2 as integer
    Num1=10
    Num2=10
    Print “num1=” & num1 , “num2=” & num2
    Call test(num1,num2)
    Print “num1=” & num1 , “num2=” & num2
End sub

上述代码中，test过程中修改了形参a 和 b 的值，a和b是按值传递参数的，单击“cmdtest”后，形参a和b的改变没有影响实参num1和num2的取值。

2、按地址传递参数
按地址取值使用byref定义参数。在定义过程中，如果没有byval ，默认的是按地址传递参数。
按地址传递参数，是指把形参变量的内存地址传递给被调用的过程。形参和实参具有相同的地址，即形参和实参共享同一段存储单元。
Private sub test(a as integer, b as integer)
………. 别的都相同
测试结果：形参a和b的改变影响了实参num1 和num2的取值。如下图所有
按值传递参数、按地址传递参数应用场合，参考以下几条规则：
（1）对于整型、长整型或单精度参数，如果不希望过程修改实参的值，则采用传值方式。而为了提高效率，字符串和数组应采用传地址方式。此外，用户定义的类型和控件只能通过地址传送。
（2）对于其他数据类型，可以采用两种方式传送。但是建议此类参数最好用传值方式传送，这样可以避免错用参数。
（3）用函数过程可以通过过程名返回值，但只能返回一个值；子过程不能过程过程名返回值，但可以通过参数返回值，并可以返回多个值。但需要子过程返回值时，其相应的参数要用传地址方式。

数组参数：在定义过程中，用数组作为形参出现在过程的形参列表。语法如下：
形能数组名（） [As 数据类型]
说明：实参列表中的数组不需要使用括号“（）”，过程传递数组只能按地址传递，即形参和实参共有同一段内存单元。
如：

Private function average( age() as integer , n as integer )  as integer
  Dim I as integer, aver as integer, sum as integer
  For I =0  to n-1
     Sum=sum+age(i)
  Next i
  Aver=sum/n
  Average=aver
End function

Private sub command1_click()
  Dim employees()  as  integer   ‘定义一个用于存储员工年龄的数组
  Redim employees(6) 
  Employees(0)=20
  Employees(1)=28
  Employees(2)=30
  Employees(3)=24
  Employees(4)=25
  Employees(5)=35
  text1=average(employees,6)
end sub

上述数组employees作为实参传递给形参age，形参age需要改变数组的维界。因此实参employees必须用“dim employees() as integer”语句声明为动态数组。

三、对象参数
除了变量和数组作为实参传递给过程中的形参，VB还允许对象（如窗体、控件等）作为实参传递给过程中的形参。
对象参数可以用引用方式，也可以用传递的方式，即在定义过程中，在对象参数的前面加byval.
如下例为通过子过程objectena设置textbox和commandbutton控件不可用。

Private sub objectena( obj1 as object , obj2 as object)
  obj1.enabled=false
  obj2.enabled=false
end sub

private sub form1_load()
  objectena text1,command1
end sub

四、嵌套过程

sub mysub1()
...
end sub

sub mysub2()
   call mysub1
end sub

private sub form1_load()
call mysub2
end sub

上述代码中，mysub2过程调用mysub1过程，而form1_load事件过程又调用了mysub2过程