某排序算法如下：每一趟將一個待排序數(shù)據(jù)，按其值的大小使用對分查找思想在已排序序列中找到合適位置并插入，將所有待排序數(shù)據(jù)全部插入即完成排序。實現(xiàn)該算法的程序如下：在列表框List1中顯示待排序數(shù)據(jù)，單擊“排序”按鈕Command1后，逐行顯示排序過程。程序運行結(jié)果如圖所示。

實現(xiàn)上述功能的VB程序如下，加框處代碼有錯，請改正。
Const n=10'變量n存儲待排序數(shù)據(jù)個數(shù)
Dim d（1To n） As Integer'數(shù)組d存儲待排序數(shù)據(jù)
Private Sub APrint （　?。?br />'本過程實現(xiàn)在列表框一行中輸出數(shù)組d各個元素的值，代碼略。
End Sub
Private Sub Command1_Click （　?。?br />Dim i As Integer,j As Integer,tmp As Integer
Dim m As Integer,low As Integer,high As Integer
'先將待排序數(shù)據(jù)存儲在數(shù)組d中，代碼略。
List1．AddItem“-----------待排序數(shù)據(jù)------------“
Call Aprint'在列表框List1中輸出數(shù)組d的各個元素的值
List1．AddItem“-----------數(shù)據(jù)排序過程------------“
For i=2To n
tmp=d（i）
low=1
′（1）
Do While low＜=high
m=（low+high）\2
If tmp＜=d（m） Then
high=m-1
Else
low=m+1
End If
Loop
For j=i-1To low Step-1
d（j+1）=d（j）
Next j
′（2）
Call APrint
Next i
End Sub