解答例
Private Sub CommandButton1_Click()
Dim w As Byte, i As Byte
w = 0
For i = 1 To 10
w = w + i
Next
Cells(6, 1) = "１＋２＋３＋４＋５＋６＋７＋８＋９＋１０の計算結果は？"
Cells(7, 1) = "その答えは"
Cells(7, 2) = w
End Sub
解説
大変難しいですね。
ですからコンピュータの動きを追ってみましょう。
です。
確かに、１＋２＋３＋４＋５＋６＋７＋８＋９＋１０が計算できていることがわかります。
さて、演習問題で練習しましょう。
以下の問題では２５６を越えることもありますので、
箱は、必要に応じて整数を入れる箱（Integer型）に変更してください。
演習問題①
３＋４＋５＋・・・＋８８
For文の変化の幅は、Stepをつけることによって変えることができます。
例えば、
For i =2 To 10 Step 2
・
・
・
Next
とするとiは、2→4→6→8→10と変化しながら同じことを繰り返します。
For i =5 To 1 Step -1
・
・
・
Next
とするとiは、5→4→3→2→1と変化しながら同じことを繰り返します。
演習問題②
２＋４＋６＋・・・＋１００
演習問題③
４＋７＋１０＋・・・＋３０１
演習問題④
１０００＋９９５＋９９０＋・・・＋５
（wの方は、合計がInteger型の限界値32,767を越えますので、
長整数型（Long型）の箱にしてください。）
