VB編程數列求和。數列第壹項是0，第二項是1，以後各項都是前兩項的和。編寫函數求第N項的值。要考試了，急

'數列第壹項是0，第二項是1，以後各項都是前兩項的和

Dim a() As Integer

n = Val(InputBox("輸入整數N"))

ReDim a(n)

i = 3

a(1) = 0

a(2) = 1

Do

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

Print "a(" & i & ")=" & a(i)

i = i + 1

Loop While (i <= n)

End Sub