コードコピーは次のとおりです。
functionmakegroup（teams（）asstring）asstring
'関数関数：チームアレイのランダムなグループ32チーム。 （注：チームアレイ添え字は0から始まります）
'関数の可変定義。
「さまざまな宣言を示すことは良い習慣です。
Dimtvarasinteger、ReturnStrasString、Tmoveasinteger、Tempasinteger
'乱数ジェネレーターを初期化して、真のランダム性を実現します。
ランダム化（タイマー）
Fortvar = 1to32'は合計32チームです
if（tvar-1）mod4 = 0then
'グループチーム名とグループ名をReturnStr変数に保存します。
returnStr = returnStr＆vbcrlf＆chr（asc（ "a"）+（tvar/4））＆ "group："
endif
tmove = int（rnd*（33-tvar））
returnStr = returnStr＆teams（tmove）＆ "。"
Fortemp = tmoveto30
「グループ内に同じ名前のチームの存在を避けるために、配列の部分を前方に移動します。
チーム（TEMP）=チーム（TEMP+1）
NEXTTEMP
nexttvar
'リターン値は、グループ化後の結果です。
makegroup = returnstr
エンド機能