实现上述功能的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

⑴查找相邻两个非降序数据段在未处理的数据区域中，从前往后找出第一个最长非降序数据段。若该数据段后而没有元素，则本轮处理完毕；否则在第1个数据段的后面，从前往后找出数组中第二个最长非降序数据段。

⑵合并两个数据段

借助数组tmp，将查找到的两个相邻数据段合并成一个非降序数据段，然后将合并后的数据依次存回到原数组中。

⑶若数组中还有未处理的数据，则重复⑴⑵步骤。

每一轮数据处理完毕后，重新从数组第1个数据开始进行下一轮处理。若检测到某一轮没有合并处理，则说明n个数据己构成非降序数据段，数据处理结束。

a = [ 6 , 12 , 9 , 20 , 8 , 11 , 4 ]

for j in range( 1 , len( a ) ) :

    if  a[ j ] < a[ j - 1 ] :

 a[ j ] = a[ j ] + a[ j - 1 ] ;  a[ j - 1 ] = a[ j ] - a[ j - 1 ] ;  a[ j ] = a[ j ] - a[ j - 1 ]

执行该段程序后，列表a的值是（   ）