座席（ログオン操作を行ってください）

Visual Basic 6
繰り返し処理（２）
目次
繰り返し処理とは
Do…Loopステートメント
繰り返し処理とは？
同じ処理を指定回数（またはある条件を満た
している間）繰り返し実行すること
指定回数繰り返す場合
For…Nextステートメントを利用する
条件を満たしている間繰り返す場合
Do…Loopステートメントを利用する
For…Nextステートメント（復習）
 5回同じメッセージボックスを表示する場合
 Dim a As Integer
For a = 1 To 5
MsgBox (a)
Next
 次のように変更すると、結果はどうなりますか？
 Dim a As Integer
For a = 1 To 5 Step 2
MsgBox (a)
Next
※Stepを使用すると、指定した数値ずつ値が変化するよう
になる
Do…Loopステートメント
 5回メッセージボックスを表示する場合
Dim a As Integer
a = 1
Do While a <= 5
MsgBox(a)
a = a + 1
Loop
 5回メッセージボックスを表示する場合
Dim a As Integer
a = 1
Do Until a > 5
MsgBox(a)
a = a + 1
Loop
 違いは何ですか？
Do While … Loop（～の間実行する）
 構文
Do While 条件式
処理①
処理②
:
Loop
条件式が正しい間、Do … Loopの中に書かれた処理を
順番に繰り返し実行する
条件式が正しくなくなると、繰り返し処理は終了する
 確認
前スライドのプログラムで、条件式を変更すると動きはど
うなりますか？
Do Until … Loop（～まで実行する）
 構文
Do Until 条件式
処理①
処理②
:
Loop
条件式が正しくない間、Do … Loopの中に書かれた処理
を順番に繰り返し実行する
条件式が正しくなると、繰り返し処理は終了する
 確認
前スライドのプログラムで、条件式を変更すると動きはど
うなりますか？
Do Until … Loopを使用した例
正しい値を入力するまで終わらないプログラ
ムを作成する
乱数を利用したプログラム
乱数を利用すると、ゲーム性が増します。
Rnd()関数：０～１の間の小数を返す関数
10倍しているので、０～１０の間の小数を返す
Round関数を利用すると、小数点以下を丸める
課題
 5月に学習した次の内容を盛り込んでプログラミング
を行ってください。
必ず盛り込むもの
変数
いずれか１つ盛り込むもの
Ifステートメント
For … Nextステートメント
Do … Loopステートメント
 今までに作成した作品を加工したものでもかまいま
せん。自分なりに何ができるか考えて、作業を行っ
てください。

Download Report