用VFP编写程序,从成绩表(成绩.dbf)中查找学号为"20001"学生的课程号为"C02"的课程成绩

用VFP编写程序,从成绩表(成绩.dbf)中查找学号为"20001"学生的课程号为"C02"的课程成绩,并将百分制的成绩转化成等级制显示(即>=90为"优秀";>=80为良好;>=70为"中等";>=60为及格;<60为"不及格")

第1个回答  推荐于2020-12-08
use 成绩
loca for 学号='2001' and 课程号="C02"
if eof()
? "没有找到"
return
endif
a=课程成绩
if a>=90
? "优秀"
else
if a>=80
? "良好"
else
if a>=70
? "中等"
else
if a>=60
? "及格"
else
? "不及格"
endif
endif
endif
endif

另一种做法:

use 成绩
loca for 学号='2001' and 课程号="C02"
if eof()
? "没有找到"
return
endif
a=int(课程成绩/10)
do case
case a>=9
b="优秀"
case a=8
b="良好"
case a=7
b="中等"
case a=6
b="及格"
other
b="不及格"
endcase
? b本回答被网友采纳
第2个回答  2008-01-16
repl 成绩 with iif(成绩>=90,"优秀",iif(成绩>=80,'良好',iif(成绩>=70,'中等',iif(成绩>=60,'及格','不及格')))) for 学号='20001' and 课程号="C02"
第3个回答  2008-01-11
use 成绩
loca for 学号='2001' and 课程号="C02"
if eof()
? "没有找到"
return
endif
a=课程成绩
if a>=90
? "优秀"
else
if a>=80
? "良好"
else
if a>=70
? "中等"
else
if a>=60
? "及格"
else
? "不及格"
endif
endif
第4个回答  2008-01-07
use 成绩
loca for 学号='2001' and 课程号="C02"
if eof()
? "没有找到"
return
endif
a=课程成绩
do case
case a>=90
? "优秀"
case a>=80
? "良好"
case a>=70
? "中等"
case a>=60
? "及格"
otherwise
? "不及格"
endcase