安徽工业大学计算机科学与技术学院vb程序设计课件 第6章.ppt

第六章 过 程 6.1 函数过程的定义与调用 6.2 子过程的定义与调用 6.3 参数传递 6.4 递 归 6.5 综合应用 6.1 函数过程的定义和调用 6.1.1 引例 6.1.2函数过程的定义 函数过程的定义 6.1.3函数过程的调用 函数过程的调用 6.2 子过程的定义与调用 6.2.2子过程的定义 子过程与函数过程的区别 参数问题 6.2.3子过程调用 6.2.3子过程调用 6.3 参数传递 6.3.2 传址与传值 例6.6 传址与传值 传址与传值 6.3.3 数组参数的传递 数组参数的传递 6.3.4 变量的作用域 变量的作用域 6.3.5 静态变量 6.4 递归 6.5 综合应用 综合应用-加密 Welcome stud 综合应用-查找 综合应用-字符处理 本章小节 * 本章目录 引例6.1已知多边形各条边的长度，计算多边形的面积。 计算多边形面积，可将多边形分解成若干个三角形。计算三角形面积的公式如下： 本章目录 定义函数过程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 command1_click() … 输入若干个三角形边长 S=area(a,b,c)+area(c,d,e)+area(e,f,g) msgbox(“面积=” S) End Sub 调用函数过程 本章目录 在窗体、模块等的代码窗口把插入点放在所有现有过程之外，直接输入函数过程。定义函数过程的形式如下： [Public |Private] Function函数过程(形参)[As 类型] 变量声明 语句块 Return 表达式 或 函数名=表达式 End Function 本章目录 Public 全局函数过程，可被程序任何模块调用 Private 仅供本模块中的其它过程调用 形参(或称哑元) 只能是变量或数组名( ),仅表示参数的个数、类型，无值。 例6.2 编一求最大公约数的函数过程 Function gcd( m%, n%) As Integer If m n Then t = m: m = n: n = t Do while n0 r = m Mod n ： m = n： n = r Loop gcd = m End Function 本章目录 调用形式：函数过程名([参数列表]) 参数列表(称为实参或实元)：必须与形参个数相同，位置与类型一一对应。可以是同类型的常量、变量、表达式。 Sub Form_Click Dim x%, y%, z% x = 124: y = 24 z = gcd(x, y) MsgBox(最大公约数是 z) End Sub 程序运行流程 Function gcd( m%, n%) As Integer If m n Then t = m: m = n: n = t Do while n0 r = m Mod n ： m = n： n = r Loop gcd = m End Function Sub Form_Click Dim x%, y%, z% x = 124: y = 24 z = gcd(x, y) Function gcd( m%, n%) As Integer If m n Then t = m: m = n: n = t Do while n0 r = m Mod n ： m = n： n = r Loop gcd = m End Function MsgBox(最大公约数是 z) End Sub 本章目录 调用演示 例6.3编一函数，统计字符串中汉字的个数。 分析：在VB中，字符以Unicode码存放，每个汉字和英文是一个字符、占有两个字节，区别是汉字的机内码最高位为1，若利用Asc函数求其码值为小于0（以补码表示），而西文字符的最高位为0，Asc函数求其码值为大于0 本章目录 6.2.1 引例 以下情况使用函数过程存在不足： 不是为了获得某个函数值，而是为了某种功能的处理。