下列VB程序段实现求双重数列0，2，1，4，1，6，2，8，3，10，5，12，8，……前n项中的奇数项和。

Dim a(1 To 100)As Integer

n=Val(Text1.Text)

a(1)=0：a(3)=1

s=1

Next i

Text2.Text=Str(s)

方框中的代码由以下三部分组成：

①a(i)=a(i-2)+a(i-4)
②s=s+a(i)

③For i=5 To n Step 2

代码顺序正确的选项是(  )

A、①②③

B、③②① 

C、②①③

D、③①②