1. (2017·浙江模拟) 【加试题】有如下程序段，运行后A(10)=（   ）
Dim a(30) As Integer
a(1) = 1
a(2) = 1
i = 2
Do While i < 10
    i = i + 1
a(i) = a(i - 1) + a(i - 2)
Loop