数据库应用第九章-VBA程序设计解析.ppt

9.2.7 过程创建和调用 过程是由一系列可以完成某项指定的操作或计算的语句和方法组成，可将其理解为装有VBA程序代码的容器。过程通常分为：Sub过程(子过程)、Function过程(函数)等。 窗体中的模块(声明及过程代码) 过程 过程 窗体 窗体控件 声明 (1) 子过程 Sub过程（又称子过程）以关键词Sub开始，以End Sub结束，其定义语句语法格式为： [Public|Private] [Static] Sub 子过程名([形参]) [As 数据类型] [子过程语句] [Exit Sub] [子过程语句] End Sub Private Sub ABC(x,y) ……. End Sub 例: Private Sub Command1_Click() Text1.SetFocus Text1.Text = 您 好 End Sub 子过程不返回任何值。选用关键字Public可使该过程能被所有模块的所有其他过程调用。选用关键字Private则只能被同一模块的其他过程调用。 函数也是一种过程，是一种特殊的、能够返回值的过程。函数过程以关键字Function开始，以End Function结束，其定义语句语法格式为： [Public|Private] [Static] Function 函数过程名([形参]) [As 数据类型] [函数过程语句] [函数过程名=表达式] [Exit Function] [函数过程语句] [函数过程名=表达式] End Function 例: Public Function V(r As Single) As Single V=4/3*3.14 * r ^3 End Function Private Function ABC(x,y) ……. End Function (2) 函数过程 函数过程的调用是将函数过程返回值赋给某个变量，格式为： 变量=函数过程名([实参列表]) 多个实参之间用逗号分隔。“实参列表”必须与形参保持个数相同，位置与类型一一对应，实参可以是常量、变量或表达式。调用函数过程时，把实参的值传递给形参，称为参数传递。 例如: a=5 X=V(a) Public Function V(r As Single) As Single V=4/3*3.14 * r ^3 End Function 2. 函数过程的调用 例: 在窗体对象中，使用函数过程实现任意半径的圆面积计算，当输入圆半径值时，计算并显示圆面积。 在窗体中添加2个文本框控件，其标题分别设为：半径、圆面积。2个文本框名字分别设为：SR、SS。创建一个命令按钮，标题设为“计算” 。 在按钮Click事件过程中，加入如下代码： Private Sub command1_Click() SS=Area(SR) End Sub 在窗体模块中，建立求解圆面积的函数过程Area() ： Public Function Area(r As Single) As Single If r = 0 Then MsgBox 圆面积必须为正值 Area = 0 Exit Function End If Area = 3.14 * r ^2 End Function 运行结果：当在半径文本框中输入数值数据时，单击“计算”按钮，将在圆面积文本框中显示计算的圆面积值。 注:该函数也可放在通用模块中。 子过程的调用有两种方法，格式如下： Call 子过程名[(实参列表)] 子过程名[实参列表] 用Call关键字调用子过程时，若有实参，则必须把实参用圆括号括起来，无实参时可省略圆括号；不使用Call关键字，若有实参，也不需要用圆括号括起来。 例如: a=5 ABC a Public Sub ABC(r As Single) As Single Text1.value = r End Sub 或 2. 子过程的调用 例9.15 在窗体对象中，使用子过程实现数据的排序操作，当输入2个数值时，从大到小排列并显示结果。 创建两个文本框控件，其标题分别设为：x值、y值。文本框名字分别设为：Sx和Sy。创建一个命令按钮，其标题设为“排序”。 在按钮Click事件过程中，加入如下代码： Private Sub command1_Clic