Вопрос по Microsoft Visual Basic(Программирование)

Question

Нужно написать программу, которая выводит числа Фибоначчи (аi=аi-1+аi-2): 1 1 2 3 5 8 13 21 34....
Не могу понять код этой программы, остальные программы сделал, ее не могу. Если можете, то помогите, хотя бы по примеру. Буду очень вам благодарен.

Работает, буду теперь думать) Спасибо 
большое!

Ангелика Дашкина · Accepted Answer

Function Fib(ByVal vs As Integer) As Integer 
Dim a As Integer, b As Integer, c As Integer 
a = 1 
b = 1 
c = 0 
While c < vs 
c = a + b 
a = b 
b = c 
Wend 
If c = vs Or vs = 1 Or vs = 0 Then 
Fib = True 
Else 
Fib = False 
End If 
End Function 
 
Private Sub Command1_Click() 
Dim s As Integer, i As Integer 
s = Text1.Text 
For i = 1 To s 
If Fib(i) Then 
Print i 
End If 
Next i 
End Sub