小李基于冒泡排序算法编写了一个 VB 程序，功能如下：在文本框 Text1 中输入产生随机数的个数 n,单击“随机产生”按钮 Command1，在列表框 list1 中显示 n 个两位数（不重复）的排序前数据，单击“数据排序”按钮 Command2，在列表框 list2 中显示数据升序排序结果。程序运行界面如图所示。

实现上述功能的 VB 程序如下，但加框处代码有错，请改正。
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（　　）
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