模拟分组彩票
dim team(7) as string,i%,iA%,iB%
使不规则化
对于i=0到7
如果int(rnd*2)=0且iA & lt那么4
团队(i)="A "
iA=iA+1
elseif iB & lt那么4
团队(i)="B "
iB=iB+1
其他
团队(i)="A "
如果…就会结束
然后
对于i=0到7
如果团队(i)="A "那么
打印“第一个”&;I+1 & amp;“A队”
其他
打印“第一个”&;I+1 & amp;“B队”
endif
然后