【VB.NET】字符串数组长度排序算法

Version 1：

    Sub CreatDec(ByRef r() As String)  '将数组中的元素按长度由断到长排序
         If r.Length < 2 Then Exit Sub
         Dim s As New List(Of String)
         Dim iStr As String = ""
         Dim lenT As Integer = 0
         s.Add(r(r.Length - 1))
         For j As Integer = 0 To r.Length - 2
             iStr = r(j)
             lenT = Len(iStr)
             For i As Integer = 0 To s.Count - 1
                 If lenT <= Len(s.Item(i)) Then
                     s.Insert(i, iStr)
                     Exit For
                 End If
             Next
         Next
         ReDim r(s.Count - 1)
         For ij As Integer = 0 To r.Length - 1
             r(ij) = s.Item(ij)
         Next
     End Sub

输入为传旨输入，此过程将传入的数组按照字符串长度排序。