برنامه ای بنویسید که جمله n ام سری فیبوناچی را محاسبه نموده

برنامه ای بنویسید که جمله n ام سری فیبوناچی را محاسبه نموده

S=1,1,2,3,5,8,…n

Private Sub Command3_Click()

' s=1,1,2,3,5,8,13,...n

n = Val(InputBox(""))

s2 = 1

s = 1

Print s;

For i = 1 To n - 1

s = s1 + s2

s1 = s2

s2 = s

Print s;

Next i

End Sub