�C解答

Private Sub CommandButton1_Click()

　　　　Dim wa As Integer, i As Integer

　　　　wa＝０
　　　　For i = 4 To 304　Step 3

　　　　　　　　wa = wa + i
　　　　Next

　　　　Cells(6, 1) = wa

End Sub