Question

用vf编一程序，要求输入学号能查询学号、姓名、系名、总分、平均分，并根据平均分给出等级，平均分>9

用vf编一程序，要求输入学号能查询学号、姓名、系名、总分、平均分，并根据平均分给出等级，平均分>90的为优秀，90>平均分>=80的为良好，80>平均分>=60为合格，小于60的为不合格，要求能重复查询

Answer 1

dowhite .T.
clear
×h=Space(14)
@4,10 say "输学号" get xh
Read
if empty(xh)
exit
endif
locate for 学号=alltrim(xh)
if found()
@ 6,12 say "学号:" + 学号
@ 8,12 say " 姓名:" + 姓名
@ 10,12 say "系名 :" + 系名
@ 12,12 say " 总分:" + 总分
@ 14,12 say "平均分 :" + 平均分
dj=iif(平均分>=90,"优",iif( 平均分>=80,"良", iif( 平均分>=60,"合格", "不合格" )))
@ 16,12 say "等级:" + dj
else
@ 6,12 say "没找到"
endif
wait
enddo