小吳為了研究排序后的各數(shù)據(jù)在排序前的位置，編寫了一個 VB 程序，功能如下：在列表框 List1中顯示排序前數(shù)據(jù)（存儲在數(shù)組a中），單擊“排序”按鈕 Command1 后，在列表框 List2 中顯示排序后的數(shù)據(jù)及該數(shù)據(jù)在排序前的位置。程序運行界面如圖所示：
實現(xiàn)上述功能的 VB 代碼如下，但加框處代碼有錯，請改正。
Dim d（1 To 12）As Integer'存儲排序前的數(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'存儲排序后的數(shù)據(jù)
Dim b（1 To 12）As Integer'存儲排序前各數(shù)據(jù)所在位置
Dim c（1 To 12）As Boolean'數(shù)組 c 用來判斷排序的數(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