某 VB 程序段如下：

Dim a（1 To 6）As Integer

Randomize

a(1)=Int（Rnd*2）+1

For i=2 To 6

  a(i)=Int（Rnd*i）*2+1

  If a(i)< a(i-1)Then

    a(i)= a(i)+ a(i-1)

  End If

Next i

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

A、2，4，6，8，10，12

B、1，1，3，7，12，23

C、2，5，9，11，10，15

D、1，3，15，16，20，23