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

2019-08-09 05:49:07来源:爱站网 阅读 ()

新老客户大回馈,云服务器低至5折

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

复制代码 代码如下:


Function?makegroup(teams()?As?String)?As?String?
??'函数功能:对teams数组中的32支球队进行随机分组.(注:teams数组下标从0开始)?
??'函数的变量定义.?
??'显示变量声明是一个好习惯.?
??Dim?tvar?As?Integer,?returnstr?As?String,?tmove?As?Integer,?temp?As?Integer?
??'初始化随机数产生器实现真正的随机性.?
??Randomize?(Timer)?
??For?tvar?=?1?To?32?'共有32支球队?
????If?(tvar?-?1)?Mod?4?=?0?Then?
??????'将分组球队名称及组名存入returnstr变量中.?
??????returnstr?=?returnstr?&?vbCrLf?&?Chr(Asc("A")?+?(tvar?\?4))?&?"组:"?
????End?If?
????tmove?=?Int(Rnd?*?(33?-?tvar))?
????returnstr?=?returnstr?&?teams(tmove)?&?"."?
????For?temp?=?tmove?To?30?
??????'将数组的部分前移避免组中存在同名球队.?
??????teams(temp)?=?teams(temp?+?1)?
????Next?temp?
??Next?tvar?
??'返回值为分组后的结果.?
??makegroup?=?returnstr?
End?Function?

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


原文链接:https://js.aizhan.com/develop/asp/7880.html
如有疑问请与原作者联系

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:ASP生成动态flash的工具与介绍

下一篇:较全的ASP知识教程