题目

有如下VB程序段：Dim a(1 To 10) As Integers = 7218634594: n = Len(s)t = 0For i = 1 To n - 1 a(i) = Val(Mid(s， i， 2))Next iFor i = 1 To n - 2 Step 2 k = i For j = i + 2 To n - 1 Step 2 If a(j) < 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 IfNext iText1.Text = Str(t)该程序段运行后，文本框Text1中显示的内容是（） A . 1 B . 2 C . 3 D . 4A÷B=C，当B一定时，A和C成正比例． ．