VB 2010でSelect Caseを使用した複数の条件

Question

ケースステートメントで2つの条件をテストする方法を理解しようとしています。

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

私はうまく動作しません。何が間違っていますか？

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 

それとも、このあなたは> 2として2.5をキャッチしたい場合。

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

2番目のケースでは、2つ以上の重みを確認する必要はありません。それが2より大きくない場合、最初のケースに入ります。したがって、これを簡単にすることができます：

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