팀 무작위 추첨 절차

Dim team(7) as string, i%, iA%, iB%

불규칙하게 만들다

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"

엔디프

그리고 나서