实验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