Excel Home
全球知名的Excel资源网站之一

用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 '过程结束

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

赞(0)
未经允许不得转载:ExcelHome » 用Select Case语句为输入的成绩评定等次
分享到: 更多 (0)

关于我们联系我们
本站特聘法律顾问:李志群律师   沪ICP备11019229号-2

沪公网安备 31011702000001号

征信