vb教案(过程和函数).doc

韶关学院课程教学设计（ 2 学时） 教学主要内容： 第8章 过程与函数 教学目标与要求： 通过对本章的学习，使学生掌握Sub过程与函数过程的使用，理解参数传递的意义。 教学重点与难点： 教学重点：Sub过程与函数过程的定义与调用 教学难点：参数传递的意义 教学素材：Visual Basic程序设计教程 多媒体课件 多媒体课室 教学方法：讲授法 课型： 新授课 教学过程： [课程引入]： 先列出1个问题，让学生思考这样的问题用以前学过的知识怎样解决，之后引入过程。 例: 某同学遇到了这样的一个编程问题：1!+3!+5!=？ 分析： 该题目是把三个数的阶乘求和。若用前面学习的方法，每个数的阶乘都需要写一段代码。若把求阶乘的代码作为“公共”程序段落，那么求各个数的阶乘时，就只需调用这个“公共”程序段落就可以了。 这个“公共”程序段落可以定义成过程，称为“通用过程”。 过程的引入: 使同类的操作不重复 (操作方法相同、参数不同) 过程: 完成一段独立功能，可供其他过程使用(调用)。 过程又称为子程序 调用过程: 调用其他过程的过程 过程分类： Function过程分为：内部函数和自定义函数 Sub过程分为：内部过程、事件过程和自定义过程 [课堂讲解]： §8.1 Function过程 8.1.1 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: 缺省值。表示该参数按地址传递。 变量名: 遵循变量命名规则的任何变量名 或数组名。 ( ): 当参数为数组时使用。 (7) Exit Function语句: 从Function过程中退出。 (8) Function过程通过赋值语句 函数过程名 = 表达式 将函数的返回值赋给函数过程名。 (9) Function过程的定义不能嵌套。 3. Function过程的建立: ? 直接在代码窗口中输入。 ? 在代码窗口: “工具”菜单→ “添加过程”命令。 8.1.2 Function过程的调用 直接在表达式中调用。 格式: 函数过程名([实参表]) 实参表: 常量、变量或表达式，各参数之间用逗号分隔。如果是数组，在数组名之后必须跟一对空括号。 【例8-1】求1!+3!+5!=？ 自定义求阶乘的函数过程Fact Function Fact(N As Integer) As Double Dim i As Integer, F As Double F = 1 F用于保存阶乘值 For i = 1 To N F = F * i Next i Fact = F 给函数过程名赋值 End Function 在按钮的Click事件过程中调用函数过程 Private Sub Form_Click() Dim sum As Double sum = sum + Fact(1) + Fact(3) + Fact(5) 调用函数 Print 1!