十五个数随机排序

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)
   Next I
   For I = 0 To 14
   For J = I + 1 To 14
   If A(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