การคัดลอกรหัสมีดังนี้:
functionmakegroup (ทีม () assstring) assstring
ฟังก์ชั่นฟังก์ชั่น: กลุ่มกลุ่ม 32 แบบสุ่มในอาร์เรย์ของทีม (หมายเหตุ: Teams Array Subscript เริ่มตั้งแต่ 0)
'นิยามตัวแปรของฟังก์ชั่น
'มันเป็นนิสัยที่ดีในการแสดงการประกาศตัวแปร
Dimtvarasinteger, returnstrasstring, tmoveasinteger, tempasinteger
'เริ่มต้นเครื่องกำเนิดตัวเลขสุ่มเพื่อให้ได้การสุ่มที่แท้จริง
สุ่ม (จับเวลา)
Fortvar = 1to32'There มีทั้งหมด 32 ทีม
ถ้า (tvar-1) mod4 = 0 แล้ว
'บันทึกชื่อทีมกลุ่มและชื่อกลุ่มลงในตัวแปร returnstr
returnstr = returnstr & vbcrlf & chr (asc ("a")+(tvar/4)) & "กลุ่ม:"
endif
tmove = int (rnd*(33-tvar))
returnstr = returnstr & teams (tmove) & "."
fortemp = tmoveto30
'ย้ายส่วนของอาร์เรย์ไปข้างหน้าเพื่อหลีกเลี่ยงการมีอยู่ของทีมที่มีชื่อเดียวกันในกลุ่ม
ทีม (อุณหภูมิ) = ทีม (อุณหภูมิ+1)
NextTemp
Nexttvar
'ค่าส่งคืนเป็นผลลัพธ์หลังจากการจัดกลุ่ม
makegroup = returnstr
endfunction