La copia del código es la siguiente:
FunctionMakeGroup (Teams () Asstring) Astring
'Función Función: Grupo aleatorio 32 equipos en la matriz de equipos. (Nota: el subíndice de matriz de equipos comienza desde 0)
'Definición variable de función.
'Es un buen hábito mostrar declaraciones variables.
Dimtvarasinteger, returnstrastring, tmoveasinteger, tempasiNTEGER
'Inicializa el generador de números aleatorios para lograr una verdadera aleatoriedad.
Aleatorizar (temporizador)
Fortvar = 1to32' hay 32 equipos en total
If (tvar-1) mod4 = 0then
'Guarde el nombre del equipo del grupo y el nombre del grupo en la variable returnstr.
returnstr = returnstr & vbcrlf & chr (asc ("a")+(tvar/4)) y "grupo:"
Endif
tMove = int (rnd*(33-tvar))
returnstr = returnstr & teams (tmove) y "."
Fortemp = tmoveto30
'Mueva la parte de la matriz hacia adelante para evitar la existencia de equipos con el mismo nombre en el grupo.
equipos (temp) = equipos (temp+1)
Nexttemp
Nexttvar
'El valor de retorno es el resultado después de la agrupación.
MakeGroup = returnstr
Función final