吾将上下而求索 VB 小小小

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

While n <= 15
 Print xierdun(n)
 n = n + 1
Wend

End Sub

没办法修改图片大小呢，有点尴尬，第二个出了点问题，有点混乱，我的出现了一溜最小的 一样的数

真不好意思 xierdun还错了。。。。代码放的是正确的，没时间想错哪了，来不及了~~拖延症得改  我妈要是知道我熬夜，非得打我。。。。。

                                                                                                                                      2016.04.07  早安