第九篇__过___程.pptVIP

* * * * * * * * * * * * * * * * * * * * * * * * * * 第九章 过 程 第九章 过 程 9.1 函数过程的定义与调用 9.2 子过程的定义与调用 9.3 参数传递 9.4 递 归 9.5 思考题及作业 本章目录 9.1 函数过程的定义和调用 9.1.1 引例：已知多边形各条边的长度，计算多边形的面积。 计算多边形面积，可将多边形分解成若干个三角形。计算三角形面积的公式如下： 本章目录 9.1.1 引例 定义函数过程area Public Function area(x!, y!, z!) As Single Dim c! c = 1 / 2 * (x + y + z) area = Sqr(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) Print S End Sub 调用函数过程 本章目录 9.1.2函数过程的定义 在窗体、模块等的代码窗口把插入点放在所有现有过程之外，直接输入函数过程。定义函数过程的形式如下： [Public |Private] Function函数过程(形参)[As 类型] 变量声明 语句块 Return 表达式 或 函数名=表达式 End Function 本章目录 函数过程的定义 Public 全局函数过程，可被程序任何模块调用 Private 仅供本模块中的其它过程调用 形参(或称哑元) 只能是变量或数组名( ),仅表示参数的个数、类型，无值。 例9.1：编一求最大公约数的函数过程 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 本章目录 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 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 本章目录 函数过程的调用 例9.2：编一函数，统计字符串中汉字的个数 分析：在VB.NET中，字符以Unicode码存放，每个汉字和英文是一个字符、占有两个字节，区别是汉字的机内码最高位为1，若利用Asc函数求其码值为小于0（以补码表示），而西文字符的最高位为0，Asc函数求其码值为大于0 本章目录 9.2 子过程的定义与调用 9.2.1 引例 以下情况使用函数过程存在不足： 不是为了获得某个函数值，而是为了某种功能的处理。 要获得多个结果。 VB.NET中提供了使用更灵活的子过程。 例9.3：编一过程，对Label1控件进行移动，通过参数Tag的值（1或-1）决定移动方向。 该过程不是为了计算获得某个结果，而是进行对控件移动的处理。 本章目录 9.2.2子过程的定义 子过程定义的方法同函数过程，形式如下： Sub 子过程名[(参数列表)] 局部变量或常数定义 语句 [Exit Sub]