抽選会後、日本をあきらめる奴→

どうぞ遊んでください前のは偏るのでこちらで

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