程序如下
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

冒泡排序法原理:

点击下载此附件