第1段是从数组首个元素开始、元素值都属于第1区间的最长连续元素段。如果首个元素不属于第1区间，则第1段元素个数为0；

第1段分割后的剩余元素，用同样的方法来依次分割第2段、第3段、…、第m段；

第m段分割后的剩余元素分割到第m+1段（剩余段）。

若第p（1≤p≤m-1）段末尾连续元素的值也同时属于第p+1区间，则这块连续元素称为第p段“重叠块”，该段其余部分称为第p段“非重叠块”。由于不存在第m+1区间，这里特别规定：第m段的全部元素都分割到m段“非重叠块”，第m段“重叠块”的元素个数为0，一个数组分段示例如下图。图中数组第1个元素10不属于第1区间[0,5]，因此第1段的元素个数为0。10和20属于第2区间，而33不属于第2区间，因此第2段只包含10和20两个元素。第3段末尾连续3个元素的值也同时属于第4区间，因此，第3段“非重叠块”包含33,58,46，第3段“重叠块”包含55,62,69。

DIM A(6) AS INTEGER

FOR I= 1 TO 6

  A(I)= I

NEXT I

PRINT A(I)

L = 0: R = 7: i = 1

Do While i < R

    If a(i) = 0 Then

        L = L + 1

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

    ElseIf a(i) = 2 Then

        R = R - 1

        t = a(i): a(i) = a(R): a(R) = t

    Else

        i = i + 1

    End If

Loop

数组元素 a(1)到 a(6)的值依次为“2，0，2，1，1，0”。执行该程序段后，下列说法不正确的是（  ）

Dim a(1 To 10) As Integer

a(1)=2: a(2)=18: a(3)=10: a(4)=34: a(5)=16

a(6)=7: a(7)=37: a(8)=6: a(9)=15: a(10)=15

c=0: x=0: t= 1

For i=1 To 10

    a(i)=a(i)*t

    c=c+a(i)

    If c>0 Then x=x+1

    t=-t

Next i

Text1.Text=Str(x)

则程序运行后Text1中显示（  ）

例如，长度为6的有序序列：38、42、59、61、69、78，当t=2时重排结果为:59、61、69、78、38、42。

小红编写了VB程序功能如下:程序运行时产生n个整数存储在数组a中，在文本框Text1中输入t，单击“对调”按钮Command1在列表框List2中输出t个数与n-t个数对调后的数字序列。程序运行界面如图所示。

为了实现上述功能，请在划线处填入合适的代码。

Const n = 10

Dim a (1 To 10) As Integer

Private Sub Form Load ( )

‘生成n个有序数 ,显示在List1中

‘代码略

End Sub

Private Sub Command1_ Click ( )

Dim t As Integer, i As Integer, j As Integer

Dim temp As Integer

    ①      

For i=t+1 To n

  Temp = a(i)

  For j = i To i+1-t step -1

        ②      

  Next j

  a(j)=    ③      

Next i

For i=1 To n

  List2 AddItem Str(a(i))

Next i

End Sub

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