复制代码代码如下:
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