Private Sub Form_Click()

Const N = 10
Dim A(N), i, j, temp As Integer

A(0) = 1: A(1) = 3: A(2) = 5: A(3) = 7: A(4) = 9: A(5) = 6
A(6) = 12: A(7) = 8: A(8) = 4: A(9) = 11

For i = 0 To N - 1
Print A(i);
Next
Print

For i = 0 To N - 1
For j = 0 To N - i - 1
If (A(j) > A(j + 1)) Then temp = A(j): A(j) = A(j + 1): A(j + 1) = temp
Next j
Next i

For i = 0 To N - 1
Print A(i);
Next
Print

End Sub
为什么排序后少了最后一个数?