�A解答

Private Sub CommandButton1_Click()

　　　　Dim wa As Integer, i As Integer

　　　　wa＝０
　　　　For i = 2 To 100　Step 2
　　　　　　　　wa = wa + i
　　　　Next

　　　　Cells(6, 1) = wa

End Sub