VB6程序设计5.5章节幻灯片.pptVIP

* * * * * * 5.5 过 程 本章目录 * 过程的作用: 使同类的操作不重复编写，写一次多次用 把一项复杂的工作分成简单的功能块,分而治之 过程: 完成一段独立功能，可供其他过程使用(调用)。 Sub子过程 Function函数过程 事件过程 自定义子过程 内部函数(标准函数） 自定义函数过程 Sub子过程与Function函数过程区别，子过程名无值，函数名有值 * 5.5.1 函数过程 1. 引例 求多边形面积 已知多边形边长，计算其面积。 本章目录 分析: 将多边形分解成若干个三角形。 计算三角形面积的公式如下： 编一个求三角形面积的函数 Function area!(x!,y!,z!) * 6.1.1 引例 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 调用函数过程 定义函数过程 * 2.函数过程的定义 形式： Function 函数过程名(形参) As 类型 局部变量声明 语句块 函数名=表达式 End Function 本章目录 形参(或称哑元) 只能是变量或数组名。 仅表示参数的个数、类型，无值。 * 例5.5.1 编一求最大公约数的函数过程, 分析：求最大公约数的算法已在例4.20中介绍 （辗转相除法、相减法） 本章目录 关键：如何构建函数过程头（函数名，参数） 搞清楚：解该问题已知数据有几个(本例2个),结果几个(本例1个） 主程序与过程区别： Function gcd(ByVal m%, ByVal n%) As Integer * 3.函数过程的调用 调用形式：函数过程名([参数列表]) 参数列表(称为实参或实元)：必须与形参个数相同，位置与类型一一对应。可以是同类型的常量、变量、表达式。 利用gcd函数过程，显示10对20—200之间随机数的公约数 先观测一对数调用过程 本章目录 x→m,y→n Z←gcd 例5.5.1 设断点演示过程 * 5.5.2 子过程的定义与调用 1. 引例—显示字符图 例5.5.2编一子过程，显示任意行的三角形图案；主调程序调用显示圣诞树。 分析: 该过程不是为了计算获得某个结果，而是显示字符图，过程名没有返回值。 本章目录 针对函数过程,问题的提出: 不是为了获得某个函数值，而是为了某种功能处理。 要获得多个结果。 VB.NET中提供了使用更灵活的子过程。 * 2.子过程的定义 形式如下： [Publi| Private] Sub 子过程名 ([参数列表]) 局部变量声明 语句 End Sub 子过程名、形参同函数过程中对应项的规定。 本章目录 * 子过程与函数过程的区别 把某功能定义为函数过程还是子过程，没有严格的规定。一般若程序有一个返回值时，函数过程直观；当无返回值或有多个返回值时，习惯用子过程。 函数过程必须有返回值，函数名有类型。子过程名没有值，过程名没有类型，不能在子过程体内对子过程名赋值。 本章目录 * 子过程的调用是一句独立的调用语句，有两种形式： Call 子过程名 ([实参列表]) 子过程名 [实参列表] 3.子过程调用 本章目录 注意：若实参要获得子过程的返回值，则实参只能是变量(与形参同类型的简单变量、数组名、结构类型)，不能是常量、表达式，也不能是控件名。 * 例6.5 分别编一统计字符串S中定冠词the出现个数的子过程和函数过程，并分别调用。 方法：利用InStr函数反复在字符串S找 the子串。 本章目录 If you cant find the answers you need in the product i st st 第1次 第2次 Functioc Count%(st$) Dim i% Count = 0 i = InStr(st, “ the ) Do While (i 0) Count = Count + 1 st = Mid(st, i + 1)