Public Sub Sort(a() As Integer)
Dim start As Integer, finish As Integer
Dim i As Integer, j As Integer, t As Integer
start = LBound(a)
finish = UBound(a)
For i = finish To 2 Step -1
For j = 1 To i - start
If a(j) < a(j + 1) Then
t = a(j + 1)
a(j + 1) = a(j)
a(j) = t
End If
Next
Next
End Sub
目的是实现数组的降序排列，可为什么
For i = finish To 2 Step -1
For j = 1 To i - start
这样写，请告知！！！

知道的讲解下哈

首先，程序应该是这样才是正确的
Public Sub Sort(a() As Integer)
Dim start As Integer, finish As Integer
Dim i As Integer, j As Integer, t As Integer
start = LBound(a)
finish = UBound(a)
For i = finish To start + 1 Step -1
For j = start To i - 1

If a(j) < a(j + 1) Then
t = a(j + 1)
a(j + 1) = a(j)
a(j) = t
End If
Next
Next
End Sub

ubound(a)是取得数组a的上限，也就是数组下标的最大值
同理lbound(a)是下限
i的循环是用来算比较次数的，因为总共有finis次
j的循环是用来作比较的，每次从最末一个元素逐个比较，
比过的元素，在下一次就不再比较
用i-1指定最末的元素

另外，如果没有特别声明，数组是从0开始的，也就是说
a(10)的数组，包括11个元素

希望我说的你能明白

说的不错,我也学习下

谢谢拉 ..这个问题我也不知道
现在懂拉