フィボナッチ数

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

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

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

ＮｉｊａＴ＠新下駄配列 現在のｋｐｍ

無シフト面のみ 253.54kpm
シフト面あり 185.80kpm

無シフト面で 240kpm 以上、シフト面ありで 180kpm 以上をコンスタントに出せるようになるのが当面の目標。(｀・ω・´)

タイプウェル＠新下駄配列 Ｂ到達！

タイプウェル＠新下駄配列 地味に更新

総合Ｂまではまだちょっとかかりそうだけど、ともかく全種目一位はやっぱり嬉しいです！

タイプウェル＠新下駄配列 Ｃ到達！

くはーーーっ、半年以上の停滞をやぶって久々の更新！

去年の年末に複数の配列でＳＪ以上とかなんとか、そんな目標を立てたのでこの停滞は想定の範囲内と言えばそうなんですが、さすがに半年以上の停滞は堪えましたよ。(^_^;)