W杯シミュレーション

W杯の抽選がシミュレーション出来る模様。
コピペして貼っときます。

pot1="ドイツ,ブラジル,スペイン,メキシコ,イングランド,アルゼンチン,イタリア,フランス"

pot2="チェコ,オランダ,ポルトガル,スウェーデン,スイス,クロアチア,ポーランド,ウクライナ,セルビア・モンテネグロ"

pot3="アメリカ,コスタリカ,トリニダード・ドバコ,日本,イラン,韓国,サウジアラビア"

pot4="トーゴ,ガーナ,コートジボワール,アンゴラ,チュニジア,エクアドル,パラグアイ,オーストラリア"

dim ary1,ary2,ary3,ary4

randomize

ary1=split(pot1,",")

ary2=split(pot2,",")

ary4=split(pot4,",")

swapary ary1

swapary ary2

pot3=pot3&","&ary2(8)

ary3=split(pot3,",")

swapary ary3

swapary ary4

for m=0 to 7

msg=msg & ary1(m)&"　"&ary2(m)&"　"&ary3(m)&"　"&ary4(m) & chr(13)

next

msgbox msg

sub swapary(byref ary)

dim tary

tary=ary

uidx=ubound(ary)

tuidx=uidx

for i=0 to uidx

a=int*1

*1:tuidx - 0 + 1) * rnd + 0) k=0 for j=0 to uidx if ary(j)<>"" then k=k+1 if k-1=a then tary(i)=ary(j) ary(j)="" exit for end if next tuidx=tuidx-1 next ary=tary end sub 〜やり方〜 メモ張にコピペして「抽選.vbs」と名前をつけて保存。保存したファイルをダブルクリックすると抽選がシミュレーション出きる。 試しにしてみたら イタリア、チェコ、コスタリカ、トーゴ イングランド、ウクライナ、日本、エクアドル スペイン、ポルトガル、トリニダード・トバゴ、コートジボワール ドイツ、クロアチア、スイス、ガーナ ブラジル、オランダ、韓国、チュニジア アルゼンチン、ポーランド、アメリカ、オーストラリア メキシコ、セルビア・モンテネグロ、サウジアラビア、アンゴラ フランス、スウェーデン、イラン、パラグアイ となった。 前回優勝国は今まではグループAに属し、オープニングマッチを闘っていたが、今度はどうなんだろう？ 今度も実施されるなら、ブラジルのグループはAとなるから、イタリアの組みと変えて A：ブラジル、オランダ、韓国、チュニジア B：イングランド、ウクライナ、日本、エクアドル C：スペイン、ポルトガル、トリニダード・トバゴ、コートジボワール D：ドイツ、クロアチア、スイス、ガーナ E：イタリア、チェコ、コスタリカ、トーゴ F：アルゼンチン、ポーランド、アメリカ、オーストラリア G：メキシコ、セルビア・モンテネグロ、サウジアラビア、アンゴラ H：フランス、スウェーデン、イラン、パラグアイ とする。死のグループといえるものは、これといって見当たらないか。 日本は、イングランド、ウクライナ、エクアドルと同じ組。タレントレベルは優勝候補だけど、思っている以上に内容が伴っていないイングランドに、シェバを擁するウクライナ、そしてエクアドル。ブラジル、オランダが同居するA組や、スペイン、ポルトガルの同居するB組などと比べると可能性はあると思う。ただ、今の日本代表って、欠陥だらけだから、どこと当たっても組み易い国なんてないと思われ…。((アジア勢とは、決勝トーナメントにまで勝ち進まないと当たる可能性はないし