第７話 Do...Loop Until文による様々な計算
未入力の場合
をDo...Loop Until文で実現するプログラム例
Private Sub CommandButton1_Click()
Range("C6").Select
Selection.ClearContents
Dim m As Long, n As Long, h As Long
If Cells(4, 2) = "" Or Cells(5, 2) = "" Or Cells(6, 2) = "" Then
Cells(6, 3) = "入力欄をすべて埋めてから再び実行ボタンを押してください。"
GoTo tobi
End If
m = Cells(4, 2)
n = Cells(5, 2)
h = Cells(6, 2)
Cells(7, 6) = f1(m, n, h)
Cells(8, 6) = f2(m, n, h)
Cells(9, 6) = f3(m, n, h)
Cells(10, 6) = f4(m, n, h)
tobi:
Cells(1, 1).Select
End Sub
Function f1(m As Long, n As Long, h As Long)
Dim w As Long, i As Long
i = m
Do
w = w + i
i = i + h
Loop Until i > n
f1 = w
End Function
Function f2(m As Long, n As Long, h As Long)
Dim w As Long, i As Long
i = m
Do
w = w + i * i
i = i + h
Loop Until i > n
f2 = w
End Function
Function f3(m As Long, n As Long, h As Long)
Dim w As Long, i As Long
i = m
Do
w = w + i * i * i
i = i + h
Loop Until i > n
f3 = w
End Function
Function f4(m As Long, n As Long, h As Long)
Dim w As Long, i As Long
i = m
Do
w = w + i * i * i * i
i = i + h
Loop Until i > n
f4 = w
End Function
Private Sub CommandButton2_Click()
Range("B4:B6,F7:F11,C6").Select
Selection.ClearContents
Range("A1").Select
End Sub
参考ダウンロード添付ファイル
Untilの場合でも、今回の課題では前判断と後判断の違いがありませんでした。
WhileでもUntilでもいかなる場合に違いが出てくるのでしょうか。
第４話で作った前判断（Do While文）の添付ファイルと
第５話で作った後判断（Do...Loop While文）の添付ファイル
のそれぞれのファイルを開いて、
シートに
と入力して実行ボタンを押して下さい。すると、
