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

呵呵，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