实验11参考答案 SET TALK OFF CLEAR USE XSDA DBF ACCEPT“请输入待查学生姓名:” TO NAME LOCATE FOR姓名=NAME IF FOUNDO &&亦可用 IF NOT EOF ?“学号:”+学号+“姓名:”+姓名+“出生日期:”+DTOC(出生日期+; “专业:”+专业 ELSE ?“查无此人!” ENDIF USE SET TALK ON RETURN 三、根据题目要求,参考程序代码如下。 SET TALK OFF CLEAR INPUT“请输入A:”TOA INPUT“请输入B:”TO INPUT“请输入C:”TOC MAX=A &&此部分语句完成步骤(1) IF MAX<B MAX-B ENDIF &&此部分语句完成步骤(2) IF MAX<C MAXEC ENIF &&此部分语句完成步骤(3) ?MAX SET TALK ON 四、简化后的程序代码如下。 SET TALK OFF CLEAR INPUT“请输入考试成绩:” TO SCORE
实验 11 参考答案 二、 SET TALK OFF CLEAR USE XSDA.DBF ACCEPT “请输入待查学生姓名：” TO NAME LOCATE FOR 姓名=NAME IF FOUND() &&亦可用 IF NOT EOF() ?“学号：”+学号+“姓名：”+姓名+“出生日期：”+DTOC(出生日期)+； “专业：”+专业 ELSE ?“查无此人！” ENDIF USE SET TALK ON RETURN 三、根据题目要求，参考程序代码如下。 SET TALK OFF CLEAR INPUT “请输入 A：” TO A INPUT “请输入 B：” TO B INPUT “请输入 C：” TO C MAX=A &&此部分语句完成步骤（1） IF MAX<B MAX=B ENDIF &&此部分语句完成步骤（2） IF MAX<C MAX=C ENIF &&此部分语句完成步骤（3） ?MAX SET TALK ON 四、简化后的程序代码如下。 SET TALK OFF CLEAR INPUT “请输入考试成绩：” TO SCORE
DO CASE CASE SCORE>=90 ?“优秀 CASE SCORE>=70 良好 CASE SCORE>=60 ?“及格” ORTHERWISE ?“不及格 ENDCASE SET TALK ON RETURN
DO CASE CASE SCORE>=90 ?“优秀” CASE SCORE>=70 ?“良好” CASE SCORE>=60 ?“及格” ORTHERWISE ?“不及格” ENDCASE SET TALK ON RETURN