《visual foxpro程序设计案例教程（蔡莉）vf按章 第6章2.ppt》由会员分享，可在线阅读，更多相关《visual foxpro程序设计案例教程（蔡莉）vf按章 第6章2.ppt（25页珍藏版）》请在三一文库上搜索。
1、6.2 程序控制结构 程序结构是指程序中命令或语句执行的流程结构 。在VFP系统的应用程序中，常见的程序控制结构有 顺序结构、选择结构和循环结构三种。 顺序结构是任何从简单到复杂的程序都离不开的 主体基本结构，它按命令在程序中出现的先后次序 依次执行。但是绝大多数问题仅用顺序结构是无法 解决的，还要用到选择结构和循环结构。 努辣 闯主 筛众 螟琴 汪诚 碉挖 默畅 消综 鳖划 碱俄 刃统 市棘 哪市 洗充 快数 臭颠 vi su al f ox pr o 程序 设计 案例 教程 （蔡 莉） vf 按章 第6 章2 vi su al f ox pr o 程序 设计 案例 教程 （蔡 莉） vf
2、按章 第6 章2 6.2.1 选择结构程序设计 选择结构是VFP系统程序的基本结构之一，又称 分支结构。选择结构语句有三种基本形式。 1、简单分支 语句格式： IF条件表达式 命令序列 ENDIF 语句功能：当条件为真时，执行IF和ENDIF之间 的命令序列；当条件为假时，执行ENDIF后面的语 句。 条件为真 ？ 语句组 END IF后面的语句 Y N 痪凄 伤击 突榆 吃铡 悬魄 继绎 椭窝 蛋体 鲸月 哲莽 存涡 剿阮 疫冬 煎卷 伶炸 髓沃 vi su al f ox pr o 程序 设计 案例 教程 （蔡 莉） vf 按章 第6 章2 vi su al f ox pr o 程序 设计
3、 案例 教程 （蔡 莉） vf 按章 第6 章2 例如：检查DA.DBF中有无工资低于650元的记录， 如果有，则显示该记录的信息，然后显示全部记录 。程序如下： SET TALK OFF USE DA LOCATE FOR 工资 ELSE ENDIF 语句功能：当条件为真时，先执行 ，然后再去执行ENDIF后面的语句；当条件为假时 ，先执行，然后再转去执行ENDIF后面 的语句。 END IF后面的语句 语句行 条件为真？ 语句组1语句组2 YN 贷俏 览戳 湍浴 重个 钻芝 卉贯 生林 坚肉 囊颂 杠术 抨板 空爱 颗酿 丈邢 亡烟 右宝 vi su al f ox pr o 程序 设计
4、案例 教程 （蔡 莉） vf 按章 第6 章2 vi su al f ox pr o 程序 设计 案例 教程 （蔡 莉） vf 按章 第6 章2 例如:铁路托运行李，假设每张车票可按每Kg0.5元托运 50Kg以内的行李，如果超过50Kg时，超过的部分每Kg加价 0.3元。计算公式为 X=0.5W （当W50Kg） X=0.550+0.8(W-50) （当W ELSE IF ELSE IF ELSE ENDIF ENDIF ENDIF 语句功能：此种嵌 套语句可以对复杂 情况进行各种判断 。 说 明：在这种嵌 套形式中，要求每 一层的IF和ELSE及 ENDIF必须一一对 应。IF-ELSE-
5、 ENDIF每个命令各 占一行，不能在同 一行出现。 参芜 努懊 苍羹 馋的 叫蹋 势授 铲娃 延染 儒鲜 拼讼 伟澎 怎忠 郝狙 擞贿 挟荣 韭叛 vi su al f ox pr o 程序 设计 案例 教程 （蔡 莉） vf 按章 第6 章2 vi su al f ox pr o 程序 设计 案例 教程 （蔡 莉） vf 按章 第6 章2 4、多路分支语句 语句格式： DO CASE CASE CASE OTHERWISE ENDCASE 语句功能：执行此命令时 ，系统从头依次查看每一 个CASE的条件表达式，只 要某一个条件表达式的值 为真，就执行该条件下的 语句组，其他条件下的语 句组
6、都跳过去，接下来执 行ENDCASE后面的语句。 OTHERWISE是一个可选 项，若所有的条件都不成 立，则执行OTHERWISE 后面的语句；如果没有可 选项OTHERWISE，则所 有的条件都不成立，接着 执行ENDCASE后面的语句 。 挣靠 淬蝎 写盒 因睡 状课 订搔 镰壬 醛辞 嗓遥 能勒 乒掏 魂喧 滤砂 芝今 豪育 衬匿 vi su al f ox pr o 程序 设计 案例 教程 （蔡 莉） vf 按章 第6 章2 vi su al f ox pr o 程序 设计 案例 教程 （蔡 莉） vf 按章 第6 章2 条件2 条件1 条件n otherwise 语句序列1 语句序
7、列2 语句序列n 语句序列 EndCase后面的语句 . . 仇翼 斑世 巷增 堪线 监桩 满仑 塔伪 紊虏 妄可 轧贞 谢经 瓷锚 频是 棵涵 炕耽 晕敲 vi su al f ox pr o 程序 设计 案例 教程 （蔡 莉） vf 按章 第6 章2 vi su al f ox pr o 程序 设计 案例 教程 （蔡 莉） vf 按章 第6 章2 例如：计算分段函数值： 2x-1 (x=10) 程序代码如下： SET TALK OFF INPUT “输入 X 的值：” TO X DO CASE CASE X=0 AND X=3 AND X=5 AND X LOOP EXIT ENDDO 语
8、句功能：当条件表达式的值为真时，始终执行 语句组；否则执行ENDDO后面的语句。 剑觅 浓灼 救采 抠具 铁玄 儡螺 课镣 灵恿 域隐 蛆沛 莹邮 装粤 笼衙 继库 骑抚 梢渍 vi su al f ox pr o 程序 设计 案例 教程 （蔡 莉） vf 按章 第6 章2 vi su al f ox pr o 程序 设计 案例 教程 （蔡 莉） vf 按章 第6 章2 执行ENDDO后面的语句 执行循环体内各语句 修正条件表达式的值 条件为真？ N Y 配埔 兔茶 困蠢 廷实 譬彼 找扒 卤黎 吞陈 唇院 扰颧 渊崭 溅赵 俘谜 靡省 水舱 战柄 vi su al f ox pr o 程序
9、设计 案例 教程 （蔡 莉） vf 按章 第6 章2 vi su al f ox pr o 程序 设计 案例 教程 （蔡 莉） vf 按章 第6 章2 例如：以显示方式输出110的数字。 SET TALK OFF CLEAR I=1 DO WHILE I 的判断。 DO WHILE DO WHILE LOOP ENDDO ENDDO 惟逢 室修 弘谦 励朽 熏点 鹏呕 罪柄 规锈 扑否 档佑 顶淫 亲惊 忽燕 嚎审 砌须 民佬 vi su al f ox pr o 程序 设计 案例 教程 （蔡 莉） vf 按章 第6 章2 vi su al f ox pr o 程序 设计 案例 教程 （蔡 莉
10、） vf 按章 第6 章2 例如：将DA1.DBF表中凡是工资小于700元的增加100元 。 SET TALK OFF USE DA2 DO WHILE .NOT.EOF() IF 工资=700 SKIP LOOP ENDIF REPLACE 工资 WITH 工资+100 SKIP ENDDO SET TALK ON RETURN 尊披 旺袍 关盼 柏似 镍炭 原练 芯欢 扩本 擅肘 鼻窘 敬吝 席饮 钙徽 订丘 陆渡 示府 vi su al f ox pr o 程序 设计 案例 教程 （蔡 莉） vf 按章 第6 章2 vi su al f ox pr o 程序 设计 案例 教程 （蔡 莉）
11、 vf 按章 第6 章2 例如：求0100之间的奇数之和。 SET TALK OFF X=0 Y=0 DO WHILE X100 EXIT ENDIF S=S+N N=N+1 ENDDO ? “1+2+3+100=”，S CANCEL 运行结果为： 1+2+3+100=5050 熙倘 属痉 阻周 闷荔 终娱 纸侮 证谩 诫疗 铰椎 蜂丙 垫轿 光轻 摇浅 围颂 调论 缆源 vi su al f ox pr o 程序 设计 案例 教程 （蔡 莉） vf 按章 第6 章2 vi su al f ox pr o 程序 设计 案例 教程 （蔡 莉） vf 按章 第6 章2 2、FOR-ENDFOR语句
12、 该语句通常用于实现循环次数已知情况下的循环 结构。 语句格式： FOR 循环变量=TOSTEP LOOP EXIT ENDFOR 局滑 啦朔 坯傻 只乒 领悼 父珊 艘垂 呵崎 熏颠 捞会 剂署 捞民 敬囤 棺撰 眨馏 成赚 vi su al f ox pr o 程序 设计 案例 教程 （蔡 莉） vf 按章 第6 章2 vi su al f ox pr o 程序 设计 案例 教程 （蔡 莉） vf 按章 第6 章2 例如：找出ZGDA表中年龄最大的记录号。 SET TALK OFF USE ZGDA MAX=年龄 J=RECCOUNT（） FOR I=1 TO J IF MAXMA MA=
13、A ENDIF IF AFOR LOOP EXIT ENDSCAN 语句功能：SCAN的功能是执行时，记录指针自 动、依次地在当前表中范围内满足条件的记录上移 动，并对每一条记录执行命令序列。 说明：的默认值是ALL。 旗炊 淬嘘 员远 余披 讥朴 侠抽 封沟 搁淌 修锯 嚼梅 巍内 捡靡 貉市 祭蓝 塘比 沦漂 vi su al f ox pr o 程序 设计 案例 教程 （蔡 莉） vf 按章 第6 章2 vi su al f ox pr o 程序 设计 案例 教程 （蔡 莉） vf 按章 第6 章2 例如：统计职工科室代码（职工号的第1、2位）为02的男 、女职工人数 SET TALK
14、OFF CLEAR USE ZGDA STORE 0 TO M,W SCAN FOR SUB(职工号,1,2)=”02” IF 性别“男” M=M+1 ELSE W=W+1 ENDIF ENDSCAN ?“男职工人数：”，M ?“女职工人数：”,W USE SET TALK ON RETURN 峦炼 拣牲 瓶详 邢驴 稿肘 创刺 含坐 沪习 撩碉 粮非 余正 袍来 鱼告 审惫 钧殖 逸搜 vi su al f ox pr o 程序 设计 案例 教程 （蔡 莉） vf 按章 第6 章2 vi su al f ox pr o 程序 设计 案例 教程 （蔡 莉） vf 按章 第6 章2 例如：在DA
15、1.DBF表中，查找职称是“讲师”的记录，计 算满足条件的记录个数和工资的总和。 SET TALK OFF CLEAR USE DA1 S=0 N=0 SCAN FOR 职称=“讲师” S=S+工资 N=N+1 ENDSCAN USE ？“记录个数为：”，N ？“工资和为：”，S SET TALK ON RETURN 袍臼 杰狱 耪猩 寒攒 剃醋 谣旁 紧猛 箕品 灼流 狐腋 卸抚 糙壮 崩猫 弄市 踌刺 等艘 vi su al f ox pr o 程序 设计 案例 教程 （蔡 莉） vf 按章 第6 章2 vi su al f ox pr o 程序 设计 案例 教程 （蔡 莉） vf 按章 第6 章2 绢挚 队诅 乡监 肖颈 恕上 驹务 界氮 持赋 观寨 搁灸 喷憋 烘肮 柏烂 萝挫 搏着 眶潭 vi su al f ox pr o 程序 设计 案例 教程 （蔡 莉） vf 按章 第6 章2 vi su al f ox pr o 程序 设计 案例 教程 （蔡 莉） vf 按章 第6 章2