Quiz+4-15

Quiz 4-15:

Write a subroutine called "SortIt" that will sort in ascending order the array called "Packers". Note: this array has 1000 items in it to be sorted. Yes, you may look back through your notes. The array may be of data type string or integer, your choice.

Dim I as integer Dim J as integer Dim Frog(1000) as integer

Private sub SortIt

For I = 1 to 1000 For J = 1 to 999 If Frog(J) > Frog(J+1) then Temp = Frog(J) Frog(J) + Frog(J+1) Frog(J+1) = Temp End If Next J  Next I 