| 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 |
||||||||||||||||||
