vba学习笔记 Select Case的使用

伤害性不大,侮辱性极强

Sub calculateTheGrade()
    Dim point As Integer
    point = CInt(InputBox("请输入你的成绩", "Calculate the Grade"))
    Select Case point
        Case 100
            MsgBox "还算凑合", vbOKOnly, "Calculate the Grade"
        Case 90 To 99
            MsgBox "啥也不是,就差那几分吗?给个A吧", vbOKOnly, "Calculate the Grade"
        Case 80 To 89
            MsgBox "啥也不是,给个B吧", vbOKOnly, "Calculate the Grade"
        Case 70 To 79
            MsgBox "啥也不是,再整你就不及格了", vbOKOnly, "Calculate the Grade"
        Case 60 To 69
            MsgBox "啥也不是,啥也不是,啥也不是。重要的事说三遍", vbOKOnly, "Calculate the Grade"
        Case Is <= 59
            MsgBox "回家去吧,丢我的脸",vbOKOnly,"Calculate the Grade"
        Case Else
            MsgBox "你他喵的是在逗我吗?",vbOKOnly,"Calculate the Grade"
    End Select
End Sub
  • 0
    点赞
  • 0
    评论
  • 1
    收藏
  • 打赏
    打赏
  • 扫一扫,分享海报

参与评论 您还未登录,请先 登录 后发表或查看评论
©️2022 CSDN 皮肤主题:撸撸猫 设计师:马嘣嘣 返回首页

打赏作者

qq_25047389

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值