第6章 函数与过程[精选].pptVIP

Visual Basic 程序设计 6.3.2 按值传递 按值传送时传送的不是实参的值，仅传送实参变量的副本，执行完调用语句后，调用程序中的实参值不会改变。 按值传递形参的语法特点： 在相应的形式变量前加“ByVal”关键词 如：Public Sub test(ByVal j As Integer) …… End Sub Visual Basic 程序设计 6.3.2 按值传递 例： Private Sub Command1_Click() Dim m As Integer, n As Integer m = 15: n = 20 Print “调用前：m=; m, n=; n Call value(m, n) Print “调用后：m=; m, n=; n End Sub Private Sub value(ByVal x％, ByVal y As Integer) x = x + 20 y = y + x Print “返回前：x=; x, y=; y End Sub Visual Basic 程序设计 数组可以作为形式参数。 定义格式：Public 过程名（形参数组名() AS 类型 ） 说明： 形参数组只能按地址传递参数。 对应实参的类型，实参只写数组名，后面可以不加括号。 长度必须和形参一致， 在被调用的过程中不要再用Dim对形参声明，若动态数组时，可以用ReDim来重新定义数组的维界与大小。 6.3.3 数组参数 Visual Basic 程序设计 例： Private Sub change(a() As Integer) Dim i As Integer ReDim a(7) For i = 1 To 7 a(i) = I Next I End Sub Option Base 1 Private Sub Form_Click() Dim ArrayA() As Integer, i As Integer ReDim ArrayA(5) Print 调用前上界是:; UBound(ArrayA) Call change(ArrayA) Print 调用后上界是:; UBound(ArrayA) End Sub Visual Basic 程序设计 对象也可以作为参数传递，但也只能是按地址来传递。在形参中若是控件，则类型声明为“Contral”，若是窗体，则类型声明为“Form”。 定义格式：Public 过程名（变量名 AS Control） Public 过程名（变量名 AS Form） 6.3.4 对象参数 Visual Basic 程序设计 6.3.4 对象参数 例： Private Sub Command1_Click() Call objarg(Label1) End Sub Public Function objarg(lad As Control) lad.BackColor = vbYellow lad.ForeColor = vbRed lad.FontSize = 18 lad.FontItalic = True lad. Font. name = 隶书 lad.Caption = 对象的参数传递 End Function Visual Basic 程序设计 6.4 变量的作用域 变量的作用域 过程的作用域 静态变量 示例 Visual Basic 程序设计 6.4 变量的作用域 应用程序 (.vbp文件) 类模块(.cls)文件 一个或若干个窗体 模块(*.frm)文件 用户自定义子过程(Sub) 用户自定义函数过程(Function) 事件过程(Sub) 用户自定义子过程(Sub) 用户自定义函数过程(Function) 一个或若干个标准 模块(*.bas)文件 全局级 模块级 过程级 Visual Basic 程序设计 6.4.1 变量的作用域 1.局部变量 作用域：定义的过程内. 指在过程内用Dim语句声明的变量, 或不加声明 直接使