Visual FoxPro程序设计 教学课件 作者 高怡新 第6章 程序设计基础.ppt

《Visual FoxPro程序设计 教学课件 作者 高怡新 第6章 程序设计基础.ppt》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、第6章程序设计基础6.1程序文件的建立与运行6.2顺序结构程序设计6.3分支结构程序设计6.4循环结构程序设计6.5模块结构程序设计6.6数组及其应用6.1程序文件的建立与运行6.1.1程序文件的建立1．用菜单方式建立程序文件执行“文件/新建/程序/新建文件”菜单命令。2．用命令方式建立程序文件格式：MODIFYCOMMAND<程序文件名>功能：新建或修改指定的程序文件。6.1.2程序文件的运行1．用菜单方式运行程序文件执行“程序/运行”菜单命令。2．用命令方式运行程序文件格式：DO<程序文件名>功能：将指定的程序文件调入内存并运行。6.1.3程序中的辅助

2、命令1．程序注释命令格式1：NOTE<注释内容>格式2：*<注释内容>格式3：[<命令>]&&<注释内容>2．结束程序运行命令格式1：RETURN功能：返回到上级程序模块。格式2：RETURNMASTER功能：返回到最上级主程序。格式3：CANCEL功能：停止程序执行，关闭所有文件，返回系统交互状态。格式4：QUIT功能：停止所有程序执行，关闭所有文件，退回到宿主操作系统。3．运行环境设置命令CLEAR清屏幕CLEARALL关闭所有文件、释放所有内存变量SETDEFAULTTO设置文件访问时默认的驱动器SETPATHTO设置文件访问时默认的路径SETTAL

3、KON/off设置所有命令执行的结果显示与否SETSTATUSON/off设置屏幕下端的状态行显示与否SETSAFETYON/off设置进行文件重写或覆盖操作时是否有安全提示SETPRINTon/OFF设置输出结果是否送打印机打印6.1.4程序中的交互输入命令1．字符串输入命令格式：ACCEPT[<提示信息>]TO<内存变量>功能：暂停程序的运行，等待用户键入一串字符赋给指定的内存变量。2．表达式输入命令格式：INPUT[<提示信息>]TO<内存变量>功能：暂停程序运行，接受用户键入的表达式并将其值赋给指定的内存变量。3．等待或单字符输入命令格式：WAIT

4、[<提示信息>][TO<内存变量>]功能：暂停程序运行，若包含[TO<内存变量>]短语时，将用户所键入的一个字符赋给指定的内存变量；否则待用户按任一键后继续程序的执行。4．定位输出命令格式：@<行,列>SAY<表达式>功能：在屏幕上指定的行、列位置输出指定表达式的值。6.2顺序结构程序设计6.2.1基本程序结构1．顺序程序结构2．分支程序结构3．循环程序结构6.2.2顺序结构程序设计顺序结构的程序是严格按照程序中各命令的先后排列顺序自上而下逐条执行的。例如：根据输入的人口基数与年平均增长率，计算二十年后的人口数。CLEARINPUT"人口基数："TOaaI

5、NPUT"年平均增长率："TObbcc=aa*(1+bb)**20?"二十年后人口数为："+STR(cc,12)RETURN6.3分支结构程序设计6.3.1简单分支结构格式：IF<条件><语句序列>ENDIF执行过程：当IF语句中的<条件>成立时，系统将逐条执行IF与ENDIF之间的<语句序列>，然后再转去执行ENDIF后的程序语句；当<条件>不成立时，则不执行<语句序列>而直接执行ENDIF后的程序语句。例如：某种商品一次购买100件以上时，可享受8%的优惠。试编程根据输入的单价和数量计算应付金额。CLEARINPUT"数量："TOslINPUT"单价：

6、"TOdjje=dj*slIFsl>=100je=je*0.92ENDIF?"应付金额："+STR(je,8,2)RETURN6.3.2选择分支结构格式：IF<条件><语句序列1>ELSE<语句序列2>ENDIF执行过程：若<条件>成立，仅执行<语句序列1>，执行完后即转去执行ENDIF后的语句；否则仅执行<语句序列2>，执行完后也转去执行ENDIF后的语句。例如：设出租车不超过5公里时一律收费10元，超过时则超过部分每公里加收1.5元。试编程根据里程数计算并显示出应付车费。CLEARINPUT"里程："TOlcIFlc<=5?"车费为：十元"ELSEcf

7、=10+(lc-5)*1.5?"车费为："+STR(cf,6,2)ENDIFRETURN6.3.3分支嵌套结构例如：按输入的工号和该号员工的工时数，计算并输出其应发工资。CLEARACCEPT"工号："TOghINPUT"工时："TOgsIFgs>120gz=gs*84+(gs-120)*84*0.15ELSEIFgs<60gz=gs*84-700ELSEgz=gs*84ENDIFENDIF?&&输出一个空行?gh+"号职工应发工资："+STR(gz,8,2)RETURN6.3.4多路分支结构格式：DOCASECASE<条件1><语句序列1>CASE<条件

8、2><语句序列2>……CASE<条件n><语句序列n>[OTHER