Do While...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 1
w = w + i
i = i + b
If w + i > o Then Exit Do
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 1
w = w + i * i
i = i + b
If w + i * i > o Then Exit Do
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 1
w = w + i * i * i
i = i + b
If w + i * i * i > o Then Exit Do
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 1
w = w + i * i * i * i
i = i + b
If w + i * i * i * i > o Then Exit Do
Loop
Cells(12, 4) = w
End Sub
強制終了を使って、終了させることも出来ますが、次のように組んでも結果は同じです。
'１乗の和の計算
Sub f1(h As Long, o As Long, b As Long)
Dim i As Long, w As Long, a As Byte
w = 0
i = h
a = 1
Do While a
w = w + i
i = i + b
If w + i > o Then a = 0
Loop
Cells(9, 4) = w
End Sub
これでFor文以外の様々なループ文の学習は終わりとし、
第10講では、Subプロシージャの再帰的使用について学習します。
第７話へ 第１０講第１話へ
