1~6までの数字をランダムで表示するサイコロのプログラムです。
Randomize msg = "サイコロを振りますか?" |
■ 操作方法
プログラムを実行すると「サイコロを振りますか?」と表示されるので、「はい(Y)」か「いいえ(N)」どちらかのボタンをクリックしてください。
「はい(Y)」ボタンをクリックする度に1~6までの数字がランダムで表示されます。
「いいえ(N)」ボタンをクリックするとプログラムが終了します。
■ プロラムの解説
Rnd関数とInt関数を使って1~6までの数字をランダムで発生させています。
MsgBox関数で「サイコロをふりますか?」のメッセージとランダムで発生させた数字、そして、「はい(Y)」ボタンと「いいえ(N)」ボタンを表示しています。
MsgBox関数で「はい(Y)」ボタンがクリックされている間は、Whileでループを繰り返しています。また、「いいえ(N)」ボタンがクリックされるとWhileのループを抜けてプログラムを終了します。
表示させるメッセージは、初回と2回目以降は別のメッセージを表示させる必要があるので、あらかじめメッセージをmsg変数に格納してからMsgBox関数に渡すようにしています。
]]>