코드 사본은 다음과 같습니다.
functionmakegroup (teams () asstring) asstring
'기능 기능 : 팀 배열에서 무작위로 그룹 32 팀. (참고 : 팀 배열 첨자는 0부터 시작합니다)
'기능의 변수 정의.
'가변 선언을 보여주는 것은 좋은 습관입니다.
Dimtvarasinteger, ReturnStrastring, tmoveAsinteger, tempasinteger
'임의의 숫자 생성기를 초기화하여 진정한 무작위성을 달성하십시오.
무작위 화 (타이머)
Fortvar = 1to32 '총 32 개 팀이 있습니다
if (tvar-1) mod4 = 0then
'그룹 팀 이름과 그룹 이름을 returnstr 변수에 저장하십시오.
returnstr = returnstr & vbcrlf & chr (asc ( "a")+(tvar/4)) & "그룹 :"
endif
tmove = int (rnd*(33-tvar))
returnstr = returnstr & teams (tmove) & "."
FORTEMP = TMOVETO30
'그룹에서 동일한 이름을 가진 팀의 존재를 피하기 위해 배열의 일부를 앞으로 움직입니다.
팀 (온도) = 팀 (온도+1)
다음 temp
NEXTTVAR
'반환 값은 그룹화 후 결과입니다.
makegroup = returnstr
최종 기능 장애