完整的代码及说明为：
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 '过程结束
代码窗口中内容的截图如下，其中：绿色文字为代码说明。
承担因您的行为而导致的法律责任，
本站有权保留或删除有争议评论。
参与本评论即表明您已经阅读并接受
上述条款。