Dim a(1 T0 5)As Integer

  Dim c As Integer

  a(1)=44：a(2)=36：a(3)=58：a(4)=65：a(5)=12

  b=0：c=0

  For i=1 To 4

      k=i

    For j=i+1 To 5

        If a(j)<a(k) Then

          k=j

          b=b+1

         End If

      Next j

      If k<>I Then

      t=a(i)：a(i)=a(k)：a(k)=t

      c=c+1

    End If

  Next i

  Text1．Text=Str(b)+Str(c)

运行该程序段后，文本框Text1的内容是 （  ）

Const n =10

For i = 1 To n - 1

    t = n - (n + i ) Mod 2

    For j = t To i + 2  Step -2

        If d(j)> d(j - 2)  Then

            Temp=d(j)

            d(j) = d(j - 2)

            d(j - 2) = temp

        End If

    Next j

Next i

已知数组元素d(1)到d(10)的原始数据为1、2、3、4、5、6、7、8、9、10.程序运行后，d(10)的值为（ ）

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)的值依次为（  ）

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个方框处的表达式分别为(   )

p = 1: q = 10

Do While p < q

    iMin = p: iMax = p

    For i = p + 1 To q

        If a(i) < a(iMin) Then

            iMin = i

        elseIf a(i) > a(iMax) Then

            iMax = i

        endif

    Next i

    t = a(iMax): a(iMax) = a(q): a(q) = t

      ①  

    t = a(iMin): a(iMin) = a(p): a(p) = t

    p = p + 1:q = q -1

Loop

要使程序实现上述算法思想，则方框中的语句是（  ）