Die Codekopie lautet wie folgt:
FunktionsmakeGroup (Teams () Asstring) Assstring
'Funktionsfunktion: Zufällige Gruppe 32 -Teams im Team -Array. (Hinweis: Das Teams Array -Index startet mit 0)
'Variable Definition der Funktion.
'Es ist eine gute Angewohnheit, variable Erklärungen zu zeigen.
Dimtvarainteger, returnstrassstring, tmoveasinger, tempainteger
'Initialisieren Sie den Zufallszahlengenerator, um echte Zufälligkeit zu erreichen.
Randomize (Timer)
Fortvar = 1to32'There gibt insgesamt 32 Teams
If (tvar-1) mod4 = 0Then
„Speichern Sie den Gruppenteamnamen und den Gruppennamen in der ReturnStr -Variablen.
returnStr = returnstr & vbcrlf & chr (asc ("a")+(tvar/4)) & "Gruppe:"
Endif
tmove = int (rnd*(33-tvar))
returnStr = returnstr & teams (tmove) & "."
Fortemp = tmoveto30
„Bewegen Sie den Teil des Arrays vorwärts, um die Existenz von Teams mit demselben Namen in der Gruppe zu vermeiden.
Teams (temp) = Teams (Temp+1)
NextTemp
NextTvar
'Der Rückgabewert ist das Ergebnis nach der Gruppierung.
MakeGroup = returnstr
Endfunktion