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

loop until がくっついてしまったので、やりなおし。

ここから下
pot1="E,ドイツ,E,スペイン,E,イングランド,E,フランス,E,イタリア,S,ブラジル,S,アルゼンチン,N,メキシコ"
pot2="E,チェコ,E,オランダ,E,ポルトガル,E,スウェーデン,E,スイス,E,クロアチア,E,ポーランド,E,ウクライナ,E,セルビア・モンテネグロ"
pot3="N,アメリカ,N,コスタリカ,N,トリニダード・トバゴ,A,日本,A,イラン,A,韓国,A,サウジアラビア"
pot4="S,エクアドル,S,パラグアイ,F,トーゴ,F,ガーナ,F,コートジボワール,F,アンゴラ,F,チュニジア,O,オーストラリア"

dim ary1, ary2, ary3, ary4
ary1=split(pot1,",")
ary2=split(pot2,",")
ary3=split(pot3,",")
ary4=split(pot4,",")

dim grp(7,3,1)
randomize

for i=0 to 7
grp(i,0,0) = ary1(i*2)
grp(i,0,1) = ary1(i*2+1)
next
kuji "E", 8, ary2, 9, 1, "X"
kuji "E", 1, ary2, 9, 2, "E"
kuji "N", 3, ary3, 7, 2, "N"
kuji "A", 4, ary3, 7, 2, "X"
kuji "S", 2, ary4, 8, 3, "S"
kuji "F", 5, ary4, 8, 3, "X"
kuji "O", 1, ary4, 8, 3, "O"

for i=0 to 7
msg = msg & grp(i,0,0) & grp(i,0,1) & " "
msg = msg & grp(i,1,0) & grp(i,1,1) & " "
msg = msg & grp(i,2,0) & grp(i,2,1) & " "
msg = msg & grp(i,3,0) & grp(i,3,1) & chr(13)
next
msgbox msg

sub kuji(AREAid, AREAnum, ary, POTnum, ROWnum, AVOid)
for i=0 to (AREAnum-1)
Do
index = int(rnd*POTnum)
Loop until ary(index*2)=AREAid
Do
Do
selG = int(rnd*8)
Loop until grp(selG,ROWnum,0)=""
Loop until grp(selG,0,0)<>AVOid
grp(selG,ROWnum,0) = ary(index*2)
grp(selG,ROWnum,1) = ary(index*2+1)
ary(index*2) = ""
next
end sub