Sorting algorithms/Shell sort: Difference between revisions

Line 3,208:
RETURN</lang>
 
=={{header|VBscriptVisual BASIC}}==
<lang VBscriptVisual BASIC>Sub arrShellSort(ByVal arrData As Variant)
Dim lngHold, lngGap As Long
Dim lngCount, lngMin, lngMax As Long
Anonymous user