2005年09月06日

■VBS

チョロっとVBSのお勉強をしています。

勉強先で見つけた楽しいスクリプトをご紹介。
---------------------ここから--------------------
Kazu = 10
For i = 1 To 100
x = InputBox("残りは「" & Kazu & "」個です。あなたの取る数を入力してください。(1~3のいずれか)")
If x <= 0 Then
msgBox "取る数が少なすぎます。ルール違反で、あなたの負けです。"
Exit For
End If
If x > 3 Then
msgBox "取る数が多すぎます。ルール違反で、あなたの負けです。"
Exit For
End If
Kazu = Kazu - x
If Kazu = 1 Then
msgBox "残り1個となりました。あなたの勝ちです!"
Exit For
End If
If Kazu <= 0 Then
msgBox "あなたの負けです。残念でした!"
Exit For
End If
y = (Kazu - 1) mod 4
If y = 0 Then
y = 1
End If
msgBox "私は、「" & y & "」個とります。"
Kazu = Kazu - y
Next
---------------------ここまで--------------------

このテキストファイルを"mondai.vbs"という名前で任意のフォルダに保管してみてください。
そのファイルを実行するとスクリプトが実行されます。

ルールは最後の一個を誰が取るか?コンピュータと貴方の真剣勝負です。
さて、コンピュータに勝てるでしょうか?

Windows Scripting Host教室

Posted by ara at 2005年09月06日 12:58
トラックバックURL

このエントリーのトラックバックURL:
http://nonohibifubu.com/mt/mt-tb.cgi/893

コメント
コメントしてください

名前に全角の文字を含んで頂く必要があります。何も入れる文字が無い場合は★でも可です。



保存しますか?