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

Const n=10

Dim a(1 To n)As Integer

Private Sub Form_Load()

‘获取排序前数据，并依次存储在数组a中，并在文本框Text1中显示。代码略

End Sub

Private Sub Command1_Click()

  Dim i As Integer，j As Integer，t As Integer

  Dim top As Integer

  top=1

  For i=1 To n-1

    For j= To n-1              ‘⑴{#blank#}1{#/blank#}

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

       t=a(j)：a(j)=a(j+1)：a(j+1)=t

     ElseIf a(j)=a(j+1)Then     ‘相邻两个数据相等，由前面数据对进行覆盖处理

                        ‘⑵{#blank#}2{#/blank#}

       top=top+1

      End If

     Next j

    Next i

    Text2．Text=“ ”

    For i=top To n

      Text2．Text=Text2．Text+Str(a(i))

    Next i

  End Sub

Dim a(1 To 5)As Integer, i As Integer, j As Integer key As Integer

a(1)=8：a(2)=13：a(3)=25：a(4)=98：a(5)=56

For i=4 To 5

j=i： Key a(j)

Do While a(j-1)>Key and j>

a（j）=a(j-1)

j=j-1

Loop

a(j)=Key

Next i

执行该程序段后，数组元素a(1)~a(5)的值是（  ）

For i= 1 To 2

    For j=5 To i+1 Step-1

      If a(j) >a(i) Then

        t=a(j)：a(j)=a(i)：a(i)=t

      End If

    Next j

Next i

数组元素a(1)到a(5)的值依次为“33，24，45，16，77”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为（  ）

'待排序数据存储在数组a中（a（1）~a（n）），要求升序排列

For i=1To（n-1）\2

  For j=1To n-i*2

    If a  Then         '①

      t= a（j）：a（j）= a（j+ 2）：a（j+2）= t

    End If

  Next j

Next i

For i = 1 To n\2

    j = 2 * i - 1

    If a（j）> a（j+ 1）Then t = a（j）：a（j）= a（j+1）：a（j+1）= t

Next i

For i=  Step 2         '②

    t = a（i）：j = i - 1

    Do While t <a（j）

      a（j+ 1）= a（j）：j =j-1

    Loop

    a（j+ 1）= t

Next i

①{#blank#}1{#/blank#}②{#blank#}2{#/blank#}

i=1

Do While i<=5

    If i = 0 or a(i - 1)<= a(i) Then

        i=i+1

    Else

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

        i=i-1

    End If

Loop

数组元素a(0)到a(5)依次为：“0，41，22，53，99，36”，经过该程序段处理后，数组元素a(3)的值为（   ）

s =" shenzhen"

For i=1 To Len(s)

    a(i) = Mid(s，i，1)

    b(i) = i

Next i

For i=Len(s) To 2 Step-1

    If a(b(i)) >= a(b(i - 1)) Then

        t=b(i)：b(i)=b(i-1)：b(i-1)=t

    End If

Next i

Text1.Text = b(1)

文本框Text1中显示的内容是（    ）