vb select case 基本语句用法

       今天我们学习  select case  这个语句的用法  也给出了个 例子来 用下 这个  基本语句的  方法 

     看 以下的 解释

   

以下是引用片段：

Option Explicit

'*************************************************************************
'企业能发多少奖金？-----------条件值中带有Is关键字
'企业发放奖金要根据利润提成：
'利润中高于10万元时，奖金可提成10%
'利润中高于10万元，低于或等于20万元的部分，可提成7.5%
'利润中高于20万元，低于或等于40万元的部分，可提成5%
'利润中高于40万元，低于或等于60万元的部分，可提成3%
'利润中高于60万元的部分，可提成1.5%
'要求输入利润，计算出应发多少奖金
'*************************************************************************

Private Sub Command1_Click()

    Dim i As Long
    Dim bonus As Long

    i = Val(InputBox("请输入利润："))

    Select Case i

        Case Is <= 100000

        bonus = i * 0.1

        Case Is <= 200000

        bonus = 100000 * 0.1 + _
                (i - 100000) * 0.075

        Case Is <= 400000

        bonus = 100000 * 0.1 + _
                100000 * 0.075 + _
                (i - 200000) * 0.05

        Case Is <= 600000

        bonus = 100000 * 0.1 + _
                100000 * 0.075 + _
                200000 * 0.05 + _
                (i - 400000) * 0.03

        Case Is > 600000

        bonus = 100000 * 0.1 + _
                100000 * 0.075 + _
                200000 * 0.05 + _
                200000 * 0.03 + _
                (i - 600000) * 0.015

    End Select

    MsgBox ("利润为" + Str$(i) + "，奖金为" + Str$(bonus))

End Sub