大学VB ，， VB编程题， VB高手帮帮学弟，我很努力 希望可以详细写出步骤，最好写在纸上，严格

Question

大学VB ，，
VB编程题，
VB高手帮帮学弟，我很努力
希望可以详细写出步骤，最好写在纸上，严格按照VB格式书写。
我在线等你
谢谢

Answer 1

实现要求的代码如下：
Private Sub Command1_Click()
price = Val(Text1.Text)
If price >= 200 And price < 500 Then price = price * 0.97
If price >= 500 And price < 1000 Then price = price * 0.95
If price >= 1000 And price < 2500 Then price = price * 0.92
If price >= 2500 And price < 5000 Then price = price * 0.9
If price >= 5000 Then price = price * 0.86
Text2.Text = price
End Sub追问

亲，你开迟了

很满意

Answer 2

select case price
case is>=5000
price=price*(1-0.14)
case is>=2500
price=price*(1-0.1)
case is>=1000
price=price*(1-0.08)
case is>=500
price=price*(1.0.05)
case is>=200
price=price*(1-0.03)
end select
要从大到小的排列哦追问

谢谢