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

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