no se mucho de VB, pero se me ocurre guardar tu arreglo en otro, y luego arreglar uno y comparar, asa sabrías si esta o no arreglado, por el momento puedo ayudarte en eso, igual puede que alguien pueda hacerlo mejor, o te de una idea.
Uso esta parte para guardar temporalmente el arreglo
Dim temp_numbers() As Integer
For index As Integer = 0 To numbers.Length -1
ReDim Preserve temp_numbers(index)
temp_numbers(index) = (numbers(index))
Next
Luego uso el método burbuja para ordenar uno.
Dim Count As Integer = 0
Dim Swapvalue As Integer
For ii As Integer = 0 To numbers.Length - 2
For i As Integer = 0 To numbers.Length - 2
Count += 1
If numbers(i) > numbers(i + 1) Then
Swapvalue = numbers(i)
numbers(i) = numbers(i + 1)
numbers(i + 1) = Swapvalue
End If
Next
Next
Finalmente comparo, teniendo como codigo final el siguiente.
Module VBModule
Sub Main()
Dim numbers = New Integer() {2, 1, 5, 0,23,3}
Dim temp_numbers() As Integer
For index As Integer = 0 To numbers.Length -1
ReDim Preserve temp_numbers(index)
temp_numbers(index) = (numbers(index))
Next
Dim lista() As Integer = New Integer((10) - 1) {}
Dim res = New Integer() {}
Dim ordenado As Boolean
ordenado = true
Dim Count As Integer = 0
Dim Swapvalue As Integer
For ii As Integer = 0 To numbers.Length - 2
For i As Integer = 0 To numbers.Length - 2
Count += 1
If numbers(i) > numbers(i + 1) Then
Swapvalue = numbers(i)
numbers(i) = numbers(i + 1)
numbers(i + 1) = Swapvalue
End If
Next
Next
For index As Integer = 0 To temp_numbers.Length -1
If numbers(index) <> temp_numbers(index)
ordenado=false
End If
Next
Console.WriteLine("Ordenado ? : " & ordenado)
End Sub
End Module