2019年度 機械システム工学科 計算機基礎実習I

目次

  • 0.前回の課題の確認
  • 1.繰り返し
  • <今回の課題>

0.前回の課題の確認

前回のレポート情報は,こちらです.

1.繰り返し

Excel のVBA では,以下の繰り返しの命令が存在します.

  • For ~ Next
  • Do ~ Loop
  • While ~ Wend

For ~ Next

ループ変数(通常,i,j,k...が使われる)を用意し, その変数が,初期値から終了値まで変化する間, For と Next の間の文が繰り返されます.

Dim i as Integer
For i = 1 to 10
  MsgBox i
Next i

例題6

  • 例題6aの入力と実行.
  • 例題6bの入力と実行.

ここまでできた

Do ~ Loop,While ~ Wend

条件を(満たすまで/満たす間),Do と Loop の間の文が繰り返されます.

条件をDo 文に書くことも,Loop 文に書くことも可能です. 最初から条件を満たしている場合に,「文」を実行するか否かの 違いがあります.

例題7

  • 例題7の入力と実行.

ここまでできた
  • 余力のある人は,以下の課題に挑戦してみましょう.
  • プレイヤーの入力した回数を数え,結果を画面に表示します. さらに,その入力回数に応じて,メッセージを出しましょう.

    • 回数を数える整数型の変数を用意します.Dim counter as integer
    • 変数を初期化します.counter = 0
    • 入力するたびに,回数を増やします.counter = counter + 1
    • 結果を表示します.MsgBox counter
    • 成績に応じたコメントを表示します.Select Case counter

    ここまでできた

途中でループを抜け出る方法

Exit For や,Exit Do で,For 文,Do 文を強制終了します.

繰り返し条件を無視して終了するので,うまい事使わないと プログラムが見にくくなります.

よくある使い方は,無限ループを作ってExit 文で抜ける場合や, 全パターンをしらみつぶしに探し答えが見つかったときにExit 文で 抜ける場合などです.

ループの原則

「For」のみや,「Next」のみの存在は不可能です.

対応がしっかり組み合わさっていれば,入れ子構造も可能です.

例題8

  • 「例題8」の入力と実行.

ここまでできた

今回の課題

  • p.44-45 のEXERCISE の答えをメールで提出しなさい.
  • 例題7の課題ができた人は,それも一緒に提出しましょう.

[提出方法]

  • 〆切:6月21日20時まで.
  • 提出アドレス:kikai@elec.ryukoku.ac.jp
  • 件名(Subject):Report8 (半角英字)