有一个包含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代码如下，但加框出有错误，请改正。