Написать коментарии к двум строкам строкам в программе на VBA

[Yurec2407]

Private Sub пирсорт_Click()
ReDim d(Колстолб)
For i = 1 To Колстолб
d(i) = Int(Rnd() * 100)
Worksheets(1).Cells(1, i) = d(i)
Next
C = 1
n = Val(Колстолб)
While n > 0
ReDim Preserve d(n) 'пояснить строку и её назначение
sort
b = d(1)
d(1) = d(n)
d(n) = b
Worksheets(1).Cells(2, C) = d(n)
C = C + 1
n = n - 1
Wend
End Sub
Sub sort()
k = Int(n / 2)
For i = k To 1 Step -1
k1 = 2 * i
If n >= 2 * i + 1 Then
k2 = 2 * i + 1
If d(i) < d(k1) Or d(i) < d(k2) Then 'пояснить, для чего нужна эта проверка
If d(k1) < d(k2) Then
b = d(i)
d(i) = d(k2)
d(k2) = b
Else
b = d(i)
d(i) = d(k1)
d(k1) = b
End If
End If
Else
If d(k1) > d(i) Then
b = d(i)
d(i) = d(k1)
d(k1) = b
End If
End If
Next
End Sub

[challengerr]

ReDim Preserve d(n)
перевыделяет память под динамический массив с сохранением тех элементов которые в нем были раньше


это пирамидальная сортировка
вам нужно почитать описание на сайте http://algolist.manual.ru/sort/pyramid_sort.php

If d(i) < d(k1) Or d(i) < d(k2) Then 'пояснить, для чего нужна эта проверка

[I]"Таким образом, для массива, хранящего в себе пирамиду, выполняется следующее характеристическое свойство: a[i] >= a[2i+1] и a >= a[2i+2]."

[Yurec2407]

Спасибо большое