« プーキーはきのこランドにマリオ退治にいきましたとさ | トップページ | ボルダリング、11ヶ月経過 »

2009年5月13日 (水)

今日のお昼ご飯を何にするか、ランダム生成するスクリプト

ちょっとしたリリースが終わって、今日はもう暇です。
そこで3分ほどかけて、お昼ごはんのメニューを出力するスクリプトを
作ってみました!
--------------------------------------------------------
Dim lunch(99)
lunch(0) = "魚定食"
lunch(1) = "ダイエットのため抜き"
lunch(2) = "カレーライス"
lunch(3) = "カレーライス"
lunch(4) = "カレーライス"
lunch(5) = "カレーライス"
lunch(6) = "カレーライス"
lunch(7) = "カレーライス"
lunch(8) = "カレーライス"
lunch(9) = "カレーライス"
lunch(10) = "カレーライス"
lunch(11) = "カレーライス"
lunch(12) = "カレーライス"
lunch(13) = "カレーライス"
lunch(14) = "カレーライス"
       ・
       ・
       ・
(途中略)

lunch(96) = "カレーライス"
lunch(97) = "カレーライス"
lunch(98) = "カレーライス"
lunch(99) = "カレーライス"

Randomize
MsgBox "今日のお昼は" & lunch(Int(Rnd() * 100)) & "にしましょう!"
------------------------------------------------------
これをお昼一緒に食いに行ってる人たちに配りました。
これで明日から毎日すごい確率で大好きなカレーが食えるぞ!!(゚∀゚)
我ながら素晴らしい案を思いついたもんだ!

皆さんもこれをテキストファイルにコピペして、名前を”lunch.vbs”とでもつけてください。
ダブルクリックするとあら不思議!

毎日すごい確率でカレーを食べに行くことができます!

|

« プーキーはきのこランドにマリオ退治にいきましたとさ | トップページ | ボルダリング、11ヶ月経過 »

コメント

コメントを書く



(ウェブ上には掲載しません)




トラックバック

この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/152924/45000022

この記事へのトラックバック一覧です: 今日のお昼ご飯を何にするか、ランダム生成するスクリプト:

« プーキーはきのこランドにマリオ退治にいきましたとさ | トップページ | ボルダリング、11ヶ月経過 »