VB的select case 语句问题。

来源：百度知道 编辑：UC知道 时间：2024/06/22 02:53:16
1． 在购买某物品时，若标明的价钱x在下述范围内，所付钱y按对应折扣支付：y=x (x<1000)
y=x*0.9 (1000<=x<2000)
y=x*0.8 (2000<=x<3000)
y=x*0.7 (x>=3000)
要求：用InputBox函数输入x，用窗体的Print方法输出结果y,用情况语句（Select Case）实现。

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

OK le

Private sub From1_click()
Dim y as single,x as single
x=val(inputbox("请输入价钱"))
Select Case x
Case x >= 1000 And x < 2000
y = x * 0.9
Case x >= 2000 And x < 3000
y = x * 0.8
Case Is >= 3000
y = x * 0.7
End Select
Print"所要付的钱为："&y
End sub
就是这样了！！

y=x
select case x
case >3000
y=x*0.7
case >2000
y=x*0.8
case >1000
y=x*0.9
end select
form1.print y
程序不是很严谨，不过代码少，错得也不多