第二章 VFP程序设计基础(补充)

2020/2/1712.5程序的基本结构1、顺序结构2、分支结构3、循环结构2020/2/1721、顺序结构顺序结构程序由语句行组成，程序按语句顺序执行。如：usejsAppendblankEdituse2020/2/1732.5.1、选择结构（分支结构）分支结构程序简称分支程序，是根据某个条件的成立与否，来决定下一步做什么、不做什么。分支结构也叫选择结构或者判断结构。分支结构体现了程序在运行过程中的自我判断能力。1.单路选择分支结构2.双路选择分支结构3.多路选择分支结构2020/2/1741.单路选择分支结构格式：IF条件表达式命令序列ENDIF例题条件表达式命令序列.T..F.CLEARINPUT输入被除数：TOxINPUT输入除数：TOyIFy0r=x/y?x/y=,rENDIFRETURN例1从键盘上输入两个数，计算它们的商，要求能够判断除数为零的情况。2020/2/1762.双路选择分支结构格式：IF条件表达式命令序列1ELSE命令序列2ENDIF例题条件表达式命令序列1.T..F.命令序列2例2编写程序，判断输入考试成绩的等级。*判断输入考试成绩的等级CLEARINPUT“请输入考试成绩TOchjIFchj60dj=“不合格”ELSEifchj90dj=“通过”elsedj=“优秀”endifendif?“成绩等级:”+djRETURN2020/2/1783.多路选择分支结构格式：DOCASECASE条件表达式1命令序列1CASE条件表达式2命令序列2…………CASE条件表达式n命令序列n[OTHERWISE命令序列n+1]ENDCASE2020/2/179条件表达式1命令序列1.T..F.条件表达式2命令序列2.T..F.条件表达式n命令序列n.T..F.命令序列n+1例题多路选择分支结构流程图例3设计一个程序，要求从键盘输入两个数和一个运算符（+、-、*、/），根据输入的运算符计算两个数的和、差、积或商。如果输入了错误的运算符，则应显示错误信息。**根据输入的运算符计算两个数的和、差、积或商。CLEARINPUT输入第一个数：TOxINPUT输入第二个数：TOyWAIT输入运算符：TOopDOCASECASEop=+?x,op,y,=,x+yCASEop=-?x,op,y,=,x-yCASEop=*?x,op,y,=,x*yCASEop=/?x,op,y,=,x/yOTHERWISE?运算符错误！ENDCASERETURN2020/2/17113、循环结构循环结构在程序设计中表现为重复执行某一个程序段。在程序段中，某些数据有规律地变化，每次执行都会得到不同的结果，直到满足一定条件时才退出这个程序段，这种能在给定条件下重复执行的程序称为循环程序。程序的这种结构称为循环结构。1.DOWHILE循环2.FOR循环3.SCAN循环2020/2/17121.DOWHILE循环格式：DOWHILE条件表达式命令序列[LOOP][EXIT]ENDDO例题条件表达式命令序列.T..F.例4计算S=1+2+3+…+100。*计算1+2+3+…+100的值s=0i=1Dowhilei=100s=s+ii=i+1Enddo?”1+2+3+…+100的值为”,sReturn2020/2/17142.FOR循环格式：FOR循环变量=初值TO终值[STEP步长]命令序列[EXIT][LOOP]ENDFOR|NEXT例题循环变量超过终值？命令序列YN循环变量=初值循环变量=循环变量+步长例5计算1到100之间的所有偶数之和。*计算1到100之间的所有偶数之和SETTALKOFFCLEARsum=0n=100FORi=2TOnSTEP2sum=sum+iNEXT?2+4+……+,n,=,sumRETURN2020/2/17163.SCAN循环格式：SCAN[范围][FOR条件表达式]命令序列[LOOP][EXIT]ENDSCAN功能说明：该命令的功能是在指定的范围内查找满足指定条件的记录。具体做法是：在当前打开的数据库中移动记录指针，对每个满足条件的记录执行“命令序列”（循环体）的操作。SCAN会自动将指针先指向满足条件的第一条记录，执行一次循环体，再自动将指针移到下一条满足条件的记录，直到对数据库文件的每一条记录检查操作完毕。例6编写一个对XS.DBF按任意条件查询的程序。*按任意条件查询数据表中的纪录SETTALKOFFCLEARUSEXSACCEPT请输入查询条件：TOconditionSCANFOR&condition&&宏替换DISPLAYENDSCANUSERETURN2020/2/1718补充编程实例补1计算1!+2!+3!+…+10!的值。补2计算1-100之间非3的倍数的所有奇数之和。2020/2/1719补1计算1!+2!+3!+…+10!的值。**计算1!+2!+3!+…+10!的值t=0p=1Fori=1to10p=p*It=t+pEndfor?“1!+2!+3!+…+10!的值为”,tReturn2020/2/1720补2计算1-100之间非3的倍数的所有奇数之和。**计算1-100之间非3的倍数的所有奇数之和Settalkoffs=0Fori=1to100step2Ifmod(i,3)=0loopEndifs=s+iEndfor?”1-100之间非3的倍数的所有奇数之和为”,s补充习题：1.编写一个程序，计算下面数学式的结果要求用FOR和DO-WHILE循环结构分别实现。2.编写一个程序，要求从键盘输入的一个整数，然后判断该数是否能够被3整除，如果能被3整除，则显示“该数是3的倍数”，否则显示“该数不能被3整除”。3.编写一个程序，要求接受从键盘输入的一个一位正数，然后，将这个数用英文单词显示出来。比如输入数字“9”，应显示“nine”。10016141211