2如何建立通用过程 创建通用过程的方法有两种。 第一种方法是: 打开代码编辑器窗口 第二种方法是: 在代码窗口中的对象列表框中选“通 用 ●●●● 演示: 返回子目录
2.如何建立通用过程 创建通用过程的方法有两种。 第一种方法是： 打开代码编辑器窗口…. 第二种方法是： 在 代 码 窗 口 中 的 对 象 列 表 框 中 选 “ 通 用” …. 演示：... 返回子目录
Function过程的定义82 函数的种类:系统函数与自定义函数 Function过程的形式是: Function函数名(参数列表][AS数据类型 [局部变量和常数声明] 函数要返回值 语句块] 函数体 Exit Function 语句块 举例 [函数名=表达式 End function 函数要返回值 例8-1
Function过程的定义 Function过程的形式是： ….. Function函数名 ([参数列表]) [AS数据类型] [局部变量和常数声明] [语句块] [Exit Function] [语句块] [函数名 = 表达式] End Function 8.2 函数体 函数的种类：系统函数与自定义函数 函数要返回值 函数要返回值 例 8--1 举例
Private Function Fact(By Val N As Integer) As Long Dim K As Integer Fact =1 Ifn=0 Or n= 1 Then Exit function Else For K=1 To n Fact=Fact米K Next K End if End function 返回主目录
Private Function Fact(ByVal N As Integer) As Long Dim K As Integer Fact = 1 If N = 0 Or N = 1 Then Exit Function Else For K = 1 To N Fact = Fact * K Next K End If End Function 返回主目录
过程调用83 事件过程的调用 Sub过程调用 调用 Function过程 。调用其它模块中的过程
过程调用 • 事件过程的调用 • Sub过程调用 • 调用Function过程 • 调用其它模块中的过程 8.3
事件过程的调用831 事件过程由一个发生的事件来自动调用 同一模块中的其它过程显式调用。 以前的概念 例如:(P163) Private Sub cmdend Click Dim Flg As Integer, L As Boolean Call Form Unload (Flg) 新的概念 If Flg=1 Then MsgBox"不退出,继续运行程序 End if End sub
事件过程的调用 8.3.1 事件过程由一个发生的事件来自动调用 同一模块中的其它过程显式调用。 例如：（P163） Private Sub cmdend_Click() Dim Flg As Integer, L As Boolean Call Form_Unload(Flg) If Flg = 1 Then MsgBox "不退出，继续运行程序" End If End Sub 以前的概念 新的概念