For i= 1 To 6

       a(i)=i+1

    Next i

该程序段运行后数组元素a(3)的值是：（   ）

Private Sub Command1_Click()

 Dim a(1 To 5) As Integer

 a(5)=Val(Text1.text)

 For i=4 To 1 Step -1

   a(i)=a(i+1)\2

 Next i

 Label1.caption=str(a(1))

End sub

在文本框Text1中输入“100”,单击命令按钮Command1后,标签Label1中显示的内容是（  ）

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”。执行该程序段后，下列说法不正确的是（  ）

例如，长度为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#}