第９話 数字の加工
１＋２＋３＋４＋５＋６＋７＋８＋９＋１０を考える手がかりを得るために、
１＋２＋３を考えてみましょう。
複雑な問題のヒントを考えるために、
単純化した問題を考える、
プログラミングだけでなく、分野を問わず有効な考え方ですね。
さて、１＋２＋３の計算をさせるのに、
Private Sub CommandButton1_Click()
Dim a As Byte, b As Byte, c As Byte
a = 1
b = 2
c = 3
Cells(6, 1) = "１＋２＋３の計算結果は？"
Cells(7, 1) = "1+2+3="
Cells(7, 2) = a + b + c
End Sub
というのが１つの答えです。
ですが、前話の最後の方に用意する箱は、
１つであると書いてあったことを思い出してください。
用意する箱を1つにして、このマクロを改善してください。
解答例は、例によって30行下です。
解答例
Private Sub CommandButton1_Click()
Dim w As Byte
w = 0
w = w + 1
w = w + 2
w = w + 3
Cells(6, 1) = "１＋２＋３の計算結果は？"
Cells(7, 1) = "1+2+3="
Cells(7, 2) = w
End Sub
『えっ？』
と感じている方、多いですよね。
そうです。
初心者には難しいところですので、解説しましょう。
尚、そんなの簡単だよと思った方もいらっしゃるかもしれませんが、そんな優秀な方も
後の同じことの繰り返し（ループ処理）につながる大事な考え方ですので、
以下を熟読してください。
最初の２行
Dim w As Byte
w = 0
については、特に疑問はないと思いますが、
３行目から５行目の
w = w + 1
w = w + 2
w = w + 3
には？？？の方も当然いらっしゃいますよね。
=が数学のイコールならw = w + 1なんてことあり得ません。
左辺のwを右辺に移項するなら、
w - w = 1 から 0 = 1 になってしまいます。
この話を聞いて、
第２講 文字を入れる箱を活用しよう
第６話 ＝の意味
の話を思い出した方多いのではないでしょうか。
そうです。
=は決してイコールではなく、むしろ←をイメージした方がよかったですよね。
w ← w + 1
つまり、
Dim w As Byte
w = 0
w = w + 1
w = w + 2
w = w + 3
でやっていること図にしますと、
