VBS(10)　乱数の利用/おみくじを作ろう

メニューに戻りたいときはここをクリック。

Lesson 1 乱数を使う

手順

• スタートメニューから Z:ドライブ（個人用）を開く
• 既に作成した、vbsというフォルダーを選択
• メニューから「ファイル → 新規作成 → テキストドキュメント」とする。
• 「新規テキストドキュメント.txt（拡張子が表示されていること！）」というファイルが作成されるので、保存したい名前に変更する。今回は vbs1001.vbs という名前に変更する。
  「拡張子を変更すると、ファイルが使えなくなる可能性があります。変更しますか？」と聞かれるのが「はい(Y)」と答えて良い。
• 今作成した vbs1001.vbs をデスクトップのメモ帳にドラッグ＆ドロップする。
• メモ帳が開いて編集できるようになったら、以下のように入力

  randomize
  x=rnd*10
  if x<2 then s="明日は良い日でしょう": title="吉"
  if x>=2 and x<9 then s="明日は普通の日でしょう":title="並"
  if x>=9 then s="明日は何かと気をつけろ":title="凶"
  msgbox s,,title
  

• 「ファイル -> 上書き保存」として保存する。メモ帳は閉じてかまわない。
• 保存された vbs1001.vbs をダブルクリックして実行する。
• 間違いがあれば、 vbs1001.vbs をデスクトップのメモ帳にドラッグ＆ドロップして編集しなおして、保存する。保存後に、もう一度 vbs1001.vbs をダブルクリックして実行してみること。

解説

• 上記はごく簡単な占いプログラムである。
• 乱数を使用するにはあらかじめ randomize を実行しておかなければならない。（一つのプログラム内では最初に一度だけ実行しておけばよい。）
• randomize によって乱数を初期化しておくと、 rnd 関数は 0 以上 1 未満の数のなかからデタラメに一つの数を作成する。
• x=rnd*10 とすれば 0 から 9.99999... の範囲内でデタラメに一つの数を作成し、その値を x に代入する。
• xには 0 から 9.9999... の範囲内の数がデタラメに一つ代入されている。 したがって、「if x<2 then ○○」という文は確率２０％で○○を実行するという意味になる。
• 同様に「if x>=2 and x<9 then ○○」という文は確率７０％で○○を実行するという意味になり、「if x>=9 then ○○」という式は確率１０％で○○を実行するという意味になる。

Lesson 2 （占い　その２）

手順

• スタートメニューから Z:ドライブ（個人用）を開く
• 既に作成した、vbsというフォルダーを選択
• メニューから「ファイル → 新規作成 → テキストドキュメント」とする。
• 「新規テキストドキュメント.txt（拡張子が表示されていること！）」というファイルが作成されるので、保存したい名前に変更する。今回は vbs1002.vbs という名前に変更する。
  「拡張子を変更すると、ファイルが使えなくなる可能性があります。変更しますか？」と聞かれるのが「はい(Y)」と答えて良い。
• 今作成した vbs1002.vbs をデスクトップのメモ帳にドラッグ＆ドロップする。
• メモ帳が開いて編集できるようになったら、以下のように入力

  randomize
  x=rnd*2
  if x<1 then 
  	a=int(rnd*20): b=int(rnd*20)
  	s="不合格！　こんな問題が解けないとはまだまだだね。"
  	n=inputbox(a & "*" & b & "=?","問題")
  	if n<>"" then if a*b-n=0 then s="合格です。本当の試験もがんばってください。"
  else
  	s="今は問題を出す気がしません。当然、不合格ですが、悪しからず。"
  end if
  msgbox s,,"試験占い"
  

• 「ファイル -> 上書き保存」として保存する。メモ帳は閉じてかまわない。
• 保存された vbs1002.vbs をダブルクリックして実行する。
• 間違いがあれば、 vbs1002.vbs をデスクトップのメモ帳にドラッグ＆ドロップして編集しなおして、保存する。保存後に、もう一度 vbs1002.vbs をダブルクリックして実行してみること。

解説

• int は小数点以下を切り捨てる関数である。 a=int(rnd*20)は、 rnd*20によって０以上２０未満の数をデタラメに発生させ、小数点以下を切り捨てることにより０から１９までの整数をデタラメに発生させている。
• このプログラムは確率１／２で問題も出さずに不合格を宣告し、確率１／２で問題を出題して正解なら合格を、不正解なら不合格を宣告する。

問題