x=Int(Rnd+4)
Select Case X
C.ase 5
Print"优秀"
C.ase 4
Print"良好"
C.ase 3
Print"合格"
C.ase Else
Print"不合格"
E.nd Select