' Written on Thursday, June 25th during 810:030 class... Private Sub cmdShowByHeight_Click() Dim playersHeights(16) As String, _ playersHeightsInches(16) As Integer, _ players(16) As String, _ playerHeight As String Open "Z:\web\UNIplayers.txt" For Input As #10 numberOfPlayers = 0 Do Until EOF(10) Input #10, playerNumber, playerName, playerHeight players(numberOfPlayers) = playerName playersHeights(numberOfPlayers) = playerHeight playersHeightsInches(numberOfPlayers) = heightToInches(playerHeight) numberOfPlayers = numberOfPlayers + 1 Loop For i = 0 To numberOfPlayers - 2 locShortest = i For j = i + 1 To numberOfPlayers - 1 If playersHeightsInches(j) < playersHeightsInches(locShortest) Then locShortest = j End If Next j ' Swap the shortest into its location... tempName = players(locShortest) tempHeight = playersHeights(locShortest) tempInches = playersHeightsInches(locShortest) players(locShortest) = players(i) playersHeights(locShortest) = playersHeights(i) playersHeightsInches(locShortest) = playersHeightsInches(i) players(i) = tempName playersHeights(i) = tempHeight playersHeightsInches(i) = tempInches Next i Cls Print vbCrLf & vbCrLf For i = numberOfPlayers - 1 To 0 Step -1 Print " " & players(i); CurrentX = 2400 Print playersHeights(i) & _ IIf(Len(playersHeights(i)) < 4, " ", " ") & _ Str(playersHeightsInches(i)) Next i Close #10 End Sub