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

呵呵，不是我厉害，是vb.net本来就有数组排序功能

呵呵，lxl版主的解法比较规范和专业，我来个比较无赖的解法：

Dim s1() As String = "2,6,3,8,4,9,1,7,5,10,21".Split(",")
Dim s2(s1.Length - 1) As Integer
For i As Integer = 1 To  s1.Length  - 1
    s2(i) =s1(i)
Next
Array.Sort(s2)
For i As Integer = 1 To s2.Length  - 1
    Output.Show(s2(i))
Next

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

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

孰能生巧，我只是比你多写了10多年的代码而已。