结构化程序设计基础教学课件VF.ppt

《结构化程序设计基础教学课件VF.ppt》由会员分享，可在线阅读，更多相关《结构化程序设计基础教学课件VF.ppt（84页珍藏版）》请在三一办公上搜索。

1、第6章 结构化程序设计基础,吉林大学计算机教学与研究中心,Welcome!,2,6.1 样本程序分析,MODIFY COMMAND Example_1 INPUT“请输入数N:”TO N IF N 1?“输入的数:”,N,太小！CANCEL ENDIF STORE 1 TO I,S DO WHILE I=N S=S*I I=I+1 ENDDO?N，“的阶乘是:”,S CANCEL,【例1】求数N的阶乘,3,6.2 程序的建立与执行,VFP源程序是用VFP命令或程序中专用语句编写的文本文件，其扩展名是PRG。,6.2.1 VFP专用程序编辑器,建立源程序文件,方法一：“文件”菜单项“新建”选择“

2、程序”“新建文件”。,方法二：使用常用工具栏的“新建”按钮。,4,6.2.1 VFP专用程序编辑器,说明1：此方法可以建立新程序文件，又可修改已有的程序文件。,方法三：在命令窗口中执行命令：Modify Command,说明2：文件的扩展名可缺省，系统默认扩展名为.PRG。,5,6.2.1 VFP专用程序编辑器,方法四：在项目管理器中，进入“代码”选项卡，选择“程序”，单击“新建”。,说明3：一个命令行中只能写一条命令，若一行写不下，需使用分行符“;”。,6,6.2.1 VFP专用程序编辑器,保存程序文件,方法一：单击“文件”菜单项“保存”。,方法二：单击“常用”工具栏里的“保存”按钮。,方法

3、三：按 Ctrl+W。,方法四：关闭程序编辑器，系统提示是否保存文件。,7,6.2.2 打开源程序文件,方法一：“文件”菜单项“打开”“文件类型”为“程序”选择文件“确定”,方法二：单击“常用”工具栏里的“打开”按钮。,方法三：在命令窗口中执行命令：Modify Command|?,打开程序文件,8,6.2.3 程序的编译与执行,在VFP中，可以执行源程序、编译程序、应用程序和可执行程序种程序文件。,（1）源程序(PRG)：源程序是文本文件，可以对其内容进行修改。只要有源程序文件，就可以生成其他3种程序文件。,执行程序就是按照程序的内部控制结构执行文件中的相关语句序列。,程序文件的类型,9,6

4、.2.3 程序的编译与执行,（2）编译程序(FXP)：每个源程序文件都有对应的编译程序文件，执行编译程序比执行源程序的速度快。,（3）应用程序(APP)：由多个文件（包括程序、表单和菜单等）连接成一个应用程序文件。,注意：以上三种文件都是在VFP环境下运行。,10,6.2.3 程序的编译与执行,（4）可执行程序(EXE)：将多个文件（包括程序、表单和菜单等）连接成一个可执行程序文件,此种文件可以脱离VFP环境运行。,编译程序,当执行一个源程序时，系统自动将其编译为编译程序(FXP)。在VFP中允许只编译而不执行程序。,11,6.2.3 程序的编译与执行,方法一：在程序编辑器中，单击“程序”菜单

5、项“编译”。,方法二：单击“程序”菜单项“编译”选择“文件类型”为“程序”选择程序文件“编译”,编译方法为：,12,6.2.3 程序的编译与执行,执行程序,方法一：在程序编辑器中，“程序”菜单“执行”或“运行”常用工具“!”。,方法二：“程序”菜单“运行”选择“文件类型”为“程序”选择或输入程序文件名“运行”。,方法三：在程序或命令窗口中执行：Do,13,6.2.3 程序的编译与执行,说明：当源程序(PRG)和编译程序(FXP)文件同时存在时，系统将执行距当前时间最近的程序文件。,14,6.3.1 输入字符串语句,语句格式：Accept To,“字符表达式”：作为执行到此语句时的提示信息。若无

6、此项，则不输出任何信息。,内存变量：用来接收输入的字符串。若不输入任何字符，则将空字符赋值给内存变量。,例：Accept“请输入学号:”To XH?”输入的学号是：”+XH,15,6.3.2 等待语句,语句格式：Wait To Window At,Nowait Clear|NoclearTimeout,“字符表达式”：提示信息。若无此项，则输出任何信息。,To 内存变量：用来接收输入的字符。若不输入任何字符，则将空字符赋值给内存变量。,16,6.3.2 等待语句,Window At,：使用Window项表示在VFP主窗口的右上角弹出提示信息窗口。也可以使用At,指定提示信息窗口的开始位置。,W

7、indow和Nowait：弹出提示窗口后，程序不暂停，即不等用户按键，就继续执行后面的语句。,Window和Noclear：在执行下一条Wait Window或Wait Clear语句之前，系统不关闭提示信息窗口。,17,6.3.2 等待语句,Timeout：用于设定等待的秒数。在等待时间内按任意键或等待超时，程序将继续向下执行。,例：Wait 显示时间：Timeout 3?Time(),18,6.3.3 输入表达式语句,语句格式：Input To,说明：允许输入任何类型的表达式。Input输入字符串时必须加上定界符。,例6.5：N=2Input 请输入数据：To M?M,19,6.4.1 I

8、f 分支语句,语句格式：If Then Endif,开始,语句序列,结束,条件?,Y,N,分支结构后面语句,单分支If语句,其中IF-ENDIF必须配对出现。,20,6.4.1 If 分支语句,例：Input 请输入一个N：To NIf N0 N=-N Endif?N的绝对值是：,N,21,6.4.1 If 分支语句,双分支If语句,语句格式：If Then ELSE Endif,开始,语句序列1,结束,条件?,Y,N,语句序列2,分支结构后面语句,22,6.4.1 If 分支语句,例，求两个数中较小值：Input X=To XInput Y=To YIf XYM=XElseM=YEndif?

9、X与Y中的较小者是：,M,23,6.4.2 If语句的嵌套,在If分支结构的语句序列中可以包含另一个If分支语句，称为If语句的嵌套。VFP中为了解决多分支问题，允许进行多层If嵌套。嵌套时，不允许出现交叉嵌套，即一个If语句块要完整地包含在另一个If语句序列之内。例如：,24,6.4.2 If语句的嵌套,Input 请输入一个数：To XIf X0Y=1ElseIf X=0Y=0ElseY=-1EndifEndif?Y,25,6.4.2 If语句的嵌套,控制程序是否继续执行,例 6.8：?DATE()&输出系统日期CANCEL&结束本程序的执行?TIME()&此语句得不到执行,（1）Canc

10、el：结束当前程序的运行。,26,6.4.2 If语句的嵌套,控制程序是否继续执行,（2）Suspend：暂停程序的执行。暂停期间可以在命令窗口中执行交互命令。,（3）Resume：继续执行Suspend暂停的程序，从Suspend语句的下一条继续。,例6.9:X=1SuspendY=2?X+Y,27,6.4.3 条件函数,函数格式：Iif(,),说明：若条件成立，则表达式1的值作为函数值；否则，表达式2的值作为函数值。,例如：Input 输入一个数N：To N M=Iif(N0,-N,N)?”N的绝对值是：”,M,28,6.4.4 多分支语句,开始,语句序列 1,结束,条件1?,Y,N,语句

11、序列 2,条件2?,Y,N,语句序列 n,条件n?,Y,N,OTHERWISE,语句序列 n+1,.,多分支结构,29,6.4.4 多分支语句,语句格式：Do CaseCase Case Case Otherwise Endcase,30,6.4.4 多分支语句,说明1：执行时，系统从上向下依次对Case后面的条件进行判断，当条件不成立时，就判断下一个Case条件是否成立。一旦某个Case条件成立，就执行该Case与下一个Case（Otherwise或Endcase）之间的语句序列，然后执行Endcase后面的语句。,说明2：若所有条件都不成立，而有Otherwise项，则执行语句序列n+1，

12、然后执行Endcase后面的语句；若所有条件都不成立，且无Otherwise项，则直接执行Endcase后面的语句。,31,6.4.4 多分支语句,例6.13：Input 请输入一个数：To XDo CaseCase X0Y=1Case X=0Y=0Otherwise Y=-1Endcase?Y,32,6.5 循环结构程序设计,循环结构指在执行程序过程中，重复执行某程序段。,在循环体中，可以利用Exit语句提前结束循环，也可利用Loop语句提前结束本次循环。,重复执行的程序段称为循环体，重复执行的次数称为循环次数。,33,6.5.1 Do While(当型)循环语句,语句格式：Do While

13、 Enddo,开始,语句序列,结束,条件?,Y,N,循环前的语句,循环体后的语句,语句序列,Y,说明：Do While与Enddo必须成对使用。,34,6.5.1 Do While(当型)循环语句,例6.14，求前100个自然数的和：S=0 N=1 Do While N=100 S=S+NN=N+1Enddo,S=1+2+3+4+100,35,例:P174-6.15 N=2 S=1 Do While N=5 S=S*N N=N+1 Enddo?”5!等于:”,S,思考:如何求任意数的阶乘?,36,例:P174-例6.17 Use CJB N=0 Do while!Eof()If 重修?”重修学

14、号:”,学号,Space(4),”重修课程码:”,课程码 N=N+1 Endif Skip Enddo?”共有:”+Str(N,4)+”人次重修”Use,37,6.5.1 Do While(当型)循环语句,死循环,如果循环体中没有能执行到的、使条件趋于不成立的语句、结束循环或结束程序的语句，将永远执行不完循环体，即出现死循环。语句修改为：,Do While Loop Exit Enddo,38,6.5.1 Do While(当型)循环语句,（2）Exit：一旦执行到Exit语句，就结束整个循环。,（1）Loop：一旦执行到Loop语句，就提前结束本次循环。,例6.16，对键盘输入的每一个正数，

15、输出其算术平方根；当输入的数小于或等于0时，结束程序。,39,开始,循环体前语句,循环体条件,Y,分支条件,Y,LOOP,N,分支结构下面的语句,N,循环体下面的语句,结束,无条件转向循环,语句格式(以当型循环为例)DO WHILE IF LOOP ENDIF ENDDO,40,例:计算1100的奇数和。*Ex3.prgstore 0 to i,tdo while i100 i=i+1 if int(i/2)=i/2 loop endif t=t+ienddo?1100奇数和为：,t,说明：int(N):取整函数 此处用于判断i的奇偶性思考：利用mod(N1,N2)如何 判断奇偶性？,41,开

16、始,循环体前语句,循环体条件,Y,分支条件,N,EXIT,Y,分支结构下面的语句,N,循环体下面的语句,结束,无条件跳出循环,语句格式(以当型循环为例)DO WHILE IF EXIT ENDIF ENDDO,42,例：P174_【例6.16】*E6_16.prg DO WHILE.T.CLEAR INPUT“请输入一个数：”TO X IF Vartype(X)!=N WAIT 不是数值型数据 LOOP ENDIF IF X 0 EXIT ENDIF?X,的算术平方根为：,SQRT(X)WAIT ENDDO?输入的数不大于0,结束程序!,43,6.5.2 For(步长型)循环语句,语句格式：F

17、or=To Step Endfor|Next,说明2：若步长缺省，默认值为1。,说明1：初值、终值和步长应为数值型表达式,44,6.5.2 For(步长型)循环语句,例6.19，求前100个自然数的和：S=0For N=1 To 100 S=S+NEndfor?1+2+3+98+99+100=,S,45,6.5.3 Scan(扫描)循环语句,语句格式：Scan For While Endscan,说明1：Scan和Endscan必须成对使用。此循环语句用于处理与数据表有关的循环问题，功能等效于：,Locate ForWhileDo While Found()ContinueEnddo,46,6

18、.5.3 Scan(扫描)循环语句,例6.20，使用 Scan循环结构编程：Use CJBN=0Scan For 重修?重修学号:,学号,Space(4),?重修课程码:,课程码N=N+1Endscan?共有:+Str(N,4)+人次重修Use,47,6.5.4 结构嵌套,为实现复杂的功能，VFP允许相互嵌套。但不允许交叉嵌套，即一个结构必须完整地包含在另一个结构中。,例如：For M=1 To 9For N=M To 9?Space(2),Str(M,1),*,?Str(N,1),=,Str(M*N,2)Endfor?Endfor,外层循环,内层循环,48,*Ex5.prgclearinpu

19、t 请输入数据个数：to ndimension X(n)store 1 to kdo while kX(j)W=X(i)X(i)=X(j)X(j)=W endif endfor?X(i)endfor?X(n)return,例：数组例子,假设输入数据为：n=4,X(1)X(2)X(3)X(4)12 23 5 21,i=1,j=2,12 23 5 21,j=3,5 23 12 21,j=4,5 23 12 21,i=2,j=3,j=4,5 12 23 21,5 12 23 21,i=3,j=4,5 12 21 23,5,12,21,23,49,练习题：试编写“从前有座山”的故事，使其分 别完成下列

20、要求：1、将故事重复显示5次。2、故事每重复显示5次后暂停，并询问是否继续，输入“Y”，继续重复显示，否则中止程序执行。3、令故事无限重复显示，当按任意键时暂停显示，并询问是否继续。（提示：INKEY（）函数）INKEY(nSECONDS)：返回所按键的ASCII码。,50,练习:请设计简单的数据表维护系统,界面及功能要求如下:,欢迎使用本系统!请输入数据表名:维护菜单:1 修改记录 2 追加记录3 删除记录 4 退出请输入操作代码(14):,51,6.6 子程序及其调用,在实际应用中，经常将一个比较复杂的程序分解成多个功能相对独立的子程序模块。因此，一个应用程序可能包含多个程序模块，通常将调

21、用其它模块的模块称为主程序，被其它模块调用的模块称为子程序。主程序与子程序的概念是相对的，一个程序可能是某个程序的主程序，同时是另一个程序的子程序。,子程序调用实例：编程实现该公式的功能。,52,6.6 子程序及其调用,*主程序.prg,.,DO,DO,53,6.6.2 过程子程序及其调用,过程子程序内部结构,（1）Parameters|Lparameters：用于指定形式参数，接收主程序传来的数据,可以是简单内存变量或数组说明。若使用此语句，必须在子程序中的第1行。,Parameters|Lparameters 子 程 序 体Retry|Return To Master,54,6.6.2 过

22、程子程序及其调用,（3）Return：返回到主程序中调用语句的下一条语句继续执行。子程序中的最后一条Return语句可以省略。,（2）Retry：返回到调用程序中重新执行调用语句。,（4）Return To Master：返回到主控程序(最顶层的程序，在命令窗口中用Do调用的程序)中调用语句的下一条语句继续执行，它可能直接或间接调用本子程序。,55,6.6.2 过程子程序及其调用,过程子程序调用 调用过程子程序就是转去执行过程子程序中的语句，当执行到返回语句时，再回到主程序的对应位置继续执行。,调用语句：Do With,说明：若子程序中有Parameters或Lparameters语句，则调用

23、语句应该带有实际参数(简称实参)表。,56,6.6.2 过程子程序及其调用,参数传递方式,所谓参数传递，就是利用参数在主程序与子程序之间进行传递数据。主程序通过实参与形参的位置对应关系向子程序传递数据，有时也通过参数由子程序向主程序传递数据。,注意：在调用子程序时，实参个数不得超出形参个数；当实参个数少于形参个数时，多余的形参初值为逻辑假(.F.)。,57,*主程序.prg,DO WITH X,Y,Z,*子程序1.prg,RETURN,PARAMETERS|LPARAMETERS M,N,P,实际参数,形式参数,6.6.2 过程子程序及其调用,58,6.6.2 过程子程序及其调用,（1）值方式

24、传递：调用子程序时，将实参值传递给对应的形参；当执行子程序结束时，形参变化后的值不能回送给实参。这种只能由实参传递给形参值的单向传递方式称为值传递。,参数传递的两种方式,（2）引用方式传递：调用子程序时，将实参值传递给对应的形参；当执行子程序结束时，形参变化后的值能回送给实参。这种双向传递值的方式称为引用传递。,59,6.6.2 过程子程序及其调用,（1）当形参是数组说明时：对应实参必须是数组名，与形参数组说明的维数和元素个数无关，实参与形参之间按引用方式传递数据。例如E6_25。,参数传递规则式,（2）当实参是数组名时：系统自动将形参转换成与实参等价的数组，并且实参与形参之间按引用方式传递数

25、据。,60,6.6.2 过程子程序及其调用,（3）当实参是简单内存变量(不含数组元素)时：实参与形参之间按引用方式传递数据。,参数传递规则式,（4）当实参是表达式(包括常数、数组元素和函数)时：实参与形参之间按值方式传递数据。例如E6_27。,61,6.6.3 函数子程序及其调用,函数子程序也称用户自定义函数。函数子程序的编写方法与过程子程序没有太大的区别，只是为了使函数子程序具有返回值的能力，在返回语句中需要带值(如Return S)。,函数子程序内部结构,Parameters|Lparameters 子 程 序 体Return 表达式,若省略表达式，则函数返回值为逻辑真,62,6.6.3

26、函数子程序及其调用,函数子程序与系统函数的调用方法一样，都作为表达式的一部分。所谓调用函数子程序就是转去执行函数子程序中的语句，执行到返回语句时，转回到主程序中的调用语句并带回一个值。,函数子程序调用,调用格式：（）,63,6.6.3 函数子程序及其调用,参数传递,返回表达式的值,64,*Ex7.prg CLEAR S=0 FOR i=1 TO 10 S=S+F(i)ENDFOR?S=,S,*F.prg PARAMETERS N M=1 FOR j=1 TO N M=M*j ENDFOR RETURN M,例：计算阶乘的自定义函数,65,6.6.3 函数子程序及其调用,系统默认函数子程序调用一

27、律按值方式传递值。可以通过VFP命令重新设置参数的传递方式。,参数传递规则式,命令格式：Set Udfparms To Value|Reference 值 引用,例如E6_28,66,6.6.4 过程子程序与函数子程序区别,（1）在编写程序方面，函数子程序通常用Return 语句返回到主程序；而过程子程序通常用Return To Master或Retry语句返回到主程序或主控程序。,（2）在调用子程序方面，用函数形式调用函数子程序，使之成为表达式的一部分；用Do语句调用过程子程序，使之成为程序中的一条语句。,67,6.6.4 过程子程序与函数子程序区别,在实际应用时，函数子程序和过程子程序可以

28、互换调用方式。通过过程方式调用(Do语句)函数子程序时，系统将忽略函数的返回值，且返回到主程序中调用语句(Do)的下一条语句继续执行；通过函数方式调用过程子程序时，函数返回值为逻辑真(.T.)，而返回到主程序中的调用语句。,68,6.7 子程序存放形式,从存放形式上看，VFP子程序分为独立文件子程序、过程文件子程序和程序文件中子程序3种组织形式。,6.7.1 独立文件子程序 所谓独立文件子程序就是一个PRG文件对应一个子程序，文件主名也是子程序名。,69,6.7.2 过程文件子程序,过程的格式：Procedure|Function Parameters|Lparameters 子程序体 Ret

29、ry|Return|To Master Endproc|Endfunc,在一个应用程序中，可将一些子程序存放到一个程序文件中，通常将这种文件称为过程文件，而将其中的子程序称为过程文件的子程序，简称过程。,开始语句,结束语句,70,6.7.2 过程文件子程序,在调用子程序之前，应该先打开其所在的过程文件，随后的调用方法与独立文件子程序的调用方法完全相同。,打开过程文件,打开命令：Set Procedure To Additive,71,6.7.2 过程文件子程序,语句格式1：Set Procedure To,关闭过程文件,语句格式2：Release Procedure,注意：如果独立文件子程序与

30、过程文件中的子程序重名，调用子程序时，若事先打开了过程文件，则系统调用过程文件中的子程序；否则系统调用独立文件子程序。,72,6.7.3 程序文件中的子程序,在一个程序文件中也可以包含本程序的一些子程序，其结构为：,程 序 段 Procedure|Function Parameters|Lparameters 子 程 序 体 Retry|Return|To Master Endproc|Endfunc,在本程序文件中可以直接调用这种子程序，如果将这种程序文件作为过程文件打开，也可以在其他程序文件中调用这种子程序。,73,过程文件,74,6.8 变量的作用域,所谓变量的作用域就是变量的作用范围，

31、即变量在多大范围内有效。根据变量的作用域，VFP将变量分为公共变量、私有变量和局部变量3种。,在整个程序(包括主程序、子程序和对象事件过程等)中都有效的变量是公共变量。,在命令窗口中定义的简单变量或数组变量都是公共变量。,此外，用Public语句也可以定义公共变量。,75,6.8.1 公共变量,语句格式：Public,定义公共变量,说明1：已定义但未赋的公共变量初值为.F.,说明2：程序终止时公共变量不会被自动清除，需用RELEASE 或 CLEAR ALL命令清除,例如E6_31,76,6.8.2 私有变量,仅在定义变量的程序及其子程序中有效的变量称为私有变量。如果私有变量与主程序中的变量重

32、名，则主程序中同名的变量将被“隐藏”。,方法一：程序中没有使用Public或Local语句说明而直接定义(赋值或Dimension说明)的内存变量是其所在程序的私有变量。,定义私有变量,77,私有变量,方法三：使用Private语句说明的变量是所在程序的私有变量。Private|AllLike|Except,方法二：用Parameters指定的形参是其所在程序的私有变量。,例如E6_32,78,6.8.3 局部变量,仅在定义变量的程序中有效，而在其主和子程序中都无效的变量称为该程序的局部变量，也称本地变量。在本级程序结束时，本地变量被自动释放。,定义局部变量,方法一：使用Local语句定义局部

33、变量。Local,说明：此语句必须放在形参语句之后，在变量被赋值和引用之前。初值被赋为逻辑假。,79,6.8.3 局部变量,方法二：用Lparameters指定的形参是其所在程序的局部变量。,*主程序.prgPUBLIC X,*子程序1.prgPRIVATE Y,*子程序2.prgLOCAL Z,子程序3.prg,公共变量 X,私有变量 Y,本地变量 Z,公共变量、私用变量及本地变量的作用范围示意图,例如E6_33,80,例1：,*Ex8.prgPUBLIC A,BA=0B=1C=2DO SUB1 IN SUB?A,B,C,*SUB.prgPROCEDURE SUB1 PRIVATE B,C

34、B=3 C=4 DO SUB2?A,B,CRETURNPROCEDURE SUB2 B=B+1 A=A+1?A,B,CRETURN,81,*Ex9.prg：主程序A=1B=2DO SUBPX=A+B+C?X,*subp.prg：过程文件PUBLIC CPRIVATE A，B，XA=10B=20C=30X=A+B+C?XRETURN,例2：,注：这两个X不是同一个X变量，因为当由subp返回时，在 subp所定义的局部变量均被释放，返回到主程序后，X 又被重新定义。,吉林大学计算机教学与研究中心,Thank You!,83,开始,循环条件,Y,分支条件,Y,LOOP,N,分支结构下面的语句,N,循环体后的语句,结束,84,开始,循环体前语句,循环条件,Y,分支条件,N,EXIT,Y,分支结构后的语句,N,循环体后的语句,结束,