小明基于冒泡排序算法編寫了一個VB程序，功能如下：單擊“生成”按鈕Command1，在列表框List1中生成用于排序的n個數(shù)據(jù)，單擊“排序”按鈕 Command2，對這組數(shù)據(jù)進(jìn)行錯位排序（即從前往后依次是最小的、最大的第二小的、第二大的……依此類推），在列表框List2中依次輸出數(shù)據(jù)排序后的結(jié)果，程序運(yùn)行界面如圖所示。
實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼有錯，請改正
Dim n As Integer,a（1 To 100）As Integer
Private Sub Command1 Click（　?。?br />
’該段程序用于隨機(jī)產(chǎn)生n個整數(shù)，存儲在數(shù)組a中，并顯示在列表框istl中，代碼略
End Sub
Private Sub Command2_ Click（　　）
Dim i As Integer,j As Integer,tmp As Integer
List2．Clear
tmp 1
For i 1 To n-1
For j=n To i 1 Step-1

a（i）=a（j）+a（j-1）
a（i-1）=a（j）-aj-1）
a（j）=a（j）-a（j-1）
End if
Next j

Next i
For i=1 To n
List2．AddItem Str（a（i））
Next i
End sub