黑白鱼-黑白鱼001-软件工具-股票投资-股海泛舟

VBA之Select Case例子

发布:shubiao052018-9-25 17:12分类: VBA

VBA之Select Case例子:

Sub DengJi()
Dim cj As Variant
cj = InputBox("请输入考试成绩:")
Select Case cj
Case 0 To 59
    MsgBox "等级:D" Case 60 To 69
    MsgBox "等级:C"
Case 70 To 79
    MsgBox "等级:B"
Case 80 To 100
    MsgBox "等级:A"
Case Else
    MsgBox "输入错误!"
End Select
End Sub

欢迎关注公众号:黑白鱼001

温馨提示如有转载或引用以上内容之必要,敬请将本文链接作为出处标注,谢谢合作!

已有 0/3391 人参与

欢迎订阅黑白鱼

欢迎使用手机扫描二维码,关注公众号“黑白鱼001”