第1章 数据库基本理论ppt

第5讲VFP程序设计基础(3)西南民族大学教师: 肖明xm0928@第5讲VFP程序设计基础(3)•知识回顾•本讲题要•学习新知•实例演练•课堂小结•课后练习●交互式输入命令:INPUT[<提示信息>]TO<内存变量>ACCEPT[<提示信息>]TO<内存变量>WAIT[<提示信息>][TO<内存变量>][TIMEOUT<等待时间>]●格式输入命令:命令1:@<行，列>SAY<提示信息>GET<变量> [FUNCTION<功能符>][PICTURE<格式符>][RANGE<数值表达式1>，<数值表达式2>][VALID<逻辑表达式>]命令2:READ输出命令:1.？<内存变量名表>2.？？<内存变量名表>3.TEXT<输出显示内容>ENDTEXT4.@<行，列>SAY<提示信息>[FUNCTION<功能符>][PICTURE<格式符>]本讲题要本次课程，我们将学习程序的三种基本结构,即顺序结构、选择分支结构和循环结构的实现方法和语句格式；并通过举例进一步加深对程序设计的基本思想和原则的把握。

学习新知1.顺序结构2.单向分支3.双向分支4.多向分支5.条件循环6.计数循环7.指针循环8.多重循环顺序程序设计是按处理实际问题的逻辑步骤，把相关的命令按执行的先后顺序排列在一起，执行该程序时，系统自动按自上而下的顺序执行。

顺序程序结构的流程图如下所示：命令序列A命令序列B例1：查询学生选课情况：CLEARCLOSE DBFSET DEFAULT TO E:\教材用数据表SELECT 1USE 学生INDEX ON 学号TAG XHSELECT 2USE 课程INDEX ON 课程号TAG KCHSELECT 3USE 选课SET RELATION TO 学号INTO A, 课程号INTO BLIST 学号,A.姓名,B.课程名,成绩CLOSE DBF例2：鸡兔同笼，已知鸡兔的总头数为H，总脚数为F,求鸡兔各有多少只？鸡兔同笼问题的算法为：X=(4H-F)/2Y=(F-2H)/2程序编制如下：clearinput "请输入总头数H："to hinput "请输入总脚数F："to fx=(4*h-f)/2y=(f-2*h)/2? "共有鸡:"+alltrim(str(x))+"只"? "共有兔:"+alltrim(str(y))+"只"即根据用户设置的条件表达式的值,决定某一操作是否执行.语句:IF <条件表达式><命令序列>ENDIF功能:当条件表达式的值为真时,执行<命令序列>,否则执行ENDIF 后的命令.说明:条件表达式为逻辑型,<命令序列>可为一条或多条语句.IF 、ENDIF 必须各占一行，IF 和ENDIF 必须成对使用.2. 单向分支结构条件？ENDIF 后的命令命令序列N Y例3：按输入的记录号修改学生表文件中的记录(单向) CLEARUSE E:\教材用数据表\学生LISTWAITCLEARINPUT "请输入欲修改记录的记录号:"TO JLHIF RECCOUNT()>=JLHEDIT RECORD JLHLISTENDIFUSECANCEL语句:IF<条件表达式><命令序列1>ELSE<命令序列2>ENDIF功能:当条件表达式的值为真时,执行<命令序列1>,然后执行ENDIF后的命令;否则,执行<命令序列2>,然后执行ENDIF后的命令;说明:IF、ELSE和ENDIF必须配对使用，且应各占一行。

<命令序列1>和<命令序列2>中可以嵌套IF命令。

流程图:N Y条件？命令序列1命令序列2ENDIF后的命令例3：按输入的记录号修改学生表文件中的记录(双向) CLEARUSE E:\教材用数据表\学生LISTWAITCLEARINPUT "请输入欲修改记录的记录号:"TO JLHIF RECCOUNT()>=JLHEDIT RECORD JLHLISTELSE? "所输入记录号超过范围!"ENDIFUSE语句:DO CASECASE<条件表达式1><命令序列1>CASE<条件表达式2><命令序列2>...CASE<条件表达式n><命令序列n>OTHERWISE<命令序列n+1>ENDCASE 功能:系统从多个条件中依次测试条件表达式的值，若为真，即执行相应<条件表达式>后的<命令序列>；若所有的条件表达式的值均为假，则执行OTHERWISE后面的命令序列。

说明:DO CASE 和第一个CASE子句之间不能插入任何命令;DO CASE 和ENDCASE必须配对使用，且DO CASE、CASE、OTHERWISE和ENDCASE各子句必须各占一行;<命令序列>中可嵌套DO CASE命令。

例4:编写程序,屏幕显示如下提示,并根据用户的选择,显示不同数据表的内容.数据表内容显示*************************1.学生表2.教师表3.课程表请输入你的选择(1～3)SET TALK OFFCLEARTEXT数据表内容显示*************************1.学生表2.教师表3.课程表ENDTEXT WAIT "请输入你的选择(1～3):"TO AN SET DEFAULT TO E:\教材用数据表4. 多向分支结构DO CASECASE AN="1"USE 学生BROWSE LAST CASE AN="2"USE 教师BROWSE LASTCASE AN="3"USE 课程BROWSE LASTOTHERWISE ? "选择错误!"ENDCASESET TALK ON RETURN例5：根据数据表学生成绩.DBF 中的数学、物理和英语的平均成绩来判断该生的成绩属于优、良、合格、还是不合格。

clearuse 学生成绩accep "请输入姓名:"to xmlocate for 姓名=xm n=(数学+物理+英语)/3@ 3,10say xm+"的平均分为:“;+STR (n,4,1)do casecase n>=90dj="优"case n>=804. 多向分支结构case n>=60dj="及格"otherwise dj="不及格"endcase@5,10 say xm+"的等级为:"+dj use循环结构:重复执行一段命令序列若干次或重复执行一段命令序列直到满足条件为止.一般分为当型循环为直到型循环两种P A 真假A当P 为真A 直到P 为真P A假真当型（while 型）循环结构直到（until 型）型循环结构语句:DO WHILE<条件表达式A><命令序列1>[LOOP ]<命令序列2>[EXIT ]<命令序列3>ENDDO功能:系统执行该命令时，先测试条件表达式的值，若为真，则执行循环体内的命令;若为假，则执行ENDDO 后面的命令。

说明: 若执行循环体时遇到LOOP 命令，则直接返回执行DO 命令，测试条件以决定是否继续循环。

若执行循环体时遇到EXIT 命令，则不执行下面的命令序列，直接跳出循环，执行ENDDO 后面的命令。

<命令序列1>[LOOP]<命令序列2>[EXIT]<命令序列3>条件为真？例5:编程,简单3位数加减计算游戏A=RAND(-1)I=1CLEARDO WHILE I<=3X=INT(1000*RAND( ))Y=INT(1000*RAND( ))Z=0OP=RAND( )IF OP>0.5@ 3+2*I,20SAY STR(X)+"+"+STR(Y)+"="GET Z PICT "99999"A=X+YELSE@ 3+2*I,20SAY STR(X)+"-"+STR(Y)+"="GET Z PICT "99999"A=X-YENDIF例5:编程,简单3位数加减计算游戏(续) READIF Z=A@ 3+2*I, 60SAY "答案正确!"ELSE@ 3+2*I, 60SAY "答案错误!"ENDIFI=I+1ENDDOCANCEL语句:FOR <循环变量>=<初值>TO <终值>[STEP <步长>]<命令序列1>[LOOP ]<命令序列2>[EXIT ]<命令序列3>ENDFOR | NEXT功能:系统执行该命令时，先将初值赋给循环变量,然后判断循环变量的值是否超过终值，若未超过，则执行循环体内的命令;否则，则执行ENDFOR 后面的命令。

说明: 步长省略时默认为1,初值大于终值时为负;<命令序列1>[LOOP]<命令序列2>[EXIT]<命令序列3>循环变量未超过终值？例6:编程,求N的阶乘clearfac=1Input "请输入n的值:"to nfor i=1 to n step 1fac=fac*inext?str(n,3)+"的阶乘是:"+str(fac) cancel语句:SCAN<范围>[FOR <条件1>][WHILE <条件2>]<命令序列1>[LOOP ]<命令序列2>[EXIT ]<命令序列3>ENDSCAN功能:该命令针对操纵数据表时使用，它由记录指针的位置控制循环.当记录指针处于指定范围内,且记录满足条件时,执行循环体内的命令;否则，则执行ENDSCAN 后面的命令。