小李基于冒泡排序算法編寫了一個(gè) VB 程序，功能如下：在文本框 Text1 中輸入產(chǎn)生隨機(jī)數(shù)的個(gè)數(shù) n,單擊“隨機(jī)產(chǎn)生”按鈕 Command1，在列表框 list1 中顯示 n 個(gè)兩位數(shù)（不重復(fù)）的排序前數(shù)據(jù)，單擊“數(shù)據(jù)排序”按鈕 Command2，在列表框 list2 中顯示數(shù)據(jù)升序排序結(jié)果。程序運(yùn)行界面如圖所示。

實(shí)現(xiàn)上述功能的 VB 程序如下，但加框處代碼有錯(cuò)，請改正。
Dim a（1To 100）As Integer
Dim n As Integer
Private Sub Command1_Click（　　）
Dim i As Integer,j As Integer,temp As Integer
Dim flag As Boolean
n=Val（Text1．Text）
Randomize
For i=1 To n
‘（1）
flag=False
For j=1 To i-1
If temp=a（j） Then
i=i-1
flag=True
Exit For
End If
Next j
If flag=False Then
a（i）=temp
List1．AddItem Str（a（i）
End If
Next i
End Sub
Private Sub Command2_Click（　?。?br />Dim i As Integer,j As Integer
i=1
Do While i＜=n-1
j=i+1
Do While j＜=n
If  Then‘（2）
t=a（i）：a（i）=a（j）：a（j）=t
End If
j=j+1
Loop
i=i+1
Loop
For m=1To n
List2．AddItem Str（a（m））
Next m
End Sub