20251205c1a

Visual Basicの練習問題１と回答例

（条件分岐：ｉｆ文）

練習問題１

さらに演習で作成したプログラムを改良して、以下のことを参考に表示を１つ増やしたプログラムを作成しなさい。

参考：条件の判定が連続する場合は，ElseIfを使って条件をつなげていくことができます．

If (　条件文１　) Then

条件文１が満たされるときに，実行されるコードの行

（次のＥｌｓｅＩｆというコードまでは，何行でもよい）

コード１

ElseIf (　条件文２　) Then

条件文１が満たされずに，条件文２が満たされるときに，実行されるコードの行

（次のＥｌｓｅというコードまでは，何行でもよい）

コード２

Else

条件文１と条件文２の両方が満たされないときに，実行されるコードの行

（次のEnd Ifというコードまでは，何行でもよい）

コード３

End If

「もし条件文１を満たすならば，コード1を実行し，それを満たずにもし条件文２を満たすならば，コード2を実行し，さらに，２つとも満たさなければ，コード3を実行しなさい」

となります．

以上のことを参考に先ほどの押しボタンのプログラムを改良し，“クリック”のボタンが押されたら，“実行中”とボタンに表示し，“実行中”のボタンが押されたら，“終　了”とボタンに表示するプログラムを作ってください．

プログラムがうまく動作しましたら，全てを保存で上書き保存をしてください．

回答例）

１）上記のプログラムをさらに改良して，ボタン（Ｂｕｔｔｏｎ1という名前）をクリックし，コードエディタウインドウを使って，以下のようにif文を３つの分岐に変更する

２）ツールバーの開始のボタン（メニューバーの“実行”の中の“開始”でもよい）を押し，プログラムを実行してみる．

“クリック”のボタン表示をクリックすると上記のような“実行中” のボタン表示となり，さらに“実行中”のボタン表示をクリックすると“終了” のボタン表示となり，“終了” ボタン表示をクリックすると“開始”のボタン表示状態に戻れば完成