15数字排序 最后一个最小

Private Sub Command1_Click()
Cls
Dim a As Integer
Dim xier(15) As Integer
n = 1
While n <= 15
xier(n) = Int(Rnd * 1000)
n = n + 1
Wend
Dim swap As Integer                         
n = 1
While n <= 14
  If xier(n) < xier(n + 1) Then
  swap = xier(n)
  xier(n) = xier(n + 1)
  xier(n + 1) = swap
End If
n = n + 1
Wend
n = 1
While n <= 15
Print xier(n)                
n = n + 1
Wend
End Sub

中间并不是从大到小排列，只要求最后一个最小。