《VisulBasic程序设计课件chapter9》-公开课件.pptVIP

谢谢使用！ * * * * * * * * * * * * * * * * * * * * * * * * * * 第9章 过 程 9.1 函数过程的定义与调用 9.2 子过程的定义与调用 9.3 参数传递 9.4 数组参数传递 9.5 变量的作用域 9.6 综合应用 本章目录 * 9.1 函数过程的定义和调用 9.1.1 引例 9.1已知多边形各条边的长度，计算多边形的面积。 计算多边形面积，可将多边形分解成若干个三角形。计算三角形面积的公式如下： 本章目录 * 9.1.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 调用函数过程 本章目录 * 9.1.2函数过程的定义 在窗体、模块等的代码窗口把插入点放在所有现有过程之外，直接输入函数过程。定义函数过程的形式如下： [Public |Private] Function 函数过程(形参)[As 类型] 变量声明 语句块 函数名=表达式 或 Return 表达式 End Function 本章目录 * Public 全局函数过程，可被程序任何模块调用 Private 仅供本模块中的其它过程调用(默认) 本章目录 函数过程名：命名规则同变量名 参数列表形式: [ByVal]变量名[()][As 类型] 称为形参或哑元，仅表示参数的个数、类型，无值，可有byval/byref前缀。 函数名 = 返回值 在函数体内至少对函数名赋值一次。 * 例9.2 编一求最大公约数的函数过程 Function gcd( byval m%, byval n% ) As Integer If m n Then t = m: m = n: n = t r = m Mod n Do while r0 m = n： n = r r = m Mod n Loop gcd = n End Function * 9.1.3函数过程的调用 调用形式：函数过程名([参数列表]) 参数列表(称为实参或实元)：必须与形参个数相同，位置与类型一一对应。可以是同类型的常量、变量、表达式。 Sub Form1_Click(……) Handles MyBase.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 Form1_Click(……) Handles MyBase.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 本章目录 调用演示 * 函数过程的调用 例3编一函数，统计字符串中汉字的个数。 分析：每个汉字和英文是一个字符 汉字:Asc函数求其ascii码值为小于0 西文:Asc函数求其ascii码值为大于0 本章目录 代码说明 * 9.2 子过程的定义与调用 9.2.1 引例 以下情况使用