vb数组排序-冒泡排序法

时　间:2012-05-27 22:56:30
作　者:风行   ID：16058  城市：江阴
摘　要:设计一个程序,输入n,再输入n个数,把他们从大到小排序,并把排序后的数组从大到小显示出.
正　文:

程序如下
Private Sub Command1_Click()
Dim N As Integer, Ar() As Integer, i As Integer, j As Integer, T As Integer
N = Val(InputBox("输入数字的个数")) - 1
ReDim Ar(N)
For i = 0 To N
  Ar(i) = Val(InputBox("输入第" & i & "个数字："))
Next i
Print "排序前的结果是："
For i = 0 To N
  Print Ar(i); "    ";
Next i
For i = N To 1 Step -1
  For j = 0 To i - 1
    If Ar(j) < Ar(j + 1) Then
      T = Ar(j)
      Ar(j) = Ar(j + 1)
      Ar(j + 1) = T
    End If
  Next j
Next i
Print
Print "排序后的结果是："
For i = 0 To N
  Print Ar(i); "    ";
Next i
End Sub

冒泡排序法原理:

点击下载此附件