La copie de code est la suivante:
Functionmakegroup (teams () Asstring) Asstring
«Fonction Fonction: les équipes au hasard du groupe 32 dans le tableau des équipes. (Remarque: L'indice du tableau des équipes commence à partir de 0)
«Définition variable de la fonction.
«C'est une bonne habitude de montrer des déclarations variables.
Dimtvarasinteger, returnStrassstring, tmoveasinteger, tempasinteger
«Initialisez le générateur de nombres aléatoires pour obtenir un véritable aléatoire.
Randomiser (temporisateur)
Fortvar = 1to32' il y a 32 équipes au total
If (tvar-1) mod4 = 0Then
«Enregistrez le nom de l'équipe de groupe et le nom du groupe dans la variable Returnstr.
returnstr = returnstr & vbcrlf & chr (asc ("a") + (tvar / 4)) & "groupe:"
Endire
tmove = int (rnd * (33-tvar))
returnstr = returnstr & Teams (tmove) & "."
Fortemp = tmoveto30
«Déplacez la partie du tableau vers l'avant pour éviter l'existence d'équipes avec le même nom dans le groupe.
équipes (temp) = équipes (temp + 1)
NextTemp
Nexttvar
«La valeur de retour est le résultat après le regroupement.
MakeGroup = returnstr
Finition de fin