Mega Code Archive

 

Categories / VisualBasic Script / Data Type

 

Select Case statement with Integer value

Sub cmdCase_Click()     Dim intAge As Integer     intAge = 12     Select Case intAge       Case 0         MsgBox "You Must Enter a Number"       Case 1 To 18         MsgBox "You Are Just a Kid"       Case 19, 20, 21         MsgBox "You are Almost an Adult"       Case 22 To 40         MsgBox "Good Deal"       Case Is > 40         MsgBox "Getting Up There!"       Case Else         MsgBox "You Entered an Invalid Number"     End Select End Sub