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的内容是 （  ）

Private Sub Command1_Click()

    Dim i As Integer, n As Integer

    Dim s As Integer, t As Integer, k As Integer

    s = 0

    For i = 1 To 1000

        n = i

        t = 0

        k = 0

        Do While n > 0

            If n Mod 2 = 1 Then t = t + 1 Else k = k + 1

           {#blank#}1{#/blank#}

        Loop

        If {#blank#}2{#/blank#}Then s = s + 1

    Next i

    Text1.Text = Str(s)

End Sub

If temp>=a(n) Then

    a(n+1)=temp

Else

    j=n

    Do While j>=1 And temp<a(j)

        j=j-1

    Loop

End If

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