vb裴波那契数列

Private Sub Command1_Click()
a = 1
b = 1
sum = 2
For i = 3 To 20
t = a + b
a = b
b = t
sum = sum + b
Next i
Text1.Text = "第20项为" & b & " 和为" & sum
End Sub

1、1、2、3、5、8。。。an=a(n-1)+a(n-2) n>2
数列的每一项等于前两项的和。

an=1, n=1
an=1, n=2
an=a(n-1)+a(n-2) n>2

你是不是想问问怎么用VB程序表示这个数列啊。
1、1、2、3、5、8。。。
数列的每一项等于前两项的和。
an=a(n-1)+a(n-2) n>2
Private Sub Command1_Click()
a = 1
b = 1
sum = 2
For i = 3 To 20
t = a + b
a = b
b = t
sum = sum + b
Next i
Text1.Text = "第20项为" & b & " 和为" & sum
End Sub