asp中实现随机分组程序的代码
摘要：复制代码代码如下:Functionmakegroup(teams()AsString)AsString'函数功能:对teams数组中的32支...
复制代码 代码如下:
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
【asp中实现随机分组程序的代码】相关文章：
★ 在asp中通过getrows实现数据库记录分页的一段代码
上一篇：
ASP中怎么实现SQL数据库备份、恢复！
下一篇：
asp之字符串操作函数