temp = a(i)

a(i) = a(i + 1)

a(i + 1) = temp

End If

Next i

Loop

End Sub

Private Sub Command1_Click()

Dim i As Integer

For i = 1 To 10