关于vb选择结构的问题

首先指出一处笔下误：8.5应为0.85

再者，鉴于select case当运行完一处“真”后，会直接跳出select；又因为你这里的区间都是左闭右开的，故使用To也可以实现你要求的功能。我小改了一下，贴出来：

Private Sub Form_Click()
Dim s As Single
s = Val(InputBox("消费金额为:", "金额"))
Select Case s
Case Is >= 4000
s = s * 0.8
Case 3000 To 4000
s = s * 0.85
Case 2000 To 3000
s = s * 0.9
Case 1000 To 2000
s = s * 0.95
End Select
Print s
End Sub

这个select case还真是好用的很，灵活得很呢！我不是高手。啦啦啦。^_^

Select Case s
Case Is < 1000
Case Is < 2000
s = s * 0.95
Case Is < 3000
s = s * 0.9
Case Is < 4000
s = s * 8.5
Case Else
s = s * 0.8
End Select

这就是设计vb的人设计的不好啊

要是你或者我去设计

至少这一点我们做的比他们好啊