Visual FoxPro程序设计幻灯片.徐红波.第5章

讲师：张勇E-mail:x_h_b,VisualFoxPro程序设计教程,第5章程序设计基础,VFP的工作方式：1)交互式工作方式是直接在命令窗口中执行命令或用菜单及工具栏按钮执行命令。2)自动化工作方式是用编写的程序或用各种生成器生成程序文件再执行。,5.1程序文件的建立、修改、执行5.1.1程序,程序是能够完成一定任务的命令集合。程序文件的扩展名为prg。,5.1.2程序文件的建立和修改,1)用界面方式建立和修改程序2)用命令方式建立和修改程序格式：MODIFYCOMMAND|?功能：打开程序编辑器，用于建立或修改程序文件,5.1.3程序文件的执行,1）用界面方式执行程序文件2）用命令方式执行程序文件格式：DO功能：执行指定的程序,5.1.4程序的书写规则,一个程序是由若干行组成，每行由回车键结束1）命令行：一个命令可以写在一行也可以分多行书写，分行书写时应该在行尾加续行符“;”2）命令的注释：注释符有where学生.姓名=nameand学生成绩.学号=学生.学号closedatabaseallreturn,2）ACCEPT命令格式：ACCEPTTO功能：从键盘输入字符串数据，赋给内存变量说明：1）为提示信息。2）输入的字符串不需加定界符，否则会将定界符作为字符串的一部分。3）若不输入数据直接按回车键，将空串赋给变量。,3、WAIT命令格式：WAITTOWINDOWATNOWAITCLEAR|NOCLEARTIMEOUT功能：暂停程序运行，字符表达式为提示信息，待从键盘输入一个字符赋给内存变量，程序继续执行。说明：1）省略，则显示默认信息，按任意键继续。2）对于TO，若直接回车，变量中内容为空串，省略此项，输入字符不保存。3）WINDOWAT设置信息窗口在屏幕上的位置，省略AT信息将显示在屏幕的右上角。4）NOWAIT不等待输入直接往下执行。5）CLEAR清除提示信息窗口，NOCLEAR不清除提示信息窗口，直到执行一条WAITWINDOW命令或WAITCLEAR命令为止。6）TIMEOUT由数值表达式指定等待输入的秒数。若超出秒数，则不等待自动往下执行。,例5.3WAIT的应用,wait继续?toxwindowtime10,5.2.2输出命令,格式：SAYGETDEFAULT功能：在屏幕指定行列输出表达式的值并修改内存变量的值。说明：1）中行自上而下编号，列自左至右编号，编号从0开始，行列可以使用小数精确定位。2）省略SAY选项，GET变量值在行列指定位置开始显示。若选SAY选项，先显示表达式的值，然后再显示GET变量值。3）GET中的变量必须有初值或用DEFAULT中的命令定值。4）GET选项必须用READ命令激活。,例5.4查找学生成绩大于等于指定成绩的或数学大于等于指定分数的学生学号，姓名，入学成绩，数学成绩。,clearopendatabase学生10,10say输入入学成绩：getrxcjdefault010,10say输入数学分数：getsxfsdefault0read10,10say入学成绩为+str(rxcj)+“数学为+str(sxfs)select学生.学号,学生.姓名,学生.入学成绩,学生成绩.数学;from学生,学生成绩where学生.入学成绩=rxcjand学生成绩.数学=sxfs;and学生.学号=学生成绩.学号closedatabaseallreturn,5.3程序的基本结构,程序设计一般采用顺序，条件，循环这三种基本结构，这三种结构贯穿于整个程序的设计中。,5.3.1三种基本结构,1）顺序结构：程序是按语句排列的先后顺序来执行。2）选择结构：条件为真执行一部分语句，否则执行另一部分语句。3）循环结构：当条件为真执行循环体，否则结束循环。,5.3.2顺序结构程序设计,例5.7求圆面积s=0r=0input输入r：tors=3.14*r*r?s=,sreturn,5.3.3选择结构程序设计,1、二分支选择结构格式：IFELSEENDIF功能：当条件成立时执行命令序列1，否则执行命令序列2。当不包含ELSE时，条件成立执行命令序列1，否则执行ENDIF后的语句。说明：IF和ENDIF必须成对出现，此语句可以嵌套使用，条件是逻辑表达式,例5.8当r=0时计算圆面积否则输出不合题意,settalkoffs=0r=0input输入r：torifr0s=pi()*r*r?s=,selse?r=90andnumber=70andnumber=60andnumber=0andnumber=59grade=不及格otherwisegrade=输入错误endcase?name,number,gradereturn,5.3.4循环结构程序设计,VFP有三种循环结构，它们是DOWHILE,FOR,SCAN。1、DOWHILE循环格式：DOWHILELOOPEXITENDDO功能：1）当条件成立时执行DOWHILE与ENDDO之间的命令，这些命令称为循环体。2）程序执行到ENDDO时自动返回到WHILE处重新判断条件是否成立，以决定是否循环。3）当条件不成立时，结束循环，执行ENDDO下面命令。说明：1）DOWhile与ENDDO必须成对出现。2）执行LOOP命令时结束本次循环，自动返回DOWHILE处重新判断循环条件。3）遇到EXIT命令时结束循环，执行ENDDO下面命令。,例5.11求1+2+3+100的值,sum=0n=1dowhilen=100sum=sum+nn=n+1enddo?s=,sreturn,例5.12对100个任意数求和，正数求和，负数不求和，当输入0.001时停止输入,sum=0n=1dowhilen0|x|+2x=02、编程显示*3、求Sn=a+aa+aaa+aa。a为1至9之间的