完整的代码及说明为：
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
'过程结束
代码窗口中内容的截图如下，其中：绿色文字为代码说明。
上一篇：excel入门教程：将工作簿中所有工作表名称写入活动工作表的A列 下一篇：excel vba教程：根据分数为职工评定星级
郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。
