Salinan kode adalah sebagai berikut:
FunctionMakeGroup (Teams () Asstring) Asstring
Fungsi fungsi: Tim grup 32 secara acak dalam array tim. (Catatan: Subskrip Array Tim dimulai dari 0)
'Definisi fungsi variabel.
'Merupakan kebiasaan yang baik untuk menunjukkan deklarasi variabel.
DIMTVARASInteger, ReturnString, TMoveasInteger, TempasInteger
'Inisialisasi generator bilangan acak untuk mencapai keacakan sejati.
Acak (timer)
FortVar = 1to32'the adalah 32 tim secara total
If (tvar-1) mod4 = 0then
'Simpan nama tim grup dan nama grup ke dalam variabel returnstr.
returnstr = returnstr & vbcrlf & chr (asc ("a")+(tvar/4)) & "grup:"
Endif
tmove = int (rnd*(33-tvar))
returnstr = returnstr & Teams (tmove) & "."
Fortemp = TMOVETO30
'Pindahkan bagian dari array ke depan untuk menghindari keberadaan tim dengan nama yang sama dalam grup.
tim (temp) = tim (temp+1)
NextTemp
Nexttvar
'Nilai pengembalian adalah hasilnya setelah pengelompokan.
makregroup = returnstr
Fungsi endfungsi