FIT 100
© Copyright University of
Washington 1999-2000
Alphabetize CDs
Private
Sub AlphabetizeCD
(slots() As
String, n As Integer)
Dim alpha As Integer,
bet As
Integer
Dim temp As String
alpha = 0
bet = 1
Do While alpha < n - 1
Do While bet < n
If slots(alpha) > slots(bet) Then
temp = slots(alpha)
slots(alpha) = slots(bet)
slots(bet) = temp
End If
bet = bet + 1
Loop
alpha = alpha + 1
bet = alpha + 1
Loop
End Sub
