15个数排序！

Private Sub Command1_Click()
Cls
Font.Size = 30
Dim a As Integer

Dim sierdun(15) As Integer
n = 1
While n <= 15
sierdun(n) = Int(Rnd * 1000)
  n = n + 1
Wend

Dim swap As Integer
m = 1
While m < 14
n = 1
While n <= 15 - m
  If sierdun(n) < sierdun(n + 1) Then
  swap = sierdun(n)
  sierdun(n) = sierdun(n + 1)
  sierdun(n + 1) = swap
  End If
  n = n + 1
  Wend
  m = m + 1
  Wend
 
  n = 1
  While n <= 15
  Print sierdun(n)
  n = n + 1
  Wend
 

End Sub