VB冒泡排序法

来源：百度知道 编辑：UC知道 时间：2024/05/13 07:59:58
如果定义一个5个数的数组是A(O)-A(4)
那么要用冒泡法排
For i 0 to 3
For J=4 TO i+1 Step -1
If A(j)<A(j-1) 就交换两个数的值
end if
next j
next i
这样子对不对?
如果说是一个A(0)到A(n-1)的数组
是不是i只要0到 n-2
那么 For j=n-1 TO ? 呢

我每次的做法是:

for i=0 to 4
for j=i+1 to 4
if a(j)< a(i) then 交换
next
next

lz等级太高了，我来蹭点分
========
Private Sub Form_Click()
Dim a(5) As Long
Dim i As Long, j As Long
a(0) = 9
a(1) = 1
a(2) = 6
a(3) = 2
a(4) = 5
For i = 0 To 5
For j = 0 To i
If a(i) < a(j) Then
Dim temp As Long
temp = a(i)
a(i) = a(j)
a(j) = temp
End If
Next
Next
For i = 0 To 5
Print a(i)
Next
End Sub