第7章过程及应用.pptVIP

第7章 过程及应用 过程的引入 第7章 sub过程及应用 sub过程定义及应用 function过程定义及应用 标准模块 变量和过程的作用域 参数传递方式 过程的引入: 使同类的操作不重复 (操作方法相同、参数不同) 过程: 完成一段独立功能，可供其他过程使用(调用)。过程又称为子程序 调用过程: 调用其他过程的过程 7.1 sub过程 创建sub过程 调用sub过程 创建sub过程 用程序方式创建 格式 [Private|Public][Static] Sub 过程名 [(形参表)] [语句组] [Exit Sub] [语句组] End Sub 几点说明 1 过程名的命名规则与变量命名规则相同 2 参数表中的参数称为形参，定义形参的类型、个数、位置，定义时是无值的，只有在过程被调用时，实参传送给形参才获得相应的值 3 形参可以有多个，用逗号分隔，每个参数要按照以下格式定义： 【byVal|byRef】变量名【()】[as 类型] 4 exit sub作用是退出sub过程 5 过程可以无形式参数，但括号不能省略 用菜单方式创建sub过程 在代码窗口，选择【工具】--【添加过程】 调用sub过程 格式一: Call 过程名[(实参表)] 格式二: 过程名[实参表] 说明: (1) 过程名: 要调用的Sub过程名； (2) 实参表: 可以是常量、变量或表达式，各参数之间用逗号分隔。如果是数组参数，则要在数组名之后跟一对空括号 (3) 用Call语句调用一个Sub过程时，如果过程本身没有参数，则省略实参表和括号 (4) 格式二省略了Call关键字，同时实参表两边也不能带括号 例【7-1】 创建一个窗体，选择打印正三角形和倒三角形，程序运行结果如图所示： ‘打印按钮 Dim introw As Integer Private Sub cmdprint_Click() introw = Val(InputBox(输入三角形行数)) result = MsgBox(打印什么样的三角形？ vbCrLf “是”打印倒三角形, “否”打印正三角形, vbQuestion + vbYesNoCancel) If result = vbYes Then Call dsprint If result = vbNo Then Call zsprint If result = vbCancel Then End End Sub ’打印正三角形 Private Sub zsprint() For i = 1 To introw Print Tab(10 - i); print string(2*i-1,”*”) End Sub 【例7-2】编写计算n!的Sub过程。 分析: 参数表中应有一个参数n，还应有另一个参数F用来返回阶乘值。 7.2 function过程 Function过程与sub过程使用方法基本相同，不同的是function过程不是独立的语句，它只是语句的成分，且function过程的结果将有一个函数返回值 Function过程的定义 1. Function过程的格式 [Public|Private][Static] Function 函数过程名 ([形参表]) [As 类型] [语句组] [函数过程名 = 表达式] [Exit Function] [语句组] [函数过程名 = 表达式] End Function 2. 说明 (1) Public: 缺省值。使用Public时表示所有模块的所有其他过程都可以调用该Function过程 (2) Private: 使用Private时表示只有本模块中的其他过程才可以调用该Function过程 (3) Static: 使用Static时表示将过程中的所有局部变量说明为静态变量 (4) 函数过程名: Function过程的名称，遵循变量的命名规则 (5) 形参表: 表示在调用时要传递给Function过程的参数变量列表。多个变量之间用逗号隔开 形参表格式: [ByVal|ByRef]变量名[( )] [As 类型] ByVal: 表示该参数按值传递 ByRef: 缺省值。表示该参数按地址传递 变量名: 遵循变量命名规则的任何变量名