Land Rose Garden Seating

We are able to use SELECT CASE alternately by blocks "IF ... THEN .. ENDIF" . Sub


married ()
sales
As Integer Dim total As Integer Dim




sales = 50 Select Case Sales' sales cases for

Case Is = 30 'if

30 Total = 30 * 12'
calculate
Case Is = 40 'if

40 Total = 40 * 13' calculate

Case Is = 50 'if 50 total

= 50 * 14 'calculate

Case Else' Otherwise

total = 60 * 25 'calculate

End Select MsgBox


total' Show Totals End Sub