VB 로 조를 나누어 제비를 뽑는 프로그램을 작성하는데, 8 개 팀은 무작위로 A, B 조 2 개, 그룹당 4 개 팀, 급함.

불규칙하게 만들다

I=0 ~ 7 인 경우

Int(rnd*2)=0 이고 iA< 인 경우 4

팀 (i)="A "

IA=iA+ 1

Elseif iB< 그렇게 4

팀 (i)="B "

IB=iB+ 1

기타

팀 (i)="A "

만약 ... 끝날거야

그리고 나서

I=0 ~ 7 인 경우

팀 (i)="A "인 경우

인쇄 "첫 번째"&; I+1& "a 팀"

기타

인쇄 "첫 번째"&; I+1& "팀 b"

엔디프

그리고 나서