2011/1/7
2011年
ここでブログ回帰ってのもいいんじゃないか??なんてね
仮想12月9日~修正版
フットボール・バーリトゥーダーさん(元は2ちゃん)で超おもしろいものが。

で、まるまるもらってきちゃいました。(詳細は↑で)

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(7)
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((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"って感じで後ろに.vbsつけて保存して、そのファイルを開くと、あら不思議。

ちなみに、何回かやったら
ドイツ、ポルトガル、日本、トーゴって組が出来ました。
日本vsトーゴ、ドイツvsトーゴ、超熱いなあ。

・・・ちなみに修正版ではメキシコ、パラグアイ、スウェ-デン、日本でした。なんともスキのないグループですね。
[PR]
by to-_go | 2005-11-18 13:49 | FOOTBALL
<< またもや ギャップ >>
Top