程序的三种基本控制结构.docVIP

程序的三种基本控制结构 顺序结构 选择结构 循环结构 顺序结构：顺序语句由语句序列组成，程序执行时，按照语句的顺序，从上而下，一条一条地顺序执行 如：store Visual FoxPro to name Age = 4 ? My name is + name + , I am ; + str(Age) + years old 二、选择结构：分支语句根据一定的条件决定执行哪一部分的语句序列。 单分支结构 格式： if条件 语句序列 endif 例程1：clear use sb wait ‘是否打印？（y/n）’ to a if upper(a)=’Y’ wait ‘请接好打印机！按任意键后打印’ list to print endif 双分支选择 格式： if条件 语句序列1 else 语句序列2 endif 例程2： clear set talk off accept ‘请输入密码：’ to mm if mm’abc’ ?’你无权使用本系统’ quit else ?’欢迎使用本系统’ endif set talk on if语句的嵌套：在一个if语句中包含另一个语句的程序结构 例程3：根据输入的x值，计算下面分段函数的值，并显示结果。 2x-5 (x1) Y= 2x (1=x10) 2x+5 (x=10) input ‘请输入x的值：’ to x if x1 y=2*x-5 else if x10 y=2*x else y=2*x+5 endif endif ?’分段函数的值为’+str(y) 多分支结构 格式：DO CASE CASE 〈逻辑表达式1〉 〈语句组1〉 CASE 〈逻辑表达式2〉 〈语句组2〉 … CASE 〈逻辑表达式n〉 〈语句组n〉 [OTHERWISE] 〈语句组〉 ENDCASE 例程4：输入某学生成绩，并判断其成绩等级：100-90分为优秀，89-80分为良好，79-70分为中等，69-60分为差，60分以下为不及格。 Set talk off Clear Input ‘请输入成绩：’ to nscore Do case Case nscore=90 ?’成绩优秀’ case nscore=80 ?’成绩良好’ case nscore=70 ?’成绩中等’ case nscore=60 ?’成绩较差’ case nscore=0 ?’成绩不及格’ otherwise ?’成绩应大于0，数据有错’ endcase ?’程序执行完毕’ set talk on 三、循环结构：循环语句使同一个语句组根据一定的条件执行若干次。 ?有三种循环语句： –DO WHILE –FOR –SCAN 1、do while 循环语句 do while 循环 ?语句格式1 DO WHILE 〈逻辑表达式〉 语句组 ENDDO 例程1：计算1+2+3…100 set talk off clear s=0 I=1 Do while I=100 s=s+I I=I+1 Enddo ?’1～100的和为：’,s return 语句格式2： DO WHILE 〈逻辑表达式〉 〈命令序列1〉 [loop] 命令序列2 [exit] 命令序列3 ENDDO Loop语句是循环短路语句，当程序执行到loop语句时，被迫结束本次循环，不再执行loop后面至enddo之间的语句序列，而是返回do while处重新判断条件 Exit语句是循环断路语句。当程序执行到exit语句时，