お手軽！VBScriptを使ってみよう

PCにWindowsが入ってるだけで使える、
お手軽なプログラム言語「VBScript」を
便利に使いこなそう。

HOME

サンプルプログラム - サイコロ

サイコロ

1～6までの数字をランダムで表示するサイコロのプログラムです。

**サイコロのプログラム**
Randomize msg = "サイコロを振りますか？" do while MsgBox(msg, vbYesNo) = vbYes r = Int(Rnd * 6) + 1 msg = r & " がでました" & chr(13) & "もう一度、サイコロを振りますか？" loop

■　操作方法

プログラムを実行すると「サイコロを振りますか？」と表示されるので、「はい(Y)」か「いいえ(N)」どちらかのボタンをクリックしてください。

「はい(Y)」ボタンをクリックする度に1～6までの数字がランダムで表示されます。

「いいえ(N)」ボタンをクリックするとプログラムが終了します。

■　プロラムの解説

Rnd関数とInt関数を使って1～6までの数字をランダムで発生させています。

MsgBox関数で「サイコロをふりますか？」のメッセージとランダムで発生させた数字、そして、「はい(Y)」ボタンと「いいえ(N)」ボタンを表示しています。

MsgBox関数で「はい(Y)」ボタンがクリックされている間は、Whileでループを繰り返しています。また、「いいえ(N)」ボタンがクリックされるとWhileのループを抜けてプログラムを終了します。

表示させるメッセージは、初回と2回目以降は別のメッセージを表示させる必要があるので、あらかじめメッセージをmsg変数に格納してからMsgBox関数に渡すようにしています。