【ExcelVBA公開模試】1日1歩、3日で3歩、3歩進んで2歩下がる

文法を無視して、とりあえず動けばいいという邪道ExcelVBA講座こと「速読VBA単語」に準拠した問題を出題します。

わえなび速読VBA単語【邪道ExcelVBA基本講座】｜わえなび VBA｜note

問題

「1日1歩、3日で3歩、3歩進んで2歩下がる」とは、1968年に発売された水前寺清子の曲「三百六十五歩のマーチ」の歌詞である。

直線的な道路上で1日1歩動くものとすると、3歩進んで2歩下がるまでにあわせて5日かかる。前進も後退も歩幅を1ｍとした場合、100ｍ先の地点に到達するのは何日後かを求めたい。次の図のように、セルA2以降に、100ｍ地点に達するまでの経過日数とスタート地点からの距離を求めなさい。

わえなび式 正解例

（このページの下にあります）

目標回答時間

プロ2分以内、アマチュア10分以内に処理ができたら合格

この問題の出題範囲

「速読VBA単語」Program3-9まで

わえなび式ExcelVBA公開模試（無料） - Program3_8｜わえなび VBA｜note

ご案内

ExcelVBAをなんとなく理解できればいいという初心者のための「速読VBA単語」を受講希望の方はカリキュラムをご覧ください。

正解例

100ｍ先の地点に到達するのは488日後（(100-3)*5+3）です。

Sub moshi()
    chiita = 0
    walk = Array(1, 1, 1, -1, -1)
    i = 1
    goal = 0
    Do While goal = 0
        chiita = chiita + walk((i - 1) Mod 5)
        Cells(i + 1, 1) = i
        Cells(i + 1, 2) = chiita
        If chiita >= 100 Then goal = 1
        i = i + 1
    Loop
End Sub

バックナンバー

わえなび式ExcelVBA公開模試（無料）｜わえなび VBA｜note