China Naming Network - Almanac query - Draw lots to sort vb
Draw lots to sort vb
dim team(7) as string，i%，iA%，iB%
Irregular
For i=0 to 7
If int(rnd*2)=0 and ia < then 4.
Team (i)="A "
iA=iA+ 1
Elseif iB< then 4
Team (i)="B "
iB=iB+ 1
other
Team (i)="A "
If ... it will be over.
then
For i=0 to 7
If team (i)="A ",then
Print "First"&; I+ 1 & amp； "team a"
other
Print "First"&; I+ 1 & amp； "team b"
endif
then