Private Sub Command1_Click()
Randomize
Dim a(20) As Integer
For i = 0 To 20
a(i) = Fix(Rnd * 3000)
Next i
For i = 0 To 20
For j = i To 20
If a(i) > a(j) Then
c = a(i)
a(j) = a(i)
a(i) = c
End If
Next j
Next i
For i = 0 To 20
Print a(i)
Next i
End Sub

