Mehrere Bedingungen mit Select Case in VB 2010

Question

Ich versuche herauszufinden, wie zwei Bedingungen in einer Case-Anweisung getestet werden.

Select Case txtWeight.Text 
    Case Is <= 2 
     decShippingCost = (decShipping2 + (decShipping2 * 0.26)) 
    Case Is > 2 and <= 4 
     decShippingCost = (decShipping4 + (decShipping4 * 0.026)) 

ich nicht die Arbeit und zu können, was mache ich falsch?

Answer 1

Select Case txtWeight.Text 
    Case Is <= 2 
     decShippingCost = (decShipping2 + (decShipping2 * 0.26)) 
    Case 3 to 4 
     decShippingCost = (decShipping4 + (decShipping4 * 0.026)) 
End Select 

Oder vielleicht dies, wenn Sie 2,5 als> 2 fangen wollen.

Select Case txtWeight.Text 
    Case Is <= 2 
     decShippingCost = (decShipping2 + (decShipping2 * 0.26)) 
    Case 2.01 to 4 
     decShippingCost = (decShipping4 + (decShipping4 * 0.026)) 
End Select 

Answer 2

Sie müssen im zweiten Fall nicht auf ein Gewicht von mehr als zwei prüfen. Wenn es nicht größer als zwei ist, hat es den ersten Fall eingegeben. So können Sie es zu diesem vereinfachen:

Select Case txtWeight.Text 
    Case Is <= 2 
     decShippingCost = (decShipping2 + (decShipping2 * 0.26)) 
    Case Is <= 4 
     decShippingCost = (decShipping4 + (decShipping4 * 0.026)) 
End Select