程序的三种基本控制结构

程序的三种基本控制结构顺序结构选择结构循环结构一、顺序结构：顺序语句由语句序列组成，程序执行时，按照语句的顺序，从上而下，一条一条地顺序执行如：store 'Visual FoxPro' to nameAge = 4'My name is ' + name + ', I am ' ;+ str(Age) + ' years old'二、选择结构：分支语句根据一定的条件决定执行哪一部分的语句序列。

1、单分支结构格式：if<条件><语句序列>endif例程1：clearuse sbwait ‘是否打印？（y/n）’to aif upper(a)=’Y’wait ‘请接好打印机！按任意键后打印’list to printendif2、双分支选择格式：if<条件><语句序列1>else<语句序列2>endif例程2：clearset talk offaccept ‘请输入密码：’ to mmif mm<>’abc’’你无权使用本系统’quitelse’欢迎使用本系统’endifset talk onif语句的嵌套：在一个if语句中包含另一个语句的程序结构例程3：根据输入的x值，计算下面分段函数的值，并显示结果。

2x-5 (x<1)Y=2x (1<=x<10)2x+5 (x>=10)input ‘请输入x的值：’to xif x<1y=2*x-5elseif x<10y=2*xelsey=2*x+5endifendif?’分段函数的值为’+str(y)3、多分支结构格式：DO CASECASE 〈逻辑表达式1〉〈语句组1〉CASE 〈逻辑表达式2〉〈语句组2〉…CASE 〈逻辑表达式n〉〈语句组n〉[OTHERWISE]〈语句组〉ENDCASE3 / 35例程4：输入某学生成绩，并判断其成绩等级：100-90分为优秀，89-80分为良好，79-70分为中等，69-60分为差，60分以下为不及格。

Set talk offClearInput ‘请输入成绩：’ to nscoreDo caseCase nscore>=90?’成绩优秀’case nscore>=80?’成绩良好’case nscore>=70?’成绩中等’case nscore>=60?’成绩较差’case nscore>=0?’成绩不及格’otherwise?’成绩应大于0，数据有错’endcase?’程序执行完毕’set talk on三、循环结构：循环语句使同一个语句组根据一定的条件执行若干次。

●有三种循环语句：–DO WHILE–FOR–SCAN1、do while 循环语句●语句格式1DO WHILE 〈逻辑表达式〉<语句组>ENDDO例程1：计算1+2+3 (100)set talk offclears=0I=1Do while I<=100s=s+II=I+1Enddo’1～100的和为：’,sreturn5 / 35语句格式2：DO WHILE 〈逻辑表达式〉〈命令序列1〉[loop]<命令序列2>[exit]<命令序列3>ENDDOLoop语句是循环短路语句，当程序执行到loop语句时，被迫结束本次循环，不再执行loop后面至enddo之间的语句序列，而是返回do while处重新判断条件Exit语句是循环断路语句。

当程序执行到exit语句时，被迫中断循环，转去执行enddo语句后的语句。

例程2：循环输入学生姓名，查找并显示该学生的情况，直到用户停止输入。

Set talk offClearStore ‘y’ to ynUse 学生Do while .t.Accept ‘请输入学生姓名:’to nameLocate for 姓名=nameIf found()’学号’+学号’姓名’+姓名else’没有’+name+’这个学生’endifwait ‘是否继续查找（y/n）?’to ynif upper(yn)=’Y’loopelseexitendifenddo’程序结束’useset talk onreturn读程练习：1、set talk offuse 学生name=space(8)@10,5 say ‘请输入学生姓名’get name7 / 35locate for 姓名=nameif found()dispelse@12,5 say ‘该单位无此人‘endifset talk onusereturn2、统计学生表中男女学生人数set talk offclearuse 学生store 0 to nman,nwomando while !eof()if 性别=’男’nman=nman+1elsenowman=nwoman+1endifskip’男生人数为：’+str(nman)’女生人数为：’+str(nwoman)useset talk onreturn3、逐条输出学生表中1984年出生的学生记录clearuse 学生index on year(出生日期) tag csrqseek 1984do while year(出生日期)=1984dispskipenddousereturn4 1～100之间全部奇数之和set talk offstore 0 to x,ydo while .t.x=x+19 / 35do casecase int(x/2)=x/2loopcase x>=100exitotherwisey=y+xendcaseenddo’0～100之间的奇数之和为：’,yset talk onreturn作业：1、使用do while语句逐条显示学生表中的每一条记录2、算出1～100之间的所有偶数的和3、从键盘输入一个整数，求出此整数的阶乘2、for循环语句do while语句适用于循环次数未知的循环for语句适用于循环次数已知的循环语句格式FOR 循环变量= 初值TO 终值[STEP 步长]〈语句组〉ENDFOR/NEXT循环结构的执行过程是：先为循环变量设置初值（该变量一般为数值型内存变量），然后判断其值是否超过终值。

若没超过，执行循环体，遇到endfor时使循环变量增加一个步长值（步长省略，则默认为1），然后返回到for语句处，将循环变量的当前值与循环终值比较，没有超过，继续执行循环体，直至循环变量的当前值超过终值或执行到exit语句，程序才退出循环，执行enddo后面的语句。

说明：1、FOR语句适用于循环次数已知的情况2、如果没有给出步长，步长缺省为13、步长可以是正数、负数–当STEP>0，变量<=终值时，语句组执行–当STEP<0，变量>=终值时，语句组执行例程1：for I=1 to 10Iendfor结果为：1 2 3 4 5 6 7 8 9 10 例程2：for I=10 to 1 step –4I11 / 35结果为：1062例程3：计算1+2+3 (100)s=0for I=1 to 100s=s+Iendfors例程4：求所有的水仙花数（153=13+53+33）clearfor m=100 to 999a=int(m/100)b=int(mod(m,100)/10)c=m%10if m=a^3+b^3+c^3mendifendforreturn例程5 从键盘输入10个数，编程找出其中的最大值和set talk offclearinput “请输入一个数：” to astore a to max,minfor I=2 to 10input “请输入一个数：” to aif max<amax=aendifif min>amin=aendifendfor”最大值为：”，max”最小值为：”,minset talk on程序练习：1、设有如下程序set talk offclearuse gzdo while !eof()13 / 35if 基本工资>=800skiploopendifdispskipenddousereturn该程序实现的功能是：2、执行下列程序：set talk offstore 0 to x,ydo while x<20x=x+yy=y+2enddx,yset talk onreturn在屏幕上显示的输出结果是：20 103、下面程序的运行结果为：18 15 12set talk offdimension a(6)for k=1 to 6a(k)=30-3*kendfork=5do while k>=1a(k)=a(k)-a(k+1)k=k-1enddoa(2),a(4),a(6)set talk onreturn4、程序如下s=0I=1Do while I<4Accept “请输入字符串：” to xIf ‘A’$xs=s+1endifI=I+115 / 35enddos运行时输入：”abcd”,”ABCD”,”aBcD”,输出s的值是15、设表文件cj.dbf中有两条记录，内容如下：record# xm zf1 王燕 3002 李明 500此时运行以下程序的结果应当是（）use cjm->zf=0do while not eof()m->zf=m->zf+zfskipenddom->zfreturn6、执行如下程序：store “” to ansdo while .t.clear@3,10 say “1.添加 2.删除 3.修改 4.退出”@5,15 say “请输入选择：” get ansreadif val(ans)<=3 .and. val(ans)>=1prog=”prog”+ans+”.prg”do &progendifquitenddo如果在屏幕显示“请输入选择：”时，输入4，则系统将（）7、在下列程序中，如果要使程序继续循环，变量m的输入值应为（）do while .t.wait ‘m=’to mif upper(m)$’yn’exitendifenddo8、下列程序执行时，在键盘上输入9，则屏幕上的显示结果是（）input “x=”to xdo casecase x>1017 / 35”ok1”case x>20”ok2”otherwise”ok3”endcase3、scan循环语句语句格式：SCAN [范围][FOR 逻辑表达式][WHILE 逻辑表达式] 〈语句组〉ENDSCAN说明：范围省略时，默认是all格式1：scan [范围] FOR 逻辑表达式从〈范围〉内的第一条记录开始，计算逻辑表达式，对逻辑表达式结果为.t.的记录进行操作。