Dimx%x=Int(Rnd)+SelectCasexCaseMsgBox(“优秀”)CaseMsgBox(“良好”)CaseMsgBox(“通过”)CaseElseMsgBox(“不通过”)EndSelect