小吳為了研究排序后的各數(shù)據(jù)在排序前的位置，編寫了一個(gè) VB 程序，功能如下：在列表框 List1中顯示排序前數(shù)據(jù)（存儲(chǔ)在數(shù)組a中），單擊“排序”按鈕 Command1 后，在列表框 List2 中顯示排序后的數(shù)據(jù)及該數(shù)據(jù)在排序前的位置。程序運(yùn)行界面如圖所示：
實(shí)現(xiàn)上述功能的 VB 代碼如下，但加框處代碼有錯(cuò)，請(qǐng)改正。
Dim d（1 To 12）As Integer'存儲(chǔ)排序前的數(shù)據(jù)
Private Sub Form_Load （　?。?br />d（1）=13：d（2）=49：d（3）=26：d（4）=35：d（5）=73：d（6）=15：d（7）=22：d（8）=86
d（9）=31：d（10）=10：d（11）=41：d（12）=44
Dim i As Integer,j As Integer
For i=1 To 12
List1．AddItem d（i）
Next i
End Sub
Private Sub Command1_Click （　?。?br />Dim a（1 To 12）As Integer'存儲(chǔ)排序后的數(shù)據(jù)
Dim b（1 To 12）As Integer'存儲(chǔ)排序前各數(shù)據(jù)所在位置
Dim c（1 To 12）As Boolean'數(shù)組 c 用來(lái)判斷排序的數(shù)據(jù)是否已篩選出
Dim i As Integer,k As Integer,j As Integer
For i=1 To 12
a（i）=0
b（i）=0
c（i）=false
Next i
k=0
For i=1 To 12
For j=1 To 12
If   Then‘（1）
a（i）=d（j）
k=j
End If
Next j
‘（2）
c（k）=True
Next i
For i=1 To 12
List2．Addltem Str（a（i））+““+Str（b（i）
Next i
End Sub