抽签排序vb
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
然后