Сортировка по квадратам соседних пар

Public Module Main

    Public Function Main(ByVal Args() As String)As Integer
        ' Индекс элемента
        Dim i As Integer
        ' Список
        Dim q = Enumerable.Range(1, 17).ToArray
        ' Квадраты 4 9 16 25
        Dim f = Enumerable.Range(2, 4).Select(Function (x As Integer) x * x).ToArray
        ' Количество ложных совпадений
        Dim FalseCount As Integer
        Do
            If f.Contains(q(i) + q(i + 1)) Then
                i += 1
                FalseCount = 0
            Else
                For t As Integer = i + 1 To q.Length - 2
                    Dim d As Integer = q(t)
                    q(t) = q(t + 1)
                    q(t+ 1) = d
                Next
                FalseCount += 1
                If FalseCount > q.Length Then
                    i = 0
                    FalseCount = 0
                    For t As Integer = 0 To q.Length - 2
                        Dim d As Integer = q(t)
                        q(t) = q(t + 1)
                        q(t+ 1) = d
                    Next
                End If
            End If
        Loop Until i >= q.Length - 2 ' Идти до тех пор, пока не превысим коллекцию -2 элемента

        For Each i In q
            Console.Write(i & " ")
        Next

        Return 0
    End Function
End Module