コードコピーは次のとおりです。
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
エンド機能