[VFP第12部分模块化.pptVIP

过程、自定义函数及过程文件 与子程序不同的是，过程往往不是一个独立的程序，是程序文件的一个组成部分，习惯上把它写在主程序的最后，并冠以procedure 过程名标志。 一、过程 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. procedure 过程名 [parameters 参数表] 命令序列 return 1. 过程的格式 命令格式： Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. do 过程名 [with 参数表] 2. 过程的调用 命令格式： Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 例：输入圆的半径，求圆的面积。 clea area=0 input “输入半径：” to r do sub3 with r,area ?”圆的面积为：”,area Retu Procedure sub3 parameter a,b b=pi()*a^2 retu Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 与系统函数类似，自定义函数通过函数名返回函数值。 二、自定义函数 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. [function 函数名] [parameters 参数表] 〔命令序列〕 return 〔表达式〕 1、自定义函数的定义 命令格式： Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 函数名(参数表) 2、自定义函数的调用 调用格式： Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 例：输入圆的半径，利用自定义函数求圆的面积。 解法一：自定义函数作为一个独立的文件。 自定义求圆面积的函数area.prg如下： ? parameters a return PI()*a^2 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 程序设计基础 －－模块化程序设计 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 程序设计的三种基本结构： 顺序结构 分支结构 循环结构 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. （1）模块化设计思想（2）子程序、子程序调用 (重点)（3）变量的作用域 (重点) （4）过程、自定义函数及过程文件 本次课的知识点 Evaluation only.