Private Sub CommandButton1_Click()
Dim w As Integer
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(5, 4) = w
End Sub
Private Sub CommandButton2_Click()
Cells(5, 4).Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
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
の部分の動きを追ってみましょう。
動きを追うことをトレースするといいます。
この言葉を是非覚えてください。
以下
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は５５
で確かに１＋２＋３４＋５＋６＋７＋８＋９＋１０＝５５の計算が出来ています。
しかし、
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
は余りにも芸がありません。
同じ事を人間が繰り返しているからです。
実は、For文を使えば、
これは
For i = 1 To 10
w = w + i
Next
で実現できます。これは
iを１から１０まで変化させながら、w = w + iを１０回繰り返せの命令なのです。
したがって、For文を使うとコードは、
Private Sub CommandButton1_Click()
Dim w, i As Integer
w = 0 '初期化
For i = 1 To 10
w = w + i
Next
Cells(5, 4) = w
End Sub
さて、これを参考に第１話でダウンロードした
１から与えられた数までの和の実行コードを完成させてください。
第１話へ 第３話へ
