子程序、过程、自定义函数PPT课件

1 第10章子程序 过程 自定义函数 内存变量与数组 2 10 1子程序一 子程序与主程序的概念结构化程序设计方法的一个核心思想是程序的模块化 它可把一个大的复杂的应用程序按功能分解成若干个相对独立的模块 这个模块就叫做子程序 通过模块的组合来完成一个大的复杂的应用程序的编写 子程序是一个为实现某个功能的独立程序 其特点是 它总被其它程序调用而一般不能单独执行 通常把调用它的程序称为主程序 被主程序调用的程序称为子程序 当然 其概念也是相对的 即子程序也可以调用其他子程序 3 二 子程序的建立与修改1 建立 修改子程序ModifyCommand参数说明 子程序的建立 修改和存盘与其它VFP程序一样 用ModifyCommand命令或用菜单建立和修改 其扩展名也是Prg 子程序一定要用Return命令结束 4 2 Return命令Return参数说明 Return如不作任何选项 该语句结束子程序文件的运行 返回到调用子程序的主程序的下一个语句 继续执行 三 子程序的调用Do 子程序文件名 主程序调用子程序后 会通过子程序中的Return命令返回到主程序调用子程序的下一条命令继续运行 5 例 编程求N M 的和Sum 0P1 1DoJcSum Sum P1DoJcSum Sum P1 N M 的值 Str Sum ReturnModiCommJc 建立子程序jcP1 1Input 请输入计算阶乘的值 ToAForI 1ToAP1 P1 IEndForReturn 6 例 编写一个完成对 学生档案表 按 姓名 查询或按 学号 删除的程序 主程序名Main Prg 查询子程序名Cx Prg Sc Prg删除子程序名Sc Prg 主程序main PrgUse学生档案表DoWhile T ClearK 0 6 12Say 1 按姓名查询 8 12Say 2 按学号删除记录 10 12Say 3 退出系统 12 12Say 请输入相应的选择号 GetKRead 7 DoCaseCaseK 1DoCx 调用子程序cx PrgCaseK 2DoSc 调用子程序sc PrgOtherwise 14 20Say 输入的选择号有错 EndcaseWait 是否继续 Y N ToAIfUpper A Y ExitEndifEnddoReturn 8 子程序Cx Prg功能 输入姓名查询记录DoWhile T ClearAccept 请输入待查询的姓名 ToXmLocateFor姓名 XmIfEof 查无此人 ElseDisplayEndifWait 是否继续查询 Y N ToAIfUpper A Y ExitEndifEnddoReturn 9 子程序Sc Prg功能 输入学号删除记录DoWhile T ClearAccept 请输入要删除的记录的学号 ToXhLocateFor学号 XhIfFound DeleDisplayWait 是否要作物理删除 Y N ToBIfUpper B Y PackEndIfElse 输入有错 没有该学号 EndifWait 是否继续删除 Y N ToAIfUpper A Y ExitEndIfEndDoReturn 10 10 2过程过程是子程序的另一种形式 一个过程也是一个为了实现某个功能的程序段 过程是主程序文件的一个组成部分 习惯上常把它写在主程序的最后 一个主程序可以包括多个过程 但每个过程都要用Procedure 过程名 开头来说明过程名 用Return来结束一个过程 11 一 过程的编写格式Procedure 过程名 以过程说明语句开头 过程体命令序列 过程体Return ToMaster To 过程的结束语句 12 参数说明 Procedure 过程名 过程总是写在主程序的后面 每个过程都要用Procedure 过程名 开头来说明过程名 主程序通过Do命令能够直接调用过程 过程体命令序列 是一个完成指定任务的程序段 是过程的核心部分 Return 是过程的结束语句 每个过程必须用Return结束 二 过程的调用Do 过程名 13 例 对任意给的正整数A B C 用过程编写程序计算S A 3 5 B C 2 主程序JSG PRGSetTalkOffClearT 1Input A ToXDoJcA1 TInput B ToXDoJcB1 TInput C ToXDoJcC1 T S A1 3 5 B1 C1 2 Return 14 求阶乘的过程Jc 注意 应直接写在主程序后面 ProcedureJcT 1ForI 1ToXT T IEndforReturn 15 10 3过程文件如果在主程序中过程太多 那么 主程序调用多个过程 多次访问磁盘会影响到程序的运行速度 为了克服调用多个过程 多次访问磁盘的问题 一般使用过程文件来解决 过程文件是由若干个过程组成的一个独立程序文件 它把多个过程放在一个过程文件中 其文件类型仍为Prg 过程文件一旦被打开 过程文件中包含的所有过程都被打开 从而 克服了调用多个过程 多次访问磁盘的问题 提高了程序运行的速度 16 一 建立过程文件ModifyCommand 过程文件名 过程文件是一个独立程序文件 同样是用ModifyCommand 过程文件名 建立的 二 过程文件的编写格式过程文件中的每一个过程都要用Procedure开始来说明一个过程名 用Return来结束一个过程 Procedure 过程名1 过程体命令序列 Return 每个过程都要用return结束 Procedure 过程名n 过程体命令序列n Return 17 三 过程文件的使用使用过程文件一般要经过以下几步 打开过程文件 调用过程文件和关闭过程文件 1 打开过程文件SetProcedureTo在主程序调用过程前 一定要打开包含该过程的过程文件 过程文件一旦打开 包含在该过程文件中的所有过程都已打开 系统规定 某一时刻只能打开一个过程文件 18 2 过程文件中的过程的调用Do 过程名 过程文件被打开后 能用DO 过程名 命令来调用过程文件中的任何一个过程 主程序执行到过程调用语句 就转去执行指定的过程 执行到Return语句则返回主程序调用过程的下一条命令 3 过程文件的关闭SetProcedureToCloseProcedure过程文件打开后 若不再调用过程 为了节省内存空间和保护过程文件 应将过程文件关闭 19 例 假设主程序名为MAIN PRG 过程文件名为GCWJ PRG 过程文件中包含二个名为PA和PB的过程 过程文件及主程序内容如下 主程序MAIN PRGSetProcedureToGcwj 打开过程文件DoPa 调用过程paDoPb 调用过程pb 这是主程序 CloseProcedure 关闭过程文件Return 过程文件gcwj PrgProcedurePa 这是过程pa ReturnProcedurePb 这是过程pb Return 20 例 把主菜单程序中的追加记录 修改记录 删除记录作为 个过程编写成一个过程文件 主程序Main PrgSetTalkOffK 0UseXsdaSetProcedureToGcDoWhile T ClearK 0 6 12Say 1 追加记录 8 12Say 2 修改记录 10 12Say 3 删除记录 12 12Say 4 退出系统 14 12Say 请输入相应的选择号 GetKRead 21 DoCaseCaseK 1DoZj 调用追加记录过程zj PrgCaseK 2DoXg 调用修改记录过程xg PrgCaseK 3DoSc 调用删除记录过程sc PrgCaseK 4ExitOtherwiseWait 输入的选择号有错 请重新选择输入 EndcaseEnddo 22 SetProcedureToReturn Gc Prg过程文件ProcedureZj 追加记录的过程zjAppend 用全屏幕追加记录ReturnProcedureXg 修改功能过程xgInput 请输入修改记录的学号 ToXhLocateFor学号 XhIfFound Edit 用edit修改该记录Else 查无该学生 EndIfReturn 23 ProcedureSc 删除功能过程scAccept 请输入删除记录的条件表达式 ToNrLocateFor NrIfFound DisplayDeleteWait 是否要作物理删除 Y N ToA1IfSupper A1 Y PackEndIfElse 查无满足条件的记录 EndifReturn 24 10 4自定义函数尽管VisualFoxPro系统提供了丰富的标准函数 但有时它们并不能满足某些应用程序的设计要求 这时 用户就可以为应用程序定义一些特殊的函数 用户自定义函数 一 自定义函数的基本概念自定义函数和子程序 过程相似 也是实现某个功能的一个程序块 自定义函数既可以写在主程序的后面 也可以是一个独立的程序 所不同的是自定义函数必须通过Return返回一个函数值 25 二 自定义函数的建立1 自定义函数可以和调用程序共处同一程序文件中 习惯上常把它写在主程序的最后 2 也可以用ModifyCommand命令建立一个独立的程序 程序名应定义为函数名 其扩展名也是Prg 26 三 自定义函数的编写格式不论自定义函数是写在主程序的后面 还是作为一个独立的程序来建立 其编写格式均为 Function 函数名 Parameters 形式参数表 函数体 Return 表达式 27 参数说明 它是由字母 数字或下划线组成 必须以字母或下划线开头 不能与系统提供的标准函数名同名 必须用Function 函数名 说明语句开头 Parameters 如果要向函数中传递参数 则必须用该语句定义形式参数表 各参数间用逗号隔开 尤其注意 形式参数表中各参数的类型必须与主程序的实际参数表相一致 Return 将的值作为函数值返回到调用程序中 28 四 自定义函数的调用自定义函数的调用与系统标准函数的调用方法相同 其形式为 29 例 用自定义函数的形式 编写程序计算圆面积 主程序ClearInput 请输入圆的半径 ToA 输入要计算圆的半径P Area A 调用自定义函数area A 为实际参数 圆面积s PReturn 自定义函数FunctionArea 定义函数名为areaParametersR 定义函数的形参RS 3 14159 R RReturnS 返回函数的值 30 例 用自定义函数计算组合数cmn M N M N 主程序ClearInput 请输入m的值 ToMInput 请输入n的值 ToNCmn Jc M Jc N Jc M N Cmn CmnReturn 自定义阶乘函数FunctionJcParameterKT 1ForI 1ToKT T IEndforReturnT 31 10 5参数的传递在实际应用中 有时需要在调用程序与被调用的子程序之间进行一些参数的传递来提高程序设计的灵活性 无论是在子程序 过程 还是在自定义函数中 参数传递都是一个非常重要的应用 一 传送参数与接受参数的命令1 传递参数的命令格式DoWith2 接受参数的命令格式Parameters 32 3 参数传送与接受的规则与应一一对应 接受参数的Parameters命令必须是被调用程序 子程序 过程 的第一条可执行语句 当的数量少于的数量 多余的形式参数取逻辑假的值 33 二 参数传送方式子程序 过程 函数与主程序之间的数据通信是通过实际参数与形式参数的对应传送来实现的 参数传送有值传送和地址传送两种方式 1 值传送方式当With是常量 内存变量表达式列表和加圆括号的简单内存变量时 这种传递接受参数的方式是值传送方式 值传送方式是一种单向传送 在调用时With中的变量值会按顺序传递给Parameters对应的变量 但返回时With中的变量值不会随Parameters对应变量值的变化而变化 With中的内存变量在子程序中也不会被隐含 函数的参数传送方式默认为值传送方式 34 2 地址传送方式在实际变量参数前加 符号为地址传送方式 当With是简单内存变量列表时 这种传递接受参数的方式是地址传送方式 地址传送是一种双向传送 在调用时With中的变量值会按顺序传递给Parameters对应的变量 而返回时With中的变量值会随Parameters对应变量值的变化而变化 With中的内存变量在子程序中会被隐含 35 例 已知半径为R 求圆面积S 其程序及过程如下 主程序ClearS 0Input 请输入圆的半径 ToR1DoSubWithR1 S 6 S为实际参数表 必须在过程的调用中说明 圆面积S SReturn Sub过程ProcedureSub Sub过程说明语句ParametersR2 Area R Area为过程的形式参数表 与实参表对应Area 3 14159 R2 R2Return 36 例 求S A B C 的值 主程序Store0ToS P1ForJ 1To3Input 请输入求阶乘的值 ToX1DoPpWithX1 P1S S P1Endfor S SReturn 过程ppProcedurePp 过程说明语句ParametersX2 P2 形式参数表P2 1ForK 1ToX2P2 P2 KEndForReturn 37 10 6内存变量的作用域在多模块程序中 每一个内存变量都有自己的有效作用范围 通常称之为作用域 内存变量根据其作用域可分为全局变量 私有变量 普通 局部 本地 变量和隐蔽变量四类 一 全局变量1 全局变量的概念所谓全局变量是一种可在所有程序的任何位置中定义 赋值 调用或更改的变量 在VisualFoxpro运行期间 全局变量可以被所有的程序使用 而不管它是在那一层程序中定义的 所以 不管在哪一层程序改变了全局变量的值 这个改变都会反映到其他程序中 因此 定义全局变量要特别小心 程序执行结束后 除非用命令清除 否则 全局变量将一直保留在内存中 38 2 全局变量的定义Public用Public定义的变量是全局变量 它将指定的变量定义为全局变量 并同时将这些变量的初值赋以逻辑假 F 如果定义多个内存变量 中各变量名之间用逗号隔开 39 3 全局变量的作用域在VisualFoxpro运行期间 全局变量可以在所有的程序中起作用 在上层程序中定义的全局变量 如果在下层程序中只是被重新赋值而没有改变变量类型 那么返回上层程序后 重新赋的值仍然有效 上层程序中定义的全局变量在下层程序中允许重新定义为同名的隐蔽型变量 这时 则把上层程序中定义的全局变量隐蔽起来 在该层程序中 只是重新定义的那个隐蔽型变量起作用 但返回上层程序后 隐蔽型变量被释放 全局变量恢复作用 40 例 全局变量示例 PublicA B CA 25B 125C A B 主程序中变量C的值 Str C DoGc1 调用过程后C的值 Str C ReturnProcedureGc1C 2 A B 过程中C的值 Str C Return 41 6 2普通 私有 变量1 普通 私有 变量的概念普通 私有 变量是一种直接用赋值方法定义的变量 普通 私有 变量可以在任何一层程序中定义 普通 私有 变量可以在定义变量那层程序中或下层程序中起作用 如果对其进行修改 也只能影响到建立它的那层程序或下层程序 程序执行结束后 则这些普通变量也随之被释放 2 普通变量的定义普通 私有 变量的定义有直接赋值法和间接赋值法两种方法 1 直接赋值法A 123 2 间接赋值法Store Abcd ToA1 A2 A3 42 3 普通 私有 变量的作用域普通 私有 变量可以在定义变量那层程序中或下层程序中起作用 上层程序中定义的普通 私有 变量在下层程序中允许重新定义为同名的隐蔽型变量 这时 则把上层程序中定义的普通 私有 变量隐蔽起来 在该层程序中 只是重新定义的那个隐蔽型变量起作用 但返回上层程序后 隐蔽型变量被释放 上层程序中定义的普通 私有 变量恢复作用 普通 私有 变量若在下层程序中只是重新赋值 则在返回上层程序仍然有效 43 例 普通 私有 变量的示例 ClearX 10Y Fuc 20 W 30 X Y WReturnFunctionFucParaZM X ZW 40 X M WReturnM 44 6 3局部 本地 变量1 局部 本地 变量的概念局部变量是一种使用范围最为严谨的变量 局部变量只能在定义它的那层程序起作用 而不能被高层的或低层的程序访问 一旦包含局部变量的程序执行结束后 则这些局部变量也自动随之被释放 局部变量可以区别于同名的全局变量 在程序中优先使用同名的局部变量 当你希望某些内存变量只能在某一层程序中起作用 那就需要将变量定义为局部变量 以防止与其它变量发生干扰 45 2 局部 本地 变量的定义Local用Local定义的变量是局部变量 它将指定的变量定义为局部变量 并同时将这些变量的初值赋以逻辑假 F 如果定义多个内存变量 中各变量名之间用逗号隔开 3 局部 本地 变量的作用域局部变量可以区别于同名的全局变量 在程序中优先使用同名的局部变量 局部变量只能在定义它的那层程序起作用 而不能被高层的或低层的程序访问 上层程序中定义的局部变量变量在下层程序中允许重新定义为同名的隐蔽型变量 这时 则把上层程序中定义的局部变量隐蔽起来 在该层程序中 只是重新定义的那个隐蔽型变量起作用 但返回上层程序后 隐蔽型变量被释放 上层程序中定义的局部变量恢复作用 46 例 下面是一个有关局部变量使用的例题 请分析错误 ReleaseallmemoryLocalAPublicBA ABCD 主程序中的A值 A 主程序中的B值 BDOGC2 调用后的A值 A 调用后的B值 B 调用后的C值 CProcedureGC2LocalCC 123 过程中的A值 A 过程中的B值 B 过程中的C值 CReturn 47 6 4隐蔽型变量1 隐蔽型变量的概念隐蔽型变量只是在当前的程序层中 把上层程序中已定义的同名的全局变量 普通 私有 变量和局部变量隐蔽起来 隐蔽后 你便可以在当前的程序层中创建和使用同名的变量 隐蔽型变量定义后 一定要赋值 否则 会提示 找不到变量 2 隐蔽型变量的定义Private 内存变量名表 严格地说Private并不是在创建变量 只是把上层程序中已定义的同名的全局变量 普通 私有 变量和局部变量隐蔽起来 48 3 隐蔽型变量的作用域隐蔽型变量只能在当前定义的程序中有效 当Private所在的程序执行结束后 隐蔽型变量将自动被释放 它所隐蔽的上层程序中的变量可恢复作用 而且 它的值与隐蔽前一样 不会有任何改变 49 例 理解主程序调用子程序过程中的变量屏蔽作用 程序一PublicAA ABC B 123LocalCC 456 A B CDoSub1 A B CProcSub1PrivateA B CA BCD B 456C CDE A B CReturn 50 程序二ClearPublicI JStore1ToI J KDoScx2 主程序的输出结果 I Str I 2 J Str J 2 K Str K 2 CancelProcedureScx2ClearPrivateJ KI I 2J 2 J不赋值可否 K J 1 过程中的输出结果 I Str I 2 J Str J 2 K Str K 2 Return 51 程序运行结果 过程中的输出结果 I 2J 2K 3主程序的输出结果 I 2J 1K 1 52 7数组一 数组的概念内存变量 其特点是一个内存变量只能存放一个数据 VisualFoxPro还有另一种内存变量类型 即数组变量 数组是一种特殊的内存变量 是以同一个名字组织起来的N个内存变量的集合 其中 每一个内存变量称为一个数组元素 每个数组元素都有各自的标识符 VisualFoxPro在内存允许的情况下 最多可建立65000个数组 每个数组最多可拥有65000个元素 每个数组元素的数据类型可以不同 对内存变量进行命名 赋值 保存 恢复 释放等操作对数组同样有效 数组在使用之前需要先定义 由专门的数组定义语句来实现 数组元素默认的初始值是逻辑值 F 每个数组元素的数据类型可以不同 数组分为一维数组和二维数组 53 二 数组的定义在通常情况下 数组在使用之前需要先定义 所谓定义数组 就是指明该数组的名称 确定数组的维数与大小 确定数组的作用范围 数组名以字符 下划线开头 可以包括字符 数字及下划线 最长可达254字符 VisualFoxPro支持一维及二维数组 一个数组的维数与大小决定了一个数组所能保存的元素的个数 如果是一维数组的话 该数组有几个元素 如果是二维数组 则该数组有几列 几行 根据数组的作用范围 数组又可分为局部数组和全局数组 54 1 局部数组定义Dimension数组名1 数组名2 2 全局数组定义Public数组名1 数组名2 55 参数说明 数组的定义包括二个内容 定义数组名 数组的维数或数组元素的个数 数组定义后 数组所有元素被自动赋为逻辑假 F 如果是定义一维数组 则表示数组元素的个数 如果是定义二维数组 则和表示二维数组的行数和列数 如果是定义多个数组 则各数组之间用逗号 分隔 数组定义后 数组的最小下标是1 数组可以重新定义 而且原数组元素的值可以根据重新定义的情况保持或删除 56 例 数组定义示例 DimeAr1 6 Mn 12 定义二个一维局部数组publicabc 12 Bcd 5 8 定义一个一维全局数组和一个二维全局数组 57 7 3数组元素的表示与引用数组元素的表示是对数组元素访问的标识符 数组元素的表示有数组下标和数组元素序号二种表示方法 数组下标表示方法 数组名 数组元素序号表示方法 数组名 对于一维数组而言 数组元素的下标表示方法与序号表示方法是相同的 对于二维数组而言 数组元素的下标表示法与序号表示法是不相同的 58 例 数组元素的下标与序号示例 DimeAB 6 下标表示 AB 1 AB 2 AB 3 AB 4 AB 5 AB 6 序号表示 AB 1 AB 2 AB 3 AB 4 AB 5 AB 6 DimeCD 2 4 下标表示 CD 1 1 CD 1 2 CD 1 3 CD 1 4 CD 2 1 CD 2 2 CD 2 3 CD 2 4 序号表示 CD 1 CD 2 CD 3 CD 4 CD 5 CD 6 CD 7 CD 8 59 例 数组元素下标表示与数组元素序号表示 DimeA 5 8 Store5ToAA 3 6 A 1 A 38 A 2 7 A 22 A 1 60 7 4数组的赋值数组的赋值和内存变量赋值一样 有间接赋值和直接赋值二种 赋值的形式有给整个数组赋值和给数组元素赋值二种 没有赋值的数组元素的值自动为 F 1 数组间接赋值Store 表达式 To 数组名 数组元素 Input 输入数据 ToX i 61 例 定义数组并给数组间接赋值 DimensionAr 6 Mn 4 6 Store12ToAr 给Ar局部数组所有元素赋值为12DisplayMemoryLikeArStore 字符 ToMn 2 1 给Mn局部数组Mn 2 1 元素赋值为 字符 Store 2005 11 08 ToMn 2 2 给Mn局部数组Mn 2 2 元素赋值为 2005 11 08 Store T ToMn 2 3 给Mn局部数组Mn 2 3 元素赋值为逻辑值 T Store24ToMn 2 4 给Mn局部数组Mn 2 4 元素赋值为24 其余为 F DisplayMemoryLikeMn 62 例 建立一个X N AB 5 8 的数组 C