第７講 Ｄｏ Ｗｈｉｌｅ～Ｌｏｏｐ文（繰り返し処理２）
第２話 Ｄｏ Ｗｈｉｌｅ～Ｌｏｏｐ文問題解答例
問題① １０＋１１＋１２＋・・・＋２００ の解答例
Private Sub CommandButton1_Click()
Dim wa As Integer, i As Integer
Cells(5, 1) = "１０から２００までの和"
wa = 0
i = 10
Do While i < 201
wa = wa + i
i = i + 1
Loop
Cells(6, 1) = wa
End Sub
解説
i = i + 1
これがないとｉは１０のままですから、
条件i < 201をいつまでもクリアできず、
wa = wa + iの処理が無限に繰り返されてしまいます。
このようなループになった場合、
無限ループといいます。
実行してもエクセルがうんともすんとも動かないときは、
無限ループになっている可能性があります。
そのときは、Ｅｓｃを押してプログラムの実行を止めて、
無限ループになっていないか確認しましょう。
プログラムではうっかりすると無限ループになってしまうことが多いですので、
無限ループにならないように注意が必要です。
問題② ５＋８＋１１＋・・・＋３０５ の解答例
Private Sub CommandButton1_Click()
Dim wa As Integer, i As Integer
Cells(5, 1) = "５＋８＋１１＋・・・＋３０５の答え"
wa = 0
i = 5
Do While i < 306
wa = wa + i
i = i + 3
Loop
Cells(6, 1) = wa
End Sub
問題③ ２＋４＋６＋・・・＋３００ の解答例
Private Sub CommandButton1_Click()
Dim wa As Integer, i As Integer
Cells(5, 1) = "２＋４＋６＋・・・＋３００の答え"
wa = 0
i = 2
Do While i < 301
wa = wa + i
i = i + 2
Loop
Cells(6, 1) = wa
End Sub
問題④ ６＋１１＋１６＋・・・＋５５６ の解答例
Private Sub CommandButton1_Click()
Dim wa As Integer, i As Integer
Cells(5, 1) = "６＋１１＋１６＋・・・＋５５６の答え"
wa = 0
i = 6
Do While i < 557
wa = wa + i
i = i + 5
Loop
Cells(6, 1) = wa
End Sub
