Private Sub cmdSort_Click()
Dim A(14) As Integer
Dim I, J As Integer
Dim Temp As Integer
Form1.Cls
Randomize
For I = 0 To 14
A(I) = Int(Rnd * 1000)
Print A(I);
Next I
For I = 0 To 14
For J = I + 1 To 14
IfA(I) > A(J) Then
Temp = A(I)
A(I) = A(J)
A(J) = Temp
End If
Next J
Next I
Print Chr(13)
For I = 0 To 14
Print A(I);
Next I
End Sub