Dim arb As Integer


Private Sub Command1_Click()
For i = 0 To 5
ar(i) = Rnd() * 100
Print ar(i)
Next i

For i = 0 To 5
For j = i + 1 To 5
If ar(i) < ar(j) Then
arb = ar(i)
ar(j) = ar(i)
ar(j) = arb
End If
Next j
Next i

For i = 0 To 5
Print ar(i)
Next i