标签：Dimx%x=Int(Rnd)+SelectCasexCaseMsgBox(“优秀”)CaseMsgBox(“良好”)CaseMsgBox(“通过”)CaseElseMsgBox(“不通过”)EndSelectA优秀B良好C通过D不通过E不确定，随机