8234601951

2. Sortowanie przez wstawianie

UWAGA! Jeżeli wyskoczy komunikat „Subscript out of rangę" należy zmienić deklarację tablicy z Dim t(l To 10) As Integer na

Dim t(0 To 10) As Integer

Sub wstawianie!)

Dim i As Integer Dim j As Integer Dim n As Integer Dim t(0 To 10) As Integer Dim tym As Integer

For i = 1 To n

t(i) = Worksheets(”Sheetl").Range("Al").Offset(i -1) Next i

For i = 2 To n tym = t(i) j = i -1

Do While j > 0 And t(j) > tym t(j + l) = t(j) j = j -1 Loop

t(j + 1) = tym Next i

For i = 1 To n

Worksheets("Sheetl").Range("Bl").Offset(i -1) = t(i) Next i

End Sub