A cópia do código é a seguinte:
FunctionMakeGroup (Teams () Asstring) Asstring
'Função da função: Grupo 32 aleatoriamente as equipes da matriz de equipes. (Nota: o subscrito da matriz de equipes começa em 0)
'Definição variável de função.
'É um bom hábito mostrar declarações variáveis.
Dimtvarasinteger, ReturnStrasstring, Tmoveasinteger, Tempasinteger
'Inicialize o gerador de números aleatórios para alcançar a verdadeira aleatoriedade.
Randomizar (temporizador)
Fortvar = 1 a32 'Há 32 equipes no total
If (TVAR-1) mod4 = 0then
'Salve o nome da equipe do grupo e o nome do grupo na variável ReturnStr.
ReturnStr = ReturnStr & Vbcrlf & Chr (ASC ("A")+(TVAR/4) e "Grupo:"
Endif
tmove = int (rnd*(33-tvar))
return = returnstr & equipes (tmove) & "".
Fortemp = tmoveto30
'Mova a parte da matriz para evitar a existência de equipes com o mesmo nome no grupo.
Equipes (temp) = equipes (temp+1)
NextTemp
Nexttvar
'O valor de retorno é o resultado após o agrupamento.
MakeGroup = returnStr
Função final