Computer Programming Concepts and Visual Basic David I. Schneider

168 Computer Programming Concepts and Visual Basic
EXAMPLE 5
Suppose the data file WINNERS.TXT contains the names of the teams who have won each of the World
Series, with the first line of the file giving the number of World Series that have been played. Write a program
that displays the numbers, if any, of the World Series that were won by a team specified by the user.
’Create form-level array
Dim teamName() As String
Dim seriesCount As Integer
Private Sub cmdDidTheyWin_Click()
Dim teamToFind As String, numWon As Integer, series As Integer
’Search for World Series won by user’s team
teamToFind = UCase(txtName.Text)
numWon = 0
picSeriesWon.Cls
For series = 1 To seriesCount
If UCase(teamName(series)) = teamToFind Then
numWon = numWon + 1
If numWon = 1 Then
picSeriesWon.Print “The ”; teamName(series);
picSeriesWon.Print “ won the following World Series: ”;
Else
‘Separate from previous
picSeriesWon.Print “,”;
If (numWon = 5) Or (numWon = 16) Then
‘Start a new line at 5th and 16th win
picSeriesWon.Print
End If
End If
‘First world series played in 1903
picSeriesWon.Print Str(series + 1902);
End If
Next series
If numWon = 0 Then
picSeriesWon.Print “The ”; teamToFind; “ did not win any World Series.”
End If
End Sub
Private Sub Form_Load()
Dim series As Integer
‘Fill array with World Series winners
Open “WINNERS.TXT” For Input As #1
Input #1, seriesCount
ReDim teamName(1 To seriesCount) As String
For series = 1 To seriesCount
Input #1, teamName(series)
Next series
Close #1
End Sub
[Run, type Yankees into the text box, and click the command button.]