VBA之Select Case例子:

Sub DengJi()

Dim cj As Variant

cj = InputBox("请输入考试成绩：")

Select Case cj

Case 0 To 59

    MsgBox "等级:D" Case 60 To 69

    MsgBox "等级：C"

Case 70 To 79

    MsgBox "等级：B"

Case 80 To 100

    MsgBox "等级：A"

Case Else

    MsgBox "输入错误！"

End Select

End Sub

欢迎关注公众号：黑白鱼001