Sorting algorithms/Shell sort: Difference between revisions

m
(Added solution for Action!)
Line 3,294:
RETURN</lang>
 
=={{header|Visual BASICBasic}}==
<lang Visual BASICvb>Sub arrShellSort(ByVal arrData As Variant)
Dim lngHold, lngGap As Long
Dim lngCount, lngMin, lngMax As Long
43

edits