（加试题）某算法的VB程序段如下：
For i = 1 To 3
For j = i To 9
If a(j) > a(j-1) Then
t = a(j): a(j) = a(j-1): a(j-1) = t
End If
Next j
Next i
数组元素a(0)到a(9)的值依次为“25,64,15,40,74,80,27,65,84,53”。若该程序执行后得到的结果是

A．64 74 80 40 65 84 53 27 25 15

B．64 40 80 74 65 84 53 27 25 15

C．64 25 15 40 74 80 27 65 84 53

D．84 80 74 65 64 53 40 27 25 15

有如下VB程序段：
For i=1 To 6
a(i)=Int(Rnd()^*10)+1
If a(i) Mod 2◇i Mod 2 Theni=i-1
Next i
For i=1 To 5
For j=6 To i+2 Step-1

If a(j)<a(j-2) Then

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

End If

Next j
Next i
执行程序后，a数组各元素可能是

A．1，2，3，4，5，6

B．1，0，3，6，5，8

C．3，2，7，6，11，8

D．2，1，4，3，10，9

（加试题）以下一段程序其功能是对数组a(下标范围为1 to n)中的数据进行升序排序，划线处应填入的正确语句是（    ） 
For i =   
For j = 2 To i
If a(j) > a(j - 1) Then
k = a(j): a(j) = a(j -1): a(j -1) = k
End If
Next j
Next i

A．n to 2 Step -1

B．2  to  n

C．n-1 to 1 Step -1

D．1 to n -1

将6名选手的歌唱比赛成绩存放在数组a中，如下表所示：

若按升序排列，采用冒泡排序算法自右向左进行比较和交换，那么完成前二轮的数据处理，比较的总次数为

A．10

B．4

C．9

D．5

如下VB程序段：
Dim a(1 To 8) As Integer
a(1) = 13: a(2) = 18: a(3) = 9: a(4) = 32
a(5) = 12: a(6) = 11: a(7) = 7: a(8) = 20
start = 1: k = 1
For i = start + 1 To 8
If a(i) < a(start) Then
k = k + 1
t = a(i): a(i) = a(k): a(k) = t
End If
Next i
t = a(start): a(start) = a(k): a(k) = t
For i = k + 1 To 8
List1.AddItem Str(a(i))
Next i
执行上面代码段后，列表框List1中依次输出的数组元素值为

A．322018	B．32122018
C．203218	D．321820