以下是引用狐狸爸爸在2010-8-19 10:06:00的发言:
呵呵,看了你自己写的代码,我觉得我必须重新写一个来开导你一下。
下面的排序不需要专业知识,也不需要借助数组的Sort方法排序,只用了一个简单的比较:
Dim s() As String = "2,6,3,8,4,9,1,7,5,10,21".Split(",")
Dim cnt As Integer = s.Length
For n As Integer = 0 To cnt - 1
For m As Integer = cnt - 1 To n + 1 Step - 1
Dim v1 As Double = s(m - 1)
Dim v2 As Double = s(m)
If v2 < v1 Then
s(m - 1) = v2
s(m) = v1
End If
Next
Next
Output.show(String.Join(",",s))
[此贴子已经被作者于2010-8-19 10:11:08编辑过]
好!
为样的代码才是我们需要学的。