VBでフィボナッチシリーズを開発する

Question

フィボナッチシリーズのコードをVBで記述しようとしていますが、私のシリーズのいくつかの値が正しくありません。誰かがコードを教えてくれますか？

以下は私が今までに持っているものです。

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

まあ、私はクイック検索を行なったし、私は結果の最初のカップルで、次のを思い付いた：

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

私はこの方法で古いですけど、私が問題にして可能性を考えますcompgeekがどのように関数を呼び出すのか。

の代わりに：

Call FibNumber(number) 

それは次のようになります。

Call FibNumber(x) 

Answer 3

私のソリューション：

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

これは、Javaの機能だし、私を信じて。フィボナッチは、この特定のバージョン よりもはるかに高速または複雑になることはありません。それは元の再帰的なものより約100倍速く動作するように最適化されています。

ヒント：パラメータの長さを拡張するには、maxNを変更する必要があります。たとえば あなたは0と199の間で入力番号にしたい場合は、あなたがやっていること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; 
}