ASP中如何实现随机分组程序

随机分组程序比较常用于比赛中需要随机对参赛人员，那么我们在ASP中如何实现随机分组程序呢？下面我们就带着这个疑问去看看相关内容吧，希望对你有一定的帮助。

复制代码 代码如下:


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

看完后上文关于ASP中如何实现随机分组程序介绍后，你是不是觉得非常动心呢？那么我们现在就赶紧去试试此方法吧。