计算机彩票分组方法

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

然后