�B解答

Private Sub CommandButton1_Click()

　　　　Dim wa As Integer, i As Integer

　　　　wa＝０
　　　　For i = 1 To 99　Step 2

　　　　　　　　wa = wa + i
　　　　Next

　　　　Cells(6, 1) = wa

End Sub