2015年5月2日土曜日

フィボナッチ数

1から100番目までのフィボナッチ数をセルに書き出すコードをひねらず率直に書いてみた。

Sub Fibonacci()

    a = 1
    b = 1

    For i = 1 To 100

        Select Case i
            Case 1
                c = a
            Case 2
                c = b
            Case Else
                c = a + b
                a = b
                b = c
        End Select

        Cells(i, "A").Value = c

    Next i

End Sub

まぁ、エクセルの場合ワークシートに数式を書いたほうが全然簡単なんですけどね…。(^_^;)

0 件のコメント:

コメントを投稿