REM *** じゃんけんぷろぐらむ ***
randomize
Dim win
Dim draw
Dim lose
win = 0
draw = 0
lose = 0

if msgbox("じゃんけんげーむへようこそ。" & Chr(13) & "はじめる?",4,"じゃんけんげーむ") = 6 then
    Dim num
    num = int(inputbox("何回する?","じゃんけんげーむ","3"))
    if num < 1 then
        msgbox "1回以上の数を入力してね。" & Chr(13) & "今回は3回に設定します。"
        num = 3
    end if

    for i = 1 to num
        Dim janken
        janken = int(inputbox(i & "回目" & Chr(13) & "何を出す?" & Chr(13) & "1:ぐー、2:ちー、3:ぱー","じゃんけんげーむ","1"))
        if (janken = 1) or (janken = 2) or (janken = 3) then
            Dim com
            com = rnd()
            if janken = 1 then
                if com < 0.3333 then
                    msgbox "こんぴゅーたはぐーを出した。" & Chr(13) & "引き分け。(;-_-)"
                    draw = draw + 1
                elseif com < 0.6666 then
                    msgbox "こんぴゅーたはちーを出した。" & Chr(13) & "勝ち! (^v^)v"
                    win = win + 1
                else
                    msgbox "こんぴゅーたはぱーを出した。" & Chr(13) & "負け。((+_+))"
                    lose = lose + 1
                end if
            elseif janken = 2 then
                if com < 0.3333 then
                    msgbox "こんぴゅーたはぐーを出した。" & Chr(13) & "負け。((+_+))"
                    lose = lose + 1
                elseif com < 0.6666 then
                    msgbox "こんぴゅーたはちーを出した。" & Chr(13) & "引き分け。(;-_-)"
                    draw = draw + 1
                else
                    msgbox "こんぴゅーたはぱーを出した。" & Chr(13) & "勝ち! (^v^)v"
                    win = win + 1
                end if
            else
                if com < 0.3333 then
                    msgbox "こんぴゅーたはぐーを出した。" & Chr(13) & "勝ち! (^v^)v"
                    win = win + 1
                elseif com < 0.6666 then
                    msgbox "こんぴゅーたはちーを出した。" & Chr(13) & "負け。((+_+))"
                    lose = lose + 1
                else
                    msgbox "こんぴゅーたはぱーを出した。" & Chr(13) & "引き分け。(;-_-)"
                    draw = draw + 1
                end if
            end if
        else
            msgbox "1か2か3を指定しなかったので今回は負けとなりました。"
            lose = lose + 1
        end if
    next

    msgbox "結果あなたは" & num & "回中" & win & "回勝ちました。" & Chr(13) & "勝率は" & int(win/num*100) & "%です。",0,"じゃんけんげーむ"
else
    msgbox "終了します。",0,"じゃんけんげーむ"
end if