Quiz+4-5

Quiz 4-5:

Write a subroutine called "SortIt" that will sort in descending order the array called "Iroquois". Note: this array has 5005 items in it to be sorted. Yes, you may look back through your notes. Hint this may look very similar to Quiz 4-4 :)

Dim Iroquois(5005) as string  Dim I as integer  Dim J as integer  Dim Temp as string

 private sub SortIt

 For I = 1 to 5005  For J = 1 to 5004  If Iroquois(J) < Iroquois(J+1) then  Temp = Iroquois(J)  Iroquois(J) = Iroquois(J+1)  Iroquois(J+1) = Temp  End If  Next J  Next I

<span style="color: #0000ff; font-family: 'Arial Black',Gadget,sans-serif;"> End Sub