i = 1

 Do While i <= 6

    t = Int(Rnd * 10) + 1

    If t Mod 2 = i Mod 2 Then a(i) = t : i = i + 1

Loop

For i = 1 To 2

   k = 1

   For j = 1 To 6 - i * 2

     If a(j) * k > a(j + 2) * k Then

       t = a(j) :  a(j) = a(j + 2) :  a(j + 2) = t

     End If

     k = -k

   Next j

Next i

执行该程序段后，数组元素a(1)到a(6)的值可能是（  ）

t=0

For i=1 To 4

flag=False

For j=5 To i+1 Step-1

If a(j)>a(i) Then flag=True

  t=t+1

  temp=a(j):a(j)=a(i):a(i)=temp

End If

Next j

If flag=False Then Exit For

Next i

For i=1 To ①    

  k=i

  For j=i+1 To n-i+1

If a(k)>a(j) Then k= ②    

  Next j

  If k<>i Then t=a(k):a(k)=a(i):a(i)=t For j= ③      

    If a(j)<a(j+1) Then a(j)=a(j)+a(j+1) : a(j+1)=a(j)-a(j+1):a(j)=a(j)-a(j+1) Next j

Next i

上述程序段3个划线处的表达式分别为（  ）

Dim tmp As Integer

Dim a(1 To 10) As Integer

Private Sub Command1_Click()

  For i=2 To 10

Text1.Text = ""

For i= 1 To 5

  For j=i+1 To 6

  If s(i) + s(i) < s(j) + s(i) Then

    t= s(j): s(j)= s(i): s(i)=t

  End If

  Next j

Next i

For i=1 To 6

  Text1.Text = s(i) + Text1.Text

Next i

  If  Then

    tmp = a(i)

      For j=  To 1 Step -1    ‘依次后移

        If tmp > a(j) Then Exit For

        a(j+1)= a(j)

      Next j

          ‘插入数据

    End If

  Next i

  For i= 1 To 10

    List1.Addltem a(i)

  Next i

End Sub

要实现上述功能，方框①②③中的语句分别是（  ）

Const n = 6

Dim a(1 To n) As Integer, f(1 To 10) As Boolean

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

‘f数组各元素的初值置为False，代码略

For i = 1 To   ⑴ 

    t = Int(1 + Rnd * 10)

    If Not f(t) Then

        a(i) = t : f(t) = True

        For j =   ⑵ 

            If a(j) < a(j - 1) Then

                tmp = a(j): a(j) = a(j - 1): a(j - 1) = tmp

            End If

        Next j

    Else

      ⑶ 

    End If

Next i

上述程序段3个方框处的表达式分别为(   )