s2：VB之如何在15个数中把最小的数放在最后

在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个数都按大小顺序排好呢？！！

我知道你不想知道....

但我还是要说

欲知详情

请看我的下一篇