현재 위치 - 주공해몽공식사이트 - 관음보살의 랜덤 번호 뽑기 - VB 로 조를 나누어 제비를 뽑는 프로그램을 작성하는데, 8 개 팀은 무작위로 A, B 조 2 개, 그룹당 4 개 팀, 급함.

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

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"

엔디프

그리고 나서