主题：[求助]集合排序问题

Dim ary1() = {"1.2.3.10", "1.2.3.1", "1.2.3.9", "1.4.5", "1.2.3.5"}
Dim ary2(ary1.length-1)
Dim ary3(ary1.length-1)

For i As Integer = 0 To ary1.length-1
    ary2(i) = i
    Dim nstr As String = ""
    For Each s As String In ary1(i).split(".")
        nstr &= format(val(s), "000") & "."
    Next
    ary3(i) = nstr.trim(".")
   
Next

array.sort(ary3, ary2)
For i As Integer = 0 To ary2.length-1
    ary3(i) = ary1(ary2(i))
    output.show(ary3(i))
Next