Sorting algorithms/Shell sort: Difference between revisions

Content added Content deleted
Line 3,208: Line 3,208:
RETURN</lang>
RETURN</lang>


=={{header|VBscript}}==
=={{header|Visual BASIC}}==
<lang VBscript>Sub arrShellSort(ByVal arrData As Variant)
<lang Visual BASIC>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
Retrieved from "https://rosettacode.org/wiki/Sorting_algorithms/Shell_sort"