VB教程研讨.ppt

3. 参数传递 * 【例5】参数传递方式示例 设置两个通用过程Test1和Test2，分别按值传递和按地址传递 Sub test1(ByVal t As Integer) t = t + 5 End Sub Sub test2(s As Integer) s = s - 5 End Sub Private Sub Form_Load() Dim x As Integer Show x = 5 Print 执行Test1前，x=; x Call test1(x) Print 执行Test1后，Test2前，x=; x Call test2(x) Print 执行Test2后，x=; x End Sub 运行结果 执行Test1前，x=5 执行Test1后，Test2前，x=5 执行Test2后，x=0 3. 参数传递 数组参数的传递 过程定义时，形参列表中的数组用数组名后的一对空的圆括号表示。 在过程调用时，实际参数表中的数组可以只用数组名表示，省略圆括号。 被调过程可通过Lbound和Ubound函数确定实参数组的上、下界。 当用数组作为过程的参数时，进行的不是“值”的传递，而是“址”的传递。 * 3. 参数传递 * 【例6】用数组作参数，求一维数组中的所有负元素之和。 Function sum