有如下VB程序段: n=8 For i =1 To n d(i)= Int(Rnd * 10)+1 Next i For i= 2 To n-1 k= 1 For j= 1 To n-i If d(j)*k > d(j+2)* k Then temp = d(j): d(j)= d(j+2): d(j+2)= temp End If k = -k Next j Next i 执行该程序段后,d数组各元素可能是( )
A . 3,10,3,5,4,4,10,1
B . 0,3,4,5,6,6,7,8
C . 2,1,3,4,5,6,8,7
D . 6,4,5,6,5,7,1,10
答案:A