有如下 VB 程序段：

a(1) = 10

For i = 2 To 10

    a(i) = 0

    If i Mod 2 = 1 Then

        a(i) = a(i \ 2) + a(i － 1)

    Else

        a(i) = a(i) + 1

    End If

Next i

该程序段执行后，数组元素a(7)的值是(  )

A、2

B、10 

C、11

D、12