S3：VB之15个数的排序（简化版）

好困

虽然我的眼睛是睁着的

但是意识好像已经不太清醒了

接着S2说的话

接下来就是如何排列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

 

m = 1

While m <= 14

  n = 1

  While n <=15 - m

      Ifxierdun(n) < xierdun(n + 1) Then

          swap =xierdun(n)

         xierdun(n) = xierdun(n + 1)

         xierdun(n + 1) = swap

      End If

      n = n + 1

  Wend

m = m + 1

Wend

 

n = 1

While n <= 15

  Printxierdun(n)

  n = n + 1

Wend

 

End Sub

程序越来越长了

有点慌

不知道什么时候才能什么都不看自己编一个这样的程序

但愿有那么一天吧

阿哈哈....