Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Specifying a Range of Values in a Case Clause by using the To keyword between the values of expressions

Sub caseTo()     Dim unitsSold As Integer          unitsSold = 44     Select Case unitsSold         Case 1 To 100             Discount = 0.05         Case Is <= 500             Discount = 0.1         Case 501 To 1000             Discount = 0.15         Case Is > 1000             Discount = 0.2     End Select          MsgBox Discount End Sub