Computer Programming Concepts and Visual Basic David I. Schneider

190 Computer Programming Concepts and Visual Basic
TABLE 6.3
Efficiency of Bubble and Shell Sorts
Array Elements Bubble Sort Comparisons Shell Sort Comparisons
EXAMPLE 4
5 10 15
10 45 57
15 105 115
20 190 192
25 300 302
30 435 364
50 1225 926
100 4950 2638
500 124,750 22,517
1000 499,500 58,460
Use the Shell sort to alphabetize the parts of a running shoe (see Figure 6-7).
FIGURE 6-7 Running Shoe
SOLUTION:
In the following program, the data are read into an array that has been dimensioned so as to guarantee
more than enough space. In the event procedure Form_Load, the variable numParts provides the subscripts
for the array and serves as a counter. The final value of numParts is available to all procedures
because the variable was created in the (Declarations) section of (General). The Sub procedure SortData
uses a flag to indicate if a swap has been made during a pass.
Dim part(1 To 50) As String
Dim numParts As Integer
Private Sub cmdDisplayParts_Click()
‘Sort and display parts of running shoe
Call SortData
Call ShowData
End Sub
Private Sub Form_Load()
‘Read part names numParts = 0 ‘Number of parts