前話問題解答例
Private Sub CommandButton1_Click()
Dim w As Long, i As Integer
w = 0
Dim a As Integer, b As Integer, c As Integer
a = Cells(6, 2)
b = Cells(7, 2)
c = Cells(8, 2)
For i = a To b Step c
w = w + i
Next
Cells(9, 1) = "のときの和"
Cells(9, 2) = w
End Sub
Private Sub CommandButton2_Click()
Range("B6:B8").Select
Selection.ClearContents
Range("A9:B9").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
さらに改良して、
としてください。１乗の和、２乗の和、３乗の和、４乗の和とはそれぞれ
（２＋７＋１２＋・・・＋３２）
（２の２乗＋７の２乗＋１２の２乗＋・・・＋３２の２乗）
（２の３乗＋７の３乗＋１２の３乗＋・・・＋３２の３乗）
（２の４乗＋７の４乗＋１２の４乗＋・・・＋３２の４乗）です。Long型にしても、大きすぎる値にするとオーバーフローしますので、
小さめに入力してください。
