小強想用選擇排序算法對n個數(shù)據(jù)元素進行降序排序，并且用Do While循環(huán)語句來實現(xiàn)編程．該程序的功能如下：單擊“排序”按鈕Command1，程序對列表框List1中顯示的n個整數(shù)進行降序排序，并在列表框List2中顯示排序結果．程序運行效果如圖所示．
該程序中實現(xiàn)選擇排序功能的VB代碼如下，但加框處代碼有錯，請改正．
Dim a（1 To 100）As Integer,i As Integer,j As Integer,t As Integer
Dim object As Integer
Const n=100

Private Sub Command1_Click（　?。?br />   i=0
   Do While '（1）
       i=i+1
       object=i
       j=object+1
       Do While j＜=n
           If  a（object）＜a（j） Then object=j
'（2）
       Loop
       If object＜＞i Then
          t=a（object）：a（object）=a（i）：a（i）=t
       End If
   Loop
   For i=i To n
       List2．AddItem Str（a（i））
   Next i
End Sub.