Рекурсивная функция для нахождения чисел Фибоначчи - VB

Формулировка задачи:

Здравствуйте. Нужно создать программу для нахождения числа Фибоначчи(вводишь с клавы порядковый номер, а выводит само число) с использованием рекурсивной функции.Покурив гугл и форум нашел много функций, но так и не понял как их использовать. Получилось сделать только так:

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Form1.Cls
a = 0
b = 1
c = 0
N = Val(Text1.Text)
For i = 1 To N
c = a + b
a = b
b = c
Next i
Print N; "-ому номеру соответствует число"; c
End Sub

Или объясните на пальцах, как пользоваться функциями. Благодарю

Решение задачи: «Рекурсивная функция для нахождения чисел Фибоначчи»

textual
                            Листинг программы 
                        
 
                        
                          
                    
        'рекурсивная функция вычисления числа Фибоначчи
              'вх параметры: номер числа , возвращаемое значение - число Фибоначчи
Function f(n As Integer) As Integer
If n <= 2 Then  
        f = 1
   Else               
     f = f(n - 1) + f(n - 2)
End If
End Function
 
Private Sub Command1_Click()
MsgBox f(10)
End Sub

Оцени полезность:

7 голосов , оценка 3.714 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы