نسخة الكود كما يلي:
FunctionMakeGroup (Teams () Assstring) Assstring
وظيفة الوظيفة: مجموعة 32 مجموعة عشوائية في مجموعة الفرق. (ملاحظة: يبدأ تراكم مجموعة مجموعة الفرق من 0)
تعريف متغير للوظيفة.
إنها عادة جيدة لإظهار إعلانات متغيرة.
dimtvarasinteger ، returnstrasstring ، tmoveasinteger ، tempasinteger
تهيئة مولد الأرقام العشوائية لتحقيق عشوائي حقيقي.
عشوائي (مؤقت)
Fortvar = 1TO32' لا يوجد 32 فريقًا في المجموع
إذا (tvar-1) mod4 = 0then
"حفظ اسم فريق المجموعة واسم المجموعة في متغير ReturnSt.
returnstr = returnstr & vbcrlf & chr (asc ("a")+(tvar/4)) و "Group:"
Endif
tmove = int (rnd*(33-tvar))
returnstr = returnstr & Teams (tmove) & "."
forptemp = tmoveto30
حرك جزء الصفيف للأمام لتجنب وجود فرق تحمل نفس الاسم في المجموعة.
الفرق (درجة الحرارة) = فرق (Temp+1)
NextTemp
Nexttvar
"قيمة الإرجاع هي النتيجة بعد التجميع.
Makegroup = Returnstr
الوظيفية