有一個包含10個正整數的數組，要求對其按升序排序。該排序算法是對直接插入排序進行優化，具體的算法思想是：第一步，選擇一個元素選擇步長將數組劃分為若干小組，對各個小組分別進行排序；第二步，不斷將步長縮小，不斷分組和排序，直到后的步長為1，對所有的元素進行排序，此時，經過前期的排序工作，能夠減少全體元素插入排序的對比次數。如數據{7，6，3，2，9，1，8，1，5，0}。
第一輪分組排序：
步長gap=5，所以將數組分為5組：{7，1}，{6，8}，{3，1}，{2，5}，{9，0}分別進行直接插入排序，得
到{1，7}，{6，8}，（1，3}，{2，5}，{0，9}。
數組整體變為{1，6，1，2，0，7，8，3，5，9}
第二輪分組排序：
步長gap=2，所以將數組分為2組：{1，1，0，8，5}，{6，2，7，3，9}；經過分別的插入排序得到：
{0，1，1，5，8}，{2，3，6，7，9}．數組整體變成{0，2，1，3，1，6，5，7，8，9}
第三輪分組排序：
步長gap=1，所以就是對整個數組進行直接插入排序了。{0，1，1，2，3，5，6，7，8，9}
實現上述功能的VB代碼如下，但加框出有錯誤，請改正。