Private Sub Command1_Click()
ClsFont.Size = 10
Dim n As Integer
Dim xierdun(15) As Integer
n = 1
While n <= 15
xierdun(n) = Int(Rnd * 1000)
n = n + 1
Wend
Dim swap As Integer
n = 1
While n <= 14
If xierdun(n) < xierdun(n + 1) Then
swap = xierdun(n)
xierdun(n) = xierdun(n + 1)
xierdun(n + 1) = swap
End If
n = n + 1
Wend
n = 1
While n <= 15
Print xierdun(n)
n = n + 1
Wend
End Sub