某百货公司为了促销，采用购物打折的优惠方法，即每位顾客一次购物： 1） 在1000元以上2000元以

Posted 2023-03-15

1） 在1000元以上2000元以下，九五折
2） 在2000元以上3000元以下，九折
3） 在3000元以下4000元以上，八五折
4） 在5000元以上，八折。 用VB语言表示，感谢各位大神了

参考技术A select case x
case is >=5000
label2.caption=x*0.8
case is >=3000
label2.caption=x*0.85
case is >=2000
label2.caption=x*0.9
case is >=1000
label2.caption=x*0.95
case is <1000
label2.caption=x
End select 参考技术B so？