有如下VB程序段：

For i = 1 To 6

a(i) = Int(Rnd * 10) + 1

Next i

For i = 2 To 6

If i Mod 2 = 0 And a(i)>a(i-1) Then

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

Else

a(i)=a(i)-1

End If

Next i

执行程序后，数组元素a(1)到a(6)的值可能是(  )

A、11，1，7，5，4，3,

B、5，3，6，4，0，2

C、10，9，8，0，5，2

D、9，8，1，1，5，4