C解答

Private Sub CommandButton1_Click()

    Dim wa As Integer, i As Integer

    wa=0
    For i = 4 To 304 Step 3

        wa = wa + i
    Next

    Cells(6, 1) = wa

End Sub