大家帮我解下这道题

来源：百度知道 编辑：UC知道 时间：2024/05/10 12:05:27
题目是：某公司促销，推出购物打折优惠活动，办法如下：
一次性消费满1000元，打九五折。
一次性消费满2000元，打九折。
一次性消费满3000元，打八五折。
一次性消费满4000元，打八折。
请设计程序，帮助设计应收款额。

我编的是
a = Val(Text1.Text)
If a >= 1000 Then
MsgBox ("打九五折")
Label3.Caption = a * 0.95
Else
Label3.Caption = a
If a >= 2000 Then
MsgBox ("打九折")
Label3.Caption = a * 0.9
Else

If a >= 3000 Then
MsgBox ("打八五折")
Label3.Caption = a * 0.85
Else
If a >= 4000 Then
MsgBox ("打八折")
Label3.Caption = a * 0.8
Else

End If
End If
End If
End If
可不论输多大得数，总是显示打九五折时的情况
怎么办？

那个当然啦，你逻辑错了！,他总是成立的.
我就问你，1001 >=1000 么
那么：4000 >=1000么
应该 a >=1000 && a<2000 ....
我不熟你的这种语法，但是不知你有没有 && 运算符
如果没有你也可以用 return; 还没有用; break;