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