Développement de la série Fibonacci dans VB

Question

J'essaye d'écrire un code pour la série Fibonacci dans VB, mais certaines des valeurs de ma série sont incorrectes. Quelqu'un peut-il m'aider avec le code?

Voici ce que j'ai jusqu'à présent.

Private Function FibNumber(number As Integer) As Integer 

    If (number > 2) Then 
     FibNumber = (FibNumber(number - 2) + FibNumber(number - 1)) 
    Else 
     FibNumber = 1 
    End If 

    End Function 

    Private Sub command1_click() 
    Dim x As Integer 
    x = Text1.Text 
    Call FibNumber(number) 

End Sub 

Answer 1

Eh bien, je fait une recherche rapide et je suis venu avec ce qui suit dans les deux premiers résultats:

Private Function FibNumber(number As Integer) As Integer 

If (number > 2) Then 
    FibNumber = (FibNumber(number - 2) + FibNumber(number - 1)) 
Else 
    FibNumber = 1 
End If 

End Function 

Answer 2

Je sais que c'est bien vieux, mais je pense que la question pourrait être avec comment compgeek appelle la fonction.

Au lieu de:

Call FibNumber(number) 

Il devrait être:

Call FibNumber(x) 

Answer 3

Ma solution:

Private Function FibNumber(number As Integer) As Integer 
    If (number > 2) Then 
     FibNumber = (FibNumber(number - 2) + FibNumber(number - 1)) 
    Else 
     FibNumber = 1 
    End If 
End Function 

Private Sub command1_click() 
    Dim x As Integer 
    x = Text1.Text 
    Call FibNumber(number) 
End Sub 

Answer 4

Il est une fonction Java, et croyez-moi; Fibonacci ne sera pas beaucoup plus rapide ou complexe que cette version particulière. Il est optimisé pour fonctionner environ 100 fois plus vite que l'original récursif. Conseil: Vous devrez peut-être modifier maxN pour augmenter la longueur du paramètre! Par exemple, si vous voulez entrer des chiffres entre 0 et 199, vous devez augmenter le maxn à 200

static final int maxN = 72; 
static long knownF[] = new long[maxN]; 

static long F(int i) { 
    if (knownF[i] != 0) { 
    return knownF[i]; 
    } 

    long t = i; 

    if (i < 0) { 
     return 0; 
    } 

    if (i > 1) { 
     t = F(i - 1) + F(i - 2); 
    } 

    return knownF[i] = t; 
}