标题:双重循环问题!!
取消只看楼主
cqlan006
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2007-2-13
 问题点数:0 回复次数:1 
双重循环问题!!
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
这样写,请告知!!!
搜索更多相关主题的帖子: start 
2007-03-25 15:33
cqlan006
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2007-2-13
得分:0 

知道的讲解下哈

2007-03-25 16:15



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-126682-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.974426 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved