Computer Programming Concepts and Visual Basic David I. Schneider

Case 4, 5
picOutcome.Print “You almost placed”
picOutcome.Print “in the money.” Case Else
picOutcome.Print “Out of the money.”
End Select
End Sub
[Run, type 2 into the text box, and press the command button.]
EXAMPLE 2
In the following variation of Example 1, the value lists specify ranges of values. The first value list provides
another way to specify the numbers 1, 2, and 3. The second value list covers all numbers from 4 on.
Private Sub cmdDescribe_Click()
Dim position As Integer
‘Describe finishing positions in a horse race
position = Val(txtPosition.Text)
picOutcome.Cls
Select Case position
Case 1 To 3
picOutcome.Print “In the money.”
picOutcome.Print “Congratulations”
Case Is > 3
picOutcome.Print “Not in the money.”
End Select
End Sub
[Run, type 2 into the text box, and press the command button.]
The general form of the Select Case block is
Select Case selector
Case valueList1
action1
Case valueList2
action2
.
.
Case Else
action of last resort
End Select
Select Case Blocks 113