前話問題解答例
Private Sub CommandButton1_Click()
Dim w As Long, i As Long
w = 0
Dim a As Long, b As Long, c As Long
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
w = 0
For i = a To b Step c
w = w + i * i
Next
Cells(10, 1) = "のときの２乗の和"
Cells(10, 2) = w
w = 0
For i = a To b Step c
w = w + i * i * i
Next
Cells(11, 1) = "のときの３乗の和"
Cells(11, 2) = w
w = 0
For i = a To b Step c
w = w + i * i * i * i
Next
Cells(12, 1) = "のときの４乗の和"
Cells(12, 2) = w
End Sub
Private Sub CommandButton2_Click()
Range("B6:B8").Select
Selection.ClearContents
Range("A9:B12").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
では次の問題です。次のように改良しましょう。
これは
４×６×８×１０
の計算結果です。
なら、１×２×３×・・・×１０を計算させています。
つまり、はじめの数から終わりの数まで与えれた幅で変化させながら、
かけていくように変更したいわけです。
ヒント w = 0 も修正します。
