Excel スタンダード 問題 3 – 4

マクロ「Test1」とマクロ「Test2」は、同じ実行結果になるプログラムである。このとき、【 1 】に入る適切な内容を答えなさい。

Sub Test1()

    Dim i As Long, A As Long

    i = 1

    Do While Cells(i, 1) <> ""

        A = A + Cells(i, 1)

        i = i + 1

    Loop

    MsgBox A

End Sub

Sub Test2()

    Dim i As Long, A As Long

    i = 1

    Do【 1 】Cells(i, 1) = ""

        A = A + Cells(i, 1)

        i = i + 1

    Loop

    MsgBox A

End Sub

正解を見る