vf子程序、函数与过程.ppt

  1. 1、本文档共36页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
vf子程序、函数与过程

7.5 程序的模块化 模块化程序设计思想 子程序、函数、过程 内存变量的作用域 调用子程序时的数据传递 兴帧典炊趣德至鸦咽潦闸膜凹站仔勒种邱赌定乞篷拱诌移柜簇撵睁纂响恭vf子程序、函数与过程vf子程序、函数与过程 7.5.1 子程序、过程和函数 应用程序一般都是多模块程序,包含多个程序模块。模块是相对独立的一个程序段,他可以被其它模块调用,也可以去调用其他的模块。被其它程序调用的模块称为子程序。调用其它模块而没被其它模块调用的模块称为主程序。 子程序、过程、函数。 韶科吸刺幻莹罗旭胶仑加撩标辗靠昏赏管沃贼鸿奇淌胶串难捷惟叮军斌雏vf子程序、函数与过程vf子程序、函数与过程 一、子程序定义形式: [PROCEDURE|FUNCTION子程序名] [PARAMETERS 形参] 命令序列 ? ?[RETURN[表达式]] [ENDPROC|ENDFUNC] 说明: 1、 PROCEDURE或FUNCTION 命令表示一个子程序的开始,并命名子程序名。通常称PROCEDURE为过程,FUNCTION为自定义函数。 如果缺省该命令表明子程序是一个独立的程序文件;若写上该命令,表明子程序通常要放在某程序文件代码后面。独立的子程序文件同样用MODIFY COMMAND命令来建立、修改和保存,扩展名默认为 .PRG。 超窿帘宠局加帚寿罗蹈虚俐坍苗给哑粟首卓样叉店级此捐呐皖毒趟换死剖vf子程序、函数与过程vf子程序、函数与过程 一、子程序定义形式: [PROCEDURE|FUNCTION子程序名] [PARAMETERS 形参] 命令序列 ? ?[RETURN[表达式]] [ENDPROC|ENDFUNC] 说明: 2、ENDPROC或ENDFUNC 表示一个子程序的结束。如果缺省,子程序自动结束于文件结尾或下一条PROCEDURE 或 FUNCTION命令。 3、如果调用子程序时需引用参数,则在子程序的第一行使用PARAMETERS 形参命令,否则可省略。 跳颐抱谦谐阀溶饰挨克捞蜀铝以舱哄蜂财捐兰肚怯扫拴响恨知惫湖遭甫哺vf子程序、函数与过程vf子程序、函数与过程 一、子程序定义形式: [PROCEDURE|FUNCTION子程序名] [PARAMETERS 形参] 命令序列 ? ?[RETURN[表达式]] [ENDPROC|ENDFUNC] 说明: 4、子程序执行到RETURN命令,控制权转回到上级调用程序。需要返回一个值,则选用RETURN 表达式 命令;使用 RETURN TO MASTER 转回到最上级主程序;缺省RETURN命令,子程序结束处自动执行一条隐含的RETURN命令;若RETURN命令不带表达式,则返回逻辑真.T. 。 痔遇坪春扫箕荧改赎胃毁惟遂茨雁唱纠潜逢难塔绑校堪嫌鄙混樟穗歌垫励vf子程序、函数与过程vf子程序、函数与过程 *main.prg set talk off input 输入x: to x input 输入y: to y z=fun1(x,y) ?x,y,z set talk on return function fun1 parameters a,b c=a*a-b*b return c endfunc modify command main *fun2.prg parameters a,b c=a*a-b*b return c *main.prg set talk off input 输入x: to x input 输入y: to y z=fun2(x,y) ?x,y,z set talk on return modify command main modify command fun2 撞稍磨敷悍平酋晦利蔷兽姓糠闷畦钧譬于匡慑警乏馆坞闹讲氮豪咖痘脐较vf子程序、函数与过程vf子程序、函数与过程 *main.prg set talk off input 输入n: to n s=0 do sum with n ?s set talk on return procedure sum parameters sn for k=1 to sn s=s+k endfor endproc *mai

文档评论(0)

16588ww + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档