过程和函数.pptVIP

过程和函数 2009-4-1 Subroutines and Functions Indivisible units of code that contains a group of statements that perform a predefined activity and that should be activated as one unit. Subroutines are called and return no value while functions are activated by assigning the value that they return. Both sub-routines and functions are in fact methods. Subroutines Invoked, that is activated, either with the Call statement or just by name. Subroutines are defined with the Sub statement. A subroutine may receive parameters, corresponding to the arguments are defined in the Sub statement. ByRef and ByVal When an argument is defined ByVal 过程从形式参数接受值，不带回值（不知道变量的地址）。 When an argument is defined ByRef 能带回参数值（知道变量的地址）。 ByVal指的是按值传递，程序会将被传递的参数的值拷贝一份存在一个临时区域中参与调用过程的执行，在代码中即使使用a=a+1改变参数值的语句，实际只改变了它的副本内容，而并没有真正改变a的内容； ByRef，是指按地址传递参数，是缺省的方式。在被调用时传递给调用函数的是其地址，在调用函数中对这个参数做出的任何改变都直接改变了它的值，程序会根据参数存放的地址直接对它进行修改，即使跳出被调函数或过程这个改变还是永久的。 Example 建立SUB过程的方法 通用过程：在模块中建立 .VB(Module-End Module) 步骤 项目菜单 添加模块 添加新项 在模板中选择”模块” …… 练习1 在主程序读取INPUTBOX中的输入生成数据个数 在子程序中生成这个个数的随机数,并将这些数的最大\最小\平均值返回主程序,并显示出来. 参数数组 当需要数量不确定的参数时，可声明一个“参数数组”。 ByRef/ByVal 形参数组 as 类型 允许过程接受参数的值数组，不需知道参数数组中的元素数。 每次过程调用都单独确定数组的大小。 reDim/或赋值 事件过程 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim x(3) As Single Dim y(4) As Integer Dim i As Integer Call mySub3(x, y) For i = 0 To UBound(x) lstX.Items.Add(x(i)) Next For i = 0 To UBound(y) lstY.Items.Add(y(i)) Next End Sub 过程 Public Sub mySub3(ByRef a() As Single, ByVal b() As Integer) Dim i As Integer For i = 0 To UBound(a) Randomize() a(i) = 10 * Rnd() Next For i = 0 To UBound(b) Randomize() b(i) = 20 * Rnd() Next End Sub Private and Public Subroutines When the subroutine is Private 只在声明的范围内有作用。 Protected 在它的类或继承来的类范围内有效。 Friend It is acce