vf05第五章 结构化程序设计

1,第五章结构化程序设计,2,第一节程序文件,一、VisualFoxPro程序的几点说明1注释语句【格式1】*【格式2】&【功能】增强程序文件的易读性2对话开关语句【格式】SETTALKOFF|ON【功能】关闭或打开命令执行时的对话开关3命令的分行VisualFoxPro程序是命令行的序列，每个命令都以回车键结束，一行只能写一条命令；若一条命令太长，一行写不下，也可分行书写，并在分行处加上续行符“；”，再按回车键。,3,二、程序文件的建立、修改与执行,1建立或修改程序文件1)命令方式：MODIFYCOMMAND程序文件名2)菜单方式：打开“文件”菜单，选择“新建”；在“新建”窗口，选择“程序”，再选择“新建文件”,4,3)项目管理器：选定项目管理器“代码”选项卡中的“程序”项，选择“新建”命令。2保存程序文件程序输入、编辑完毕，单击【文件】|【保存】菜单项，或按Ctrl+W复合键，在“另存为”对话框中指定程序文件的存放位置和文件名，并单击“保存”按钮保存程序文件并退出文本编辑器。程序文件的默认扩展名是.PRG。,5,3执行程序文件程序文件建立后，可以用多种方式、多次执行它。下面是两种常用的方式。1）菜单方式单击【程序】【运行】菜单项，打开“运行”对话框；从文件列表框中选择要运行的程序文件，并单击“运行”命令按钮，启动运行该程序文件2）命令方式【格式】DO【功能】执行指定、下的程序文件当程序文件被执行时，文件中包含的命令将被依次执行，直到所有命令被执行完毕。,6,第二节程序的基本结构,由顺序、分支、循环三种基本结构构成。（1）顺序结构，如图6-1所示，该结构先执行A操作，再执行B操作。（2）分支结构：如图6-2所示，该结构中P代表一个条件，当条件P成立时执行A操作，否则执行B操作。,图6-1顺序结构流程图图6-2分支结构流程图,7,（3）循环结构：循环结构则能够使某些语句或程序段重复执行若干次。如果某些语句或程序段需要在一个固定的位置上重复操作，使用循环是最好的选择。,8,三条输入命令的异同ACCEPTTOACCEPT命令只能接受字符型数据，不需定界符，输入完毕按回车键结束。WAITTOWAIT命令只能输入单个字符，且不需定界符，输入完毕不需按回车键。INPUTTOINPUT命令可接受数值型、字符型、逻辑型、日期型和日期时间型数据，如果是字符串，需用定界符，输入完毕按回车键结束。,9,分支结构形式有如下三种：1单向分支单向分支语句，即根据用户设置的条件表达式的值，决定某一操作是否执行。【语句格式】IF条件表达式命令行序列ENDIF【语句功能】该语句首先计算条件表达式的值，当条件表达式的值为真时，执行命令行序列；否则，执行ENDIF后面的第一条命令。,三、分支结构,10,【例6-9】求一元二次方程AX2BXC0的实根。程序文件名为PROG9.PRG。SETTALKOFFCLEARINPUTTOAINPUTTOBINPUTTOCZB2-4*A*CIFZ=0X1=(-B+SQRT(Z)/(2*A)X2=(-B-SQRT(Z)/(2*A)?X1,X2ENDIFSETTALKON,11,2双向分支双向分支语句，即根据用户设置的条件表达式的值，选择两个操作中的一个来执行。【语句格式】IF条件表达式命令行序列1ELSE命令行序列2ENDIF【语句功能】该语句首先计算条件表达式的值，当条件表达式的值为真时，执行命令行序列1中的命令；否则，执行命令行序列2中的命令；执行完命令行序列1或命令行序列2后都将执行ENDIF后面的第一条命令。,12,【例6-10】编写一密码校验程序（假设密码为ABC）。程序文件名为PROG10.PRG。SETTALKOFFCLEARACCEPT“请输入您的密码：”TOAAAIFAAA=”ABC”CLEAR?”欢迎使用本系统！”ELSE?”密码错误！”ENDIFSETTALKON,13,3多向分支多向分支语句，即根据多个条件表达式的值，选择执行多个操作中的一个对应执行。【语句格式】DOCASECASE条件表达式1命令行序列1CASE条件表达式2命令行序列2CASE条件表达式N命令行序列NOTHERWISE命令行序列N+1ENDCASE,14,【语句功能】该语句根据给出的N个条件表达式的值，选择N+1个命令行序列中的一个执行。当所有CASE中条件表达式的值都是假时，如果有OTHERWISE项，则执行命令行序列N+1，再执行ENDCASE后面的第一条命令；否则，直接执行ENDCASE后面的第一条命令。【例6-11】假设收入（P）与税率（R）的关系如下表，编程求税金。程序文件名为PROG11.PRG。0P800R=0.05800P20000.082000P50000.1P5000,15,SETTALKOFFCLEARINPUT“请输入收入：”TOPDOCASECASEP800R=0CASEP2000R=0.05CASEP5000R=0.08OTHERWISER=0.1ENDCASETAX=P*R?”税金为：”,TAXSETTALKON,16,四、循环结构,1DOWHILE循环语句【格式1】DOWHILEENDDO,17,【格式2】DOWHILELOOPEXITENDDO,LOOP语句：强行返回到循环开始语句。EXIT语句：强行跳出循环，接着执行ENDDO后的语句,18,【例6-12】编程求123100之和。程序文件名为PROG12.PRG。SETTALKOFFCLEARS=0I=1DOWHILEI=100S=S+II=I+1ENDDO?”123100”,SSETTALKON,19,【例6-13】逐条显示在STUDENT数据库的STUD表中性别为“男”的所有记录。程序文件名为PROG13.PRG。SETTALKOFFCLEARCLOSEDATABASEALLOPENDATABASESTUDENTUSESTUDDOWHILE.NOT.EOF()IF性别=”男”DISPLAYENDIFSKIPENDDOCLOSEDATABASEALLSETTALKON,20,【例6-14】编程显示STUDENT数据库的STUD表中除“孙业”以外的所有记录。程序文件名为PROG14.PRG。SETTALKOFFCLEARCLOSEDATABASEALLOPENDATABASESTUDENTUSESTUDDOWHILE.NOT.EOF()IF姓名=”孙业”SKIPLOOPENDIFDISPLAYSKIPENDDOCLOSEDATABASEALLSETTALKON,21,2FOR循环语句【格式】FOR=TOSTEPLOOPEXITENDFOR/NEXTFOR语句的执行流程如右图所示。,22,使用FOR循环语句的有关说明：省略STEP，则步长为默认值1；初值、终值和步长都可以是数值表达式，但这些表达式仅在循环语句开始执行时计算一次。循环语句执行过程中，初值、终值和步长是不会改变的，并由此确定循环的次数；EXIT和LOOP命令可以出现在循环体内。执行LOOP命令时，结束本次循环，循环变量增加一个步长值，返回FOR循环头判断循环条件是否成立。执行EXIT命令时,程序跳出循环，执行循环尾后面的语句。,23,3“指针”型循环控制语句“指针”型循环控制语句，即根据用户设置的表中的当前记录指针，决定循环体内语句的执行次数据。【语句格式】SCANFOR条件表达式命令行序列ENDSCAN【语句功能】该语句在指定的范围内，用数据记录指针来控制循环次数。执行语句时，首先判断函数EOF（）的值，若其值为“真”，则结束循环，否则，结合(条件表达式)，执行(命令行序列)，记录指针移到指定的范围和条件内的下一条记录，重新判断函数EOF()的值，直到函数EOF()的值为真时结束循环。,24,【例6-18】输出STUDENT数据库的STUD表中所有男生的姓名和地址。程序文件名为PROG18.PRG。SETTALKOFFCLEARCLOSEDATABASEALLOPENDATABASESTUDENTUSESTUDSCANFOR性别=“男”?姓名,地址ENDSCANCLOSEDATABASEALLSETTALKON,25,4使用循环语句时应注意的几点（1）DOWHILE和ENDDO、FOR和ENDFOR、SCAN和ENDSCAN必须配对使用。（2）循环变量应是数值型的内存变量或数组元素。（3）EXIT和LOOP命令嵌入在循环体内，可以改变循环次数，但是不能单独使用。EXIT的功能是跳出循环，转去执行ENDDO、ENDFOR、ENDSCAN后面的第一条命令；LOOP的功能是转回到循环的开始处，重新对“条件”进行判断。,26,第三节过程的模块化,VFP模块化在具体实现上提供三种形式，它们是子程序、过程和函数。一子程序子程序也叫外部过程，是以程序文件（.PRG）的形式单独存储在磁盘上。子程序的结构与一般的程序文件一样，可以用MODIFYCOMMAND命令来建立、修改、和存盘，扩展名也默认为.PRG。子程序与其他程序文件的唯一区别是其末尾或返回处必须有返回语句RETURN。子程序的调用：DO,27,二、过程(内部),内部过程：把多个过程组织在一个文件中(这个文件称之为过程文件)，或者把过程放在调用它的程序文件的末尾。过程文件格式为：PROCEDUREPARAMETERRETURN过程有两种存放方式：（1）把所有的过程集中写入一个被称为过程文件（.prg文件）的磁盘文件中（2）直接把过程写在调用它的主程序文件中，主程序被打开时，过程同时被调入内存（调用时可节省时间）。（3）如果缺省RETURN，则在过程尾部自动执行一条隐含的RETURN命令，若不带则返回逻辑值.T.。,28,【例6-22】建立如下程序文件，过程放在程序文件中。*MAIN.PRGSETTALKOFF?”正在执行主程序”DOSUB1SETTALKONProcedureSUB1?”正在执行SUB1”RETURN,29,三、过程文件的建立,过程文件的建立方法与程序文件相同。可用MODIFYCOMMAND命令或调用其他文字编辑软件来建立。过程文件的结构一般为：PROCEDURERETURNPROCEDURERETURNPROCEDURERETURN,30,1过程文件的调用调用某过程文件中的过程时，必须先打开该过程文件，打开过程文件命令为：【格式】SETPROCEDURETO任何时候系统只能打开一个过程文件，当打开一个新的过程文件时，原已打开的过程文件自动关闭。调用过程文件DOWITH参数表2过程文件的关闭关闭过程文件可用下列命令：【格式一】SETPROCEDURETO【格式二】CLOSEPROCEDURE,31,参数传递,当用主程序调过程时，可以将主程序中的参数传递给过程，在过程中经过处理后再返回到主程序。调用程序的格式：格式1：DOWITH,格式2：,实参可以是常量、变量或表达式。调用程序时将发送实参。接收参数命令：PARAMETERS,此时形参为私有变量。LPARAMETERS,此时形参为局部变量。,32,规则:(1)当实参数量大于形参数量时，系统将提示出错。(2)当实参数量等于形参数量时，实、形参数一一对应发、接参数。(3)当实参数量小于形参数量时，多余的形参将被赋值为逻辑假F。参数的两种传递方式：（1）按值传递。形参变量值的改变不会影响实参变量的值。（2）按地址（引用）传递。形参变量值的改变时，实参变量也随之改变。两种方式的设置命令：SETUDFPARMSTOVALUEREFERENCE,按值传递,按地址,3