Sub Grade1()

    Dim Grade As Integer, Evalu As String
    Grade = InputBox("请输入考试分数：")
    Select Case Grade
        Case 100: Evalu = "满分"
        Case 90 To 99: Evalu = "优秀"
        Case 80 To 89: Evalu = "良好"
        Case 70 To 79: Evalu = "中"
        Case 60 To 69: Evalu = "合格"
        Case Is < 60:  Evalu = "不合格"
        Case Else:     Evalu = "数据错误"
    End Select
    MsgBox Grade & "分的等级为" & Evalu
End Sub