Quiz+4-4

Quiz 4-4:

Write a subroutine called "SortIt" that will sort in ascending order the array called "Iroquois". Note: this array has 2000 items in it to be sorted. Yes, you may look back through your notes.

﻿Dim Iroquois(2000) as string Dim I as integer Dim J as integer Dim Temp as string  private sub SortIt

For I = 1 to 2000  For J = 1 to 1999  If Iroquois(J) > Iroquois(J+1) then  Temp = Iroquois(J)  Iroquois(J) = Iroquois(J+1)  Iroquois(J+1) = Temp  End If  Next J <span style="color: #0000ff; font-family: 'Arial Black',Gadget,sans-serif;">Next I

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