Witam
Czy ktoś mółby napisać co w tym kodzie jest nie tak? Sporo czasu się już z tym męcze. Program sortuje tablicę poprzez wstawianie:
Module Main
Sub InsertionSort(ByRef tab())
Dim i, j As Integer, n As Integer = tab.GetUpperBound(0), v
For i = 1 To n
j = i-1
v = tab(i)
While v < tab(j) And j > 0
tab(j+1) = tab(j)
j -= 1
End While
tab(j+1) = v
Next
End Sub
Sub Main()
Dim tab() = {12, 34, 45, 2, 1, 0, 57}, i As Integer
InsertionSort(tab)
For i = 0 to tab.GetUpperBound(0) : Console.Write(tab(i) & " ") : Next
Console.ReadLine()
End Sub
End Module