重庆专升本计算机VF程序设计

VFO程序设计复习1程序设计概述一、程序的概念概念：具有一定功能的计算机能执行的指令的集合。例1：显示表XSDA可编写成如下命令序SETDEFATOF:\表USEXSDALISTCLOSEALL例2：求a=3,b=2,c=5求a+b-c=?程序test.prg代码如下：a=3b=2c=5x=a+b-c?x二、常见的程序设计方法1、

结构化程序设计（模块化）结构化程序设计是一个面向过程的概念。把一个实际问题分为两部分，即数据和过程。通过动态的程序执行过程来对静态的数据进行解决，得出对的的结果。由VFP命令和程序设计命令的组合，需编制和调试；2、

面向对象的程序设计3、结构化程序设计它是面向过程程序设计的另一种描述，面向过程程序设计有如下特点：①整个程序分为若干个模块，模块之间相衔接，且相对独立。②第个模块只有一个入口和一个出口。③第个模块都能单独执行，且在有限时间内执行完。④采用自顶向下、逐步求精的方法。三、程序三大基本结构1、顺序结构：执行是按命令出现的先后顺序执行。2、分支结构：按给定的条件成立与否来决定程序起向，分单向选择分支、双向选择分支和多路分支。有以下两种IF语句 DOCASE ENDIF ENDCASE3、循环结构：程序的执行发生了自下而上的往复，某一程序段将反复执行。有以下三种DoWhile For SCANENDDO ENDFOR ENDSCAN四、算法和流程图算法：解决某一问题的方法与环节。见教材例。流程图：算法的描述，除用自然语言描述外，计算机领域常用流程图（ANSI图和N－S图）描述。见教材例。例如：乐山到成都怎么去？1、

解一元二次方程的算法。Ax2+bx+c=0,求x2、

求出1-100之间的质数。X/=>2到SQRT(X)2程序的建立和执行一、程序的扩展名：PRG实质：文本文献（ASCII编码）执行时，会产生编译文献FXP后让计算机执行。二、程序文献的建立和编辑1、命令方式：MODICOMM程序名.PRG（.PRG可省）2、菜单方式；文献=>新建=>程序3、项目管理器中建立的方法：建立项目管理器=>新建程序4、其他方法：其它可编辑文本的软件:记事本\写字板\WORD\其它程序编辑器注意：希望编写程序之前事先设立好默认目录（setdefato……）然后我们编写的程序就会自动存储在那个目录中。例如：setdefatod:\ksmodicommTest(相称于是：modicommD:\ks\test.prg)三、程序的执行1、命令方式命令格式：DO[盘符][途径]程序名2、菜单方式：“程序”菜单->“运营”命令在“运营”窗口中输入被运营的程序文献名，即可运营程序。四、VFP程序的分类：数学类程序、涉及到表操作的程序假如本程序是涉及到表操作的程序，那么：1、在程序开始部分可以先加语句CLEAR和CLOSEALL2、程序最后可以使用命令CLOSEALL3、然后使用RETURN或CANCEL或QUIT例：找出并显示所有三好生CLEARCLOSEALLUSE学生LOCATEFOR三好生DOWHILENOTEOF()DISPCONTINUEENDDOCLOSEALLRETUREN3顺序程序设计与常用语句一、程序设计中的常用语句1、输入命令（1）赋值命令命令一：STORE<表达式>TO<内存变量>命令二：<内存变量>=<表达式>（2）交互式输入命令（注意：输入数据是在程序执行的时候）INPUT[提醒信息]TO<内存变量>ACCEPT[提醒信息]TO<内存变量>WAIT[提醒信息][TO<内存变量>][TIMEOUT<等待时间>说明:①提醒信息是C型,它会在屏幕上原样输出.②WAIT命令的功能：暂停程序执行，显示提醒信息等待用户按键。Wait命令中输入的只能是一个字符（C型）。③Input合用于所有类型内存变量，输入时需要加定界符④Accept只合用于C型，并且C型不加定界符注意：Input和accept在编写程序时语句都同样，只是执行程序（do）时，主屏幕上规定输入的类型和格式不同。例1：输入a、b、c的值，对2ax+b=c求x的值。ClearInput“现在计算2ax+b=c，请输入a的值：”toaInput“请输入b的值：”tobInput“请输入c的值：”tocx=(c-b)/(2*a)?’x的值为：’,x&&比较使用?’x的值为：’+str(x,3)有何区别return例2、查找学生.dbf中的指定记录clearclosealluse学生listaccept“请输入您想查找的姓名:”toxmLocatefor姓名=XM&&或命令SEEKXMiffound()DISPelse?’对不起，没有找到此人’endiflistcloseallReturn思考：假如accept换成input，输入的时候该怎么输入？例3、删除学生.dbf中的指定记录clearclosealluse学生listinput“请输入您想删除的记录号:”toxdelerecoxwait“你想彻底删除这条记录吗？(y/n)”toaskifask=’Y’orask=’y’packendiflistcloseall注意区分互换方式和程序方式：有的命令可以在两种状态下执行（例如：刚才的输入命令），但有些命令只能在程序方式下执行（例如：循环语句和分支语句）（3）格式输入命令格式一：@行,列say提醒信息格式二：@行,列say提醒信息get变量……READ格式三：@行,列say提醒信息get变量default常量功能：在屏幕指定的坐标位置上显示提醒信息，然后通过READ命令激活GET子句的变量值。说明：①GET后的变量可以是内存变量或当前打开的数据文献中的字段变量，若是内存变量，应在执行该命令前对内存变量赋值，否则就必须使用default参数赋初值。②输入的值类型应当与初值类型相同。③READ命令与GET命令必须配合使用。多个GET命令可以只用一个READ命令配合。假如没有read则表达只显示内容，不输入值。例1：编写程序完毕在学生.DBF中追加记录CLEARUSE学生APPENDBLANK@5,20SAY“学号”GET学号@5,40SAY“姓名”GET姓名@7,20SAY“性别”GET性别@7,40SAY“出生年月”GET出生年月@9,20SAY“入校总分”GET入校总分@9,40SAY“三好生”GET三好生READCLEARLISTCLOSEALLRETURN例2：编程求长方形的面积。CLEARX=0&&X为内存变量，赋初值Y=0@1,5SAY“计算长方形的面积”@2,5SAY“输入长方形的长：”GETX&&第2行5列显示提醒信息并等待输入@3,5SAY“输入长方形的宽：”GETY&&第3行5列显示提醒信息并等待输入READ&&从键盘输入X，Y的值S=X*Y&&计算长方形的面积?“长方形的面积：”,S&&显示长方形的面积CANCEL思考题1:如将上述例1程序改为按照指定学号来修改记录应当如何做?(答案见课件后)3、输出命令⑴：非格式输出命令?和？？⑵：格式化输出命令@行,列say表达式说明：行和列都可以是表达式，经常可以使用函数ROW()和COL()ROW()表达返回当前行的行号COL()表达返回当前列的列号例1：N=1CH=“VF程序设计”@N,26SAYSPACE(60)@N+1,26SAYCH例2：循环输入值cleardimexh(10)store0toxh@10,10say'请输入数字:'getxh(1)i=2dowhilei<=10@row()+1,10say'请输入数字:'getxh(i)i=i+1enddoreadlistmemolikexh4、其他程序运营命令（1）终止程序执行命令

CANCEL、QUIT和RETURNQUIT:退出程序运营并且退出VisualFoxproCANCEL:退出程序运营RETURN:返回上级程序调用点，假如是主程序就表达退出程序。主程序可缺省此命令返回（结束），即默认使用了return注意：上述命令执行完后都会自动clearmemory。但是假如有数据库和表打开不会自动关闭，所以使用数据库和表后在程序结束时我们经常需要加命令：closeall（2）清屏命令CLEAR（3）注释命令（

NOTE、*和&&）注释的含义：程序员对程序语句功能的说明，执行程序的时候不执行注释中的内容，注释只起到一个对语句说明的目的。一般复杂程序中应有30%以上的注释。（4）TEXT语句：原样输出（参考书143例4.15）（5）系统设立命令set…on/off或者是set…to1、设立会话状态SETTALKON/OFF2、设立跟踪状态SETECHOON/OFF3、设立打印状态SETPRINTERON/OFF4、设立定向输出状态SETDEVICETOSCREEN5、设立精确比较状态SETEXACTTOON/OFF6、设立日期格式SETDATEANSI7、色绘制系统提供的保护状态SETSAFETYON/OFF8、设立删除记录标记状态（掌握）SETDELETEDON/OFF功能：屏蔽或解决有删除标记的记录说明：在命令格式中选择ON时，各命令当不对有删除标记的记录进行操作，但索引除外。系统默认值为OFF思考题1答案:CLEARUSE学生ACCEPT"请输入需修改记录的学号："TONUMLOCATEFOR学号=NUM@5,20SAY"学号"GET学号@5,40SAY"姓名"GET姓名@7,20SAY"性别"GET性别@7,40SAY"出生年月"GET出生年月@9,20SAY"入校总分"GET入校总分@9,40SAY"三好生"GET三好生READCLEARLISTCLOSEALLRETURN4顺序结构和分支结构一、顺序结构例1：求圆的面积（公式S=ΠR2）CLEARINPUT“请输入半径R的值：”TORS=3.1416*R*R？”圆面积为：”，SCANCEL二、分支结构（选择结构）1、IF语句（1）单向选择： 双向选择：IF条件 IF条件执行语句执行语句ENDIF ELSE 执行语句 ENDIF(2)单向选择分支例如：求任意一个数值的绝对值CLEARSETTALKOFFINPUT“请输入数值：”TONIFN<0 N=-NENDIF？”|N|的绝对值为：”，NCANCEL(3)双向选择分支例1：用户输入数据表文献名，判断它存在否，假如存在则打开数据表文献并显示表中的所有记录clearaccept'请输入数据库文献名：'toheng&&想想为什么不用inputiffile(heng+‘.dbf’)&&了解file()的使用方法use&heng&&想想这儿为什么要用&代换listelse?'sorry,文献不存在：（'endifcloseall&&关闭所有打开的表，假如不涉及多工作区，可以只使用use例2：判断输入的整数为奇数还是偶数。CLEARINPUT“请输入整数：”TONIFN%2=0&&该表达式还可用MOD(N,2)=0来表达 ?STR(N,4)+”是偶数”ELSE?STR(N,4)+”是奇数”ENDIFCANCEL(4)IF语句的嵌套例如：将用户输入的小写英文字母转化成大写CLEARACCEPT“请输入1个字母：”TOSTR1IFSTR1>=’a’ANDSTR1<=’z’STR1=UPPER(STR1)?SPACE(40)+STR1ELSEIFSTR1>=’A’ANDSTR1<=’Z’?SPACE(40)+STR1ELSE?’您输入的不是英文字母’ENDIFENDIF2、多向选择DOCASECASE <条件表达式1><命令序列1>CASE<条件表达式2><命令序列2>……OTHERWISE&&其它情况<命令序列>ENDCASE说明:OTHERWISE可以没有.例1：比较A、B的大小CLEARINPUT“请输入A的值：”TOAINPUT“请输入B的值：”TOBDOCASE CASEA>B ?”A大于B” CASEA<B ?”A小于B” CASEA=B ？”A等于B”ENDCASE例2：邮局负责邮购小物品规则如下：50公里及以内收取额外金额5元，50-100公里收取10元，100-200公里收取20元，200-500公里收取40CLEARINPUT“请输入您想邮购物品的路程（公里数）：”TOXDOCASECASEX<=50Y=5CASEX>50ANDX<=100Y=10CASEX>100ANDX<=200Y=20CASEX>200ANDX<=500Y=40OTHERWISE Y=50ENDCASE?’对不起,您需要付款:’,Y,’元人民币’5循环程序设计1、条件循环格式一：DOWHILE条件命令序列ENDDO格式二：DOWHILE条件 语句序列[LOOP]语句序列[EXIT]语句序列ENDDO要退出循环，需要条件为假的时候（条件=.F.时）说明：（1）LOOP和EXIT命令一般放在IF条件中，也可以出现在循环体内的任何位置。若执行循环体时碰到LOOP命令，则直接返回执行DO命令，测试条件以决定是否继续循环。若碰到EXIT命令，则不执行下面的命令序列，直接跳出循环，执行ENDDO后面的命令。（2）条件表达式的值拟定了循环是否继续，当条件表达式的值始终为真（即永真循环），则应使用EXIT命令来控制循环结束例1：将字符“欢迎进入乐山师范学院”从屏幕的顶部移至底部CLEARCH=“欢迎进入乐山师范学院”N=1DOWHILEN<=23 @N,26SAYSPACE(60) @N+1,26SAYCHT=INKEY(0.2) &&等待0.2秒N=N+1ENDDORETURN注：INKEY（[<数值表达式>]） 功能:等待用户按键或鼠标输入,等待时间由数值表达式拟定(单位为秒)返回由按键而产生的一个整数值.例2：实现显示出所有的男生CLEARCLOSEALLUSE学生DOWHILENOTEOF()IF性别=’男’ DISPENDIFSKIPENDDOCLOSEALLLOOP循环实例例1：I=0DOWHILEI<10I=I+1IFINT(I/2)=I/2LOOPENDIF?”*”ENDDO例2：CLOSEALLCLEARUSE学生DOWHILENOTEOF()DISPWAIT‘你想修改本记录吗？（Y/N）’TOXIFX=’N’ORX=‘n’SKIPLOOPENDIFEDIT SKIPENDDOCLOSEALL程序执行到WAIT语句后，假如用户输入的是’N’或’n’，那么就LOOP（也就跳过本次循环，不执行后面的EDIT）永真循环DOWHILE.T.DOWHILE.T.IFY>0IFY>0EXITQUITENDIFENDIFENDDOENDDO假如Y>0，则退出本循环假如Y>0，则退出程序，退出VFDOWHILE.T.DOWHILE.T.IFY>0IFY>0RETURNCANCELENDIFENDIFENDDOENDDO假如Y>0，则退出程序返回上层假如Y>0，则退出程序，回到VF中上述语句LOOP、EXIT、QUIT、RETURN、CANCEL等也可以在后面讲的其它循环语句中使用。例1：通过键盘输入三角形的边长，若边长对的，立即在屏幕上显示三角形的面积，若边长不对的，重新输入边长，若输入的边长中任意一边为0则程序立即结束。CLEAR?”现在计算三角型的面积，假如想退出程序请输入0。”DOWHILE.T. INPUT“请输入边长a：”TOA INPUT“请输入边长b：”TOB INPUT“请输入边长c：”TOC IFA=0ORB=0ORC=0?’结束’RETURNENDIFIFA+B<=CORA+C<=BORB+C<=A?’错误的三角型，请重新输入！’LOOPENDIF S=(A+B+C)/2 AREA=SQRT(S*(S-A)*(S-B)*(S-C)) ?’该三角型的面积是：’,areaENDDO例2：有下列表：book(书名C(20),作者C(8),出版日期D,内容简介M)编写程序：查询关于foxpro的图书.

USEBOOKLOCATEFOR‘foxpro’$书名IF!FOUND()?’没有关于foxpro的图书’ELSE` DOWHILE!EOF()CLEAR?书名,作者,出版日期?内容介绍WAIT“是否继续查找?(Y/N)”TOMIFM$’nN’EXITENDIFCONTINUEENDDO ?”所有显示完毕”ENDIF2、计数循环FOR循环变量=初值TO终值[STEP步长] 语句序列ENDFOR说明:(1)当省略步长值时,系统默认步长值为1.当初值小于终止值时,步长值为正值,当初值大于终值时,步长值为负值.步长值不能为0,否则会导致死循环.(2)可在循环体内嵌入[LOOP]和[EXIT]命令,功能和用法与条件循环中该命令的用法相同.例1：求1~100的和SUM=0FORn=1TO100SUM=SUM+nENDFOR?’1~100的总和为：’,SUM使用DOWHILE实现：SUM=0n=1DOWHILEn<=100 SUM=SUM+n n=n+1ENDDO?’1~100的总和为：’,SUMFOR和IF语句嵌套例2：求1到N之间能被3整除的数的和CLEARM=0INPUT“请输入N的值：”TONFORX=1TONIFMOD（X，3）=0 M=M+X ENDIFENFOR？”M的值为：”，MRETURN例3:找出2-100之间所有的质数算法研究:FORI=1TO100 假如此数是质数 显示这个数ENDFOR判断一个数是不是质数,应当看它是否能被其它数整除.当一个数I,从I从2到SQRT(X)都没有数能被整除,那么它就是FORJ=2TOINT(SQRT(I)) IFIMODJ=0EXITENDIFENDFORIFJ>INT(SQRT(I))?I,’是质数’ENDIF特别:2是个质数.综上所叙述:完毕程序为:CLEAR?’2是质数’FORI=3TO10FORJ=2TOINT(SQRT(I)) IFMOD(I,J)=0EXIT ENDIF ENDFOR IFJ>INT(SQRT(I))?I,’是质数’ ENDIFENDFOR3、库文献扫描循环SCAN范围FOR/WHILE条件语句序列ENDSCAN例1：查询所有入校总分在570以上的人.CLEARCLOSEALLUSE学生SCANFOR入校总分>570DISPENDSCANCLOSEALL例2：用户可以循环输入并查找入校总分,直到输入的是负数就退出.CLEARCLOSEALLUSE学生INPUT“请输入你要查找的入校总分,输入负数则退出:”TOXDOWHILEX>=0 SCANFOR入校总分=XDISPENDSCANINPUT“请输入你要查找的入校总分:”TOXENDDO例3：编写程序，对于学生.dbf可以在程序末尾循环插入新记录（掌握）

CLEARCLOSEALLUSE学生DOWHILE.T.APPEBLANK@5,20SAY'学号'GET学号@5,40SAY'姓名'GET姓名@7,20SAY'性别'GET性别@7,30SAY'出生年月'GET出生年月 @9,20SAY'入校总分'GET入校总分 READ WAIT'你想继续插入新记录吗?(Y/N):'TOXIFX='N'ORX='n'EXITENDIF CLEARENDDOCLEARLISTCLOSEALL例4：编写程序，该程序可以顺序修改表学生.DBF中的所有数据。（掌握）（规定：必须使用@行,列say...get..进行数据修改）CLEARCLOSEALLUSE学生DOWHILE.T.ifeof()exitendif@5,20SAY'学号'GET学号@5,40SAY'姓名'GET姓名@7,20SAY'性别'GET性别@7,30SAY'出生年月'GET出生年月@9,20SAY'入校总分'GET入校总分READWAIT'你想继续修改记录吗?(Y/N):'TOXIFX='N'ORX='n'EXITENDIFCLEARSKIPENDDOCLEARLISTCLOSEALL4、多重循环例1：输入n的值，求1+1/2!+1/3!+1/4!+….+1/n!（阶乘n!=1*2*3*4....*(n-1)*n）CLEARSUM=0MUL=1INPUT"请输入n的值："TONFORi=1TONFORj=1TOiMUL=MUL*JENDFORSUM=SUM+1/MULENDFOR?'求得的总和为:',SUM例2：打印九九表方法一：CLEARFORA=1T09FORB=1TOAT=A*B??STR(B,1)+“*”+STR(A,1)+“=”+STR(T,2)+“”ENDFOR?”“ENDFORRETURN方法二：CLEAR@1,1say"*"fora=1to9@a+1,1saystr(a,1)nextforb=1to9@1,b*3saystr(b,1)forc=1tobp=c*b@b+1,c*3saystr(p,2)nextnextcancel例3：图形打印CLEARfora=1to5内循环外循环 forc=1toa内循环外循环 ??“*" next ?nextCancel说明：打印图形时，一般外循环控制打印行数，内循环控制每一行打印图形个数。6数组的应用一、数组的定义DIMENTION数组名(数值表达式1,[数组表达式2...])定义后单元默认值为.F.二、一维数组1、定义一个一维数组：dimea(10)---定义一个10数组,且所有单元默认值为.F.2、赋值：例如：a=''a(1)=20a(3)={^2023/09/23}a(7)=.T.....循环赋值：dimea(10)i=1dowhilei<=10input'请输入数:'toa(i)i=i+1enddo或者是：fori=1to10input'请输入数:'toa(i)Endfor3、显示值：fori=1to10?a(i)endfor使用dowhile大家思考方法2：listmemolikea二、二维数组例如：dimes(5,4)1、赋值：例如：s=0s(3,4)=.t.s(12)=‘AYA'&&相称于S(3,4)=‘AYA'2、循环赋值fori=1to5forj=1to4input'输入值：'toa(i,j)endforendfor3、显示值：fori=1to5forj=1to4??a(i,j)+space(2)endforendfor三、举例输入10个数，将它们按照从大到小的顺序排列算法研究：方法1：连续的两两比较方法2：将每个数和最后一个数比较程序cleardimea(10)?'输入10个数:'fori=1to10input"请输入:"toa(i)endforfori=1to9forj=1toiifa(j)>a(i+1)t=a(i+1)a(i+1)=a(j)a(j)=tendifendforendforlistmemolikea例2:将1、2、3、…10顺序输入一维数组，实现顺序输出和逆序输出。DIMEA（10）FORI=1TO10A（I）=IENDFORFORI=1TO10？A（I）ENDFORFORJ=10TO1STEP–1？A（J）ENDFOR例3：排序问题(规定:不一定能编写,但是重点地方能填空,基本方法要能理解)

输入5个数，将它们按照从大到小的顺序排列

算法：（软件技术支持第263页）稳定的算法：

插入法排序（将一个数据插入到已经排列好的序列中）

冒泡排序（比较每次产生最大数）

归并排序（两两合并[][][][]）

不稳定的算法：（相同数据位置也许互换）

选择排序（通过互换位置，最小的放在第一，次小的第二……）

实现算法：冒泡排序

n个数要比较n-1趟

每趟要比较的次数为:n-趟数

(3)每次比较:

假如当前数a(j)大于后一个数a(j+1)那么就互换,否则不互换

cleardimea(5)

?'输入5个数:'

fori=1to5

input"请输入:"toa(i)

endfor

fori=1to4 &&外循环是行(趟数),内循环是列(比较次数)

forj=1to5-I

ifa(j)>a(j+1)t=a(j+1)

a(j+1)=a(j)

a(j)=t

endif

endfor

endfor

FORI=1TO5?A(I)ENDFOR对N个数排序（从小到大）

clear

input"请问你想对多少个数进行排序？"ton

dimea(n)

?'请输入',n,'个数:'

fori=1ton

input"请输入:"toa(i)

endfor

fori=1ton-1

forj=1ton-i

ifa(j)>a(j+1)

t=a(j+1)

a(j+1)=a(j)

a(j)=t

endif

endforendfor

算法二：每次比较将当前数和最后一个数据比clear

input“请问你想对多少个数进行排序？”ton

dimea(n)?'请输入',n,'个数:'

fori=1ton

input"请输入:"toa(i)

endfor

fori=1ton-1

forj=1ton-i

ifa(j)>a(n-i+1)

t=a(n-i+1)

a(n-i+1)=a(j)

a(j)=t

endif

endfor

endfor

listmemolikea

算法三:

clear

input“请问你想对多少个数进行排序？”ton

dimea(n)

?'请输入',n,'个数:'

fori=1ton

input"请输入:"toa(i)endfor

fori=1ton-1

forj=1ton-i

ifa(j)<a(n-i+1)

t=a(n-i+1)

a(n-i+1)=a(j)

a(j)=t

endif

endforendfor

listmemolikea7子程序、过程和自定义函数一、子程序1.子程序的概念2.子程序的建立和调用3.子程序的嵌套a1.prg

a2.prg

a3.prg?'***'

?'@@@'

?'$$$'

doa2

doa3

return

?'###'

?'999'

return思考：以上程序运营后结果是什么?

***@@@$$$999

###

说明：1、假如将a2.prg或者a3.prg的return语句改成cancel,那么程序当执行到cancel的时候就会结束，不返回2、假如将a3.prg的return语句改成returntomaster想想结果会怎么样呢？请先看看书P169页二、变量的三种类型1、全局变量（定义：用public命令或在命令窗口中赋值的变量）有效范围：主程序和所有子程序2、私有变量（定义：private）或变量屏蔽有效范围：当前程序,在子程序中修改与主程序同名的变量，只要返回主程序，本来同名变量中的值不变3、局部变量（可用LOCAL来定义，定义好后默认值为.F.，或是在当前程序中赋值的变量）有效范围：当前程序及当前程序以下的所有子程序例：主程序MAIN1.PRGCLEARpublici,jstore1toi,j,kdo程序2?"主程序的输出结果:"?"I="+STR(I,2)+"J="+STR(J,2)+"K="+STR(K,2)Cancel子程序：CLEARPRIVATEJ,KI=I*2J=I+1K=J+1?"子程序的输出结果:"?"I="+STR(I,2)+"J="+STR(J,2)+"K="+STR(K,2)RETURN例2：main.prgsc.prgxb.prg

privatemCleary=x+10Input“请输入x的值:”tox m=143m=y*10Privatey doxb z=int(m/100)Publiczz=z+mreturnDoscreturny=sqrt(x)+sqrt(z)?yreturn三、参数传递（教材172功能和说明）

主程序中：命令：do<子程序名>with<参数表>

实参子程序中：parameters<内存变量表>形参数据通过return语句传回à注意：变量表和参数表是个数一致的，也互相相应，但是名字也许不同样。例：MAIN.PRGP1.PRGX1=1PARAW1,W2X2=2PRIVATEW1DOP1WITHX1,X2W1=W1*3?’X1=’+STR(X1,1)W2=W2*4??’X2=’+STR(X2,1)RETURNX1=1X2=2DOP1WITHX1,X1+X2?’X1=’+STR(X1,1)??’X2=’+STR(X2,1)R