资源描述：
《vfp-程序设计-子程序过程函数》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、VFP程序设计-子程序过程函数主讲：杜春敏1[问题]如果程序中需要多次使用相同或相似的代码段，有没有更好的方法来解决？题目：计算1-100的和加上1-200的和S=0I=1DowhileI<=100s=s+II=I+1EnddoI=1DowhileI<=200s=s+II=I+1EnddoS=0I=1Dosumwith100Dosumwith200*sum.prgParatI=1DowhileI<=ts=s+II=I+1Enddo并列的两个循环一个循环，两次调用212[两段代码][一段代码，两次调用]3子程序、过程和自定义函数为了提高程序的通用性，常采用模块化的程序设计方法。一
2、个结构上相对独立的程序段就是一个模块，这种模块可以是:子程序、过程或自定义函数。他们在命名方式、存储方法和参数传递上略有不同。4子程序、过程和自定义函数一、子程序子程序是一个相对独立的程序段。子程序总是被其他程序调用，一般不单独执行。一）建立和修改用MODICOMM命令例如：MODICOMMSUM.PRGMODICOMMTJ51.调用子程序DO<子程序文件名>[WITH参数表]例如：DOSUMWITH100,200DOTJ2.返回RETURN[TOMASTER]从子程序返回上一级子程序.TOMASTER选项,则返回主控程序.二)调用、返回子程序、过程和自定义函数6SETTALK
3、OFFX=3F=1DOFACTC=FX=4F=1DOFACTC=C+FX=5F=1DOFACTC=C+F?‘C=’,CSETTALKON例：计算3！+4！+5！Y=1DOWHILEY<=XF=F*YY=Y+1ENDDORETURN子程序FACT.PRG主程序JS.PRG实际操作：运行：DOJS7settalkoffstore2tox1,x2,x3x1=x1+1doz1?x1+x2+2*x3例:写出程序运行结果.X2=x2+1doz2?x1+x2+x3x3=x3+1returnto;masterZZ.PRGZ1.PRGZ2.PRG?思考：如果将RETURNTOMASTER改成RE
4、TURN,结果如何?8SETTALKOFFS=0INPUT‘请输入三角形的一边：’TOAINPUT‘请输入三角形的一边：’TOBINPUT‘请输入三角形的一边：’TOCDOJSWITHA,B,C?S例:求三角形面积。PARAx,y,zT=(x+y+z)/2S=SQRT(T*(T-x)*(T-y)*(T-z))主程序SAN.PRG子程序js.prg实际操作：运行：DOsan9过程是子程序的另一种形式。所不同的是,子程序是独立程序,而过程是过程文件的组成部分,可以把多个过程包含在一个文件当中。这样,当过程文件打开时,它所包含的多个程序也同时调入内存，这样提高了程序运行速度。注：命令
5、文件和过程文件可以并存,但一次只能打开一个过程文件。三.过程及过程文件10子程序文件过程过程过程过程文件子程序过程程序过程复杂的过程文件11一)建立1.方法：用MODICOMM命令.例如:modicommgeneral2.过程的结构:PROCEDURE<过程名><过程体>RETURN[TOMASTER/TO<过程名>]或Endproc例如：procedurejiaparax,y,ss=x+yendproc三.过程及过程文件-建立12过程文件可以由多个过程构成：PROCEDURE<过程名><过程体>RETURN[TOMASTER/TO<过程名>]PROCEDURE<过程名><过程
6、体>RETURN[TOMASTER/TO<过程名>]PROCEDURE<过程名><过程体>RETURN[TOMASTER/TO<过程名>]13二)过程文件的打开和关闭打开:SETPROCEDURETO<过程文件名>关闭:SETPROCEDURETO或:CLOSEPROCEDURE三)调用打开过程文件后,用DO<过程名>[WITH参数表]三.过程及过程文件-打开、关闭、调用14三.过程及过程文件-示例PROCEDUREjiaparax,y,ss=x+yEndprocPROCEDUREjianparax,y,ss=x-yEndprocPROCEDUREchengparax,y,ss
7、=x*yReturn过程文件general.prg使用方法:SetproctogeneralX=100Y=200S=0Dojiawithx,y,s?sDojianwithx,y,s?s……Setprocto15SETTALKOFFSETPROCTOgeneralN=10S=0FORM=1TONX=MDOjc&&求阶乘DOsum&&求和ENDFORSETPROCTORETUPROCjcT=1FORF=1TOXT=T*FENDFORX=TRETUPROCsum?M,SS=S+XRETU例:打印出
