求VB的一道题 用select case 语句

来源：百度知道 编辑：UC知道 时间：2024/09/28 13:38:34
顾客在商场购物时，若所选物品的总金额x在下述范围内，则实付款y可按对应折扣支付，请编程计算某顾客的实付款，设计界面如图所示。(要求用Select Case 语句完成)
物品的总金额 x<1000 实付款 y=x
物品的总金额 1000<=x<2000 实付款 y=0.9x
物品的总金额 2000<=x<3000 实付款 y=0.8x
物品的总金额 x>=3000 实付款 y=0.7x

select case x
case is < 1000
y = x
case 1000 to 1999
y = x * 0.9
case 2000 to 2999
y = x * 0.8
case else
y = x * 0.7
end select
楼上的is>2009有点错了吧

cao，修改答案就跑楼下了。
有啥错啊？？
我看你是不知case else的真正意思。当然这里都对
我发现如果输入2999.5就不对。把程序改了

Select Case x
Case Is < 1000
y = x
Case Is = 2000
y = x * 0.8
Case Is = 3000
y = x * 0.7
Case 1000 To 2000
y = x * 0.9
Case 2000 To 3000
y = x * 0.8
Case Is > 3000
y = x * 0.7
End Select