第5单元--过程-2012041220392511.pptVIP

第5章--过程 第5章--过程 第5章--过程 用户可自定义过程下列四种过程： ▲ “Sub” 保留字开始的为子过程 ▲“Function” 保留字开始的为函数过程 “Property”保留字开始的为属性过程 “Event”保留字开始的事件过程 是使用子过程还是使用函数过程呢？ 如果是需要求得一个值，一般情况使用函数过程; 完成一些操作，或需要返回多个值，则使用子过程比较方便。 5.1.1 引例 [例5-1] 编写一过程,实现标签控件的向左或向右移动,其中标签的移动方向和距离由参数Flag决定. Sub lbmove(ByVal flag As Integer) Label1.Left = Label1.Left + flag End Sub Private Sub Command1_Click() Call lbmove(-100) End Sub Private Sub Command2_Click() Call lbmove(100) End Sub 5.1.2 建立Sub过程 通过 “工具”菜单中的“添加过程”命令，出现“添加过程”对话框（见图），选择过程类型（子过程、函数、属性、事件）及作用范围（公有的Public、私有的Private），单击确定后得到一个过程或函数定义的结构框架（模板），如： Public Sub Sort( )　 …… End Sub 代码窗口直接定义. 5.1.2 建立Sub过程 子过程的定义形式如下： [Public|Private][Static] Sub 子过程名([形参表]) 局部变量或常数定义 ＜语句组＞ [Exit Sub] ＜语句组＞ End Sub 说明： （1） Private与Public （2）子过程名 （3）形式参数列表 [ByVal｜ByRef]变量名[( )][As 类型][,…]， （4） Exit Sub 5.1.3 调用Sub过程 子过程名 [参数列表] 或 Call 子过程名(参数列表) 说明： (1)参数列表称为实参或实元，它必须与形参保持个数相同，位置与类型一一对应。 (2)调用时把实参值传递给对应的形参。其中值传递与地址传递的区别。 (3)当参数是数组时，形参与实参在参数声明时应省略其维数，但括号不能省。 （4)调用子过程的形式有两种，用Call关键字时，实参必须加圆括号括起，反之则实参之间用“，”分隔。 例： Swap a,b Call Swap(a,b) 5.1.3 调用Sub过程 [例5-2] 编一个交换两个整型变量值的子过程。 Sub Swap(ByVal x As Integer, ByVal y As Integer) Dim Temp As Integer Temp = x: x = y: y = Temp Print 调用后：a=; x; b=; y End Sub Private Sub form_Click() Dim a As Integer, b As Integer a = 3: b = 4 Print 调用前：a=; a; b=; b Call Swap(a, b) End Sub 5.1.4 通用过程与事件过程 在VB中，Sub子过程分为：事件过程和通用过程 。 事件过程 （1）窗体事件的语法 Private Sub Form_事件名(参数列表) ＜语句组＞ End Sub （2）控件事件的语法 Private Sub 控件名_事件名(参数列表) ＜语句组＞ End Sub 通用过程 写入标准模块的代码不必绑在特定的应用程序上，则在许多不同的应用程序中可以重用标准模块。 创建标准模块:工程/添加模块/新建。 调用标准模块:工程/添加模块/现存/文件。 5.2.1 建立函数过程 Visual Basic函数分为内部函数和外部函数，外部函数是用户根据需要用Function关键字定义的函数过程，与子过程不同的是函数过程将返回一个值 。 函数过程（Function过程）的定义： [Public|Private][Static]Function 函数名([参数列表])[As类型 ] 局部变量或常数定义 语句块 [函数名=返回值] [Exit Function] 语句块 [函数名=返回值] End Function 5.2.1 建立函数过程 例：编写程序以实现比较两个数的大小比较，利用自定义