x=int(Rnd()+)selectcasexcaselable.text=＂优秀＂caselable.text=＂良好＂caselable.text=＂及格＂caseelselable.text=＂不及格＂endselectA及格B良好C不及格D优秀