Visual FoxPro程序设计 第二版 教学课件 作者 高怡新 第7章 结构化程序设计.ppt

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

1、第7章结构化程序设计程序文件的建立与运行7.1顺序结构程序设计7.2分支结构程序设计7.3循环结构程序设计7.4模块结构程序设计7.5数组及其应用7.67.1程序文件的建立与运行7.1.1程序文件的建立1．用菜单方式建立程序文件执行“文件/新建/程序/新建文件”菜单命令。2．用命令方式建立程序文件格式：MODIFYCOMMAND<程序文件名>功能：新建或修改指定的程序文件。7.1.2程序文件的运行1．用菜单方式运行程序文件执行“程序/运行”菜单命令。2．用命令方式运行程序文件格式：DO<程序文件名>功能：将指定的程序文件调入内存并运行。7.1.3程序中的辅助命令1．程序注释命令

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

3、否7.1.4程序中的交互输入命令1．字符串输入命令格式：ACCEPT[<提示信息>]TO<内存变量>功能：暂停程序的运行，等待用户键入一串字符赋给指定的内存变量。2．表达式输入命令格式：INPUT[<提示信息>]TO<内存变量>功能：暂停程序运行，接受用户键入的表达式并将其值赋给指定的内存变量。3．等待或单字符输入命令格式：WAIT[<提示信息>][TO<内存变量>]功能：暂停程序运行，若包含[TO<内存变量>]短语时，将用户所键入的一个字符赋给指定的内存变量；否则待用户按任一键后继续程序的执行。4．定位输出命令格式：@<行,列>SAY<表达式>功能：在屏幕上指定的行、列位置输

4、出指定表达式的值。7.2顺序结构程序设计7.2.1基本程序结构1．顺序程序结构2．分支程序结构3．循环程序结构7.2.2顺序结构程序设计严格按照程序中各命令的先后排列顺序自上而下逐条执行。【例7-6】在职工档案表中查看指定职工的有关情况。USEzgdaACCEPT"请输入被查询者姓名："TOxmLOCATEFOR姓名=xmCLEAR?"姓名："+姓名?"性别："+性别?"职称："+职称?"出生日期："+DTOC(出生日期)USERETURN7.3分支结构程序设计7.3.1简单分支结构格式：IF<条件><语句序列>ENDIF执行过程：当<条件>成立时，逐条执行IF与ENDIF之间

5、的<语句序列>，然后执行ENDIF后的语句；当<条件>不成立时，不执行<语句序列>而直接执行ENDIF后的语句。【例7-8】某种商品一次购买100件以上时，可享受8%的优惠。试编程根据输入的单价和数量计算应付金额。CLEARINPUT"数量："TOslINPUT"单价："TOdjje=dj*slIFsl>=100je=je*0.92ENDIF?"应付金额："+STR(je,8,2)RETURN7.3.2选择分支结构格式：IF<条件><语句序列1>ELSE<语句序列2>ENDIF执行过程：若<条件>成立仅执行<语句序列1>，而后执行ENDIF后的语句；否则仅执行<语句序列2>，而

6、后转去执行ENDIF后的语句。【例7-10】出租车不超过5公里时一律收费10元，超过时则超过部分每公里加收1.6元。试编程根据里程数计算并显示出应付车费。CLEARINPUT"里程："TOlcIFlc<=5?"车费为：十元"ELSEcf=10+(lc-5)*1.6?"车费为："+STR(cf,6,2)ENDIFRETURN7.3.3分支嵌套结构在分支结构的<语句序列>中，允许包括另一个合法的分支结构语句。【例7-12】设硅谷公司员工的工资计算方法如下：每工时按68元发放；工作时数超过120小时者，超过部分加发百分之十五；工作时数不到80小时者，扣发500元。试编程按输入的员工号

7、和该号员工的工时数，计算并输出其应发工资。CLEARACCEPT"员工号："TOyghINPUT"工时："TOgsIFgs>120gz=gs*68+(gs-120)*68*0.15ELSEIFgs<80gz=gs*68-500ELSEgz=gs*68ENDIFENDIF?&&输出一个空行?ygh+"号员工应发工资："+STR(gz,8,2)RETURN7.3.4多路分支结构用来解决在多种不同情况下的程序选择执行问题。格式：DOCASECASE<条件1><语句序列1>CASE<条件2><语句序