《VFP程序设计》--选择结构.pptVIP

一、双分支选择结构 语句格式如下： IF 〈条件〉 〈语句组1〉 [ ELSE 〈语句组2〉] ENDIF 参数说明：①IF是双分支选择结构开始的语句，ENDIF是双分支选择结构结束的语句，它们必须成对使用。 ②条件是一个逻辑表达式。 ③语句组由一组VFP的命令组成。 ④若ELSE省略，则为单分支选择结构。 Set talk off clear input “请输入温度” to WD if WD36 wait “该温度是高温。请按任意键继续……” else wait “该温度不是高温。请按任意键继续……” endif Set talk on return 程序流程：当执行DO CASE语句时，顺序判断CASE后面的条件是否为真，只要遇到第一个条件为真的CASE时，就执行其后的语句序列，执行完毕后，跳转到ENDCASE后面的语句去执行。 参数说明：①DO CASE是多分支选择结构开始的语句，ENDCASE是多分支选择结构结束的语句，它们必须成对使用，缺一不可。 ②当所有的CASE后面的条件都为假，则执行OTHERWISE后面的语句，如果没有OTHERWISE，则执行ENDCASE后面的语句。 ③当有多个CASE后面的条件都为真时，则只有第一个CASE后面的语句会被执行到，然后转去执行ENDCASE后面的语句。 程序如下： SET TALK OFF CLEAR INPUT “请输入A=” TO A INPUT “请输入B=” TO B INPUT “请输入C=” TO C DO CASE CASE A=B .AND. B=C ?A,”=”,B,”=”,C CASE A=B .AND. B=C ?A,”=“,B,”=”,C CASE A=C .AND. C=B ?A,”=”,C,”=”,B CASE B=A .AND. A=C ?B,”=”,A,”=”,C CASE B=C .AND. C=A ?B,”=”,C,”=”,A CASE C=A .AND. A=B ?C,”=“,A,”=”,B OTHERWISE ?C,”=”,B,”=”,A ENDCASE RETURN Input “请输入二次系数” to a Input “请输入一次系数” to b Input “请输入常数” to c d＝B^2-4*A*C IF d=0 X1=(-B+SQRT(d))/(2*A) X2=(-B-SQRT(d))/(2*A) ? “实根为：”，X1,X2 ELSE ?”没有实根！” ENDIF