複製代碼代碼如下:
Functionmakegroup(teams()AsString)AsString
'函數功能:對teams數組中的32支球隊進行隨機分組.(注:teams數組下標從0開始)
'函數的變量定義.
'顯示變量聲明是一個好習慣.
DimtvarAsInteger,returnstrAsString,tmoveAsInteger,tempAsInteger
'初始化隨機數產生器實現真正的隨機性.
Randomize(Timer)
Fortvar=1To32'共有32支球隊
If(tvar-1)Mod4=0Then
'將分組球隊名稱及組名存入returnstr變量中.
returnstr=returnstr&vbCrLf&Chr(Asc("A")+(tvar/4))&"組:"
EndIf
tmove=Int(Rnd*(33-tvar))
returnstr=returnstr&teams(tmove)&"."
Fortemp=tmoveTo30
'將數組的部分前移避免組中存在同名球隊.
teams(temp)=teams(temp+1)
Nexttemp
Nexttvar
'返回值為分組後的結果.
makegroup=returnstr
EndFunction