Computer Programming Concepts and Visual Basic David I. Schneider

2. Press F8, click the command button, and press F8 twice. The picBox.Cls statement
will be highlighted and executed, and then the statement containing Input-
Box will be highlighted.
3. Press F8 once to execute the statement containing InputBox. Type a wage of
3.25 and press the Enter key. The If statement is highlighted, but has not been
executed.
4. Press F8 once and notice that the highlight for the current statement has jumped
to the statement picBox.Print “Below minimum wage.” Because the condition
“wage < 5.15” is true, the action associated with Then was selected.
5. Press F8 to execute the picBox.Print statement. Notice that Else is skipped and
End If is highlighted.
6. Press F8 again. We are through with the If block and the statement following
the If block, End Sub, is highlighted.
7. Click on the End icon to end the program.
8. If desired, try stepping through the program again with 5.75 entered as the
wage. Since the condition “wage < 5.15” will be false, the Else action will be
executed instead of the Then action.
SELECT CASE BLOCKS
The following walkthrough illustrates how a Select Case block uses the selector to choose
from among several actions.
1. Create a form with a command button (cmdButton) and a picture box (picBox).
Set the AutoRedraw property of the picture box to True. Then open the Code
window and enter the following procedure:
Private Sub cmdButton_Click()
Dim age As Single, price As Single
picBox.Cls age = Val(InputBox(“age:”))
Select Case age
Case Is < 12
price = 0
Case Is < 18
price = 3.5
Case Is >= 65
price = 4
Case Else
price = 5.5
End Select
picBox.Print “Your ticket price is “;FormatCurrency(price)
End Sub
2. Press F8, click on the command button, and press F8 twice. The picBox.Cls
statement will be highlighted and executed, and then the statement containing
InputBox will be highlighted.
3. Press F8 once to execute the statement containing InputBox. Type an age of 8
and press the Enter key. The Select Case statement is highlighted, but has not
been executed.
4. Press F8 twice and observe that the action associated with Case Is < 12 is highlighted.
5. Press F8 once to execute the assignment statement. Notice that End Select is
highlighted. This demonstrates that when more than one Case clause is true,
only the first is acted upon.
Appendix D 463