Computer Programming Concepts and Visual Basic David I. Schneider

116 Computer Programming Concepts and Visual Basic
Private Sub cmdInterpret_Click()
Dim firstName As String
‘Quiz
picAnswer.Cls
firstName = txtName.Text
Select Case firstName
Case “Thomas”
picAnswer.Print “Correct.”
Case “Woodrow”
picAnswer.Print “Sorry, his full name was”
picAnswer.Print “Thomas Woodrow Wilson.”
Case “President”
picAnswer.Print “Are you for real?”
Case Else
picAnswer.Print “Nice try, but no cigar.”
End Select
End Sub
[Run, type Woodrow into the text box, and press the command button.]
EXAMPLE 5
The following program has the selector Left(anyString, 1), a string expression. In the sample run, only the
first action was carried out, even though the value of the selector was in both of the first two value lists.
The computer stops looking as soon as it finds the value of the selector.
Object Property Setting
frm5_3_5 Caption Analyze First [~]Character of
a String
lblEnter Caption Enter any string
txtString Text (blank)
cmdAnalyze Caption Analyze
picResult
Private Sub cmdAnalyze_Click()
Dim anyString As String
‘Analyze the first character of a string
picResult.Cls
anyString = UCase(txtString.Text)
Select Case Left(anyString, 1)
Case “S”, “Z”
picResult.Print “The string begins with a sibilant.”
Case “A” To “Z”
picResult.Print “The string begins with a nonsibilant.”
Case “0” To “9”
picResult.Print “The string begins with a digit.”
Case Is < “0”
picResult.Print “The string begins with a character of ANSI”
picResult.Print “value less than 48 (e.g. +, &, #, or %).”