select case 语句的例子

某超市在促销中,根据顾客购买商品的总价x给予不同的优惠折扣y,优惠折扣率的公式如下:
         0                     <300
         5%          300<=x<=800
        8%           800<=x<1000
y=    10%         1000<=x<5000
        15%              x>=5000

设计程序,已知x的值求应付款


Module Module1

    Sub Main()
        Dim x, y, z As Single
        Console.Write("请输入x")
        x = CSng(Console.ReadLine)
        Select Case x
            Case Is < 300
                y = 0 * x
            Case Is < 800
                y = 0.05 * x
            Case Is < 1000
                y = 0.08 * x
            Case Is < 5000
                y = 0.15 * x

        End Select
        z = x - y
        Console.WriteLine("应付的总额为：" + CStr(x) + vbCrLf + _
        "优惠商品总额" + CStr(y) + vbCrLf + "实际付款" + CStr(z))
        Console.ReadLine()
    End Sub

End Module