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