Visual FoxPro 6.0 数据库技术与应用（第2版）.pptVIP

例6-5判断键盘输入的任意一个数是偶数还是奇数。****ex65.prg，分支语句示例。SETTALKOFFCLEARINPUT[请输入自然数：]TOnIFINT(n/2)=n/2 利用INT()函判断奇偶数?[该数为偶数]ELSE?[该数为奇数]ENDIFRETRUN例6-6编程，输入任意一个数，正数求平方根，负数求绝对值，零则直接打印该数。****ex66.prg，DOCASE语句示例。CLEARSETTALKOFFINPUT[请输入一个数：]TONDOCASECASEN0?STR(N)+[的平方根为]+STR(SQRT(N),7,1)STR(SQRT(N),7,1)用于将CASEN0 求得的平方根转换成字符型?N,[的绝对值为],ABS(N)ABS(N)为求绝对值函数CASEN=0?[N=],NENDCASE?[BYEBYE]RETURN例6-7编程求出学生表中所有女生的助学金之和。****ex67.prg，DOWHILE循环示例，程序流程如图6-7所示。CLEARSETTALKOFFs=0USE学生DOWHILE.NOT.EOF()IF性别=[女]s=s+助学金ENDIFSKIPENDDO?[所有女生的助学金为：],sUSERETURN图6-7例6-7的流程图例6-8输入任意10个数，求积。****ex68.prg，利用DOWHILE循环实现计数功能。CLEARSETTALKOFFSTORE1TOt,n t用于求积,n用于计数DOWHILEn=10INPUT[请输入数值：]toxt=t*xn=n+1ENDDO?tRETURN例6-9统计从键盘上输入的若干个数中正数个数及正数的和。输入的负数忽略，输入0结束程序并显示结果。****ex69.prg，循环次数未知的控制方式及LOOP、EXIT示例。CLEARSETTALKOFFSTORE0TOn,sn用于计数,s用于求和DOWHILE.T.INPUT请输入一个数TOnumDOCASECASEnum0LOOP 返回循环起始语句DOWHILECASEnum=0EXIT 退出DOWHILE循环OTHERWISEs=s+numn=n+1ENDCASEENDDO?正数的个数为,n?正数的和为,sRETURN第6章程序设计基础6.1程序设计概述6.2程序基本结构6.3程序的模块化设计6.4程序调试6.5本章小结*例6-1打开并浏览数据库表的程序。以“*”开头的代码行是注释行语句，一般用于说明程序的功能,注释行语句也可以用NOTE命令开头；“”后面的文字是对本行命令行的注释，用于解释本行命令。若命令很长需要分行书写时，应在一行终了时键入续行符“；”，回车后在下一行接着上一行书写程序。6.1程序设计概述6.1.1程序的概念程序是完成一定功能的命令的集合，也称为程序文件。VisualFoxPro的程序文件也叫命令文件，是由一系列命令构成的文本文件，其扩展名为.prg。*6.1.2程序文件的建立与执行1．建立和修改程序文件命令格式：MODIFYCOMMAND[文件名]例6-2建立一个名为ex62.prg的程序文件，程序的功能是显示学生表中1985年以前（含1985年）出生的学生信息，再删除性别是“男”的记录。2．执行程序文件命令格式：DO文件名例如，执行程序文件ex62.prg，只需在命令窗口中输入：DOex62注意菜单命令[程序]\[运行]或常用工具栏上的“！”按钮也可运行。*6.1.3程序中的一些常见命令1．RETURN2．CANCEL3．QUIT一般放在程序的末尾，使程序执行结束并返回到调用它的上级程序继续执行，若无上级程序就返回到命令窗口。使程序终止执行，并清除程序中的局部变量，执行CANCEL命令后强制返回到命令窗口，该语句可在程序的任何位置出现。退出VisualFoxPro系统返回到Windows操作系统，该命令与文件菜单中的