新编Visual FoxPro 程序设计实用教程 vfp第9周讲稿.pptVIP

教学目的与要求 掌握分支结构DO CASE 完善表单制作数据表界面 结构分支（多路分支） DO CASE CASE 条件表达式1 语句序列1 CASE 条件表达式2 语句序列2 …… …… …… CASE 条件表达式N 语句序列N [OTHERWISE 语句行序列N+1] ENDCASE 流程：逐个判断条件，若某个条件为真，则执行相应语句序列后，流程转到ENDCASE后继续，若N个条件均为假，则选OTHERWISE，执行语句N+1后流程转到ENDCASE后继续；不选，直接执行ENDCASE后的语句。 结构分支例 INPUT ‘请输入X的值:’ TO X DO CASE CASE X0 Y=1 CASE X=0 Y=0 CASE X0 Y=-1 ENDCASE ?’Y=’,Y 结构分支例 编写按分数段调整成绩的程序。调整要求为：90—100 取80%；80—89取85%；70—79取90%；61--69取95%；60分以下取100%。 USE G:\09\成绩表.dbf ACCE请输入学生的学号： TO XH LOCA ALL FOR 学号=XH DO CASE CASE 成绩=90 REPL 成绩 WITH 成绩*0.8 CASE