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