Computer Programming Concepts and Visual Basic David I. Schneider

last = middle - 1
Case Is < searchCity
first = middle + 1
End Select
Loop
If foundFlag Then
result = middle
Else
result = 0
End If
End Sub
Private Sub Form_Load()
Dim i As Integer
‘Assume that the data for city name, population, medium income, % native,
‘and % advanced degree have been placed in the file “CITYSTAT.TXT”
‘(First line of file is “Boston”, 4.2, 4066, 73, 12)
Open “CITYSTAT.TXT” For Input As #1
For i = 1 To 10
Input #1, city(i), pop(i), income(i), natives(i), advDeg(i)
Next i
Close #1
End Sub
Private Sub GetCityName(searchCity As String)
‘Request name of city as input
searchCity = UCase(Trim(txtCity.Text))
End Sub
Private Sub ShowData(index As Integer)
‘Display city and associated information
picResult.Print , “Pop. in”, “Med. income”, “% Native”, “% Advanced”
picResult.Print “Metro Area”, “millions”, “per hsd”, “to State”, “Degree”
picResult.Print picResult.Print city(index), pop(index), income(index),
picResult.Print natives(index), advDeg(index)
End Sub
[Run, type San Francisco into the text box, and click the command button.]
COMMENTS
1. Suppose our bubble sort algorithm is applied to an ordered list. The algorithm
will still make n – 1 passes through the list. The process could be shortened for
some lists by flagging the presence of out-of-order items as in the Shell sort. It
may be preferable not to use a flag, because for greatly disordered lists the flag
would slow down an already sluggish algorithm.
Sorting and Searching 195