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
已有 0/3332 人参与