用Select Case语句为输入的成绩评定等次

本文为：《别怕，Excel VBA其实很简单（第3版）》随书问题参考答案

完整的代码及说明为：

Sub 为成绩评定等次() '过程开始，声明过程名称
Dim cj As Variant '声明一个Variant型变量cj
cj = InputBox("输入考试成绩：") '将输入的数据存储到变量cj中
Select Case cj 'Select Case 语句开始，变量cj是用来判断和比较的数据
Case 0 To 59 '当cj的值为0到59的时候
MsgBox "等级：D" '消息框显示“等级：D”
Case 60 To 69 '当cj的值为60到69的时候
MsgBox "等级：C" '消息框显示“等级：C”
Case 70 To 79 '当cj的值为70到79的时候
MsgBox "等级：B" '消息框显示“等级：B”
Case 80 To 100 '当cj的值为80到100的时候
MsgBox "等级：A" '消息框显示“等级：A”
Case Else '其他情况
MsgBox "输入错误!" '消息框显示“输入错误！”
End Select 'Select Case语句结束
End Sub '过程结束

代码窗口中内容的截图如下，其中：绿色文字为代码说明。