实现上述功能的VB程序如下，但加框处代码有错，请改正。

  Const n=10

  Private Sub Form_Load()

    ‘排序前数据存储在数组a中，并在文本框Text1中显示

    ‘代码略

  End Sub

  Private Sub Command1_Click()

  Dim i As Integer

  Dim bottom As Integer

  Dim j As Integer

  Dim a(1 To n)As Integer

  i=1

  bottom=n

  Do While i<bottom

    k=i

    j=i+1

      Do While i<=bottom

        If a(j)=a(k)Then

           a(i)=a(bottom)

                    ‘(1)

           bottom=bottom-1

        E1seIf 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

Dim a(1 To 5) As Integer

a(1)=5: a(2)=10: a(3)=9: a(4)=3: a(5)=7

n=5: p=0

swap=True

Do While swap=True

 swap=False

 For i=1 To n-1

  If a(i) > a(i+1) Then

   t=a(i): a(i)=a(i+1): a(i+1)=t

   swap=True

  End If

 Next i

 If swap=True Then p=p+1

Loop

Text1.Text=p

该程序段执行后，在文本框Text1中显示的内容为（  ）