【加试题】有如下VB程序段：

  S=“7218634594”：n=Len(s)

  t=0

  For i=1 To n-1

         a(i)=Val(Mid(s，i，2))

  Next i

  For i=1 To n-2 Step 2

       k=i

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

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

       Next j

       If k<>i Then

           temp=a(i)：a(i)=a(k)：a(k)=temp：t=t+1

       End If

    Next i

    Text1．Text=Str(t)  
运行程序段后， t的值为（  ）

A、1

B、2

C、3

D、4