msgbox"ようこそ、面白お札ゲームへ!このゲームは、1文字づつひらがなやカタカナを入れ分を作っていって、最終的にシャッフルでむちゃむちゃにするというものです。やってみましょう！",64,"面白お札ゲーム"
msgbox"次々とボックスが出てきますから、4文字の分を10個考えて入力します。そしたら、私が其の分のカードをめちゃくちゃに混ぜます。面白いことになりますよ。基本的にカタカナを使ったほうがパソコンが変な読み方をしないのでいいと思います。何も入力しないと、自動で分を補正します。スタートですよ頑張ってください！。",64,"やりかた"
q1m1=inputbox("文字入力","言葉1/1")
q1m2=inputbox("文字入力","言葉1/2")
q1m3=inputbox("文字入力","言葉1/3")
q1m4=inputbox("文字入力","言葉1/4")

q2m1=inputbox("文字入力","言葉2/1")
q2m2=inputbox("文字入力","言葉2/2")
q2m3=inputbox("文字入力","言葉2/3")
q2m4=inputbox("文字入力","言葉2/4")

q3m1=inputbox("文字入力","言葉 3/1")
q3m2=inputbox("文字入力","言葉 3/2")
q3m3=inputbox("文字入力","言葉 3/3")
q3m4=inputbox("文字入力","言葉 3/4")

q4m1=inputbox("文字入力","言葉 4/4")
q4m2=inputbox("文字入力","言葉 4/2")
q4m3=inputbox("文字入力","言葉 4/3")
q4m4=inputbox("文字入力","言葉 4/4")

q5m1=inputbox("文字入力","言葉 5/1")
q5m2=inputbox("文字入力","言葉 5/2")
q5m3=inputbox("文字入力","言葉 5/3")
q5m4=inputbox("文字入力","言葉 5/4")

q6m1=inputbox("文字入力","言葉 6/1")
q6m2=inputbox("文字入力","言葉 6/2")
q6m3=inputbox("文字入力","言葉 6/3")
q6m4=inputbox("文字入力","言葉 6/4")

q7m1=inputbox("文字入力","言葉 7/1")
q721=inputbox("文字入力","言葉 7/2")
q7m3=inputbox("文字入力","言葉 7/3")
q7m4=inputbox("文字入力","言葉 7/4")

q8m1=inputbox("文字入力","言葉 8/1")
q8m2=inputbox("文字入力","言葉 8/2")
q8m3=inputbox("文字入力","言葉 8/3")
q8m4=inputbox("文字入力","言葉 8/4")

q9m1=inputbox("文字入力","言葉 9/1")
q9m2=inputbox("文字入力","言葉 9/2")
q9m3=inputbox("文字入力","言葉 9/3")
q9m4=inputbox("文字入力","言葉 9/4")

q10m1=inputbox("文字入力","言葉 10/1")
q10m2=inputbox("文字入力","言葉 10/2")
q10m3=inputbox("文字入力","言葉 10/3")
q10m4=inputbox("文字入力","言葉 10/4")

msgbox"お疲れ様でした。イマ入力していただいたカタカナを順番関係なくシャッフルします。エンターキーを押すと処理を開始します。処理に時間がかかることがありますが、10秒かからないと思いますからお待ちください。",64,"入力終了"

if q1m1 = "" then q1m1="ク"
if q1m2 = "" then q1m2="ロ"
if q1m3 = "" then q1m3="ネ"
if q1m4 = "" then q1m4="コ"

if q2m1 = "" then q2m1="サ"
if q2m2 = "" then q2m2="ッ"
if q2m3 = "" then q2m3="カ"
if q2m4 = "" then q2m4="ー"

if q3m1 = "" then q3m1="ド"
if q3m2 = "" then q3m2="ラ"
if q3m3 = "" then q3m3="ゴ"
if q3m4 = "" then q3m4="ン"

if q4m1 = "" then q4m1="ス"
if q4m2 = "" then q4m2="タ"
if q4m3 = "" then q4m3="ン"
if q4m4 = "" then q4m4="プ"

if q5m1 = "" then q5m1="カ"
if q5m2 = "" then q5m2="ナ"
if q5m3 = "" then q5m3="ヅ"
if q5m4 = "" then q5m4="チ"

if q6m1 = "" then q6m1="ポ"
if q6m2 = "" then q6m2="ケ"
if q6m3 = "" then q6m3="モ"
if q6m4 = "" then q6m4="ン"

if q7m1 = "" then q7m1="メ"
if q7m2 = "" then q7m2="ン"
if q7m3 = "" then q7m3="ツ"
if q7m4 = "" then q7m4="ユ"

if q8m1 = "" then q8m1="ジャ"
if q8m2 = "" then q8m2="ガ"
if q8m3 = "" then q8m3="イ"
if q8m4 = "" then q8m4="モ"

if q9m1 = "" then q9m1="サ"
if q9m2 = "" then q9m2="ー"
if q9m3 = "" then q9m3="ベ"
if q9m4 = "" then q9m4="ル"

if q10m1 = "" then q10m1="ゴ"
if q10m2 = "" then q10m2="ー"
if q10m3 = "" then q10m3="ル"
if q10m4 = "" then q10m4="ド"






msgbox"あぁ、疲れたなぁ。シャッフルが終わりましたんで、早速見てみたいと思いますぅ。",64,"結果発表"
msgbox"" & q1m4 & q2m4 & q3m4 & q4m4 & "",64,"結果1"
msgbox"" & q1m1 & q2m1 & q3m1 & q4m1 & "",64,"結果2"
msgbox"" & q5m4 & q6m4 & q7m4 & q8m4 & "",64,"結果3"
 msgbox"" & q5m1 & q6m1 & q7m1 & q8m1 & "",64,"結果4"
msgbox"" & q9m1 & q9m4 & q10m1 & q10m4 & "",64,"結果5"
msgbox"" & q1m3 & q2m3 & q3m3 & q4m3 & "",64,"結果6"
msgbox"" & q1m2 & q2m2 & q3m2 & q4m2 & "",64,"結果7"
msgbox"" & q5m3 & q6m3 & q7m3 & q8m3 & "",64,"結果8"
msgbox"" & q5m2 & q6m2 & q7m2 & q8m2 & "",64,"結果9"
msgbox"" & q9m3 &q10m2 & q9m2 & q10m3 & "",64,"結果10"


msgbox"楽しかったですか?又遊んでねえ!ばいばあい!"