さいころを1個か2個振ります。


【実行画面】




< VBScript >

rem さいころ    by Shimizu
do

    res = MsgBox("さいころは二つですか?" & vbCR &_
        "二つなら「はい」、一つなら「いいえ」",_
        35,"さいころを振りましょう!")

    Randomize

    'キャンセルで終了
    if res = 2 then
        exit do

    'さいころ一つ
    elseif res =7 then
        MsgBox Int(6*Rnd+1),64

    'さいころ二つ
    elseif res = 6 then
        MsgBox Int(6*Rnd+1) & " と " & Int(6*Rnd+1),64

    end if

loop




戻る