s4：VB之如何更改排序的数字的数量

终于要结束了

欣慰的我来放出最后的大招

如果不想给15个数排序

想给10个或100个等等多个数排序的话

应该怎样做呢！！

只需要创建一个text就可以了

还有别忘了在程序最前面点通用加option base 1

因为是前面的升级版

所以我来多放几张最后的效果图

如果你想排序8个数

它是这样的

如果你想排序10个数

它是这样的

如果你想排序12个数

它是这样的

以此类推等等等等

接下来

我要来传授如何写程序来达到上述的效果

程序如下：

Option Base 1

Private Sub Command1_Click()

Cls

Font.size = 30

Dim n As Integer

Dim size As Integer

size = Int(Val(Me.Text1.Text))

Dim xierdun() As Integer

ReDim xierdun(size)

n = LBound(xierdun)

  While n <=UBound(xierdun)

      xierdun(n) = Int(Rnd * 1000)

       n = n + 1

  Wend

 

Dim swap As Integer

 

m = LBound(xierdun)

While m <= UBound(xierdun)

  n =LBound(xierdun)

  While n <=UBound(xierdun) - 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 = LBound(xierdun)

While n <= UBound(xierdun)

  Printxierdun(n)

  n = n + 1

Wend

 

End Sub

程序就是这样的

还有在啰嗦一句的就是

运行的时候别忘了在文本框里

写上你要排序多少个数

好啦

终于写完了！！

开心：）