Computer Programming Concepts and Visual Basic David I. Schneider

Open “SHOEPART.TXT”
For Input As #1
Do While (Not EOF(1)) And (numParts < UBound(part))
numParts = numParts + 1
Input #1, part(numParts)
Loop
Close #1
End Sub
Private Sub ShowData()
Dim i As Integer ‘Display sorted list of parts
picParts.Cls
For i = 1 To numParts
picParts.Print part(i),
If i Mod 5 = 0 Then ‘only put 5 items per line
picParts.Print
End If
Next i
End Sub
Private Sub SortData()
Dim gap As Integer, doneFlag As Boolean
Dim index As Integer, temp As String
‘Shell sort shoe parts
gap = Int(numParts / 2)
Do While gap >= 1
Do
doneFlag = True
For index = 1 To numParts - gap
If part(index) > part(index + gap)
Then temp = part(index)
part(index) = part(index + gap)
part(index + gap) = temp
doneFlag = False
End If
Next index
Loop Until doneFlag = True ‘Can also be written Loop Until doneFlag
gap = Int(gap / 2) ‘Halve the length of the gap
Loop
End Sub
[Run and click the command button.]
■ SEARCHING
Suppose we had an array of 1000 names in alphabetical order and wanted to locate a specific
person in the list. One approach would be to start with the first name and consider each name
until a match was found. This process is called a sequential search. We would find a person
Sorting and Searching 191