第6章过程第16讲过程的定义与调用(437KB).pptVIP

* 华中农业大学理学院计算机系 华中农业大学理学院计算机系 VisualBasic.Net程序设计 华中农业大学理学院计算机系 第6章 过程 华中农业大学理学院计算机系 教学目的： 通过本章学习，了解模块化程序设计的思想，掌握Sub过程和Function过程的定义和调用方法。掌握参数传递中形参与实参的作用，传值调用和引用调用的特点和区别，了解变量的作用域和生存期 第6章 过程 教学重难点： Sub过程和Function过程的定义格式和调用方法。 形参与实参的作用 传值调用和引用调用的特点及其区别 数组参数。 变量的作用域和生存期。 华中农业大学理学院计算机系 第16讲 过程的定义与调用 华中农业大学理学院计算机系 16.1 函数过程的定义与调用 16.2 子过程的定义与调用 16.3 综合应用 引例 例16-0 已知多边形的各条边的长度，要计算多边形的面积。 华中农业大学理学院计算机系 Dim a!,b!,c!,d!,e!,f!,g!,S1!,S2!,S3!,S!, p! ‘给边长变量赋值 p = 1 / 2 * (a + b + c) S1 = Sqrt(p * (p - a) * (p - b) * (p - c)) p = 1 / 2 * (c + d + e) S2 = Sqrt(p * (p - c) * (p - d) * (p - e)) p = 1 / 2 * (e + f + g) S3 = Sqrt(p * (p - e) * (p - f) * (p - g)) S=S1+S2+S3 华中农业大学理学院计算机系 华中农业大学理学院计算机系 定义函数过程area Function area(x!, y!, z!) As Single Dim c! c = 1 / 2 * (x + y + z) area = Sqrt(c * (c - x) * (c - y) * (c - z)) End Function Sub Button1_click() … 输入若干个三角形边长 S=area(a,b,c)+area(c,d,e)+area(e,f,g) msgbox(“面积=” S) End Sub 调用函数过程 本章目录 16.1 过程的引入 一、过程 是完成某种特定功能的程序模块， 供其它程序调用。 华中农业大学理学院计算机系 程序语句 输入 输出 16.1 过程的引入 1.系统提供的内部函数过程和事件过程 2. 自定义过程： Sub 子过程 Function 函数过程 Property 属性过程 Event 事件过程 华中农业大学理学院计算机系 二、过程的分类 16.2 过程的定义和调用 例16-1 分别编一子过程和函数过程实现下述功能，并调用。 Total=n+(n+1)+(n+2)+…+(m) 华中农业大学理学院计算机系 求和 n S m 16.2.1 Function过程实现 Function 函数过程名([参数列表])[As 类型] 语句块 [Exit Function] [Return 表达式 ] End Function 华中农业大学理学院计算机系 一、Function过程定义： 第一步：建立function框架 Function Sum( ) End Function 华中农业大学理学院计算机系 参数形式： [ByVal]变量名[()][As 类型][,…] ByVal vStart As Integer, ByVal vEnd As Integer 第一步：建立function框架 华中农业大学理学院计算机系 参数列表称为形参或哑元，仅表示了形参的类型、个数、位置，无值。 对于Function，函数名对应一个输出接口，形参对应其余输出接口和所有的输入接口 参数形式： [ByVal]变量名[()][As 类型][,…] 凡只作为输入的参数，前面用ByVal或省略; 凡作为输出的参数，前面用ByRef 第二步：书写代码 Function Sum( ByVal vStart As Integer, ByVal vEnd As Integer ) As Integer End Function 华中农业大学理学院计算机系 Dim i, total As Integer For i = vStart To