中文（臺灣）：梳排序的動畫展示，粉紅色長條代表這兩個元素被比較且不需交換，淺紅色長條代表這兩個元素被比較且需要交換，交換會在下一幀完成，33個元素，初始間距為33，遞減率1.24733，間距除遞減率後無條件捨去小數。

程式原始碼(vb)

   Dim gap, swaps, i, t, value(33) As Integer
   Dim ch As Double
   ch = 1.24733
   gap = 33
   swaps = 1
   Do While ((gap > 1) Or (swaps = 1))
       If gap > 1 Then gap = Int(gap / ch)
       i = 0
       swaps = 0
       Do While (i + gap < n)
           If value(i) > value(i + gap) Then
               t = value(i)
               value(i) = value(i + gap)
               value(i + gap) = t
               swaps = 1
           End If
           i = i + 1
       Loop
   Loop

此程式碼是根據中文維基梳排序完成。