up date:2000.10.30　荒井 良徳　

［TopPageに戻る］

［前回の授業のページ に戻る］ ［次回の授業のページ に進む］

６．描画と繰り返し(Do-Loop)参考；while-wend

• Do-Loop文
  
  • 条件による繰り返しの命令がDo-Loop文。
  For-Nextは回数が決められている場合の繰り返し。
  書き方は以下の通り。
  While-Wendと似ているが、必ず一度は処理が行われる点が大きく違う。
  Do
　　「繰り返したい処理」
Loop Until 「条件」
と書く。
  まず「処理」を行い、条件に満たない場合は、繰り返される。
  つまり条件があった場合（真になった場合）に、ループを脱出する。
  「繰り返したい処理」は正しいVBであれば何行でも構わない。
  条件はIF文などの場合と同じ。
  気をつけなければいけないのは、「繰り返したい処理」の中で、条件が いずれ満たされるように処理しなければいけない。
  また、DoとLoopの途中に、「Exit Do」という文を書く事ができる。
  通常これはIf文などの条件分岐の中で書かれ、これが実行されるとLoop条件に無関係に ループを脱出してしまう（緊急非難のようなもの）。
  
  
  • 例題「１から１０までの足し算」

  t = 0
  c = 0
  Do
      c = c + 1
      t = t + c
  Loop Until c >= 10
  

  （但し、これは例で本当はFor文の方がわかりやすくてよい。）
  このように自分でカウントアップなど条件に関して、設定／処理判断を行なわないといけない。また、カウントする変数ｃは最初０に初期化しておく必要がある。 ループの条件であるが、「c=10」でも勿論構わない。
  
  
  • 「例；６が出るまでさいころを振り続ける」
    

    c = 0
    Do
        c = c + 1
        dice = int( Rnd * 6 ) + 1
        text1.text = dice
    Loop Until dice = 6
    

    
    
  • 「例；６が出るまでさいころを振り続ける、但し２０回まで」
    

    c = 0
    Do
        c = c + 1
        dice = int( Rnd * 6 ) + 1
        text1.text = dice
        If c >= 20 Then
            Exit Do
        End If
    Loop Until dice = 6
    

    
    
  • 練習問題
  上記プログラムを改良して、二つのサイコロが同じ目になるまで 振り続け、その回数を表示するプログラムに直してみよう。
  但し上記同じ２０回までとする。
  
  

  ---

• While-Wend文
• 条件による繰り返しの命令がWhile-Wend文。
For-Nextは回数が決められている場合の繰り返し。
書き方は以下の通り。
While 「条件」
　　「繰り返したい処理」
Wend
「条件」が真（正しい）間はずっと繰り返す（ループする）。
回数が決まっていないが、何らかの条件が満たされている間ループしたい場合に用いる。
もし何回ループしているのかを知りたければ自分で用意しなければならない。 例えばwhileループ前にカウンタを０にしておき、ループ内でカウンタを一つずつ増やす 計算を行なうようにさせればよい。
「繰り返したい処理」の部分はVBであれば、何行でも、何でもよく、If-Thenだろうが For-Nextだろうが、ましてやWhile-Wendでもかまわない。
条件の書き方はIf文の時と全く同じ。注意すべきは、必ずしも「処理」行われない場合もあることである。 つまり、最初から条件が「真」にならなければ、「繰り返したい処理」は一度も実行されない。

• 例題「１から１０までの足し算」

t = 0
c = 0
While c <= 10
    c = c + 1
    t = t + c
Wend

（但し、これは例で本当はFor文の方がわかりやすくてよい。）
このように自分でカウントアップなど条件に関して、設定／処理判断を行なわないといけない。

• 練習問題while-1
• 年齢計算のエラーを防いでみよう！
  まず、年齢計算のプログラムを作ってみよう。つまり西暦で生まれた年を 入力してもらったら、今年何歳になるのかを計算して表示するプログラムである。
  この時にもし、計算結果つまり年齢が、もし０歳以下だったら、 繰り返して、生まれた年を聞いてくれるように直してみよう。
  


• 練習問題while-2
• ６の目が出るまでサイコロを振り続けよう
  サイコロを振って６の目が出るまで繰り返してみよう。
  ポイントは最初にサイコロの目を６以外にしておく必要があるということ。
  

［TopPageに戻る］

［前回の授業のページ に戻る］ ［次回の授業のページ に進む］