用Select Case语句为输入的成绩评定等次
本文为：随书问题参考答案
完整的代码及说明为：
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 '过程结束
代码窗口中内容的截图如下，其中：绿色文字为代码说明。
版权声明
本文来自投稿，不代表本站立场，转载请注明出处。
上一篇：高亮显示活动单元格所在行和列
下一篇：根据分数为职工评定星级
