asp中实现随机分组程序的代码
asp中实现随机分组程序的代码
发布时间:2016-12-29 来源:查字典编辑
摘要:复制代码代码如下: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教程学习
编程开发子分类