今日は何時に寝るか･･･。

フットボール・バーリトゥーダーさん（元は２ちゃん）で超おもしろいものが。

って赤いサムライで言ってたので、
で、まるまるもらってきちゃいました。（詳細は↑で）

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((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つけて保存して、そのファイルを開くと、あら不思議。

この遊びもあと3日。