Sorting algorithms/Shell sort: Difference between revisions
Content added Content deleted
(Added solution for Action!) |
|||
Line 3,294: | Line 3,294: | ||
RETURN</lang> |
RETURN</lang> |
||
=={{header|Visual |
=={{header|Visual Basic}}== |
||
<lang |
<lang vb>Sub arrShellSort(ByVal arrData As Variant) |
||
Dim lngHold, lngGap As Long |
Dim lngHold, lngGap As Long |
||
Dim lngCount, lngMin, lngMax As Long |
Dim lngCount, lngMin, lngMax As Long |