冒泡排序的问题

[thenightfox]

要写个子过程,对已知若干整数按递增次序排列,子过程为 Sub Sort1 (a%())

[fishmans]

冒泡是最简单的排序，一个循环的事，看书吧.

[junki]

也就是两两进行比较,然后把小的上浮.

[zq972]

Private Sub Command1_Click()

Dim C(10) As Double

For n = 1 To 6

C(n) = InputBox("输入需要排序的数", "6个数的冒泡排序", "")

Next n

For i = 1 To 6

For j = 6 To i Step -1

If C(j) < C(j - 1) Then a = C(j): C(j) = C(j - 1): C(j - 1) = a

Next j

Next i

For i = 1 To 6

Print "", C(i)

Next i

End Sub


大概就是这个样子了。数组最好是动态的，呵呵