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
为什么排序后少了最后一个数?

少了一个数.那最后不要减1吧.

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 - 2
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

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 = i+1 To N-1
'升序排列
If (A(j) < A(i)) Then temp = A(i): A(i) = A(j): A(j) = temp
'降序排列
'If (A(j) > A(i)) Then temp = A(i): A(i) = A(j): A(j) = temp
Next
Next

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

End Sub

[此贴子已经被作者于2007-3-29 12:14:27编辑过]