主题：出个题目 反正我这一下子是没解决.【解决了】

呵呵，看了你自己写的代码，我觉得我必须重新写一个来开导你一下。

下面的排序不需要专业知识，也不需要借助数组的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))