在S1之后,紧跟着更深一步的思考,如何对15个数排序,首先进行第一组排序,我们可以选出最小的数,然后把它放在最后
同样先用效果图说话
具体的程序如下:
Private Sub Command1_Click()
Cls
Font.Size = 30
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
Ifxierdun(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
Printxierdun(n)
n = n + 1
Wend
End Sub
知道了如何把15个数中的最小数放在最后
你是不是很想知道如何将15个数都按大小顺序排好呢?!!
我知道你不想知道....
但我还是要说
欲知详情
请看我的下一篇