m程序设计 例522】用CASE语句改写上例判断字母、数字、特殊符号程序 SET TALK OFF ACCEPT"请输入一个字符:"TOch DO CASE CASE UPPER(ch)<="ZAND UPPER(ch)>=A ?ch,"是字母 CASE ch<=9AND ch>=0 ?ch,"是数字" OTHERWISE ?ch,"是一个特殊符号" ENDCASE SET TALK ON FoxproForWindowshttp://cc.synu.edu.cn 11
FoxPro For Windows http://cc.synu.edu.cn 11 FoxPro程序设计 【例5.22】用CASE语句改写上例(判断字母、数字、特殊符号)程序. SET TALK OFF ACCEPT "请输入一个字符：" TO ch DO CASE CASE UPPER(ch)<="Z".AND.UPPER(ch)>="A" ?ch, "是字母" CASE ch<="9".AND. ch>="0" ?ch, "是数字" OTHERWISE ?ch, "是一个特殊符号" ENDCASE SET TALK ON
m程序设计 【例5.23】将百分制成绩转换为优、良、中、及格和不及格等级成绩。 90-100优;80-89良;70-79中;60-69及格;60分以下不及格 SET TALK OFF NPUT“请输入百分成绩=” TO mscore DO CASE CASE mscore>=90. and. mscore<=100 Mgrade="优 CASE mscore>=80 and. mscore<90 Mgrade="良 CASE mscore>=70. and. mscore<80 Mgrade="中 只执行 CASE mscore>=60 and. mscore<70 满足条件的 Mgrade="及格 CASE mscore<60 一个CASE Mgrade="不及格 OTHERWISE Mgrade="输入错!" ENDCASE Mgrade SET TALK ON FoxproForWindowshttp://cc.synu.edu.cn 12
FoxPro For Windows http://cc.synu.edu.cn 12 FoxPro程序设计 【例5.23】将百分制成绩转换为优、良、中、及格和不及格等级成绩。 90-100 优; 80-89 良; 70-79 中；60-69 及格；60分以下 不及格 SET TALK OFF INPUT “请输入百分成绩=” TO mscore DO CASE CASE mscore>=90 .and. mscore<=100 Mgrade="优" CASE mscore>=80 .and. mscore<90 Mgrade= "良" CASE mscore>=70 .and. mscore<80 Mgrade= "中" CASE mscore>=60 .and. mscore<70 Mgrade= "及格" CASE mscore<60 Mgrade= "不及格" OTHERWISE Mgrade="输入错！" ENDCASE ? Mgrade SET TALK ON 只执行 满足条件的 一个CASE