学进去

小明基于选择排序算法编写了一个VB程序，功能如下：在文本框Text1中显示排序前的数据，单击“排序”按钮Command1，在文本框Text2中显示剔除重复数据后的升序排序结果。程序运行界面如下图所示。
              
实现上述功能的VB程序如下，但加框处代码有错，请改正。
Const n 10
Private Sub Form Load()
'排序前数据存储在数组a中，并在文本框Text1中显示，代码略
End Sub
Private Sub Command1 Click()
Dim i As Integer, bottom As Integer
Dim a(1 To n) As Integer, j As Integer
i=1:bottom=n
Do While i< bottom
k =i
j=i+1
Do While<= bottom
If a(j)=a(k) Then
a(j)=a(bottom)
                                '(1)___________
bottom =bottom-1
ElseIf a(j)<a(k) Then
k=j
End If
j=j+1
Loop
If   Then                   '(2)__________
t= a(i):a(i)=a(k):a(k)=t

End If

i=i+1

Loop
'排序后数据存储在数组a中，并在文本框Text2中显示
End Sub