Computer Programming Concepts and Visual Basic David I. Schneider

Case Else
picResult.Print “The string begins with one of the following:”
picResult.Print “ : ; < = > ? @ [ \ ] ^ _ ` ”
End Select
End Sub
[Run, type Sunday into the text box, and press the command button.]
EXAMPLE 6
The color of the beacon light atop Boston’s John Hancock Building forecasts the weather according to the
following rhyme. Write a program that requests a color (blue or red) and a mode (steady or flashing) as
input and displays the weather forecast. The program should contain a Select Case block with a string
variable as selector.
Steady blue, clear view.
Flashing blue, clouds due.
Steady red, rain ahead.
Flashing red, snow instead.
Private Sub cmdInterpret_Click()
Dim color As String, mode As String
‘Interpret a weather beacon
picForecast.Cls
color = txtColor.Text
mode = txtMode.Text
Select Case UCase(mode) & UCase(color)
Case “SBLUE”
picForecast.Print “CLEAR VIEW”
Case “FBLUE”
picForecast.Print “CLOUDS DUE”
Case “SRED”
picForecast.Print “RAIN AHEAD”
Case “FRED”
picForecast.Print “SNOW AHEAD”
End Select
End Sub
frmWeather Caption Weather Beacon
lblColor Caption Color of the light
txtColor Text (blank)
lblMode Caption Mode (S or F)
txtMode Text (blank)
cmdInterpret Caption Interpret Beacon
picForecast
[Run, type red and S into the text boxes, and press the command button.]
Select Case Blocks 117