复制代码 代码如下:

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")+(tvar4))&"组:"

EndIf

tmove=Int(Rnd*(33-tvar))

returnstr=returnstr&teams(tmove)&"."

Fortemp=tmoveTo30

'将数组的部分前移避免组中存在同名球队.

teams(temp)=teams(temp+1)

Nexttemp

Nexttvar

'返回值为分组后的结果.

makegroup=returnstr

EndFunction