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

这是个怪题，挺难

lxl 版主：

Dim s1() As String = "10.1,11.1,10.3,2,6,3,11,8,4,9,1,7,5,10".Split(",")
Array.Sort(s1, AddressOf StrCompare)
Output.show(String.Join(",", s1))

结果为：1,2,3,4,5,6,7,8,9,10.3,10.1,10,11.1,11

小数到整数前面去了。