[医学]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.4 （不讲）6.5 变量的作用域 变量的作用域 静态变量 程序运行过程中可保留变量的值 6.6 综合应用 综合应用-加密 Welcome stud 综合应用-查找 综合应用-字符处理 思考题 本章目录 调用过程: 调用Sprg1 调用Sprg1 调用Sprg2 子过程: Sprg1 子过程: Sprg2 Sub过程 Function过程 事件过程 自定义子过程 内部函数(标准函数） 自定义函数过程 1）过程是一段程序代码，是相对独立的逻辑模块 2）一个完整的VB应用程序由若干过程和模块组成 本节主要介绍用户自定义的过程 Sub子过程：完成一定的操作和功能，无返回值 Function函数过程：完成一定的操作和功能，并且可将数据处理的结果返回 引例6.1已知多边形各条边和对角线的长度，计算多边形的面积 计算多边形面积，可将多边形分解成若干个三角形。计算三角形面积的公式如下： 本章目录 定义函数过程area 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) Msgbox(“面积=” S) End Sub 调用函数过程 本章目录 在窗体、模块等的代码窗口把插入点放在所有现有过程之外，直接输入函数过程。定义函数过程的形式如下： [Public |Private] Function函数过程(形参)[As 类型] 变量声明 语句块 Return 表达式 或 函数名=表达式 End Function 本章目录 Public 全局函数过程，可被程序任何模块调用 Private 仅供本模块中的其它过程调用 形参(或称哑元) 只能是变量或数组名( ),仅表示参数的个数、类型，无值 例6.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 本章目录 调用形式：函数过程名([参数列表]) 参数列表(称为实参或实元)：必须与形参个数相同，位置与类型一一对应。可以是同类型的常量、变量、表达式 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 r=m mod n Do while r0 m = n： n = r: r=m mod n Loop gcd = n End Function Sub Form_Click Dim x%, y%, z% x = 124: y = 24 z =