Private Sub CommandButton1_Click()
Dim w As Byte
w = 0
w = w + 1
w = w + 2
w = w + 3
w = w + 4
w = w + 5
w = w + 6
w = w + 7
w = w + 8
w = w + 9
w = w + 10
Cells(6, 1) = "１＋２＋３＋４＋５＋６＋７＋８＋９＋１０の計算結果は？"
Cells(7, 1) = "その答えは"
Cells(7, 2) = w
End Sub
解説
以下
w←w+4から６＋４でwは１０
w←w+5から１０＋５でwは１５
w←w+6から１５＋６でwは２１
w←w+7から２１＋７でwは２８
w←w+8から２８＋８でwは３６
w←w+9から３２＋９でwは４５
w←w+10から４５＋１０でwは５５
これで一応１＋２＋３＋４＋５＋６＋７＋８＋９＋１０の計算はできましたが、
上のプログラムは、あまりにも芸のないプログラムです。
同じようなことを10回も繰り返しているからです。
同じことの繰り返しは、人間がすべきものではなく、
コンピュータにやらせるべきです。
そこで、第４講のテーマは、同じことの繰り返し（For文＝ループ処理）となるわけです。
