第7章程.pptVIP

第7章过 程;过程的引入: 使同类的操作不重复 (操作方法相同、参数不同) 过程: 完成一段独立功能，可供其他过程使用(调用)。 过程又称为子程序 调用过程: 调用其他过程的过程;过程分类: ;7.1 Function过程(函数过程);2. 说明 (1) Public: 缺省值。使用Public时表示各模块的所 有其他过程都可以调用该Function过程。 (2) Private: 使用Private时表示只有本模块中的其他过程才可以调用该Function过程。 (3) Static: 使用Static时表示将过程中的所有局部变 量说明为静态变量。 (4) 函数过程名: Function过程的名称，遵循变量 的命名规则。 (5) 形参表: 表示Function过程的参数变量列表。多个变量之间用逗号隔开。 形参表格式: [ByVal|ByRef|Optional|ParamArray] 变量名[( )] [As 类型] ; ByVal: 表示该参数按值传递。 ByRef: 缺省值。表示该参数按地址传递。 Optional:表示该参数为可选参数。 ParamArray:表示该参数是一个Variant类型的Optional数组。 变量名: 任何变量名或数组名。 ( ): 当参数为数组时使用。 (6) As 类型: 声明函数值的类型。 (7) Exit Function语句: 从Function过程中退出。 (8) Function过程通过赋值语句: 函数过程名=表达式 将函数的返回值赋给函数过程名。 (9) Function过程的定义不能嵌套。;3. Function过程的建立: 建立位置 窗体模块 标准模块 类模块* 建立方法 直接在代码窗口中输入 应写在“通用”的位置。 使用菜单命令：工具→添加过程 先切换到代码窗口，才可以使用该菜单命令。;【例7-1】编写一个计算n！的Function过程。 分析：确定参数个数、类型、函数名、类型 Function Fact(N As Integer) As Long Dim I As Integer, F As Long F = 1 F用于保存阶乘值 For I = 1 To N F = F * I Next I Fact = F 给函数过程名赋值 End Function;【例7-2】编写一个Function过程，计算下面表达式的值。;7.1.2 Function过程的调用;×【例7-3】从键盘任意输入一个整数，然后调用计算 阶乘的函数求该整数的阶乘值。 设计界面和运行界面如下：;代码如下： Option Explicit 自定义求阶乘的函数过程Fact Function Fact(N As Integer) As Long Dim I As Integer, F As Long F = 1 For I = 1 To N F = F * I Next I Fact = F 给函数过程名赋值 End Function; 在按钮的Click事件过程中调用函数过程 Private Sub Command1_Click() Dim X As Integer X = Val(Text1.Text) Label2.Caption=Trim(Str(X)) 的阶乘数为: 使用Fact(X)调用函数过程 Label3.Caption = Trim(Str(Fact(X))) End Sub;【例7-4】利用Function过程计算阶乘，求组合数。设计界面如下图。;代码如下： 定义求阶乘的函数Fact Function Fact(N As Integer) As Double Dim F As Double, I As Integer F = 1 For I = 1 To N F = F * I Next I Fact = F End Function; “=”按钮的Click事件过程 Private Sub Command1_Click() Dim M As Integer, N