実は、シートに次のように入力して実行ボタンを押すと前判断と後判断で処理結果に違いが出てきます。
前判断のときは、
後判断のときは、
なぜ、違いが出てくるのでしょうか。
前判断の場合は、
w = 0
i = h
Do While w < o
w = w + i
i = i + b
Loop
１０ ＜＝３ ですから、条件式は偽です。
条件式が真のときのみ処理を実行しますから、
１回も処理されずDo文は終了となってしまいます。
それに対して、後判断の場合は
w = 0
i = h
Do
w = w + i
i = i + b
Loop While w < o
判断をするのは、処理が終了してからですから、１回は処理することになります。
つまり、条件式がはじめから偽であるとき、前判断では１回も処理されないのに対して、
後判断では、条件式が偽であっても１回は処理されるのです。
ですから、偽であっても１回は処理をさせたい場合に後判断を使います。
シートを少し変更して、
合計上限値を超えない範囲で合計させるように課題を変更します。
例えば、はじめの値が１、合計上限値が１００、変化の幅が１なら、
１＋２＋３＋・・・の計算を合計が１００を超えない範囲で行わせるということです。
どのようにコードを変更したらよいでしょうか。
３０行下にうっかり勘違いしやすいコード例をあげます。皆さん、正しい答えが出るように考えましょう。
課題は、While文、Do While...Loop文、Do... While Loop文、Do Until...Loop文、Do... Until Loop文の６通り考えてみましょう。
うっかりしやすいコード例
Private Sub CommandButton1_Click()
Dim h As Long, o As Long, b As Long
h = Cells(5, 2)
o = Cells(6, 2)
b = Cells(7, 2)
f1 h, o, b '１乗の和の計算
f2 h, o, b '２乗の和の計算
f3 h, o, b '３乗の和の計算
f4 h, o, b '４乗の和の計算
End Sub
'１乗の和の計算
Sub f1(h As Long, o As Long, b As Long)
Dim i As Long, w As Long
w = 0
i = h
Do While w < o
w = w + i
i = i + b
Loop
Cells(9, 4) = w
End Sub
'２乗の和の計算
Sub f2(h As Long, o As Long, b As Long)
Dim i As Long, w As Long
w = 0
i = h
Do While w < o
w = w + i * i
i = i + b
Loop
Cells(10, 4) = w
End Sub
'３乗の和の計算
Sub f3(h As Long, o As Long, b As Long)
Dim i As Long, w As Long
w = 0
i = h
Do While w < o
w = w + i * i * i
i = i + b
Loop
Cells(11, 4) = w
End Sub
'４乗の和の計算
Sub f4(h As Long, o As Long, b As Long)
Dim i As Long, w As Long
w = 0
i = h
Do While w < o
w = w + i * i * i * i
i = i + b
Loop
Cells(12, 4) = w
End Sub
これで一見うまくいきそうですが、例えば
などでうまくいきません。なぜでしょうか。
第４話へ 第６話へ
