s=″72186345945″:c=0

For i=1 To 6

a(i)=Mid(s,i,i)

Next i

For i=1 To 4 Step 2

k=i

For j=i+2 To 6 Step 2

If a(j)<a(k) Then k=j

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(c)

该程序段运行后,Text1中显示的内容是（  ）

实现上述功能的VB程序如下：

Const n=10

Dim a(1 To 10)As Integer

Private Sub Command1  Click()

For i=1 To n

               ‘①

    List1．Addltem Str(a(i))

    Next i

End Sub

 Private Sub Command2  Click()

    tmp=1

    For i=1 To n-1

    For j=n To i+1 Step-1

    If  ＞0 Then    ①

    t=a(j)：a(j)=a(j-1)：a(j-1)=t

    End If

    Next j

    ②

    Next i

    For i=1 To 10

    List2．Addltem Str(a(i))

    Next i

 End Sub

鞋子尺码换算：常用的两种鞋码一种是欧制的码m，而我国采用的标准为厘米数g，鞋子尺码的换算公式：欧制m=中国制g*2-10。例如25是我国采用的厘米数，换算成欧制的码为25*2-10=40(码)。

待排序数据已存储在数组a中(a(1)~a(n))

For i= 1 To n-2

k= i

For j=    ‘①

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

Next j

If k<>i Then t= a(i)： a(i)= a(k)： a(k)=t

Next i

For i= 1 To n\ 2

j=2*i-1

If a(j)< a(j+ 1) Then t= a()： a()=a(j+ 1)： a(j+1)=t

Next i

For i=  ‘②

t= a(i)：j-i

Do While t> a(j)

a(j+1)=a()：j=j

Loop

   ‘③

Next i

上述程序段中3处方框处的代码分别为（  ）